Kamis, 09 Mei 2013

Latihan 6 Visual Basic - Struktur SELECT CASE

Latihan 6 Visual Basic - Struktur SELECT CASE


 Private Sub Form_Load()
    List1.AddItem "Disket"
    List1.AddItem "Buku"
    List1.AddItem "Kertas"
    List1.AddItem "Pulpen"
End Sub

Private Sub Command1_Click()
    Dim Harga As Currency, Total As Currency
    Dim jumlah As Integer
    Dim Diskon As Single
    Dim satuan As String
   
    If List1.Text = "" Then
        MsgBox "Anda belum memilih barang !!"
        List1.ListIndex = 0
        Exit Sub
    End If
   
    If Text1.Text = "" Then
        MsgBox "Anda belum mengisi jumlah barang !!"
        Text1.SetFocus
        Exit Sub
    End If
     
    If Not IsNumeric(Text1.Text) Then
        MsgBox "Isi jumlah barang harus angka !!"
        Text1.SetFocus
        Exit Sub
    End If
   
    Select Case List1.Text
    Case "Disket"
        Harga = 35000
        satuan = "Box"
    Case "Buku"
        Harga = 20000
        satuan = "Lusin"
    Case "Kertas"
        Harga = 25000
        satuan = "Rim"
    Case "Pulpen"
        Harga = 10000
        satuan = "Pak"
    End Select
   
    lblBarang.Caption = "Barang : " & List1.Text
    lblHarga.Caption = "Harga : " & Format(Harga, "Currency") & "/" & satuan
    lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

    jumlah = Text1.Text
   
    Select Case jumlah
    Case Is < 10
        Diskon = 0
    Case 10 To 20
        Diskon = 0.15
    Case Else
        Diskon = 0.2
    End Select
   
    Total = jumlah * (Harga * (1 - Diskon))
   
    lblDiskon.Caption = "Diskon : " & Format(Diskon, "0 %")
    lblTotal.Caption = "Total Bayar : " & Format(Total, "Currency")
End Sub

13 komentar:

Anonim mengatakan...

Nama :Rizky Saparully
Kelas :XRPL3

Hore Pertama

Unknown mengatakan...

Nama : Danny Ariswara
Kelas : X RPL 3

Atos !!!!

Anonim mengatakan...

Nama : Nida Fauziah
Kelas : X RPL 3

Selesai !!

Unknown mengatakan...

Nama : Gina Alawiyah
Kelas : X RPL 3

Beres

Anonim mengatakan...

Nama : Resa Ruhimat
Kls : X rpl3

Anonim mengatakan...

Nama : erwan setiadi
Kls : X rpl3

Anonim mengatakan...

Nama : Yopi ardianto
Kls : X rpl3

Anonim mengatakan...

pak saya udah beres yang ini.........


nama:suhayandi
kls:x rpl 1

Anonim mengatakan...

nama : andriansyah
kelas : xrpl2

beres

Anonim mengatakan...

nama : anggi kurnia
kelas : xrpl2

pak udah

Anonim mengatakan...

nama:mila karmila
kelas: x rpl 1

udah

Anonim mengatakan...

nama:mita oktaviana
kelas:x rpl1

pak beres

Ridwan Maulana mengatakan...

pak udah selesai

nama : ridwan maulana
Kelas : X RPL 3

Posting Komentar

 
Design by Wordpress Theme Template Blog Free | Bloggerized by Free Blogger Templates | coupon codes