cara membuat kasir dg vb6

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

Komentar

Posting Komentar

Postingan populer dari blog ini

Konsep Pemrograman

Gambar
Umi Sa’adah PENS-ITS Bab 1. Pengenalan Pemrograman C Konsep Pemrograman Politeknik Elektronika Negeri Surabaya 2006 Umi Sa’adah Konsep Pemrograman PENS-ITS Overview • Sejarah dan Ruang Lingkup C • Proses Kompilasi dan Linking dalam C • Struktur Penulisan Program C Umi Sa’adah Konsep Pemrograman PENS-ITS Sejarah C • Akar dari bahasa C adalah bahasa BCPL yang dikembangkan oleh Martin Richards pada tahun 1967. • BCPL memberikan ide kepada Ken Thompson yang kemudian mengembangkan bahasa yang disebut dengan B pada tahun 1970. • Selanjutnya dari bahasa B ke bahasa C oleh Dennis Ritchie sekitar tahun 1970-an di Bell Telephone Laboratories Inc. (sekarang adalah AT&T Bell Laboratories). • Bahasa C pertama kali digunakan pada komputer Digital Equipment Corporation PDP-11 yang menggunakan sistem operasi UNIX. Umi Sa’adah Konsep Pemrograman PENS-ITS Sejarah C • C adalah bahasa yang standar, artinya suatu program yang ditulis dengan versi bahasa C tertentu akan dapat dikompilasi dengan vers...
Baca selengkapnya

sistim informasi personalia

Gambar
Relasi Tabel Master Aplikasi Sistem Informasi Personalia Agar kita dapat memelihara keakuratan, ketepatan dan konsistensi data dalam sebuah database kita perlu membuat relasi tabel. Microsoft Access menyediakan fitur relasi tabel untuk menghubungkan antara tabel satu dengan tabel lainnya. Dalam aplikasi Sistem Informasi Personalia yang kita buat terdapat 6 buah tabel master data yaitu: 1. Tabel Karyawan 2. Tabel Jabatan 3. Tabel Cabang 4. Tabel Bagian 5. Tabel Departemen 6. Tabel Headquarter 1. Relasi antara tabel Karyawan dan Jabatan Relasi antara tabel Karyawan dan Jabatan adalah relasi satu ke banyak dimana satu data Jabatan dapat terhubung dengan lebih dari satau data Karyawan. Sebagai contoh kita lihat tabel berikut: Pada tabel di atas kita melihat tiga nama karyawan mempunyai jabatan yang sama yaitu Manager dan 2 orang karyawan sebagai Supervisor. 2. Relasi antara tabel Karyawan dan Cabang Relasi antara tabel Karyawan dan Cabang adalah relasi satu ke banyak dimana satu dat...
Baca selengkapnya