KODE

Private Sub cdmkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

txtD.Text = Val(txtA.Text) + Val(txtB.Text) + Val(txtC.Text)

txtE.Text = Val(txtD.Text) * (0.1)

txtF.Text = Val(txtD.Text) – Val(txtE.Text)

End Sub

 

Private Sub cmdulang_Click()

Combo1.SetFocus

Combo1.Text = “SILAHKAN KLIK DISINI”

txtA = “”

txtB = “”

txtC = “”

txtD = “”

txtE = “”

txtF = “”

End Sub

 

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “A”

gapok = 1200000

tunjangan = 200000

Case “B”

gapok = 1000000

tunjangan = 150000

Case “C”

gapok = 800000

tunjangan = 100000

End Select

txtA.Text = gapok

txtB.Text = tunjangan

txtC.SetFocus

End Sub

 

Private Sub Form_Activate()

Combo1.SetFocus

txtA = “”

txtB = “”

txtC = “”

txtD = “”

txtE = “”

txtF = “”

End Sub

 

Private Sub Form_Load()

txtA = “”

txtB = “”

txtC = “”

txtD = “”

txtE = “”

txtF = “”

Combo1.AddItem “A”

Combo1.AddItem “B”

Combo1.AddItem “C”

End Sub

 

 

Private Sub txtC_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtD.Text = Val(txtA.Text) + Val(txtB.Text) – Val(txtC.Text)

txtE.Text = Val(txtD.Text) * (0.1)

txtF.Text = Val(txtD.Text) – Val(txtE.Text)

End If

End Sub