TIMER BATAS WAKTU

CODING TIMER BATAS WAKTU
*=========================================================

PUBLIC oform
oform = CREATEOBJECT("waktu")
oform.show

DEFINE CLASS waktu AS form

Top = 0
Left = 0
Height = 187
Width = 338
DoCreate = .T.
Caption = "Form"
Name = "waktu

ADD OBJECT timer1 AS timer WITH ;
Top = 0, ;
Left = 180, ;
Height = 23, ;
Width = 23, ;
Interval = 1000, ;
Name = "Timer1"

ADD OBJECT label1 AS label WITH ;
Caption = "Rincian Pemakaian", ;
Height = 17, ;
Left = 48, ;
Top = 36, ;
Width = 132, ;
Alignment = 0,;
Name = "Label1"

ADD OBJECT label2 AS label WITH ;
Caption = "Label1", ;
Height = 17, ;
Left = 48, ;
Top = 60, ;
Width = 96, ;
Alignment = 0,;
Name = "Label2"

ADD OBJECT label3 AS label WITH ;
Caption = "Label1", ;
Height = 17, ;
Left = 48, ;
Top = 84, ;
Width = 96, ;
Alignment = 0,;
Name = "Label3"

ADD OBJECT label4 AS label WITH ;
Caption = "Label1", ;
Height = 17, ;
Left = 48, ;
Top = 108, ;
Width = 96, ;
Alignment = 0,;
Name = "Label4"

PROCEDURE timer1.Init
PUBLIC ndetik, detik, menit, jam
ndetik = 0
detik =0
menit=0
jam=0
ENDPROC

PROCEDURE timer1.Timer
ndetik=ndetik+1
nmenit = FLOOR(ndetik/60)
detik = ndetik-(nmenit*60)
IF ndetik > 59
jam= floor(nmenit/60)
menit = nmenit-(jam*60)
ENDIF

thisform.label1.Caption=STR(jam)+" Jam"
thisform.label2.Caption=STR(menit)+" Menit"
thisform.label3.Caption=STR(detik)+" Detik"
thisform.label4.caption=STR(ndetik*2.7) + " Rupiah" && 2.7 rupiah per detik
ENDPROC

ENDDEFINE