Koodit: QB: Kellon ja päivämäärän näyttäminen reaaliajassa

Tämä koodi ei ole ihan minun omaa tuotantoani, sillä olen katsonut sen Qbasicin ohjeista, mutta olen soveltanut sitä itse ja saanut aikaan pienen ohjelman pätkän, joka näyttää kellon sekä päivämäärän reaaliajassa, kun ohjelma on päällä. Ohjelma loppuu ESC - näppäimen painamisen jälkeen. Mitä hyötyä siitä on, noh, sen voitte keksiä itse. Minä ainakin käytän koodinpätkää tällä hetkellä omassa projektissani, eli siinä GUIssa. Että silleen...

-Grey-

CLS 'Tyhjentää näytön

DO

T$ = TIME$ 'Nämä kaksi asettavat kellon näyttämään ajan oikein
Hr = VAL(T$)

LOCATE 1, 1: PRINT "Clock: " 'Tulostaa tekstin Clock:
LOCATE 2, 1: PRINT "Date: " 'Tulostaa tekstin Date:

LOCATE 1, 7: PRINT STR$(Hr); RIGHT$(T$, 6); Ampm$ 'Näyttää kellonajan määritellyssä kohtaa
LOCATE 2, 7: PRINT DATE$ 'Näyttää päivämäärän määritellyssä kohtaa

IF INP(&H60) = 1 THEN EXIT DO 'Poistuu silmukasta, kun painetaan ESC

LOOP