Tämä koodi on todella naurettavan yksinkertainen ja helppo. Ohjelma laskee kuinka kauan se on ollut päällä. Tätä voi soveltaa vaikka koneen uptime-laskimena sijoittamalla ohjelman pikakuvakeen Windowsin Käynnistä valikon Käynnistys osioo, jolloin se käynnistyy automaattisesti Windowsin käynnistyessä.
Tarvitset:
Formin johon lisäät labelin ja timerin.
Label, jonka nimi on Label1.
Timerin, jonka nimi on Timer1 ja Interval 1000.
Private sekuntti As Integer 'Tarvittavat tarkkuudet, eli sekuntti, minuutti, tuntit, päivä ja vuosi.
Private minuutti As Integer
Private tunti As Integer
Private day As Integer
Private vuosi As Integer
Private Sub Timer1_Timer()
sekuntti = sekuntti + 1
If sekuntti = 60 Then 'Kun minuutti on kulunut.
sekuntti = sekuntti - 60 'Sekuntit nollataan.
minuutti = minuutti + 1 'Minuutti lisätään.
End If
If minuutti = 60 Then 'Kun tunti on kulunut.
minuutti = minuutti - 60 'Minuutit nollataan.
tunti = tunti + 1 'Lisätään tunti.
End If
If tunti = 24 Then 'Kun päivä on kulunut.
tunti = tunti - 24 'Tunnit nollataan.
day = day + 1 'Päivä lisätään.
End If
If day = 365 Then 'Kun vuosi on kulunut.
day = day - 365 'Päivät nollataan.
vuosi = vuosi + 1 'Vuosi lisätään.
End If
Label1.Caption = Str(vuosi) + " a " + Str(day) + " d " + Str(tunti) + ":" + Str(minuutti) + ":" + Str(sekuntti) 'Tämä näyttää sitten kuluneen ajan.
End SubEikö sekuntien ja muiden nollaus onnistuisi helpommin ihan
sekunti = 0
Tuo muuten rupeaa ajan mittaan vääristämään, sillä timeriä ei suoriteta tarkalleen joka sekunnin välein.
Aihe on jo aika vanha, joten et voi enää vastata siihen.