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
Mantabs Tutornya gan, bisa dijadikan referensi nih
ReplyDeletejangan lupa mampir juga gan
http://carakuvb6.blogspot.co.id
Cara Membuat Program Penjualan Barang Di Vb 6.0 - Ilmu Komputer >>>>> Download Now
ReplyDelete>>>>> Download Full
Cara Membuat Program Penjualan Barang Di Vb 6.0 - Ilmu Komputer >>>>> Download LINK
>>>>> Download Now
Cara Membuat Program Penjualan Barang Di Vb 6.0 - Ilmu Komputer >>>>> Download Full
>>>>> Download LINK