Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit näytille: QB: Left

Sivu 1 / 1

Dj Wolf [23.06.2002 17:56:51]

#

*QB* Tässäpä hyvin yksinkertainen, mutta ehkäpä jopa hyödyllinen vinkki.
Tämä ottaa selville siis kellonajan, päivän yms.

CLS
LOCATE 10, 32: PRINT "ESCillä lopetetaan"
DO UNTIL w$ = CHR$(27)
w$ = INKEY$
tunti = VAL(LEFT$(TIME$, 2))        'Tässä esitellään lähinnä
minuutti = VAL(MID$(TIME$, 4, 2))   'LEFT$, MID$ ja RIGHT$
sekunti = VAL(RIGHT$(TIME$, 2))     'komentojen hyötykäyttöä
COLOR 7: LOCATE 1, 1
PRINT "tunti:   "; tunti
PRINT "minuutti:"; minuutti
PRINT "sekunti: "; sekunti
PRINT TIME$
PRINT ""
kuukausi = VAL(LEFT$(DATE$, 2))
paiva = VAL(MID$(DATE$, 4, 2))
vuosi = VAL(RIGHT$(DATE$, 4))
PRINT "päivä:   "; paiva
PRINT "kuukausi:"; kuukausi
PRINT "vuosi:   "; vuosi
PRINT DATE$
IF paiva = 10 AND kuukausi = 8 THEN
COLOR 21: LOCATE 20, 22: PRINT "Tänään on Markon [Dj Wolf] syntymäpäivä!"
ELSE
END IF
LOOP

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta