Pembelian Barang dengan VB 6.0

Pembelian Barang dengan VB 6.0

gimana ... interface yang menarik bukan ... simple koq cuma ini isi tool box nya :

    
• 1 buah groupbox.
• 3 buah textbox.
• 3 buah label

             

• 1 buah groupbox.
• 4 buah textbox.
• 4 buah label

         

• 1 buah groupbox.
• 19 buah label

Dan terakhir tambahkan 1 buah button beri nama Keluar .

Setelah membuat seperti yang di atas, copy coding di bawah ini pada button Keluar :

Private Sub cmdbersih_Click()

txttohar.Text = ""

txtdiskon.Text = ""

txttobay.Text = ""

txtkobar.Text = ""

txtnabar.Text = ""

txthabar.Text = ""

txtjubar.Text = ""

txtkobar.SetFocus

End Sub

Private Sub cmdexit_Click()

X = MsgBox("Anda yakin ingin keluar..?", vbYesNo + vbQuestion, "konfirmasi")

If X = vbYes Then

End

End If

End Sub

Private Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub txtjubar_Change()

txttohar = Val(txttohar)

txttohar.Text = Val(txthabar.Text * txtjubar.Text)

If txtjubar >= 5 Then

txtdiskon = 30 / 100 * txttohar

Else

txtdiskon = 0

End If

txttobay = txttohar - txtdiskon

End Sub

Private Sub txtkobar_KeyPress(KeyAscii As Integer)

nomor = Val(txtkobar)

Select Case nomor

Case 1:

txtnabar = "Baju"

txthabar = 75000

Case 2:

txtnabar = "Celana"

txthabar = 125000

Case 3:

txtnabar = "Jaket"

txthabar = 235000

Case 4:

txtnabar = "Topi"

txthabar = 58000

Case 5:

txtnabar = "Tas"

txthabar = 123500

End Select

End Sub

Untuk lebih jelasnya, project Pembelian Barang dengan VB 6.0 bisa dilihat disini .

SELAMAT MENCOBA :D