Oude laptop (of pc) in een klok. (2 / 9 stap)

Stap 2: De code compileren.


De volgende code in de qb45 of de freebasic compiler te compileren.  (c:\ > fbc-lang qb clock.bas)

[code]
' ONZICHTBARE IS NIET EEN STANDAARD KLOK
SEC AS STRING, MIN AS STRING, HR AS STRING DIM
SCHERM 0: KLEUR 3, 15: BREEDTE 40, 25
CLS
DOEN
HR$ = LINKER$ (TIJD$, 2): MIN$ = MID$ (TIJD$, 4, 2): SEC$ = JUISTE$ (TIJD$, 2)
ZOEK 1, 1: AFDRUKKEN VAN HR$; ":"; MIN$; ":"; SEC$
' MINUTEN
IF (VAL(MIN$) < 10 en val(min$) > = 5) of (VAL(MIN$) > = 55 en VAL(MIN$) < 60) vervolgens kleur 12, 15
ZOEK 3, 2: "VIJF" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 10 en VAL(MIN$) < 15 of VAL(MIN$) > = 50 en VAL(MIN$) < 55 vervolgens kleur 12, 15
ZOEK 3, 8: "TIEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 15 en VAL(MIN$) < 20 of VAL(MIN$) > = 45 en VAL(MIN$) < 50 vervolgens kleur 12, 15
ZOEK 3, 13: "VIJFTIEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 20 en VAL(MIN$) < 25 of VAL(MIN$) > = 40 en VAL(MIN$) < 45 vervolgens kleur 12, 15
ZOEK 3, 21: "TWINTIG" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) > = 25 en VAL(MIN$) < 30 of VAL(MIN$) > = 35 en VAL(MIN$) < 40 vervolgens kleur 12, 15
ZOEK 3, 28: PRINT "VIJFENTWINTIG": KLEUR 3, 15
ZOEK 7, 12: PRINT "MIN 'S"
' EXTRA MINUTEN
IF VAL(MIN$) > 30 vervolgens kleur 12, 15
ZOEK 5, 3: PRINT "MIN": KLEUR 3, 15
IF VAL(MIN$) < 30 vervolgens kleur 12, 15
ZOEK 5, 10: "PLUS" AFDRUKKEN: KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 6 OF VAL (MID$ (TIJD$, 5, 1)) = 4 VERVOLGENS KLEUR 12, 15
ZOEK 7, 3: PRINT '1': KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 7 OF VAL (MID$ (TIJD$, 5, 1)) = 3 VERVOLGENS KLEUR 12, 15
ZOEK 7, 5: PRINT "2": KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 8 OF VAL (MID$ (TIJD$, 5, 1)) = 2 VERVOLGENS KLEUR 12, 15
ZOEK 7, 7: PRINT "3": KLEUR 3, 15
ALS VAL (MID$ (TIJD$, 5, 1)) = 9 OF VAL (MID$ (TIJD$, 5, 1)) = 1 DAN KLEUR 12, 15
ZOEK 7, 9: PRINT '4': KLEUR 3, 15
' TOT AFGELOPEN
IF VAL(MIN$) > 30 vervolgens kleur 12, 15
ZOEK 9, 10: "NAAR HET VOLGENDE UUR" AFDRUKKEN: KLEUR 3, 15
IF VAL(MIN$) < = 30 vervolgens kleur 12, 15
ZOEK 9, 30: PRINT "VERLEDEN":: KLEUR 3, 15
IF VAL(MIN$) = 30 VERVOLGENS KLEUR 12, 15
ZOEK 9, 36: "DE HELFT" AFDRUKKEN: KLEUR 3, 15
' UREN
IF VAL(HR$) = 1 OF VAL(HR$) = 13 VERVOLGENS KLEUR 12, 15
ZOEK 11, 2: PRINT "ONE": KLEUR 3, 15
IF VAL(HR$) = 2 OF VAL(HR$) = 14 VERVOLGENS KLEUR 12, 15
ZOEK 11, 7: "TWEE" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 3 OF VAL(HR$) = 15 VERVOLGENS KLEUR 12, 15
ZOEK 11, 12: "DRIE" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 4 OF VAL(HR$) = 16 VERVOLGENS KLEUR 12, 15
ZOEK 11, 19: "VIER" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 5 OF VAL(HR$) = 17 DAN KLEUR 12, 15
GA NAAR 11, 25: "VIJF" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 6 OF VAL(HR$) = 18 DAN KLEUR 12, 15
ZOEK 11, 30: "ZES" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 7 OF VAL(HR$) = 19 VERVOLGENS KLEUR 12, 15
ZOEK 11, 35: "ZEVEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 8 OF VAL(HR$) = 20 VERVOLGENS KLEUR 12, 15
ZOEK 12, 5: "ACHT" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 9 OF VAL(HR$) = 21 VERVOLGENS KLEUR 12, 15
ZOEK 12, 12: "NINE" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 10 OF VAL(HR$) = 22 VERVOLGENS KLEUR 12, 15
ZOEK 12, 18: "TIEN" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 11 OF VAL(HR$) = 23 VERVOLGENS KLEUR 12, 15
ZOEK 12, 23: "ELF" AFDRUKKEN: KLEUR 3, 15
IF VAL(HR$) = 0 OF VAL(HR$) = 12 DAN KLEUR 12, 15
ZOEK 12, 31: "TWAALF" AFDRUKKEN: KLEUR 3, 15
' AM-PM
IF VAL(HR$) > = 12 dan kleur 12, 15
ZOEK 16, 5: PRINT 'PM': KLEUR 3, 15
IF VAL(HR$) < 12 vervolgens kleur 12, 15
ZOEK 16, 2: PRINT 'AM': KLEUR 3, 15
' SECONDS
KLEUR 12, 15: GA 19, 2: PRINT "EN"
KLEUR 3, 15
IF VAL(SEC$) = 5 VERVOLGENS KLEUR 12, 15
ZOEK 21, 1: AFDRUKKEN "5": KLEUR 3, 15
IF VAL(SEC$) = 10 VERVOLGENS KLEUR 12, 15
ZOEK 21, 3: "10" AFDRUKKEN: KLEUR 3, 15
IF VAL(SEC$) = 15 VERVOLGENS KLEUR 12, 15
ZOEK 21, 7: PRINT "15": KLEUR 3, 15
IF VAL(SEC$) = 20 VERVOLGENS KLEUR 12, 15
ZOEK 21, 11: PRINT "20": KLEUR 3, 15
IF VAL(SEC$) = 25 VERVOLGENS KLEUR 12, 15
ZOEK 21, 15: PRINT "25": KLEUR 3, 15
IF VAL(SEC$) = 30 VERVOLGENS KLEUR 12, 15
ZOEK 21, 19: PRINT "30": KLEUR 3, 15
IF VAL(SEC$) = 35 DAN KLEUR 12, 15
ZOEK 21, 23: PRINT "35": KLEUR 3, 15
IF VAL(SEC$) = 40 KLIK KLEUR 12, 15
ZOEK 21, 27: PRINT "40": KLEUR 3, 15
IF VAL(SEC$) = 45 VERVOLGENS KLEUR 12, 15
ZOEK 21, 31: "45" AFDRUKKEN: KLEUR 3, 15
IF VAL(SEC$) = 50 VERVOLGENS KLEUR 12, 15
ZOEK 21, 35: PRINT "50": KLEUR 3, 15
IF VAL(SEC$) = 55 VERVOLGENS KLEUR 12, 15
ZOEK 21, 39: PRINT "55": KLEUR 3, 15
KLEUR 12, 15: GA 23, 32: PRINT "SECONDEN"
KLEUR 3, 15
LOOP
[/ code]

Opmerking u kunt een sectie voor alarmen die leest in een tekstbestand voor toekomstige alarmen in de code kan toevoegen als je wilde, maar het programma zou moeten worden gecompileerd.

Gerelateerde Artikelen

Omzetten van een oude laptop in een Media Center

Omzetten van een oude laptop in een Media Center

hoe te te nemen en oude Laptop en omzetten in een Home Theater PC dat XBMC op Openelec draait.Ik heb een Acer Aspire AMD moederbord gebruikt met 1gig RAM.Hoe installeer ik Openelec met windows.HierOpmerking: Openelec en XBMC zijn Open Source programm
Hacken van een oude laptop in een 3D-projector

Hacken van een oude laptop in een 3D-projector

als u een oude laptop rondslingeren, en zijn op zoek naar een DIY avontuur, zou dit de plek voor jou. Ik ga om te beschrijven hoe je kunt gaan over het bouwen van uw eigen 3D projector!Het is niet voor de zwakkeren van hart, en ik niet kunnen krijgen
Hoe maak je een tablet-pc van een oude laptop

Hoe maak je een tablet-pc van een oude laptop

Bekijk mijn andere projecten:Xbox Hackintosh casemodEnDIY Spy telefoonIn dit project gebruikte ik een oude laptop van de reeks van Fujitsu Siemens leven boek S. Het heeft een 1 Ghz-processor en 256 Mb ram, (niet zeker over de grafische kaart, maar ik
Frame voor een oude laptop LCD

Frame voor een oude laptop LCD

Ik ben het opbouwen van een frame om een oud LCD scherm uit een oude laptopStap 1: LCD Ik gebruikte een 17-' LCD van een laptop die stierf een paar jaar geleden, u kunt bijna elke LCD door laptops gebruikt.Stap 2:Na vele ideeën heb ik besloten om te
Hoe te verbeteren van een oude laptop!

Hoe te verbeteren van een oude laptop!

Dit instructable zal u vertellen hoe te krijgen die junker uit de kelder en krijg het opnieuw aan arbeidsnormen. U hoeft niet te worden een nerd of geek om te upgraden van uw oude laptop. (ook alle foto's van de laptop voor schilderij zijn generiek,
Transformeren van een oude laptop in een MP3-speler

Transformeren van een oude laptop in een MP3-speler

deze instructies (mijn eerste, dus wees mooi) laten u zien hoe ik een oude laptop met een gebroken scherm (witte strips op het scherm) omgezet in een ontwerp MP3-speler.Stap 1: Openen van de laptop Het eerste wat je nodig hebt is een laptop.Ik gebrui
Een gebroken laptop scherm omzetten in een draagbare Lichttafel voor tekening

Een gebroken laptop scherm omzetten in een draagbare Lichttafel voor tekening

Een vriend schonk mij dit oude laptop, die had een gebroken LCD. De laptop was oud maar het werkte prima. Ik had niet de bedoeling om geld te laten repareren, het zou gewoon niet het geld waard. In plaats daarvan ik net het scherm verwijderd uit het
Oude laptop scherm in Monitor

Oude laptop scherm in Monitor

dus, mijn laptop kreeg oude en plotseling stoppen werken. Maar het LCD-scherm was nog OK, dus, waarom niet maken van een tweede monitor van het? Veel mensen zullen u vertellen het is onmogelijk, maar het is niet! Je hoeft alleen maar de juiste onderd
Hoe een Laptop LCD converteren naar een externe Monitor.

Hoe een Laptop LCD converteren naar een externe Monitor.

Hallo daar. Dit is mijn eerste InstructableEen tijdje terug ik zat rond en vroeg zich af wat te doen met mijn stroomloos laptop. Ik wist dat de moederbord was gebakken maar alles was nog in werkende staat. Dientengevolge, ik besloten om een externe m
Hoe maak je een klok uit Pallet houten blokken

Hoe maak je een klok uit Pallet houten blokken

Dit keer maak ik een klok, met behulp van oude uurwerkmechanisme verkeer en enkele pallet houten blokken.Mechanisme van de beweging die ik haalde uit oude klok, maar er zijn bos van hen te kopen van ebay of amazon voor een paar dollar.Hier is mijn Yo
Bench voeding van voedingen van oude Laptop

Bench voeding van voedingen van oude Laptop

op zoek naar een voeding voor thuis knutselen, vond ik veel opties voor het omzetten van oude desktop-PC levert (ATA) in en vaste of variabele Bench PS van Ik had een paar oude laptop leveringen thuis en dacht dat ze kunnen worden gebruikt. De voorde
Renoveren van oude laptop in nieuwe veilige machine

Renoveren van oude laptop in nieuwe veilige machine

Ik weet zeker dat je hebt uiteindelijk in een situatie waar uw huidige laptop gewoon niet knippen. Het heeft krasjes en deukjes, verf is versleten uit, en de slechte machine is gewoon boordevol virussen die gewoon niet weg wil gaan, en het gewoon nie
8 poorten USB lader gemaakt door oude Laptop Power Adapter

8 poorten USB lader gemaakt door oude Laptop Power Adapter

Tegenwoordig gebruiken we steeds meer elektronische producten in ons dagelijks leven, zoals laptops. Na de laptops beschadigd, de adapter van de macht van hen zijn vaak bruikbaar. Maar mensen meestal weggooien omdat ze hebben geen andere manieren om
Het gebruik van oude LAPTOP

Het gebruik van oude LAPTOP

Deze ik nstructable is gewijd aan mijn oude laptopHP Pvallion Dv6In dit Project I'l vertellen over het mogelijke gebruik van onze oude LaptopI'f hebt u vragen of suggesties, commentaar hieronder :)Klik hier voor meerVertel me ook als u nog verdere id