UpTime() - Tietokoneen päälläoloaika

[MaGetzUb]

Jooh, tuli väsättyä tämmööne funktio, se kertoo tietokoneen yhtäjaksoisen päälläoloajan tyyliin: Päivät:Tunnit:Minuutit:Sekunnit.

Code: Select all

Const UT_WHOLE_TIME = 0
Const UT_TXT_TIME = 1
Const UT_DD = 2
Const UT_HH = 3
Const UT_MM = 4
Const UT_SS = 5

Repeat 
    Text 0, 0,"Tietokoneesi o"+"n ollut päällä yhtäjaksoisesti: "
    Text 0, 15, UpTime(UT_WHOLE_TIME)   
    DrawScreen
Forever 


Function UpTime(style = 0)
    ctimer = Timer()
    
    dd$ = Str(ctimer / 86400000)
    hh$ = Str((ctimer / 3600000) Mod 24)
    mm$ = Str((ctimer /   60000) Mod 60)
    ss$ = Str((ctimer /    1000) Mod 60)
    
    If Len(dd) = 1 Then dd = "0"+dd
    If Len(hh) = 1 Then hh = "0"+hh
    If Len(mm) = 1 Then mm = "0"+mm
    If Len(ss) = 1 Then ss = "0"+ss
    
    Select style 
    
        Case 1 : Return dd+"d "+hh+"h "+mm+"m"+"in "+ss+"sec"
        
        Case 2 : Return dd$
        
        Case 3 : Return hh$
        
        Case 4 : Return mm$
        
        Case 5 : Return ss$
        
        Default : Return dd+":"+hh+":"+mm+":"+ss
        
    EndSelect     
EndFunction 

EDIT:

Nimi muutettu

[esa94]

Miten ois perinteisesti uptime

[MaGetzUb]

Miten ois perinteisesti uptime

Ai niin, no se vaihdanpa nyt vielä kerran uudestaan. Ei tuommoosia seikkoja muista.