Visual Basic - Aplikasi Pejualan Tiket
Visual Basic - Aplikasi Pejualan Tiket
Ketentuan:
Ketentuan:
1.
Input :
Jumlah Tiket, Kelas dan Tujuan
Output : Harga Tiket dan
Total Harga
2.
Kelas
|
Harga Kelas
|
Tujuan
|
Harga
|
|
Ekonomi
|
0
|
Jakarta
|
10000
|
|
Bisnis
|
5000
|
Surabaya
|
30000
|
|
Eksekutif
|
10000
|
Semarang
|
20000
|
3.
Harga Tiket = Harga + Harga Kelas
Total Harga = Jumlah
Tiket * Harga Tiket
Jika jumlah tiket yang dibeli >=5, maka mendapat diskon 10% dari
total harga
Private Sub BHitung_Click()
Dim hargakls As Double
Dim hargatujuan As Double
If OptEkonomi.Value = True Then
hargakls = 0
ElseIf OptBisnis.Value = True Then
hargakls = 5000
ElseIf OptEksekutif.Value = True Then
hargakls = 10000
End If
If Combo1.ListIndex = 0 Then
hargatujuan = 10000
ElseIf Combo1.ListIndex = 1 Then
hargatujuan = 30000
ElseIf Combo1.ListIndex = 2 Then
hargatujuan = 20000
End If
Text2.Text = hargatujuan + hargakls
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
If Text1.Text >= 5 Then
Text3.Text = Val(Text3.Text) - (Val(Text3.Text) * 10 / 100)
End If
End Sub
