tugas 7

IMG_20160103_215249

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Txtkd.SetFocus

Txtkd.Text = “”

Txtha.Text = “”

Txtjs.Text = “”

Txtjam.Text = “”

Txtjum.Text = “”

Txttot.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim J As String

J = Mid(Txtkd.Text, 1, 3)

If J = “BIM” Then

Txtha.Text = “50000”

Txtjs.Text = “BIMA”

Txtjam.Text = “16.00”

ElseIf J = “EKO” Then

Txtha.Text = “35000”

Txtjs.Text = “EKONOMI”

Txtjam.Text = “19.00”

ElseIf J = “MUT” Then

Txtha.Text = “23000”

Txtjs.Text = “MUTIARA”

Txtjam.Text = “17.00”

ElseIf J = “SEN” Then

Txtha.Text = “15000”

Txtjs.Text = “SENJA”

Txtjam.Text = “20.00”

End If

Txtjum.SetFocus

End Sub

 

Private Sub Txtjum_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttot.Text = Val(Txtha * Txtjum)

End If

End Sub

Advertisements
Standard

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s