Membuat Sendiri Program Kasir Menggunakan Visual Basic [PDF]

Citation preview

Membuat Sendiri Program Kasir Menggunakan Visual Basic-6 Selasa, Desember 31, 2013 Hadi Suprapto Assalammu'alaikum.... Apakabar Gan.....???? Pada postingan kali ini saya ingin berbagi tentang cara membuat sendiri program kasir dengan menggunakan Visual Basic-6. Di bawah ini adalah aplikasi kasir sederhana sebuah rumah makan : Step-1 Buatlah desainnya seperti gambar di bawah ini :



Step-2 Kita atur propertiesnya sebagai berikut : 1 2 3 4 5 6 7 8 9 10 11 12 13



Name : label tanggal Name : label jam Name : text Id Menu Name : text Menu Name : text satuan Name : text harga Name : text pesanan Name : text total Name : text dibayar Name : text kembalian Name : cmnd menu baru Name : cmnd tutup Name : Timer1



Caption : Caption : Text : Text : Text : Text : Text : Text : Text : Text : Caption : menu baru Caption : tutup Interval : 1



Step-3 ketik kode sesuai dengan fungsinya masing-masing. Klik 2x pada cmnd menu baru, isi dengan (copy paste) kode berikut : Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text1.SetFocus End Sub Klik 2x pada cmnd tutup, isi dengan (copas) kode berikut :   Private Sub Command2_Click() End End Sub Klik 2x pada text1.text (text Id Menu) dan copas kode berikut :  



Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text1.Text = 901 Then Text2.Text = "Sate Kambing" Text3.Text = "Porsi" Text4.Text = 20000 ElseIf Text1.Text = 902 Then Text2.Text = "Gulai Kambing" Text3.Text = "Porsi" Text4.Text = 15000 ElseIf Text1.Text = 903 Then Text2.Text = "Soto Ayam Kampung" Text3.Text = "Porsi" Text4.Text = 22000 ElseIf Text1.Text = 904 Then Text2.Text = "Soto Daging" Text3.Text = "Porsi" Text4.Text = 25000 Else MsgBox ("Menu yang dipesan belum ada...!") End If Text5.SetFocus End If End Sub Klik 2x pada text5.text (text pesanan) dan ketik kode di bawah ini :   Private Sub text5_Change() Text6.Text = Val(Text4.Text) * Val(Text5.Text) End Sub Klik 2x pada text7.text (text dibayar) dan copas kode berikut :   Private Sub text7_Change() Text8.Text = Val(Text7.Text) - Val(Text6.Text) End Sub Klik 2x pada Timer1, dan ketik (copas) kode di bawah ini :   Private Sub Timer1_Timer() Label2.Caption = Format(Date, "dd mmmm yyyy") Label4.Caption = Format(Time, "hh:mm:ss") End Sub Naah sekarang silahkan Running, maka hasilnya akan seperti di bawah ini :



Demikian yang bisa saya bagi, dan semoga bermanfaat ya gan....... >> Postingan ini saya pelajari dari http://coretanlusuh.blogspot.com 



Program kasir sederhana dengan Visual Basic 6.0 aldiunanto May 5, 2014 Gunadarma, Praktikum Sistem Informasi, Programming, Visual Basic 6.0 No Comments Dalam laporan ini akan dijelaskan cara pembuatan aplikasi kasir sederhana menggunakan Visual Basic 6.0. aplikasi kasir ini berisi Data jenis barang, list barang apa saja tergantung dari jenis barang yang dipilih, ditampilkan harga barang, jenis barang , dan sebuah inputan untuk memasukan jumlah beli yang nantinya akan dikalkulasi dan hasilnya di taruh di dalam textbox yang masih kosong yang disediakan. Terkahir, akan dilakukan penjumlahan dari



seluruh data beli per barang yang sudah diinput disetiap textbox. Tambahan lainnya yaitu waktu dinamis dan ucapan terimakasih. Buka software Visual Basic 6.0 dan pilih Standard EXE. Atur sedemikian rupa sehingga tampilan UI aplikasinya seperti gambar dibawah ini.



Berikut jenis-jenis dan properti dari setiap tools yang harus diatur. Tools name Label1 List_jenis



Type Label ComboBox



Btn_addjenis



CommandButton



List_brg Label2 Thrg_brg Label3 Tjenis_brg Label4 Tjml_beli Command1 Lbl_totalbayar Command2 Command3 Command4 Timer1 Command5 Frame1 Db1



ListBox label TextBox label Textbox label textbox CommandButton label CommandButton CommandButton CommandButton Timer CommandButton Frame textbox



Caption Jenis Barang



Text



Extras



(empty)



List : Rokok, Mie



Tambah Jenis Barang Harga Barang (empty) Jenis Barang (empty) Jumlah beli (empty) Total Bayar (empty) Clear Exit Add Bayar Interval : 1000 Clear Data Beli (empty)



Db2 Db3 Db4 Db5 Db6 Command6 Label6 Lbl_totalbeli Lbl_thanks Frame2 Lbl_date Frame3 Lbl_time



Textbox Textbox Textbox Textbox textbox CommandButton label label label frame label frame label



(empty) (empty) (empty) (empty) (empty) Total Bayar Rp (empty) (empty) Tanggal (empty) Waktu (empty)



Dan berikut ini adalah kode-kode untuk setiap tools beserta penjelasan dan logikanya. Visual Basic Private Sub btn_addjenis_Click( list_brg.Clear If list_jenis.Text = "Rokok" Then



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17



Private Sub btn_addjenis_Click() list_brg.Clear If list_jenis.Text = "Rokok" Then list_brg.AddItem "Dji Sam Soe" list_brg.AddItem "Djarum Super" list_brg.AddItem "Starmild" list_brg.AddItem "Neomild" list_brg.AddItem "Signature" ElseIf list_jenis.Text = "Mie" Then list_brg.AddItem "Indomie" list_brg.AddItem "Supermie" list_brg.AddItem "Popmie" list_brg.AddItem "Sarimie" list_brg.AddItem "Mie Sedap" End If End Sub



Bagian kode ini bekerja ketika button btn_addjenis diklik. Ketika user memilih jenis barang pada combobox, dan mengklik button ini, maka list barang yang bernama list_brg akan di hapus data-datanya dengan menggunakan .Clear dan setelah itu dilakukan pengkondisian jika jenis barang yang dipilih “Rokok”, maka list barang akan diisi datanya dengan Dji Sam Soe, Djarum Super, Starmild, Neomild, dan Signature. Jika user memilih jenis “Mie”, maka yang akan ditambahkan ke list adalah Indomie, Supermie, Popmie, Sarimie, dan Mie sedap Visual Basic



Private Sub Command1_Click() lbl_totalbayar.Caption = Val(thrg End Sub



1 Private Sub Command1_Click() 2 lbl_totalbayar.Caption = Val(thrg_brg.Text) * Val(tjml_beli.Text) 3 End Sub Bagian kode ini bekerja ketika tombol total bayar diklik, maka akan dilakukan proses perhitungan antara harga barang yang di kalikan dengan jumlah beli. Setelah itu hasilnya akan ditaruh di sebuah label yang bernama lbl_totalbayar. Visual Basic Private Sub Command2_Click() thrg_brg.Text = "" tjenis_brg.Text = "" tjml_beli.Text = ""



1 2 3 4 5 6



Private Sub Command2_Click() thrg_brg.Text = "" tjenis_brg.Text = "" tjml_beli.Text = "" lbl_totalbayar.Caption = "" End Sub



Bagian kode ini bekerja ketika tombol clear di klik, maka akan di set beberapa tools seperti thrg_brg, tjenis_brg, tjml_beli, dan lbl_totalbayar akan berisi kosong. Visual Basic Private Sub Command3_Click() End End Sub



1 2 3



Private Sub Command3_Click() End End Sub



Bekerja jika tombol Exit di klik, maka program akan berhenti dengan menggunakan syntax End. Visual Basic Private Sub Command4_Click() Dim total As String total = lbl_totalbayar.Caption



1 2 3 4



Private Sub Command4_Click() Dim total As String total = lbl_totalbayar.Caption



5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20



If db1.Text = "" Then db1.Text = total ElseIf db2.Text = "" Then db2.Text = total ElseIf db3.Text = "" Then db3.Text = total ElseIf db4.Text = "" Then db4.Text = total ElseIf db5.Text = "" Then db5.Text = total ElseIf db6.Text = "" Then db6.Text = total Else MsgBox "Data bayar sudah penuh!" End If End Sub



Bagian kode ini akan bekerja jika tombol Add Bayar di klik. Dilakukan pendeklarasian variable total sebagai String yang berisi sama dengan caption dari lbl_totalbayar. Jika db1 kosong, maka db1 akan diisi dengan total, jika db2 yang kosong maka db2 akan diisi dengan total, begitu seterusnya sampai db6. Dan terkahir dengan Else, jika semua texbox atau penampungan total sudah penuh, maka akan dimunculkan sebuah notifikasi yang memberitahu user bahwa semua textbox sudah penuh. Visual Basic Private Sub Command5_Click() db1.Text = "" db2.Text = "" db3.Text = ""



1 2 3 4 5 6 7 8 9 10



Private Sub Command5_Click() db1.Text = "" db2.Text = "" db3.Text = "" db4.Text = "" db5.Text = "" db6.Text = "" lbl_totalbeli.Caption = "" lbl_thanks.Caption = "" End Sub



Akan bekerja ketika tombol clear yang berada di sebelah kanan(proses perhitungan semua total) di klik. Maka akan menge-set semua inputan menjadi kosong, yaitu db1-db6, lbl_totalbeli, dan lbl_thanks. Visual Basic Private Sub Command6_Click() Dim total_beli As Double total_beli = Val(db1.Text) + Val(



1 2 3 4 5 6 7



Private Sub Command6_Click() Dim total_beli As Double total_beli = Val(db1.Text) + Val(db2.Text) + Val(db3.Text) + Val(db4.Text) + Val(db5.Text) +Val(db6.Text) lbl_totalbeli.Caption = total_beli lbl_thanks.Caption = "Terimakasih telah berbelanja di Aldi's market :) :*" End Sub



Bagian kode ini akan bekerja ketika tombol Total Bayar sebelah kanan diklik. Pertama dilakukan pendeklarasian variable bernama total_beli sebagai type data Double. Setelah itu variable ini diisi dengan hasil penjumlahan dari db1 sampai db6. Setelah itu hasilnya ditaruh sebagai caption di lbl_totalbeli, dan terakhir dimunculkan sebuah ucapan terimakasih di lbl_thanks. Visual Basic Private Sub Timer1_Timer() lbl_date.Caption = Format(Now , lbl_time.Caption = Format(Now , End Sub



1 2 3 4



Private Sub Timer1_Timer() lbl_date.Caption = Format(Now, "d mmmm yyyy") lbl_time.Caption = Format(Now, "hh : mm : ss") End Sub



Bekerja ketika program dijalankan pada detik pertama. Akan mengisi caption dari lbl_date dan lbl_time tanggal dan waktu yang akan running secara dinamis setiap detiknya tergantung dari propertis interval pada Timer1 yang disetting. Visual Basic Private Sub list_brg_Click() Dim harga As Double Dim jenis As String



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15



Private Sub list_brg_Click() Dim harga As Double Dim jenis As String If list_jenis.Text = "Rokok" Then jenis = "Rokok" Select Case list_brg.Text Case "Dji Sam Soe" harga = 12000 Case "Djarum Super" harga = 10000 Case "Starmild" harga = 11000 Case "Neomild" harga = 10500



16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40



Case "Signature" harga = 14000 End Select ElseIf list_jenis.Text = "Mie" Then jenis = "Mie" Select Case list_brg.Text Case "Indomie" harga = 1500 Case "Supermie" harga = 1400 Case "Popmie" harga = 6000 Case "Sarimie" harga = 1300 Case "Mie Sedap" harga = 1200 End Select End If thrg_brg.Text = harga tjenis_brg.Text = jenis tjml_beli.Text = "" lbl_totalbayar.Caption = "" End Sub



Bagian kode ini akan bekerja ketika list_brg diklik. Awalnya dilakukan 2 buah variable yaitu harga sebagai double, dan jenis sebagai string. Setelah itu dilakukan pengkondisian jika list_jenis barang yang dipilih “Rokok”, maka jenis akan diisi “Rokok” dan dilakukan pengkondisian dengan menggunakan metode Select Case. Jika barang yang dipilih adalah Dji Sam Soe, maka harga akan diisi dengan 12000, dan seterusnya sampai Signature. Jika list_jenis yang dipilih user adalah “Mie”, maka jenis akan diisi “Mie” dan dilakukan kondisi cabang dengan Select Case. Jika barang yang dipilih “Indomie”, maka harga = 1500, dan seterusnya sampai “Mie Sedap”. Setelah semua kondisi selesai dieksekusi dan variable harga dan jenis sudah diisi, maka nilai dari variable harga ditaruh di textbox thrg_brg, dan jenis ditaruh di tjenis_brg. Dan terakhir tjml_beli dan lbl_totalbayar di set kosong untuk mereset jika user memilih barang selanjutnya. Dan screenshot dibawah ini adalah hasilnya dari setiap event yang dilakukan.



Btn_addjenis, menampilkan barang-barang tertentu sesuai jenis



Ketika user mengklik salah satu dari barang yang ditampilkan dan mengklik tombol Total Bayar yang selanjutnya dilakukan perhitungan dari harga barang dengan jumlah barang yang dibeli.



Ketika user mengklik button Add Bayar dan nilai total dari setiap barang yang dipilih ditaruh di textbox yang disediakan(db1-db6). Dan menampilkan total dari penjumlahan seluruh data beli dan menampilkan pesan terimakasih.



Ketika user mengklik Add Bayar namun semua inputan(db1-db6) sudah penuh. MEMBUAT SENDIRI APLIKASI KASIR MENGGUNAKAN VISUAL BASIC 6



Kali ini saya akan berbagi bagaimana cara membuat sendiri aplikasi kasir dengan menggunakan visual basic 6.



Di bawah ini adalah cara membuat aplikasi kasir untuk rumah makan dan jika kamu ingin mendownload aplikasi beserta kodingnya silahkan download disini.. Langkah 1. Buatlah desain tampilan aplikasi kasir seperti gambar di bawah :



Langkah 2. Atur propertinya sebagai berikut :



1 2 3 4 5 6 7 8 9 10 11



Name Name Name Name Name Name Name Name Name Name Name



: : : : : : : : : : :



lblTanggal lblJam txtId txtMenu txtSatuan txtHarga txtPesanan txtTotal txtBayar txtKembali cmdBaru



12 13



Name : cmdTutup Name : Timer1



Caption : Caption : Text : Text : Text : Text : Text : Text : Text : Text : Caption : Menu Baru Caption : Tutup Interval : 1



Langkah 3. Menuliskan source code sesuai dengan fungsinya masing-masing. Klik 2x Timer1 dan copas kode di bawah : 1:



Private Sub Timer1_Timer()



2:



lblTanggal.Caption = Format(Date, "dd mmmm yyyy")



3:



lblJam.Caption = Format(Time, "hh:mm:ss")



4:



End Sub



Klik 2x txtId.text dan isi kode berikut :



1:



Private Sub txtId_KeyPress(KeyAscii As Integer)



2:



If KeyAscii = 13 Then



3:



If txtId.Text = 101 Then



4:



txtMenu.Text = "Sate Kambing"



5:



txtSatuan.Text = "Porsi"



6:



txtHarga.Text = 15000



7:



8:



ElseIf txtId.Text = 102 Then



9:



txtMenu.Text = "Gulai"



10:



txtSatuan.Text = "Porsi"



11:



txtHarga.Text = 10000



12:



13:



ElseIf txtId.Text = 103 Then



14:



txtMenu.Text = "Soto Ayam"



15:



txtSatuan.Text = "Porsi"



16:



txtHarga.Text = 17000



17:



18:



ElseIf txtId.Text = 104 Then



19:



txtMenu.Text = "Coto Makasar"



20:



txtSatuan.Text = "Porsi"



21:



txtHarga.Text = 20000



22:



23:



Else



24:



MsgBox ("Menu yang dipesan belum ada...!")



25:



End If



26:



txtPesanan.SetFocus



27:



28:



End If



29:



End Sub



Klik 2x txtPesanan.text dan isi kode seperti di bawah :



1:



Private Sub txtPesanan_Change()



2:



txtTotal.Text = Val(txtHarga.Text) * Val(txtPesanan.Text)



3:



End Sub



Klik 2x txtBayar.text dan copas source code berikut :



1:



Private Sub txtBayar_Change()



2:



txtKembali.Text = Val(txtBayar.Text) - Val(txtTotal.Text)



3:



End Sub



Klik 2x cmdBaru, isi dengan kode berikut :



1:



Private Sub cmdBaru_Click()



2:



txtId.Text = ""



3:



txtMenu.Text = ""



4:



txtSatuan.Text = ""



5:



txtHarga.Text = ""



6:



txtPesanan.Text = ""



7:



txtTotal.Text = ""



8:



txtBayar.Text = ""



9:



txtKembali.Text = ""



10:



11:



txtId.SetFocus



12:



End Sub



Klik 2x cmdTutup, isi dengan kode berikut :



1:



Private Sub cmdTutup_Click()



2:



Unload Me



3:



End Sub



hasilnya seperti ini :



Demikian cara membuat Aplikasi Kasir sederhana semoga bermanfaat……



Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel



vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module Share this article : 16



Related Articles 



BUAT SENDIRI SOFTWARE PENERIMAAN SISWA BARU







SOURCE CODE TERBILANG







MEMBUAT VIDEO PLAYER SEDERHANA







MEMBUAT FORM LOGIN DENGAN HAK AKSES







Buat Kalkulator Sensitive Sendiri







MENAMBAHKAN DATABASE DAN FORM DI VB 6



+ comments + 32 comments Reply Lukman November 14, 2013 at 5:23 AM



terima kasih banyak,,



Reply bagus handoko November 14, 2013 at 8:20 AM



terima kasih juga sudah berkunjung gan...



Reply Anonymous November 18, 2013 at 9:44 AM



min,, mw tanya donk... cara membuat membuat soal pilihan ganda beserta scornya,, dgn menggunakan VB 6.0



Reply charger laptop ori murah November 27, 2013 at 3:50 PM



thanks infonya gan,, ini sangat membantu,,



Reply gary bulage December 16, 2013 at 1:56 PM



mau nanya gan.. kalau aplikasi yang lain ada gak ??



Reply bagus handoko December 20, 2013 at 11:49 AM



maksudnya gan? aplikasi apa?



Reply Marso Adi wibowo December 26, 2013 at 12:28 AM



Thanks untuk Infonya saya masih benar2 awam untuk aplikasi yang ini, mohon bantuanya bagaimana membuat langkah 1 dan langkah 2 terimakasih



Reply bagus handoko December 27, 2013 at 6:59 PM



Bang liah aja videonya disini : http://www.youtube.com/watch?v=016V4D1elXI terima kasih dah berkunjung bang...



Reply sururi lee December 29, 2013 at 3:45 PM



gan ko ga bisa fungsi ya gan?



Reply bagus handoko December 29, 2013 at 6:10 PM



bagian mana gan yg gak fungsi?



Reply juan felix January 19, 2014 at 10:03 AM



bang tolong saya minta aplikasi visual basic 6.0 bang ....



Reply bagus handoko January 21, 2014 at 7:43 AM



Bang download vb6-nya disini : http://www.4shared.com/rar/IaLMkUiY/VB60EnterpriseEditionFull.html



Reply raiyyan January 31, 2014 at 4:57 PM



terima kasih infonya Gan tapi numpang tanya klo pake vb 12 tetap bisa kan?



Reply koknyo ymail January 31, 2014 at 6:23 PM



makasih mas.izin mas,kalau mau di link ke database barang yang kayak di Alfam**t gitu gimana ya?mohon bantuannya mas.



Reply bagus handoko February 2, 2014 at 4:08 PM



bisa gan



Reply diankalobilal March 28, 2014 at 8:39 PM



Trims ilmu nya braayyy



Reply den Baguz March 28, 2014 at 11:21 PM



Terima Kasih ya dah berkunjung



Reply dsukband April 5, 2014 at 4:44 PM



memingat kembali ilmu jaman kuliah dulu, trims om admin.



Reply den Baguz April 5, 2014 at 6:38 PM



Trima Kasih jg om udah meluangkan waktu berkunjung



Reply anna angraeni May 19, 2014 at 7:17 PM



manteeppp....



Reply den Baguz May 20, 2014 at 8:05 AM



Terima Kasih ya dah berkunjung



Reply Weni sri yunita May 20, 2014 at 4:02 PM



bang kalau mau nambah menunya gimana yah?



Reply den Baguz May 20, 2014 at 8:37 PM



utk tambah menu klik 2x txtId.text dan tambahkan coding berikut tepat di atas coding "Else" : ElseIf txtId.Text = 105 Then txtMenu.Text = "Sate Ayam"



txtSatuan.Text = "Porsi" txtHarga.Text = 15000 ElseIf txtId.Text = 106 Then txtMenu.Text = "Ayam Lalapan" txtSatuan.Text = "Porsi" txtHarga.Text = 15000



Reply Anonymous June 11, 2014 at 3:32 PM



maz bagus terimakasih infonya... :)



Reply den Baguz June 11, 2014 at 8:18 PM



Trima Kasih juga kunjungannya Gan....



Reply Anonymous September 3, 2014 at 9:32 PM



makasih banyak mas infonya (y) sangat sangat membantu saya yang masih awam mengenai vb



Reply den Baguz September 4, 2014 at 8:47 PM



Terima Kasih juga kunjungannya mas



Reply Hideto Bando October 27, 2014 at 8:29 PM



thanks benar2 membantu gan ..:D



Reply puskesmas salido November 18, 2014 at 11:38 AM



gan naya ni gan gi mana cara memasukan harga dari harga sate, dan satuan yang lainnya harus buat database dulu ya makasih atas bantuannya



Reply den Baguz November 18, 2014 at 11:58 AM



liat videonya disini gan : https://www.youtube.com/watch?v=016V4D1elXI



Reply Wawan Otoy December 23, 2014 at 11:51 PM



jadi inget pas kuliah semester 2..., tapi pake vb.net + gambar Smartfren EC1260-2 UI erid7 Tentang VB Belajar