tugas vb (penjualan tiket)

SOFI

nama : sofiatul khoiriyah

NPM : 12100042

a.Private Sub CMDKELUAR_Click()
End
End Sub
b.Private Sub CMDLAGI_Click()
TXTKT.Text = “”
TXTHT.Text = “”
TXTJK.Text = “”
TXTJB.Text = “”
TXTJT.Text = “”
TXTTOTALP.Text = “”
End Sub
c.Private Sub CMDPROSES_Click()
Dim KT, JK, HT, JB As String
KT = Left(TXTKT.Text, 7)
If KT = “BIM” Then
TXTJK.Text = “BIMA”
TXTHT.Text = “50000″
TXTJB.Text = “16.00″
ElseIf KT = “EKO” Then
TXTJK.Text = “EKONOMI”
TXTHT.Text = “35000″
TXTJB.Text = “19.00″
ElseIf KT = “MUT” Then
TXTJK.Text = “MUTIARA”
TXTHT.Text = “23000″
TXTJB.Text = “17.00″
ElseIf KT = “SEN” Then
TXTJK.Text = “SENJA”
TXTHT.Text = “15000″
TXTJB.Text = “20.00″
End If
JUMLAH = TXTJT.Text
TXTJT.SetFocus
TXTTOTALP.Text = Val(TXTHT.Text) * Val(TXTJT.Text)
TXTTOTALP.SetFocus
End Sub

 

 

 

 

 

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s