COMBO JENIS KAMAR :
DO CASE
CASE THISFORM.COmbo1.Text =
"EKONOMI"
THISFORM.TExt6.Value = 150000
CASE THISFORM.COmbo1.Text =
"BISNIS"
THISFORM.TExt6.Value = 300000
CASE THISFORM.COmbo1.Text =
"EXECUTIVE"
THISFORM.TExt6.Value = 600000
CASE THISFORM.COmbo1.Text =
"SWEETROOM"
THISFORM.TExt6.Value = 850000
OTHERWISE
THISFORM.TExt6.Value = 0
ENDCASE
TANGGAL
KELUAR : (PROCEDURE : VALID)
THISFORM.TExt5.Value = THISFORM.TExt4.Value - THISFORM.TExt3.Value
THISFORM.TExt8.Value
= 0.1 * THISFORM.TExt6.Value
BIAYA
LAIN-LAIN : (PROCEDURE : LOSTFOCUS)
THISFORM.TExt9.Value
= (THISFORM.TExt6.Value
* THISFORM.TExt5.Value)
+ THISFORM.TExt7.Value +
THISFORM.TExt8.Value
COMMAND
MULAI : (PROCEDURE : CLICK)
THISFORM.TExt1.Value = ""
THISFORM.TExt2.Value= ""
THISFORM.TExt3.Value = ""
THISFORM.TExt4.Value= ""
THISFORM.TExt5.Value = ""
THISFORM.TExt6.Value= ""
THISFORM.TExt7.Value = ""
THISFORM.TExt8.Value= ""
THISFORM.TExt9.Value = ""
THISFORM.OPtiongroup1.Value= 0
THISFORM.COMbo1.Value
= ""
COMMAND
SELESAI : (PROCEDURE : CLICK)
THISFORM.Release()
