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……



















 



19 comments:

  1. Replies
    1. terima kasih juga sudah berkunjung gan...

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

    ReplyDelete
  3. thanks infonya gan,, ini sangat membantu,,

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

    ReplyDelete
  5. Thanks untuk Infonya

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

    terimakasih

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

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

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

      Delete
  7. terima kasih infonya Gan

    tapi numpang tanya klo pake vb 12 tetap bisa kan?

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

    ReplyDelete
  9. memingat kembali ilmu jaman kuliah dulu, trims om admin.

    ReplyDelete
    Replies
    1. Trima Kasih jg om udah meluangkan waktu berkunjung

      Delete

Terima Kasih Sudah Meninggalkan Komentar...

Recent Comments

Copyright © 2012 cuma ingin berbagi.