Jawaban MID Semester [Bu Rike Limia Budiarti, M.Kom]
Ibu tepati janji untuk memposting jawaban MID Semester kita. Selamat menikmati.
NB: Jangan lupa siapkan kopi hangat buat temen begadang. :)
Tipe
Ganjil
Private Sub Combo1_Click()
If Combo1.Text =
"jambi-jakarta" Then
Text1.Text =
35000
ElseIf Combo1.Text
= "jambi-semarang" Then
Text1.Text =
45000
ElseIf Combo1.Text
= "jambi-surabaya" Then
Text1.Text =
65000
ElseIf Combo1.Text
= "jambi-bali" Then
Text1.Text =
80000
ElseIf Combo1.Text
= "jambi-bandung" Then
Text1.Text =
30000
End If
End Sub
Private Sub Command1_Click()
If Command1.Caption = "proses" Then
Dim tujuan As String
Dim tarif, berat, jumlah As Double
tujuan = Combo1.Text
tarif = Val(Text1.Text)
berat = Val(Text2.Text)
If berat >= 25 Then
jumlah
= (berat * tarif) * 0.15
Text3.Text = jumlah
ElseIf berat >= 35 Then
jumlah = (berat * tarif) * 0.2
Text3.Text = jumlah
ElseIf berat >= 45 Then
jumlah = (berat * tarif) * 0.25
Text3.Text = jumlah
ElseIf berat <= 25 Then
jumlah = berat * tarif
Text3.Text = jumlah
Else
jumlah = berat * tarif
Text3.Text = jumlah
End If
End If
End Sub
Tipe
Genap
Private Sub Command1_Click()
Dim kelas, tujuan As String
Dim bayar, banyak As Double
kelas = Combo1.Text
tujuan = Combo2.Text
banyak = Text1.Text
'bayar = Text2.Text
If
Combo1.Text = "biasa" And Combo2.Text = "medan" Then
bayar
= banyak * 120000
Text2.Text = bayar
ElseIf
Combo1.Text = "biasa" And Combo2.Text = "palembang" Then
bayar
= banyak * 80000
Text2.Text = bayar
ElseIf
Combo1.Text = "biasa" And Combo2.Text = "lampung" Then
bayar
= banyak * 100000
Text2.Text = bayar
ElseIf
Combo1.Text = "biasa" And Combo2.Text = "padang" Then
bayar
= banyak * 75000
Text2.Text = bayar
ElseIf
Combo1.Text = "luarbiasa" And Combo2.Text = "medan" Then
bayar
= banyak * 160000
Text2.Text = bayar
ElseIf
Combo1.Text = "luarbiasa" And Combo2.Text = "palembang"
Then
bayar
= banyak * 145000
Text2.Text = bayar
ElseIf
Combo1.Text = "luarbiasa" And Combo2.Text = "lampung" Then
bayar
= banyak * 150000
Text2.Text = bayar
ElseIf
Combo1.Text = "luarbiasa" And Combo2.Text = "padang" Then
bayar
= banyak * 150000
Text2.Text = bayar
End If
End Sub
Bagaimana, kira-kira bener atau ndak jawaban kalian kemarin? Semoga semakin memahamkan ya. :)
Subscribe to:
Posts
(
Atom
)
2 comments :
Post a Comment