Membuat Aplikasi Sederhana (1) 2

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.

Kemudian doubleclick pada cmdExit, lalu masukkan kode dibawah

Private Sub cmdExit_Click()     End End Sub

setelah selesai, tekan tombol F5 untuk menjalankan aplikasi.