Pertemuan 5

Materi Foxpro Pertemuan 5 Lab H- I Malam Fatmawati A1

Buat Validasi pada TxtNim jika nim tidak bisa diisi muncul pesan Wajib di isi untuk Buat OptionGroup pilih pada propertis Button count =3 lalu dari properties pilih combo yang optiongroup yang dibawahnya ada option1 ganti caption satu lakukan hal tersebut untuk option 2 dan 3 Setting buat smua txt yang tipenya numerik atau untuk perhitungan Txtbiaya,txttambah,txtlama dan txtall di properties values nya = 0

Object Form1 Procedure Active THISFORM.TXTNIM.SetFocus THISFORM.TXTNIM.MaxLength =8 thisform.combo1.Value ="" thisform.optiongroup1.option1.Value =0 thisform.optiongroup1.option2.Value =0 thisform.optiongroup1.option3.Value =0 thisform.check1.Value =0 thisform.check2.Value =0 thisform.check3.Value =0

Object TXTNIM Procedure Valid

IF (EMPTY(THIS.Value )) MESSAGEBOX("WAJIB DI ISI",48+0,"KETIK") ENDIF

Object Form1 Procedure Init

THIS.COmbo1.AddItem ("KA") THIS.COmbo1.AddItem ("MI") THIS.COmbo1.AddItem ("TK") THIS.COMbo1.ListiNDEX =1

Object Combo1 Procedure Click

FOXPRO 9.0 LAB H- I FMA @ SIA OKTOBER 2009

Materi Foxpro Pertemuan 5 Lab H- I Malam Fatmawati A1 kdjur=thisform.combo1.ListIndex DO case CASE kdjur=1 jur="Komputer Akuntansi" CASE kdjur=2 jur="Manajemen Informatika" CASE kdjur=3 jur="Tehnik Komputer" ENDCASE thisform.txTJUR.Value =jur

Object OptionGroup1 pilih Option1 Procedure Click

IF thisform.optiongroup1.option1.value =1 then thisform.txtBIAYA.Value =800000 ELSE thisform.optiongroup1.option2.Value =0 thisform.optiongroup1.option3.Value =0 endif

Object Check1 Procedure Click IF thisform.check1.Value =1 then thisform.txtBIAYA.Value =thisform.txtBIAYA.Value+50000 thisform.txtTAMBAH.Value =thisform.txtTAMBAH.Value+thisform.txTBIAYA.Value thisform.txTLAMA.SetFocus ENDIF

Object TXTLAMA Procedure LostFocus thisform.txtall.Value = (thisform.txtLAMA.Value*thisform.txTBIAYA.Value)+ thisform.txtTAMBAH.Value

Untuk Command Bersih Buat Sendiri ya,,,,^^ Resume Kesimpulan : 1. Combobox ada dua cara bisa dari builder atau Form Init dan Kondisi bisa dengan If Then Else atau dengan pilihan Case 2. Untuk OptionGroup hanya boleh satu pilihan tidak boleh semua 3. Untuk CheckBox berdiri sendiri dan boleh dipilih dari satu

SELAMAT MENGERJAKAN

FOXPRO 9.0 LAB H- I FMA @ SIA OKTOBER 2009