FUNGSI LOGIKA MENGGUNAKAN OPERATOR - FOXPRO

LATIHAN – LATIHAN DESAIN – LATIHAN : FUNGSI LOGIKA MENGGUNAKAN OPERATOR-KODEBUKU-JUDUL-HARGA-JUMLAH-TOTALBAYARSOAL. Jika kodebuku VB – Judulbuku : Visual Basic – Harga : 350000Jika kodebuku FP – Judulbuku : Visual Foxpro – Harga : 20000 SCRIPT-text4 -Interactive Changedwith thisformif .text1.value="VB" .text2.value="Visual Basic" .text3.value=35000 .text4.setfocus()elseif .text1.value="FP" .text2.value="Foxpro" .text3.value=20000 .text4.setfocus()endifendifendwith Author's By : Indro Dwi S, A...

Read more »

DO CASE - VISUAL FOXPRO

SCRIPT - DO CASE -cmdproses -clickDO CaseCASE VAL(Thisform.txtnilai.Value)>=81thisform.txtgrade.Value="Dengan Pujian - Nilai : A"CASE VAL(Thisform.txtnilai.Value)>=71thisform.txtgrade.Value="Sangat Memuaskan - Nilai : B"CASE VAL(Thisform.txtnilai.Value)>=61thisform.txtgrade.Value="Memuaskan - Nilai : C"CASE VAL(Thisform.txtnilai.Value)>=51thisform.txtgrade.Value="Kurang Memuaskan - Nilai : D"OTHERWISEthisform.txtgrade.Value="Buruk Sekali - Nilai : E"ENDCASE -cmdbersih -clickTHISFORM.TXtnpm.Value=""THISFORM.TXTNILAI.Value=""THISFORM.TXtGRADE.Value=""THISFORM.TXTNPM.SetFocus -cmdkeluar -clickpesan=MESSAGEBOX("Yakin anda mau keluar dari program ini...?",4+64,"Latihan Foxpro")IF pesan=6thisform.release()ENDIF Author's By : Indro Dwi Saputro, A...

Read more »