Program u QBasicu - misljenja

Daleko je ovo od ozbiljnosti, još uz to QBasic, ovakve stvari se rade u osnovnoj školi.

Pokrenuo sam program i radi ono sto si napisao, nitko ti ne moze dati neko detaljnije misljenje samo na osnovi izvrsne datoteke. Program je jako jednostavan. Stavi izvorni kôd pa da vidimo kako si to izveo...

Mozda da probas malo grafiku u QBasicu? Jako je jednostavna, iako ne bas brza

Recimo isprogramiras tetris :)

Evo koda: ;)

CLS

40 LOCATE 25, 73: COLOR 4: PRINT "by SR 88"

COLOR 7

LOCATE 2, 12: PRINT "Ovo je program koji izracunava koliko ste vremena do sad"

LOCATE 3, 17: PRINT "proveli spavajuci, a koliko dok ste bili budni"

PRINT

PRINT

50 INPUT "Koliko sati dnevno spavate?"; a

IF a > 24 THEN PRINT "Vrijeme mora biti 0-24h": GOTO 50

INPUT "Koliko imate godina?"; b

d = a * 365 * b   'sveukupno sati'

e = d / 24     'dani'

f = e / 365     'godine'

g = 24 - a

h = g * 365 * b   'sve. sati budni'

i = h / 24     'dana budni'

j = i / 365     'godina budni'

10 INPUT "Odaberite zeljeni format: godine, dani, sati"; k$

PRINT

IF k$ = "godine" OR k$ = "Godine" OR k$ = "GODINE" THEN

PRINT "Proveli ste"; INT(f); "godina spavajuci, a"; INT(j); "godina budni."

ELSEIF k$ = "dani" OR k$ = "Dani" OR k$ = "DANI" THEN

PRINT "Proveli ste"; INT(e); "dana spavajuci, a"; INT(i); "dana budni."

ELSEIF k$ = "sati" OR k$ = "Sati" OR k$ = "SATI" THEN

PRINT "Proveli ste"; INT(d); "sati spavajuci, a"; INT(h); "sati budni."

ELSE CLS : GOTO 10

END IF

PRINT

PRINT

PRINT

PRINT

PRINT

30 INPUT "Utipkajte 'Izlaz' za izlaz ili 'Ponovno' za ponovno pokretanje aplikacije"; o$

IF o$ = "Izlaz" OR o$ = "izlaz" OR o$ = "IZLAZ" THEN

GOTO 20

END IF

IF o$ = "Ponovno" OR o$ = "ponovno" OR o$ = "PONOVNO" THEN

CLS : GOTO 40

END IF

IF o$ <> "Ponovno" AND o$ <> "Izlaz" THEN

PRINT "Niste unijeli ni jedno od navedenoga": GOTO 30

END IF

20

- užas. (ok, za par dana učenja...)

- ovo nije qbasic, nego quickbasic (qb-4.5, compiler). Recimo ima naredbu swap koja može biti korisna, može alocirati više resursa i najvažnije ima kompajler. Pokušaj malo s VB-DOS verzijom, imaš forme (ili čisti BAS kod kao qb) čime eliminiraš početničko crtkanje ekrana, podrška za miša itd...

- brojevi (linija) koji idu bezveze... ili ih koristi ili ne, ovako je bućkuriš, ista stvar za goto.

- umjesto goto, kotristi rutine (sub ili func).

- umjesto PET printeva, pošto već prije u kodu koristiš naredbu locate... -ima li neki logičniji način? ah, pa da.. locate(!), print.

-savjet, inpute rješavaj s inkey$ u do-loopu, kontrolirajući svaki znak i dali je unesena regularna vrijednost, kao datum .. istovremeno to daje mogućnost kontrole funkcijskih tipki i spriječava 'raspad' ekrana zbog recimo tipkanja u dva-tri reda... -testiraj držeći neko slovo/broj npr aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ....

- vrlo dobro za početak. Nastavi.

-ipak, malo si skrati muke, radeći u nekom modernijem IDEu ili bar spomenutom VBu (for DOS) jer se ne isplati gubiti vrijeme na iscrtavanje ekrana (s druge strane, svako znanje može biti korisno...)

Ne razumijem. Kako si uspio napisati sav onaj kod, a nisi sposoban tu promijeniti jednu naredbu da ti ispisuje sto zelis?

Jel znas ispisati na ekran to sto zelis ispisati? Pa isto tako ces ispisati na pisac, samo sto ce prvi parametar naredbi PRINT biti #1 (u tvom slucaju oznaka za pisac na LPT portu).

Znaci,

PRINT "Kako si?"

ispisuje "Kako si?" na ekran, a

PRINT #1, "Kako si?"

ispisuje "Kako si?" na pisac.

Gle, skini si Visual Studio 2010 C# Express i mani se qbasica. Neces apsolutno nista u danasnje vrijeme korisno nauciti s tim.

http://www.microsoft.com/express/Downloads/#2010-Visual-CS

za ispis varijable, metoda je ista, na ekran ili printer, print "text" ili print text($) :))

hint: tekst u navodnicima je fixni, dok sadržaj varijable koju koristiš za input ili računanje, isto tako i printaš, svejedno koji izlaz (scr, file, prn..)

-problem pozicioniranja je malo veći. Pod DOSom se koristio fixni font, std A4 ima 80 linija, s marginama 66 (koristi se cca 60) i stane u širinu 80-132 znaka, opet margine pa se koristi 60 znakova.

Svaki tekst možeš formatirati u string duljine 60znakova i printati redove (slično snimanju u file ili DATotekama=DATA).

Problem je kod korištenja windows-grafičkog načina rada, slovo 'i' i slovo 'w' su različite širine, dok promjena fonta još više utječe na veličinu... uz to što win-driver ispisuje (npr laser printer) čitavu stranicu u memoriju printera i tad radi otisak, za razliku od matričnog printera koji je printao red po red teksta (i beskonačno...). Ti sam moraš kontrolirati 'brojati' redove, poslati naredbu za novu stranicu itd..

-pošto danas više nema čistog DOSa (neka računala nemaju LPT port - to je preduvjet ili moraš koristiti emulator tzv. DOSprinter..)

-nemoj na to (printanje) gubiti vrijeme.

Orjentiraj se na koristan kod, algoritam (logiku). Ne na iscrtavanje ekrana ili print jer za to postoje gotova rješenja... (forme, baze, ...)

Ako si nabavio VBdos, jasno ti je što mislim, pogotovo sve novije win verzije.

Recimo print se svodi na to da pošalješ naredbu printer objektu, ništa teže nego iz recimo worda. :)