Membuat List Daftar penghitungan harga Jual suatu barang (menggunakan Kondisi)

Langkah-langkahnya yaitu :

1. Buat Label untuk judul PILIH BARANG
2. Buat ListBox yang berisi :

• Disket
• Buku
• Kertas
• Pulpen

3. Untuk mengisi list diatas, gunakan windows properties, pada DataField masukan satu persatu daftra List tersebut
4. Buat Label untuk Jumlah, kemudian buat TextBox nya .
5. Buat command button “OK” klik command button kemudian masuk ke windows code, dan masukan kode berikut :

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

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

6. Kemudian tekan F5 untuk menjalankannya