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:
Nama :Rizky Saparully
Kelas :XRPL3
Hore Pertama
Nama : Danny Ariswara
Kelas : X RPL 3
Atos !!!!
Nama : Nida Fauziah
Kelas : X RPL 3
Selesai !!
Nama : Gina Alawiyah
Kelas : X RPL 3
Beres
Nama : Resa Ruhimat
Kls : X rpl3
Nama : erwan setiadi
Kls : X rpl3
Nama : Yopi ardianto
Kls : X rpl3
pak saya udah beres yang ini.........
nama:suhayandi
kls:x rpl 1
nama : andriansyah
kelas : xrpl2
beres
nama : anggi kurnia
kelas : xrpl2
pak udah
nama:mila karmila
kelas: x rpl 1
udah
nama:mita oktaviana
kelas:x rpl1
pak beres
pak udah selesai
nama : ridwan maulana
Kelas : X RPL 3
Posting Komentar