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…

Komentar

Posting Komentar

Postingan populer dari blog ini

Telepon genggam (handphone)

Gambar
Awal telepon dibuat hanya terbatas pada telepon tetap (fixed line telephone). Namun sejak 3 April 1973, kita telah dikenalkan pada suatu teknologi telepon genggam, atau yang sekarang banyak orang menyebutnya dengan nama handphone (HP). Saat ini, handphone telah banyak digunakan oleh masyarakat luas. Selain untuk berkomunikasi, ternyata handphone juga sudah menjadi bagian dari gaya hidup, penampilan, tren dan prestise (gengsi). Dengan kecanggihan teknologi, kini handphone telah dibuat dengan berbagai macam bentuk dan ukuran, sehingga semakin menarik dan semakin bermacam-macam. Fitur-fitur yang ditambahkan didalamnya, juga sangat kompleks. Mulai dari kamera digital, radio FM, pemutar MP3/MP4, video, dan berbagai jenis permainan yang sangat menarik. Teknologi telepon genggam atau telepon seluler, adalah merupakan gabungan dari teknologi telepon dengan teknologi radio yang mengirimkan sinyal suara melalui gelombang radio. Karena bersifat nirkabel (wireless), maka
Baca selengkapnya

Mengenal Bagian-bagian Gitar Elektrik dan Akustik

Gambar
sebelum kita menggunakan gitar ada baiknya kita harus mengetahui bagian-bagian gitar tersebut atau mengenalnya..ada ungkapan mengatakan "Tak kenal maka tak sayang....jadi kita harus mengenal gitar yang kita miliki agar kita lebih sayang pada gitar tersebut....CKCKCKCk (Sayang????). Tulisan ini sebagai awal perkenalan lebih jauh dengan gitar, selain itu juga dilatarbelakangi kebanyakan dari kita kadang suka keliru dalam menyebut bagian-bagian gitar. Kita mungkin juga sering bertanya: "terdiri dari apa saja sih bagian-bagian gitar itu?", "yang disebut whammy bar itu yang mana sih?", "pickups itu apa sih?". Disini akan kita bahas per bagian saya dengan lebih detil, mulai dari gitar elektrik terlebih dahulu, setelah itu, gitar akustik. A. GITAR ELEKTRIK: Tuning Machines: berfungsi sebagai alat untuk menyetem/menyetel/menstem (tuning) senar gitar sehingga menghasilkan nada sesuai dengan keinginan kita Headstock: bagian yang berfungsi menahan s
Baca selengkapnya