TUTORIAL MEMBUAT APLIKASI KASIR DENGAN VB

Tutorial membuat aplikasi kasir dengan vb 6.0

1.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Saya akan membuka program Visual Basic dengan cara klik pada menu -> all programs -> MicrosoftVisual Basic 6.0, lalu buka aplikasi Visual Basic.Akan menampilkan gambar seperti diatas, lalu pilih Standard EXE, lalu pilih Open.

2.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Di atas adalah tampilan awal dari Visual Basic.Untuk membuat aplikasi kasir buat lah seperti gambar diatas dengan menggunakan komponen Label,ListBox, TextBox dan CommandButton. Lalu ubahlah seperti gambar dibawah ini.

3.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Untuk mengubahnya seperti gambar diatas dengan cara Pengaturan property setiap object-nya adalahsebagai berikut :Object Properties ValueForm1 CaptionStartUpPositionAgen Penjualan2 – CenterScreenLabel1 CaptionBackColorPilih Barang:HighlightLabel2 CaptionBackColorJumlah:HighlightList1 - -Text1 Text <kosong>Command1 Caption OKCommand2 Caption ExitLabel3 CaptionBackColorName<kosong>Highlight TextlblBarangLabel4 CaptionBackColorName<kosong>Highlight TextlblHargaLabel5 CaptionBackColorName<kosong>Highlight TextlblJumlahLabel6 CaptionBackColorName<kosong>Highlight TextlblDiskon

4.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Label7 CaptionBackColorName<kosong>Highlight TextlblTotalSetelah diubah akan menampilkan seperti gambar dibawah iniBuka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :Private Sub Command1_Click()Dim harga As Currency, total As CurrencyDim jumlah As IntegerDim diskon As SingleDim satuan As StringIf List1.Text = "" ThenMsgBox "Anda belum memilih barang !!"List1.ListIndex = 0Exit SubEnd IfIf Text1.Text = "" ThenMsgBox "Anda belum mengisi jumlah barang !!"Text1.SetFocusExit SubEnd IfSelect Case List1.TextCase "Pensil"harga = 12000

5.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0satuan = "Pak"Case "Buku"harga = 20000satuan = "Lusin"Case "Kertas"harga = 25000satuan = "Rim"Case "Pulpen"harga = 11000satuan = "Pak"Case "Penghapus"harga = 10000satuan = "Pak"Case "Serutan Pensil"harga = 9000satuan = "Pak"End SelectlblBarang.Caption = "Barang : " & List1.TextlblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuanlblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuanjumlah = Text1.TextSelect Case jumlahCase Is < 10diskon = 0Case 10 To 20diskon = 0.15Case Elsediskon = 0.2End Selecttotal = jumlah * (harga * (1 - diskon))lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %")lblTotal.Caption = "Total Bayar : " & Format(total, "Currency")End SubPrivate Sub Command2_Click()answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Ditanyakan")If answer = vbYes ThenEndElseMsgBox "action canceled", vbInformation, "confirm"End IfEnd SubPrivate Sub Form_Load()List1.AddItem "Pensil"List1.AddItem "Buku"

6.     Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0List1.AddItem "Kertas"List1.AddItem "Pulpen"List1.AddItem "Penghapus"List1.AddItem "Serutan Pensil"End SubAtau seperti pada gambar dibawah ini

7.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basic 6.0Setelah itu saya akan mencoba jalankan apliksi tersebut dengan mengklik star yang ada pada ToolsbarStandar Visual BasicProgramnya akan tampil seperti gambar diatas

8.      Ahmad Randdy Tutorial membuat aplikasi kasir dengan Visual Basis 6.0Saya akan mencoba jalankan aplikasi agen penjualannya, saya memilih barang: buku dengan jumlah: 20lalu klik OK akan menampilkan hasil dan pernyataan yang benar seperti gambar diatas.Selesailah program aplikasi kasir yang saya buatTerima kasih..