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

Stap 3: Digitale klok


De volgende code in de qb45 of de freebasic compiler te compileren.  (c:\ > fbc-lang qb digiclock.bas). Wij de banner, toilet en de figlet opdrachten op linux gebruikt om de ascii kunst die we nodig hadden. Voorbereiding van de ascii -kunst was het moeilijkste gedeelte van het programma. Rest was simpel.

[code]
'=====================================================================
' thetimeis
' Auteur: computothought
'---------------------------------------------------------------------
' housekeeping
' arrays
Dim blank$(7)
Dim num$(10,10)
Dim colon$(7)

' gegevens
num$ (0, 1) = "###"
num$ (0, 2) = "##"
num$ (0, 3) = "# # #"
num$ (0, 4) = "# # #"
num$ (0, 5) = "# # #"
num$ (0, 6) = "##"
num$ (0, 7) = "###"

num$ (1, 1) = "#"
num$ (1, 2) = "##"
num$ (1, 3) = "##"
num$ (1, 4) = "#"
num$ (1, 5) = "#"
num$ (1, 6) = "#"
num$ (1, 7) = "###"

num$ (2, 1) = "###"
num$ (2, 2) = "# #"
num$ (2, 3) = "#"
num$ (2, 4) = "###"
num$ (2, 5) = "#"
num$ (2, 6) = "#"
num$ (2, 7) = "###"

num$ (3, 1) = "###"
num$ (3, 2) = "# #"
num$ (3, 3) = "#"
num$ (3, 4) = "###"
num$ (3, 5) = "#"
num$ (3, 6) = "# #"
num$ (3, 7) = "###"

num$ (4, 1) = "#"
num$ (4, 2) = "# #"
num$ (4, 3) = "# #"
num$ (4, 4) = "###"
num$ (4, 5) = "#"
num$ (4, 6) = "#"
num$ (4, 7) = "#"

num$ (5, 1) = "###"
num$ (5, 2) = "#"
num$ (5, 3) = "#"
num$ (5, 4) = "###"
num$ (5, 5) = "#"
num$ (5, 6) = "# #"
num$ (5, 7) = "###"

num$ (6, 1) = "###"
num$ (6, 2) = "# #"
num$ (6, 3) = "#"
num$ (6, 4) = "###"
num$ (6, 5) = "# #"
num$ (6, 6) = "# #"
num$ (6, 7) = "###"

num$ (7, 1) = "###"
num$ (7, 2) = "# #"
num$ (7, 3) = "#"
num$ (7, 4) = "#"
num$ (7, 5) = "#"
num$ (7, 6) = "#"
num$ (7, 7) = "#"

num$ (8, 1) = "###"
num$ (8, 2) = "# #"
num$ (8, 3) = "# #"
num$ (8, 4) = "###"
num$ (8, 5) = "# #"
num$ (8, 6) = "# #"
num$ (8, 7) = "###"

num$ (9, 1) = "###"
num$ (9, 2) = "# #"
num$ (9, 3) = "# #"
num$ (9, 4) = "###"
num$ (9, 5) = "#"
num$ (9, 6) = "# #"
num$ (9, 7) = "###"

Colon$(1) = "#"
Colon$(2) = "# #"
Colon$(3) = "#"
Colon$(4) = ""
Colon$(5) = "#"
Colon$(6) = "# #"
Colon$(7) = "#"

'--------------------------------------------------------------------
' de logica
CLS
locate 10,2: print"                                                                            #"
locate 11,2: print"  #####  #    #  ######     #####     #    #    #  ######    #     ####    # #"
locate 12,2: print"    #    #    #  #            #       #    ##  ##  #         #    #         #"
locate 13,2: print"    #    ######  #####        #       #    # ## #  #####     #     ####"
locate 14,2: print"    #    #    #  #            #       #    #    #  #         #         #    #"
locate 15,2: print"    #    #    #  #            #       #    #    #  #         #    #    #   # #"
locate 16,2: print"    #    #    #  ######       #       #    #    #  ######    #     ####     #"
Zoek 17,2: afdrukken ""

Zoek 20,20: afdrukken van colon$(1);
Zoek 21,20: afdrukken van colon$(2);
Zoek 22,20: afdrukken van colon$(3);
Zoek 23,20: afdrukken van colon$(4);
Zoek 24,20: afdrukken van colon$(5);
Zoek 25,20: afdrukken van colon$(6);
Zoek 26,20: afdrukken van colon$(7);

Zoek 20,50: afdrukken van colon$(1);
Zoek 21,50: afdrukken van colon$(2);
Zoek 22,50: afdrukken van colon$(3);
Zoek 23,50: afdrukken van colon$(4);
zoeken 24,50: afdrukken van colon$(5);
Zoek 25,50: afdrukken van colon$(6);
Zoek 26,50: afdrukken van colon$(7);

ware % = -1
terwijl de echte %

HRL$ = mid$ (tijd$, 1,1): minl$ = MID$ (tijd$, 4, 1): secl$ = mid$ (tijd$, 7,1)
HRR$ = mid$ (tijd$, 2,1): minr$ = MID$ (tijd$, 5, 1): secr$ = mid$ (tijd$, 8,1)

' uur
Zoek 20,1: afdrukken van num$(val(hrl$), 1);
Zoek 21,1: afdrukken van num$(val(hrl$), 2);
Zoek 22,1: afdrukken van num$(val(hrl$), 3);
Zoek 23,1: afdrukken van num$(val(hrl$), 4);
Zoek 24,1: afdrukken van num$(val(hrl$), 5);
Zoek 25,1: afdrukken van num$(val(hrl$), 6);
Zoek 26,1: afdrukken van num$(val(hrl$), 7);

' uur juiste
Zoek 20,10: afdrukken van num$(val(hrr$), 1);
Zoek 21,10: afdrukken van num$(val(hrr$), 2);
Zoek 22,10: afdrukken van num$(val(hrr$), 3);
Zoek 23,10: afdrukken van num$(val(hrr$), 4);
Zoek 24,10: afdrukken van num$(val(hrr$), 5);
Zoek 25,10: afdrukken van num$(val(hrr$), 6);
Zoek 26,10: afdrukken van num$(val(hrr$), 7);

' minute links
Zoek 20,30: afdrukken van num$(val(minl$), 1);
Zoek 21,30: afdrukken van num$(val(minl$), 2);
Zoek 22,30: afdrukken van num$(val(minl$), 3);
Zoek 23,30: afdrukken van num$(val(minl$), 4);
Zoek 24,30: afdrukken van num$(val(minl$), 5);
Zoek 25,30: afdrukken van num$(val(minl$), 6);
Zoek 26,30: afdrukken van num$(val(minl$), 7);

' minute recht
Zoek 20,40: afdrukken van num$(val(minr$), 1);
Zoek 21,40: afdrukken van num$(val(minr$), 2);
Zoek 22,40: afdrukken van num$(val(minr$), 3);
Zoek 23,40: afdrukken van num$(val(minr$), 4);
Zoek 24,40: afdrukken van num$(val(minr$), 5);
Zoek 25,40: afdrukken van num$(val(minr$), 6);
Zoek 26,40: afdrukken van num$(val(minr$), 7);

' tweede links
Zoek 20,60: afdrukken van num$(val(secl$), 1);
Zoek 21,60: afdrukken van num$(val(secl$), 2);
Zoek 22,60: afdrukken van num$(val(secl$), 3);
Zoek 23,60: afdrukken van num$(val(secl$), 4);
Zoek 24,60: afdrukken van num$(val(secl$), 5);
Zoek 25,60: afdrukken van num$(val(secl$), 6);
Zoek 26,60: afdrukken van num$(val(secl$), 7);

' Tweede rechts
Zoek 20,70: afdrukken van num$(val(secr$), 1);
Zoek 21,70: afdrukken van num$(val(secr$), 2);
Zoek 22,70: afdrukken van num$(val(secr$), 3);
Zoek 23,70: afdrukken van num$(val(secr$), 4);
Zoek 24,70: afdrukken van num$(val(secr$), 5);
Zoek 25,70: afdrukken van num$(val(secr$), 6);
Zoek 26,70: afdrukken van num$(val(secr$), 7);
wend
[/ code]

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