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 :

clip_image002

Langkah 2.

Atur propertinya sebagai berikut :

clip_image003

 

1 Name : lblTanggal Caption : -
2 Name : lblJam Caption : -
3 Name : txtId Text : -
4 Name : txtMenu Text : -
5 Name : txtSatuan Text : -
6 Name : txtHarga Text : -
7 Name : txtPesanan Text : -
8 Name : txtTotal Text : -
9 Name : txtBayar Text : -
10 Name : txtKembali Text : -
11 Name : cmdBaru Caption : Menu Baru
12 Name : cmdTutup Caption : Tutup
13 Name : Timer1 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 :



image



Demikian cara membuat Aplikasi Kasir sederhana semoga bermanfaat……



















 



Share this article :
 

+ comments + 66 comments

November 14, 2013 at 5:23 AM

terima kasih banyak,,

November 14, 2013 at 8:20 AM

terima kasih juga sudah berkunjung gan...

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

November 27, 2013 at 3:50 PM

thanks infonya gan,, ini sangat membantu,,

December 16, 2013 at 1:56 PM

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

December 20, 2013 at 11:49 AM

maksudnya gan? aplikasi apa?

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

December 27, 2013 at 6:59 PM

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

December 29, 2013 at 3:45 PM

gan ko ga bisa fungsi ya gan?

December 29, 2013 at 6:10 PM

bagian mana gan yg gak fungsi?

January 19, 2014 at 10:03 AM

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

January 21, 2014 at 7:43 AM

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

January 31, 2014 at 4:57 PM

terima kasih infonya Gan

tapi numpang tanya klo pake vb 12 tetap bisa kan?

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

February 2, 2014 at 4:08 PM

bisa gan

March 28, 2014 at 8:39 PM

Trims ilmu nya braayyy

March 28, 2014 at 11:21 PM

Terima Kasih ya dah berkunjung

April 5, 2014 at 4:44 PM

memingat kembali ilmu jaman kuliah dulu, trims om admin.

April 5, 2014 at 6:38 PM

Trima Kasih jg om udah meluangkan waktu berkunjung

May 19, 2014 at 7:17 PM

manteeppp....

May 20, 2014 at 8:05 AM

Terima Kasih ya dah berkunjung

May 20, 2014 at 4:02 PM

bang kalau mau nambah menunya gimana yah?

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

Anonymous
June 11, 2014 at 3:32 PM

maz bagus terimakasih infonya... :)

June 11, 2014 at 8:18 PM

@AnonymousTrima Kasih juga kunjungannya Gan....

Anonymous
September 3, 2014 at 9:32 PM

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

September 4, 2014 at 8:47 PM

@AnonymousTerima Kasih juga kunjungannya mas

October 27, 2014 at 8:29 PM

thanks benar2 membantu gan ..:D

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

November 18, 2014 at 11:58 AM

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

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 HTML dan CSS bukan dari gurunya
Curhatan dan coretan
ngedit blog bareng

May 13, 2015 at 4:35 PM

makasih banyak buat infonya, di coba yaa..

June 10, 2015 at 10:49 PM

http://queen-pain.blogspot.com/
bimbingannya bang.:)
Newbie :)

June 26, 2015 at 2:45 PM

Terima Kasih Info'a :)

June 26, 2015 at 2:47 PM

Terima Kasih Info'a :)

Anonymous
August 7, 2015 at 8:15 AM

kang bagaimana cara membuat aplikasi kasir dengan simple

November 21, 2015 at 6:31 AM

ada ga aflikasi buat salon

November 29, 2015 at 1:07 PM

Saya dapat tugas untuk kasir toko dan harus ada cmd beli ketika d klik cmd beli harus muncul pesan "yakin akan membeli?" ketika jawabannya "Tidak" maka textbox jumlah beli itu harus d kunci dan tidaj bisa di isi..itu caranya gmn ya gan?siapa tau bisa bantu

December 15, 2015 at 5:15 PM

Terimakasih Bang Atas Postingannya Cakep Tu Mantab Dan Bikin Ger dan semangat belajar.

Oh Ya Bang Apakah OCX OsenXPSuite 2006 itu bisa Dipasang Di VB Net Mohon Solusi Ditunggu Balesannya,Maaf Masih Belajar

DITUNGGU BALESANNYA DISINI PAK BOS

February 28, 2016 at 4:35 PM

Gan ko yang saya compile eror ya.....
Procedure declaration does not match decription of event or procedure having the same name

March 29, 2016 at 7:11 AM

www.asianbroken.blogspot.co.id

April 25, 2016 at 10:36 PM

gimana cara bikinnya ya?

April 25, 2016 at 10:39 PM

itu gambar background buat sendiri atau gimana ya mas?

April 28, 2016 at 8:57 PM

makasih gan...

June 4, 2016 at 1:33 AM

Gang kalo applikasi yg tampilannya seperti pos minimarket ada ngak???

September 3, 2016 at 11:28 AM

Ini Bagus Sekali. . Tapi caranya supaya hasilnya bisa diprint gimana?

September 20, 2016 at 6:46 PM

ada gak script biar bisa dibukukan ke excel...?

March 1, 2017 at 8:56 PM

Gan Itukan klo pesennya 1 menu ya,, tpi klo yang pesen ada 2 menu gmna gan kodinnya. Misal saya pesen sate kambing,soto ayam dan soto makasar .. apa saya harus buat textbox lagi atau gmna?

terima kasih sebelumnya Min yg udah buat tutorial

May 18, 2017 at 6:35 PM

artikelnya sangat membantu saya

My blog

May 21, 2017 at 2:42 AM

makasih gan artikelnya

My blog

May 28, 2017 at 2:23 PM

Terima Kasih Gan sangat Membantu :)

September 30, 2017 at 3:23 PM

mantap bang thank you very much..

November 16, 2017 at 7:07 PM

Cara menggabungkan dg Exel beserta rumusnya vloockup dll gmn caranya ..

December 17, 2017 at 10:37 PM

thnks artikel cukup menarik dan bermanfaat My blog

February 17, 2018 at 6:36 PM

Kak klau untuk membuat database nya gmna ya?

February 17, 2018 at 6:37 PM

Kak klau untuk membuat database nya gmna ya?

September 14, 2018 at 3:17 PM

thanks for information
Software Klink dan Apotek Lengkap

October 27, 2018 at 6:18 PM

download caranya gimna ya

January 3, 2019 at 12:55 AM

Asalamu'alaikum

January 3, 2019 at 12:57 AM

Gan bisa buat script atau coding buat.melawan virus shortcut atau recycler melalui notepad atau text document

February 11, 2019 at 12:50 AM

Bang boleh minta nmr wa,nya ?
ingin belajar .

April 29, 2019 at 12:12 AM

"method or data member not found" solusinya bang

December 9, 2019 at 1:01 PM

sukses gan, keep support
Software Toko

June 22, 2020 at 8:45 PM

Hai, progran kasir kayak dinswalayan bisa dibeli dimana ya?

July 31, 2020 at 9:13 AM

1. Open Retail ( https://openretailer.net )

2. MiniMart ( https://helloyud.blogspot.co.id/2016/12/aplikasi-pertokoan-minimart.html )

3. Sultan Pos ( https://sultan.lekapin.com )

Post a Comment

Terima Kasih Sudah Meninggalkan Komentar...

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ingin berbagi - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger