Warning: set_time_limit(): Cannot set time limit in safe mode in /home/www/dynamic/uv.ro/pubory.uv.ro/public_html/pub/index.php on line 526 qbasic/COST4TVA.BAS0000755000000000000000000001272007545156662010771 0ustar REM Acest program nu a fpst niciodata terminat el e doar demonstrativ! REM ing. Bodin Florin Ciprian /Arad REM 27/09/2002 REM Porneste programul din exterior printr-un fisier .BAT REM pentru a incarca fontua speciala REM Valoarea TVA este setata la 16% din valoarea articolului REM lang1040: ,,,,,,,,&, CLS PRINT "Eroare lipseste parametrul!" ON ERROR GOTO ErrorTrap ErrorFlag = 0 OPEN COMMAND$ FOR INPUT AS #1: CLOSE #1 IF ErrorFlag THEN PRINT "Optiunea solicitata nu exista." SYSTEM END IF ON ERROR GOTO 0 Stack: CLS COLOR 4 PRINT "********************************************************************************"; TAB(COLOR12); COLOR 15 PRINT "Calcularea tva si a valorii unor produse" COLOR 31 PRINT "Introdu alegerea ta (ro sau en) si apasa " COLOR 0 INPUT "R="; R$ IF R$ = "ro" OR R$ = "RO" THEN GOTO Start: IF R$ = "en" OR R$ = "EN" THEN GOTO Startup: IF R$ = "" OR R$ = "" THEN Start: COLOR 15 INPUT "Tipul valutei [lei; $(USD); (Euro); forint;] ="; UM$ IF UM$ = "DOLAR" OR UM$ = "dolar" THEN GOTO et1: IF UM$ = "USD" OR UM$ = "usd" THEN GOTO et1: IF UM$ = "LEI" OR UM$ = "lei" THEN GOTO et1: IF UM$ = "" OR UM$ = "" GOTO et1: IF UM$ = "EURO" OR UM$ = "euro" THEN GOTO et1: IF UM$ = "FORINT" OR UM$ = "forint" THEN GOTO et4: IF UM$ = "1" THEN GOSUB et1: END IF SYSTEM Startup: COLOR 15 INPUT " Enter curency [lei; $(USD); (Euro); forint;] ="; UM$ IF UM$ = "DOLAR" OR UM$ = "dolar" THEN GOTO et2: IF UM$ = "USD" OR UM$ = "usd" THEN GOTO et2: IF UM$ = "LEI" OR UM$ = "lei" THEN GOTO et2: IF UM$ = "EURO" OR UM$ = "euro" THEN GOTO et3: IF UM$ = "" OR UM$ = "" GOTO et3: IF UM$ = "FORINT" OR UM$ = "forint" THEN GOTO et4: IF UM$ = "1" THEN GOSUB et5: SYSTEM et1: COLOR 13 INPUT "Denumire produs="; N$ COLOR 19 INPUT "Cantitate="; Q COLOR 15 INPUT "Pret (unitar)="; p V = Q * p TVA = (16 / 100) * V VT = V + TVA COLOR 10 INPUT "Doriti afisarea datelor [D/N]="; DN$ IF DN$ = "D" OR DN$ = "d" THEN GOSUB er: IF DN$ = "N" OR DN$ = "n" THEN GOSUB p1: SYSTEM et2: COLOR 13 INPUT "Article name="; N$ COLOR 19 INPUT "Quantity="; Q COLOR 15 INPUT "Price="; p V = Q * p TVA = (16 / 100) * V VT = V + TVA COLOR 10 INPUT "List data [Y/N]="; DN$ IF DN$ = "Y" OR DN$ = "y" THEN GOSUB p0: IF DN$ = "N" OR DN$ = "n" THEN GOSUB p12: SYSTEM et3: p = 0 INPUT "Article name="; N$ COLOR 19 INPUT "Quantity="; Q COLOR 15 INPUT "Price="; p V = Q * p TVA = (16 / 100) * V VT = V + TVA COLOR 10 INPUT "List data [Y/N]="; DN$ IF DN$ = "Y" OR DN$ = "y" THEN GOSUB p0: IF DN$ = "N" OR DN$ = "n" THEN GOSUB p12: SYSTEM et4: p = 0 INPUT "Article name="; N$ COLOR 19 INPUT "Quantity="; Q COLOR 15 INPUT "Price="; p V = Q * p TVA = (16 / 100) * V VT = V + TVA COLOR 10 INPUT "List data [Y/N]="; DN$ IF DN$ = "Y" OR DN$ = "y" THEN GOSUB p0: IF DN$ = "N" OR DN$ = "n" THEN GOSUB p12: SYSTEM er: REM "Paragraf pentru afisare (ro)" COLOR 15 PRINT "ͻ" PRINT " Denumire Pret un. Valoare TVA Cantitate Pret tot." PRINT "͹" PRINT " "; N$; " "; p; UM$; ""; V; UM$; ""; TVA; UM$; " "; Q; " "; VT; UM$; "" PRINT "͹" PRINT "ͼ" GOTO p1: et5: COLOR 4 PRINT "********************************************************************************"; TAB(COLOR12); COLOR 15 GOTO Start: p: REM "Paragraf pentru afisare (ro)" COLOR 15 PRINT "ͻ" PRINT " Denumire Pret un. Valoare TVA Cantitate Pret tot." PRINT "͹" PRINT " "; N$; ""; p; UM$; ""; V; UM$; ""; TVA; UM$; " "; Q; ""; VT; UM$; "" PRINT "͹" PRINT " " PRINT " " PRINT "ͼ" GOTO p1: etpe0: IF R$ = "ro" OR R$ = "RO" THEN GOTO p: IF R$ = "en" OR R$ = "EN" THEN GOTO p0: GOTO p0: p0: REM "Paragraf pentru afisare (en)" COLOR 15 PRINT "ͻ" PRINT " Name Price Value TVA Quantity Final price" PRINT "͹" PRINT " "; N$; " "; p; UM$; ""; V; UM$; ""; TVA; UM$; " "; Q; " "; VT; UM$; "" PRINT "͹" PRINT "ͼ" GOTO p12: p1: COLOR 15 PRINT "TVA="; TVA; UM$ PRINT "Valoarea produselor fara TVA="; V; UM$ COLOR 3 PRINT "Pret total="; VT; UM$ PRINT "" RETURN p12: COLOR 15 PRINT "TVA="; TVA; UM$ PRINT "Price ="; V; UM$ COLOR 3 PRINT "Price+TVA="; VT; UM$ PRINT "" RETURN ErrorTrap: GOTO Stack: SYSTEM END qbasic/TVADemo.zip0000755000000000000000000000770107545156662011221 0ustar PK<-TVADemo/PK<-8p=TVADemo/COST4TVA.BASXn7>[au )QmISDҪ`J@HAt]pF|3k!oо@>@y^S%ȅ^I<|] r<>~lʼ$W  3+RɮvFU_±7cz'| bbQ5'8Z@BeόKy =n;QWb2)S42$tʈK"Ԅh2%LڠG Tr ԟGN0DH6 vi_k&|[}շ?U?蜌[Pe~͋(>16 _ Bx-\r GPSȡiAgpzڶ;.}k8v=OMu02QBdYgkR[4% 9.\<:a$F Tauߛ3MI2-ь;l<@)Nǩ7*ta6hޓ8G)fa@~=f .Z Hhu> |irȗ!};'!<C%"YS8 ؈0S %eʥ;[im …Vz j"x&(1nj?<;o$f wRƥ<e'KbaHD;;8љdD~I+:4n{c# |z15\x3W\vg|zos~.4^e3lz!;KR9+.e1d(r&* m>ZV%Z' UQDLZsC&Sh., HG"&Q$J*==Ɖt(Y*6izB(G(GA֐^W9rqIwBIܣW|ض"sB B] (%:K̒Z鋷R3nRrPKk;-<-.6TVADemo/COST4TVA.BAT/MK*LJ,LKHU SH/.1))Kr!PKP;-+/TVADemo/MAKEFILE0 Hy:"LH 12uISCRBSn'3b|7uujiN{1H}A5UR$hƶ`*!Z=,5:!VL2 ЋYl>KA>"Qܫxe(ء˥#OPKس;-7p "TVADemo/NORMAL.COMW_hEK'i]]L,GRDAX.}X4I\̓yiIK-E|PCR=*\A A$@ijٙݙmk|3ߓ>ٜ־6Eɷtb m5?͏Ǵ?Fo8;zݿKk.V,5I4qڿ{b:tX^-㏯C*', +sdMR&;(>3Z]3_AƍpF1>—r2M>ks)W7&p0>HI%`xc\Ac۪ڬecnƬ#hO `#?q`ttd_Ewy撆Ts+kv?Qc@YZQc8G# ֞7vh{w7<ݣ^?I#2N)H"8MEL?';A!PpY#W.2G&Ԙ [<>4pNDwQeӑ'FF* G(%3'BݲuJp8㷈ҢO D?ZΝ/=\*#& d@c|@o,.TzZLHu~y%\YXZ7-hXIuFNLd7Qk'x,3_EĄz0Yj p9Si.g=Eae ]? G[0zt]s u/li:8]:Vd9ioîd~,ސ?h>K8ea1U-4cU66%{ƫeIs`T=N0ljL2*ė~kV=-!Q(ƫUi:]a9P¶, gGJt96 ~_eXt!6d=RI @l[l:?oj?y 6U'$}~L5,L%GI##^O ITF&;v^Vdy. }ݰ[K)?L,h<wԿO)94@>N&ofH &+٩~B|[9HRi;?ǘ$@ 8*X[F)o L$jy>ȌifKw8g*dI F¦kdE!,TΗ@2w8 yiAꈘб!NzfXW<^Hc R&x  C|~&ka5M~}#N.@A1>$ޒ/C?䗰%7 f`uUD?Ld;~bُ{cx7Xzܺ#Lȭǯ<%LrH JpOLؓkJ8+ 'YbpK(\>ѿ(z=)tgEQv|FvI>i̹̿u;3~(gyf]Wv(k_& }w/3>ѳ+/( ϐg ;&d97݊;B e"Y:u|zpا%&ߨK6)ve.B-k/9)bͱu U;)ɩL?4+YOv\fL9%9}пV[oäT]nV[ PK<-TVADemo/PK<-8p= &TVADemo/COST4TVA.BASPKk;-<-.6 TVADemo/COST4TVA.BATPKP;-+/ TVADemo/MAKEFILEPKس;-7p " TVADemo/NORMAL.COMPK8s