Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Binaarikello

gamehouse [13.04.2008 20:00:53]

#

Tein tässä huvikseni binaarikellon. Bugeja saattaa löytyä (aivan varmasti löytyykin) ja koodi on melkoisen sotkuista. En ole kommentoinut koodia, koska en heti ajatellut laittavani koodia tänne. Toivon, että joku hyötyy tästä. Tuskin ;)

PS. Niille, jotka eivät tiedä, mikä on binaarikello niin menkääs tänne: http://www.gadgets.fi/bin-rikello.html

Kuva havainnollistaa: http://www.urbanjunkie.co.uk/shopimages/products/extras/Binary clock Method 300.jpg

' Binaarikello v.0.1
' (c) Copyrigth Mark Mäkinen 2008

' muista: 1248!

CLS
PRINT
PRINT TIME$
PRINT

PRINT "KYMMENET TUNNIT:"

IF LEFT$(TIME$, 1) = "0" THEN
 PRINT "0"
 PRINT "0"
ELSEIF LEFT$(TIME$, 1) = "1" THEN
 PRINT "0"
 PRINT "1"
ELSEIF LEFT$(TIME$, 1) = "2" THEN
 PRINT "1"
 PRINT "0"
END IF

SLEEP 2

PRINT "TUNNIT:"

IF LEFT$(TIME$, 2) = "0" THEN
 PRINT "0"
 PRINT "0"
 PRINT "0"
 PRINT "0"
ELSEIF MID$(TIME$, 2, 1) = "1" THEN
 PRINT "0"
 PRINT "0"
 PRINT "0"
 PRINT "1"
ELSEIF MID$(TIME$, 2, 1) = "2" THEN
 PRINT "0"
 PRINT "0"
 PRINT "1"
 PRINT "0"
ELSEIF MID$(TIME$, 2, 1) = "3" THEN
 PRINT "0"
 PRINT "0"
 PRINT "1"
 PRINT "1"
ELSEIF MID$(TIME$, 2, 1) = "4" THEN
 PRINT "0"
 PRINT "1"
 PRINT "0"
 PRINT "0"
ELSEIF MID$(TIME$, 2, 1) = "5" THEN
PRINT "0"
PRINT "1"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 2, 1) = "6" THEN
PRINT "0"
PRINT "1"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 2, 1) = "7" THEN
PRINT "0"
PRINT "1"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 2, 1) = "8" THEN
PRINT "1"
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 2, 1) = "9" THEN
PRINT "1"
PRINT "0"
PRINT "0"
PRINT "1"
END IF

SLEEP 2

PRINT "KYMMENET MINUUTIT:"
IF MID$(TIME$, 4, 1) = "0" THEN
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 4, 1) = "1" THEN
PRINT "0"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 4, 1) = "2" THEN
PRINT "0"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 4, 1) = "3" THEN
PRINT "0"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 4, 1) = "4" THEN
PRINT "1"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 4, 1) = "5" THEN
PRINT "1"
PRINT "0"
PRINT "1"
END IF

SLEEP 2

PRINT "MINUUTIT:"
IF MID$(TIME$, 5, 1) = "0" THEN
PRINT "0"
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 5, 1) = "1" THEN
PRINT "0"
PRINT "0"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 5, 1) = "2" THEN
PRINT "0"
PRINT "0"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 5, 1) = "3" THEN
PRINT "0"
PRINT "0"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 5, 1) = "4" THEN
PRINT "0"
PRINT "1"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 5, 1) = "5" THEN
PRINT "0"
PRINT "1"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 5, 1) = "6" THEN
PRINT "0"
PRINT "1"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 5, 1) = "7" THEN
PRINT "0"
PRINT "1"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 5, 1) = "8" THEN
PRINT "1"
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 5, 1) = "9" THEN
PRINT "1"
PRINT "0"
PRINT "0"
PRINT "1"
END IF

SLEEP 2

PRINT "KYMMENET SEKUNNIT:"
IF MID$(TIME$, 7, 1) = "0" THEN
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 7, 1) = "1" THEN
PRINT "0"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 7, 1) = "2" THEN
PRINT "0"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 7, 1) = "3" THEN
PRINT "0"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 7, 1) = "4" THEN
PRINT "1"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 7, 1) = "5" THEN
PRINT "1"
PRINT "0"
PRINT "1"
END IF

SLEEP 2

PRINT "SEKUNNIT:"
IF MID$(TIME$, 8, 1) = "0" THEN
PRINT "0"
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 8, 1) = "1" THEN
PRINT "0"
PRINT "0"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 8, 1) = "2" THEN
PRINT "0"
PRINT "0"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 8, 1) = "3" THEN
PRINT "0"
PRINT "0"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 8, 1) = "4" THEN
PRINT "0"
PRINT "1"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 8, 1) = "5" THEN
PRINT "0"
PRINT "1"
PRINT "0"
PRINT "1"
ELSEIF MID$(TIME$, 8, 1) = "6" THEN
PRINT "0"
PRINT "1"
PRINT "1"
PRINT "0"
ELSEIF MID$(TIME$, 8, 1) = "7" THEN
PRINT "0"
PRINT "1"
PRINT "1"
PRINT "1"
ELSEIF MID$(TIME$, 8, 1) = "8" THEN
PRINT "1"
PRINT "0"
PRINT "0"
PRINT "0"
ELSEIF MID$(TIME$, 8, 1) = "9" THEN
PRINT "1"
PRINT "0"
PRINT "0"
PRINT "1"
END IF

SLEEP 2
END

gamehouse [13.04.2008 20:00:54]

#

Paranteluehdotuksia? En itse osannut toteuttaa niin, että numerot saataisiin riviin... :D

Metabolix [14.04.2008 23:51:28]

#

Mitä järkeä on binaarikellossa, joka muuttaa kymmenjärjestelmän luvusta yksittäiset numerot binaarijärjestelmään? Melkoista huijausta sellainen, ei tarvitse tulkita binaarilukuja kuin väliltä 0-9 ja sen jälkeen yhdistellä numerot kymmenjärjestelmän luvuiksi. Kunnollisessa kellossa olisi edes vain kolme riviä.

Koodissa on hirveästi turhia iffejä. Ovatko SUB ja FUNCTION tuttuja sanoja? Fiksusti tehtynä tuossa olisi parin rivin aliohjelma, joka tulostaisi minkä tahansa luvun binaarimuodossa (silmukan, and-operaation ja bittisiirron avulla), ja sitten vain muutama funktiokutsu.

Vastaus

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

Tietoa sivustosta