*!* dian s 2006
SET HOURS TO 24
LOCAL odForm as Form

odForm=CREATEOBJECT('dianFORM')
odForm.Show(1)
RETURN

DEFINE CLASS dianFORM as Form
autocenter=.t.
height=250
width=375
Caption="Isilah waktu sebaik mungkin...."

ADD OBJECT Timer1 as dianTimer WITH ;
Interval = 1000

ADD OBJECT keluar AS commandbutton WITH ;
Top = 204, ;
Left = 252, ;
Height = 27, ;
Width = 80, ;
Caption = "\<Close"

PROCEDURE keluar.Click
	Thisform.release
ENDPROC
PROCEDURE load
	PUBLIC nongol
	nongol=.f.
ENDPROC
ENDDEFINE

DEFINE CLASS dianTimer as Timer
OLEClass = "Timer"
PROCEDURE Timer
	a=DATETIME()
	IF HOUR(a)=12 AND SEC(a)=0 AND nongol=.f.
		nongol = .t.
		IF MESSAGEBOX('Waktu menunjukkan pukul 12:00....makan yuuk',0,'www.mztolo.irenk.com') = 1
			nongol=.f.
		ENDIF 
	ENDIF
ENDPROC 
ENDDEFINE