Tutorial Program Kasir Menggunakan Microsoft Visual Basic 6.0

Tutorial Program Kasir

Menggunakan

Microsoft Visual Basic 6.0

Oleh : Nugroho Anis Wijanarko

Dimulai dengan membuka program microsoft visual basic 6.0

Start > all Program > Microsoft Visual Basic 6.0 lalu buka aplikasi visual basic

Maka akan tampil

Kemudian pilih Standard Exe lalu pilih open

Ini adalah tampilan awal visual basic 6.0

Buatlah 3 form

Pilih Project > Add Form > Form lalu Open

Pilih Form 1

Untuk mengubah tampilan menjadi seperti diatas pilih

Object	Properti	Value
Label1	Caption Back color	Toko ATK Mas Nugroho* Highlight
Command1	Caption Back color	Masuk -

*       *   = nama bisa diganti

 

Buka jendela code pada code editor, ketikan programnya

Private Sub Command1_Click()

Form2.Show

End Sub

Buka form 2

Untuk mengubah tampilan

Object Properti Value Form1 Caption StartUpPosition Toko ATK Mas Nugroho* 2 – CenterScreen Label1 Caption BackColor Pilih Barang: Highlight Label2 Caption BackColor Jumlah: Highlight List1 - - Text1 Text (kosong) Command1 (name) Caption cmdkembali Kembali Command2 (name) Caption cmdhitung Hitung Command3 (name) Caption cmdselesai Selesai Label3 Caption BackColor Name (kosong) Highlight Text lblBarang Label4 Caption BackColor Name (kosong) Highlight Text lblHarga Label5 Caption BackColor Name (kosong)           Highlight Text lblJumlah Label6 Caption BackColor Name (kosong)           Highlight Text lblDiskon Label7 Caption BackColor Name (kosong)           Highlight Text lblTotal

* = nama bisa diganti

Setelah semua dirubah maka tampilan akan berubah

Kemudian buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub cmdhitung_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 "Pensil"

harga = 30000

satuan = "Pak"

Case "Buku"

harga = 50000

satuan = "Lusin"

Case "Kertas"

harga = 45000

satuan = "Rim"

Case "Pulpen"

harga = 25000

satuan = "Pak"

Case "Penghapus"

harga = 10000

satuan = "Pak"

Case "Serutan Pensil"

harga = 9000

satuan = "Pak"

Case "Spidol"

harga = 30000

satuan = "Pak"

Case "Lem"

harga = 20000

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.1

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

Private Sub cmdkembali_Click()

Form2.Hide

End Sub

Private Sub cmdselesai_Click()

Form3.Show

End Sub

Private Sub Form_Load()

List1.AddItem "Pensil"

List1.AddItem "Buku"

List1.AddItem "Kertas"

List1.AddItem "Pulpen"

List1.AddItem "Penghapus"

List1.AddItem "Serutan Pensil"

List1.AddItem "Spidol"

List1.AddItem "Lem"

End Sub

Buka Form 3

Untuk mengubah menjadi tampilan seperti di atas pilih

Object	Properti	Value
Label1	Caption Back color	Terima Kasih Highlight
Command1	Caption Back color	Keluar -

Buka jendela code pada code editor, ketikan programnya

Private Sub Command1_Click()

answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Ditanyakan")

If answer = vbYes Then

End

Else

MsgBox "action canceled", vbInformation, "confirm"

End If

End Sub

Setelah itu saya akan mencoba jalankan apliksi tersebut dengan mengklik star yang ada pada Toolbar Standar Visual Basic

Klik Masuk maka akan muncul tampilan form 2

Kemudian pilih barang dan masukan jumlah lalu pilih hitung

Maka akan muncul hasil untuk barang dan jumlah yang kita masukan

Jika kita tidak memilih barang maka akan muncul tampilan

Jika kita tidak memasukan jumlah barang maka akan muncul tampilan

Setelah selesai mencari jumlah pembayaran klik selesai maka akan muncul tampilan form 3

Jika kita memilih keluar maka akan muncul tampilan

Jika kita memilih Yes maka proses aplikasi Kasir tersebut akan selesai, tapi jika memilih No maka akan muncul tampilan

Klik OK maka proses keluar akan dibatalkan.