LISTING VB

CommandButton yang masing masing captionnya di ganti menjadi Password, OK , dan Clear. Dan 1 textbox yang text pada propertiesnya dikosongkan (untuk memasukkna password).

Untuk image, di lakukan pengeditan di Properties. Lakukan doble klik pada kotak kecil yang ada di samping picture, kemudian pilih gambar yang diinginkan, lalu klik open.

Untuk tampilan gambar nantinya, lakukan pengediatan si properties. Enable pada properties diganti dari true menjadi false. Dan visiblenya di ganti dari true menjadi false. Ini dilakukan agar pada saat di run, gambar tidak akan tampil sebelum password yang dimasukkan benar..

Untuk penulisan koding, dilakukan di CommandButton2 yang captionnya sudah diganti menjdi OK. Sebelum menulislkan koding, ketik Dim a As Integer pada tempat pendeklarasian yang terletak di kiri atas, yang diganti menjadi General, yang berarti pendeklarasian yang dilakukan untuk keseluruhan.

Pada saat memasukkan password, tulisan pada saat mengetik password masih standar(seperti pada gambar diatas). Untuk menyamarkan password, ubah PasswodChar dengan cara, klik text1, kemudian pada properties PasswodChar di isi sesuai keinginan.
Select Case Pada VB
Untuk pembahasan selanjutnya, buat 8 label yang di kosongkan (untuk tempat output), agar label menjadi berwarna, ubah palette pada BackColor pada properties menjadi warna yang diinginkan. Dalam laporan akhir kali ini diminta untuk menggunakan warna putih. 6 label di kosongkan, satu label captionnya diganti menjadi “pilih barang” dan satu label lagi captionnya diganti menjadi jumlah pembelian.
Kemudian buat 1 buah ListBox, dimana akan dijadikan tempat memilih barang.
3 CommandButton yang masing masing captionnya diganti menjadi “OK”, “hapus”, dan “keluar”.
Dan terakhir 1 TextBox yang text pada propertiesnya di kosongkan.

Lakukan double klik pada button “OK”.
Kemudian tuliskan koding seperti berikut:
Private Sub Command1_Click()
Dim Harga As Currency, Total As Currency
Dim Satuan As String
Dim Diskon As Single
Dim Jumlah As Integer

If List1.Text = " " Then
MsgBox "Anda Belum Memilih Barang"
List1.ListIndex = 0
Exit Sub
End If

If Not IsNumeric(Text1.Text) Then
MsgBox "Isi Jumlah Pembelian harus angka !"
Text1.SetFocus
Exit Sub
End If

Select Case List1.Text
Case "Buku"
Harga = 22000
Satuan = "Lusin"
Case "Pulpen"
Harga = 15000
Satuan = "Pack"
Case "Pensil"
Harga = 10000
Satuan = "Pack"
Case "Penghapus"
Harga = 3000
Satuan = "Buah"
End Select

Label1.Caption = "Barang :" & List1.Text
Label2.Caption = "Harga : Rp" & Format(Harga) & "/" & Satuan
Label3.Caption = "Jumlah : " & Text1.Text & " " & Satuan

Jumlah = Text1.Text

Select Case Jumlah
Case Is < 10
Diskon = 0
Case 10 To 20
Diskon = 0.1
Case Else
Diskon = 0.2
End Select

Total = Jumlah * (Harga * (1 - Diskon))

Label4.Caption = "Diskon : " & Format(Diskon, "0 %")
Label5.Caption = "Total Bayar : Rp" & Format(Total)
End Sub

Private Sub Command2_Click()
List1.Text = Clear
Label1.Caption = Clear
Label2.Caption = Clear
Label3.Caption = Clear
Label4.Caption = Clear
Label5.Caption = Clear
Text1.Text = Clear
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
List1.AddItem "Buku"
List1.AddItem "Pulpen"
List1.AddItem "Pensil"
List1.AddItem "Penghapus"
End Sub