Tugas VB "Travel Agency"

Dim kode As String

kode = UCase(txtkdtkt.Text)

Select Case kode

Case "A11":

txtklstkt.Text = "VIP"

txthrgtkt.Text = 1000000

Case "B12":

txtklstkt.Text = "Ekonomi"

txthrgtkt.Text = 500000

Case "C13":

txtklstkt.Text = "Bisnis"

txthrgtkt.Text = 300000

End Select

txttotal.Text = txtjmltkt.Text * txthrgtkt.Text

If txtklstkt = "VIP" And txttotal.Text > 5000000 Then

txtdskn.Text = 10 / 100 * txttotal.Text

Else

If txtklstkt = "Ekonomi" And txttotal.Text > 300000 Then

txtdskn.Text = 5 / 100 * txttotal.Text

Else

txtdskn.Text = 0

End If

End If

txtgrandtotal.Text = txttotal.Text - txtdskn.Text

End Sub

Private Sub cmdbersih_Click()

txtkdtkt.Text = ""

txtjmltkt.Text = ""

txtklstkt.Text = ""

txthrgtkt.Text = ""

txttotal.Text = ""

txtdskn.Text = ""

txtgrandtotal.Text = ""

End Sub

Private Sub cmdkeluar_click()

End

End Sub