internet marketing

Jawaban MID Semester [Bu Rike Limia Budiarti, M.Kom]

Unknown 5:58 AM , , 2 comments

Selamat malam para juara!
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. :)

2 comments :

  1. ndhaDecember 19, 2015 at 5:09 PM

    Makasih buk.. *nelan koding sama kopi hitam

    ReplyDelete
  2. Rahman Subagja "SI 3G"January 6, 2016 at 10:58 PM

    Terimakasih Bu Rike,
    semoga bermanfaat,

    ReplyDelete

Subscribe to: Post Comments ( Atom )

Subscribe

Flag Counter
Back to top