Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit näytille: QB kello

Sivu 1 / 1

snakari [17.06.2002 15:10:52]

#

Tässä on nyt tämmönen kello:
Mitään hyötyä tälle on varmaan vaikee keksiä

DECLARE SUB aika (rivi, paikka)

SCREEN 13
DIM SHARED numerot(20 * 11)

' Luetaan datat
FOR k = 1 TO 11
FOR p = 1 TO 7
FOR r = 1 TO 5
READ v
PSET (r, p), v
NEXT r
NEXT p
GET (0, 0)-(6, 8), numerot(20 * k - 20)
CLS
NEXT k

' Tulostetaan aika
DO
CLS
aika 1, 1
a = TIMER
WHILE b < 1
b = TIMER - a
WEND
a = 0
b = 0
LOOP

' Datat
DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00

DATA 00,15,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,15,15,15,00

DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 00,15,15,15,00
DATA 15,00,00,00,00
DATA 15,00,00,00,00
DATA 15,15,15,15,15

DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 15,15,15,15,00

DATA 15,00,00,15,00
DATA 15,00,00,15,00
DATA 15,00,00,15,00
DATA 15,15,15,15,15
DATA 00,00,00,15,00
DATA 00,00,00,15,00
DATA 00,00,00,15,00

DATA 15,15,15,15,15
DATA 15,00,00,00,00
DATA 15,00,00,00,00
DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 15,15,15,15,00

DATA 00,15,15,15,15
DATA 15,00,00,00,00
DATA 15,00,00,00,00
DATA 15,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00

DATA 15,15,15,15,15
DATA 00,00,00,00,15
DATA 00,00,00,15,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00

DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00


DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,15
DATA 00,00,00,00,15
DATA 00,00,00,15,00
DATA 00,15,15,00,00

DATA 00,00,00,00,00
DATA 00,00,00,00,00
DATA 00,00,15,00,00
DATA 00,00,00,00,00
DATA 00,00,00,00,00
DATA 00,00,00,00,00
DATA 00,00,15,00,00

SUB aika (rivi, paikka)

' Tulostetaan aika
klo$ = TIME$
FOR kirjain = 1 TO LEN(klo$)
IF MID$(klo$, kirjain, 1) = "0" THEN merkki = 1
IF MID$(klo$, kirjain, 1) = "1" THEN merkki = 2
IF MID$(klo$, kirjain, 1) = "2" THEN merkki = 3
IF MID$(klo$, kirjain, 1) = "3" THEN merkki = 4
IF MID$(klo$, kirjain, 1) = "4" THEN merkki = 5
IF MID$(klo$, kirjain, 1) = "5" THEN merkki = 6
IF MID$(klo$, kirjain, 1) = "6" THEN merkki = 7
IF MID$(klo$, kirjain, 1) = "7" THEN merkki = 8
IF MID$(klo$, kirjain, 1) = "8" THEN merkki = 9
IF MID$(klo$, kirjain, 1) = "9" THEN merkki = 10
IF MID$(klo$, kirjain, 1) = ":" THEN merkki = 11

PUT (6 * paikka * kirjain, 7 * rivi), numerot(20 * merkki - 20)
NEXT kirjain

END SUB

Antti Laaksonen [18.06.2002 18:02:47]

#

Vähän kankeasti tehty, mutta tuntuu toimivan. Digitaalifontti olisi kyllä parempi.

Jaakko [18.06.2002 20:12:36]

#

"Vähän"???? Kunnon analoginen SIN- ja COS-kello on ainoo josnka voi laittaa tänne mun mielestä

snakari [18.06.2002 21:50:54]

#

Toi tehtiin nyt nopeesti. Mut fontin voi kyl vaihtaa

Vastaus

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

Tietoa sivustosta