QBasic - printing, pomoc

poruka: 6
|
čitano: 2.370
|
moderatori: Lazarus Long, XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
16 godina
neaktivan
offline
QBasic - printing, pomoc

Napisao sam jednostavan program u QBasicu koji trazi da se unese par vrijednosti varijabli...Kasnije on sa tim varijablama nesto racuna, itd.

Mene zanima kako isprintati taj dio "kasnije" kada program sve izracuna ("rezultat"). Sve na LPT1 port.

 

 

OPEN "LPT1:" FOR OUTPUT AS #1

PRINT #1, X

CLOSE #1

Na mjesto X trebalo bi doci nesto, ako se ne varam.
Nadam se da ste donekle shvatili sto zelim reci.

 

 
0 0 hvala 0
15 godina
neaktivan
offline
RE: QBasic - printing, pomoc

Da, trebalo bi. I to tekst koji zelis ispisati:

 

PRINT #1, "Pozdrav svima"

 

Vise o tome, ovdje.

How much wood would a woodchuck chuck if a woodchuck could chuck wood?
16 godina
neaktivan
offline
RE: QBasic - printing, pomoc
rustweaver kaže...

Da, trebalo bi. I to tekst koji zelis ispisati:

 

PRINT #1, "Pozdrav svima"

 

Vise o tome, ovdje.

 

To shvacam, ali kako da namjestim da je umjesto X taj rezultat koji dobijem.

 

15 godina
neaktivan
offline
RE: QBasic - printing, pomoc

Pa ispises sadrzaj varijable

 

npr.

 

n%=13
d%=15
c%=n%+d%

OPEN "LPT1:" FOR OUTPUT AS #1
PRINT #1, c%
CLOSE #1

 

To bi tako trebalo biti u teoriji, a sada, nemam pojma kako ce printer reagirati na to sto mu qbasic salje.

How much wood would a woodchuck chuck if a woodchuck could chuck wood?
16 godina
neaktivan
offline
RE: QBasic - printing, pomoc
rustweaver kaže...

Pa ispises sadrzaj varijable

 

npr.

 

n%=13
d%=15
c%=n%+d%

OPEN "LPT1:" FOR OUTPUT AS #1
PRINT #1, c%
CLOSE #1

 

To bi tako trebalo biti u teoriji, a sada, nemam pojma kako ce printer reagirati na to sto mu qbasic salje.

 

A sto ako zelim napisati rezultat koji dobijem.

Npr. ovaj program dolje, ja zelim isprintati ono na kraju ka mi kaze: "Proveli ste n dana spavajuci, a n dana budni" e to ne kuzim -.-

 

 

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

 

 

15 godina
neaktivan
offline
RE: QBasic - printing, pomoc

Pa valjda:

 

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

How much wood would a woodchuck chuck if a woodchuck could chuck wood?
1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice