*!* mztolo 2006 :p
LOCAL odForm as Form

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

DEFINE CLASS mzFORM as Form
autocenter=.t.
height=400
width=700
Caption="mzTOLO 2006"

ADD OBJECT cc1 as mydd1
ADD OBJECT cc2 as mydd2
ADD OBJECT cc3 as mydd3

ADD OBJECT test AS commandbutton WITH ;
Top = 360, ;
Left = 20, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Test"

ADD OBJECT keluar AS commandbutton WITH ;
Top = 360, ;
Left = 500, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Close"

PROCEDURE keluar.Click
Thisform.release
ENDPROC

PROCEDURE test.Click
** cek nilai yg di hasilkan
WAIT WINDOW IIF(cebox[1]=1,'Senin ','')+IIF(cebox[2]=1,'Selasa ','')+IIF(cebox[3]=1,'Rabu ','')
ENDPROC

PROCEDURE load
   PUBLIC cebox
   DIMENSION cebox[3]
   i=1
   FOR i=1 TO 3
      cebox[i]=0
   ENDFOR
ENDPROC
ENDDEFINE

DEFINE CLASS mydd1 AS checkbox 
   Caption = 'Senin' 
   Left = 10 
   Top = 10 
   Height = 25 
   
PROCEDURE Valid
   cebox[1]=this.value
ENDDEFINE

DEFINE CLASS mydd2 AS checkbox 
   Caption = 'Selasa' 
   Left = 10 
   Top = 45 
   Height = 25 
   
   PROCEDURE Valid
      cebox[2]=this.value
ENDDEFINE

DEFINE CLASS mydd3 AS checkbox 
   Caption = 'Rabu' 
   Left = 10 
   Top = 80 
   Height = 25 
   
   PROCEDURE Valid
      cebox[3]=this.value
ENDDEFINE