Untuk para adik adik yang sekolah menengah kejuruan jurusan informatika khususnya Rekayasa Perangkat Lunak dan untuk para abang abangku yang sudah semester 4 atau 3, berikut saya posting aplikasi penjualan yang sangat sederhana dengan menggunakan visual basic 6.0 yang saya pelajari dulu di Smkn 2 langsa tercinta =D.
Langsung saja saya praktikan bagaimana membuat aplikasi penjualan sederhana menggunakan visual basic 6.0. Sekarang coba buka program visual basic nya. Kemudian siapkan satu buah form dengan tambahan beberapa
komponen berikut :
komponen berikut :
No | Komponen | Name | Text | Caption |
---|---|---|---|---|
1 | Text1 | txtHarga | - | - |
2 | Text2 | txtJumlah | - | - |
3 | Text3 | txtInput | - | - |
4 | Label1 | Label1 | - | Aplikasi Penjualan Sederhana |
5 | Label2 | Label2 | - | Harga Barang |
6 | Label3 | Label3 | - | Jumlah |
7 | Label4 | Label4 | - | Pembayaran |
8 | Label5 | Label5 | - | Total Bayar |
9 | Label6 | Label6 | - | Kembalian |
10 | Label7 | lblTotal | - | 0 |
11 | Label8 | lblKembali | - | 0 |
12 | CommandButton1 | cmdHitung | - | &Hitung |
13 | CommandButton2 | cmdBersih | - | &Bersih |
Setelah itu susun masing-masing komponen hingga membentuk sebuah user interface seperti ini :
Setelah itu coba tuliskan kode berikut pada masing-masing tombol :
Tombol Hitung ( cmdHitung )
Private Sub cmdHitung_Click()
Dim Bayar, Kembali
Bayar = txtHarga.Text * txtJumlah.Text
Kembali = txtInput.Text - Bayar
lblTotal.Caption = Bayar
lblKembali.Caption = Kembali
End Sub
Tombol Bersih ( cmdBersih )
Private Sub cmdBersih_Click()
txtHarga.Text = ""
txtJumlah.Text = ""
txtInput.Text = ""
lblTotal.Caption = "0"
lblKembali.Caption = "0"
txtHarga.SetFocus
End Sub
Coba Jalankan dan lihat hasilnya ...
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :