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 = KembaliEnd SubTombol Bersih ( cmdBersih )
Private Sub cmdBersih_Click()
txtHarga.Text = "" txtJumlah.Text = "" txtInput.Text = "" lblTotal.Caption = "0" lblKembali.Caption = "0" txtHarga.SetFocusEnd SubCoba 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 :

.jpg)