Friday, May 18, 2012 PROGRAM PENGINAPAN

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()