DO CASE - VISUAL FOXPRO

SCRIPT - DO CASE

-cmdproses -click

DO Case

CASE VAL(Thisform.txtnilai.Value)>=81

thisform.txtgrade.Value="Dengan Pujian - Nilai : A"

CASE VAL(Thisform.txtnilai.Value)>=71

thisform.txtgrade.Value="Sangat Memuaskan - Nilai : B"

CASE VAL(Thisform.txtnilai.Value)>=61

thisform.txtgrade.Value="Memuaskan - Nilai : C"

CASE VAL(Thisform.txtnilai.Value)>=51

thisform.txtgrade.Value="Kurang Memuaskan - Nilai : D"

OTHERWISE

thisform.txtgrade.Value="Buruk Sekali - Nilai : E"

ENDCASE

-cmdbersih -click

THISFORM.TXtnpm.Value=""

THISFORM.TXTNILAI.Value=""

THISFORM.TXtGRADE.Value=""

THISFORM.TXTNPM.SetFocus

-cmdkeluar -click

pesan=MESSAGEBOX("Yakin anda mau keluar dari program ini...?",4+64,"Latihan Foxpro")

IF pesan=6

thisform.release()

ENDIF

Author's By : Indro Dwi Saputro, A.Md

Posted in: Visual_Foxpro