Pertama buatlah form seperti diatas dengan 6 textbox, 6 label, dan 2 command button. Dengan ketentuan sbb
TextBox textbox1 : Pembeli [txtPembeli] textbox2 : Kode [txtKode] textbox3 : Jumlah [txtJumlah] textbox4 : Barang [txtBarang] textbox5 : Harga [txtHarga] textbox6 : Total [txtTotal] Command Button button1 : Proses [cmdProses] button2 : Exit [cmdExit] |
lalu doubleclick pada cmdProses, maka akan muncul jendela, masukkan kode dibawah ini:
Private Sub cmdProses_Click() If kode.Text = "A" Then barang.Text = "Laptop" harga.Text = "4500000" ElseIf kode.Text = "B" Then barang.Text = "CPU" harga.Text = "980000" ElseIf kode.Text = "C" Then barang.Text = "mouse" harga.Text = "80000" End If total.Text = harga.Text * jumlah.Text End Sub |
Keterangan kode diatas :
- Barang diisi dengan Laptop jika kode bernilai A, diisi CPU jika kode bernilai B, dan diisi Mouse jika kode bernilai C.
- Harga diisi dengan 4500000 jika kode bernilai A, diisi 980000 jika kode bernilai B, dan diisi 80000 jika kode bernilai C.
- Total diisi dengan hasil perhitungan antara nilai harga dan jumlah.
Private Sub cmdExit_Click() End End Sub |
setelah selesai, tekan tombol F5 untuk menjalankan aplikasi.