Penjualan Smartphon

KOSE PADA KOLOM TIPE PRODUK

Private Sub cbotipe_Click()

If cbotipe.Text = "009" Then

txtproduk.Text = "SAMSUNG S1"

txtharga.Text = "1000000"

ElseIf cbotipe.Text = "7770" Then

txtproduk.Text = "OPPO S9"

txtharga.Text = "2500000"

ElseIf cbotipe.Text = "4560" Then

txtproduk.Text = "ADVAN"

txtharga.Text = "800000"

ElseIf cbotipe.Text = "3456" Then

txtproduk.Text = "NOKIA"

txtharga.Text = "25000000"

End If

End Sub

KODE PADA TOMBOL KELUAR 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

KODE PADA TOMBOL LAGI 

Private Sub cmdlagi_Click()

txtnama.Text = ""

txtalamat.Text = ""

txtno.Text = ""

txtjenis.Text = ""

cbotipe.Text = ""

txtproduk.Text = ""

txtjumlah.Text = ""

txtharga.Text = ""

txtuang.Text = ""

txtkembalian.Text = ""

txtchk4.Text = ""

txtnama.SetFocus

End Sub

KODE PADA TOMBOL PROSES 

Private Sub cmdproses_Click()

txtkembalian.Text = Val(txtuang.Text) - Val(txtharga.Text) * Val(txtjumlah.Text)

End Sub

KODE UNTUK MEMUNCULKAN TIPE

Private Sub Form_Load()

cbotipe.AddItem "009"

cbotipe.AddItem "7770"

cbotipe.AddItem "4560"

cbotipe.AddItem "3456"

End Sub

KODE PADA OPTION LAKI-LAKI 

Private Sub optlaki_Click()

txtjenis.Text = "LAKI-LAKI"

End Sub

KODE PADA OPTION PEREMPUAN

Private Sub optperempuan_Click()

txtjenis.Text = "PEREMPUAN"

End Sub

KODE HASIL MENGGUNAKAN ENTER 

Private Sub txtuang_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtkembalian.Text = Val(txtuang.Text) - Val(txtharga.Text) * Val(txtjumlah.Text)

End If

End Sub