cara membuat program penjualan barang di vb 6.0

program penjualan barang vb 6.0


 

Toolbox	Propertis	Ket
Form1	Caption	Form Latihan1
Label1	Caption	Nama Barang
Label2	Caption	Harga
Label3	Caption	Jumlah
Label4	Caption	Total
Label5	Caption	Diskon
Label6	Caption	Bayar
Text1	Text1	kosongkan
Text2	Text2	kosongkan
Text3	Text3	kosongkan
Text4	Text4	kosongkan
Text5	Text5	kosongkan
Text6	Text6	kosongkan
Command1	Caption	Proses
Command2	Caption	Hapus
Command3	Caption	Selasai

 Bentuk Form Yang Di Desain

Klik Ganda CommanButton1(Proses) Kemudian Ketik Source Kode/Listing Dibawa ini:

Private Sub Command1_Click()

If Len(Text1.Text) < 1 Then

   MsgBox "Nama Barang Belum Diisi", vbOKOnly + vbInformation, "Kosong"

End If

harga = Text2.Text

jumlah = Text3.Text

total = Val(Text2.Text) * Val(Text3.Text)

Text4.Text = total

If total >= 1000000 Then

diskon = (10 / 100) * Text4.Text

Text5.Text = diskon

bayar = total - diskon

Text6.Text = bayar

End If

If total >= 2000000 Then

diskon = (25 / 100) * Text4.Text

Text5.Text = diskon

bayar = total - diskon

Text6.Text = bayar

End If

End Sub

Klik Ganda CommanButton2 (Hapus) Kemudian Ketik Source Kode/Listing Dibawa ini:

Private Sub Command2_Click()

Dim i As Byte

For i = 0 To 3

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Next i

Text1.SetFocus

End Sub

Klik Ganda CommanButton3 (Selasai) Kemudian Ketik Source Kode/Listing Dibawa ini:

Private Sub Command3_Click()

End

End Sub

Related Posts:

Tweet