Belajar VB bag,1
Oke kita mulai membuat program struk belanja:
Ini print screen nya:
Urutan proses:
- Pertama Form Dipanggil,Tombol Hitung,Bersih,Keluar tidak Aktif
- Kursor Terfokus Pada Kode saat program dijalankan
- Saat Mengisi Harga Satuan,tombol hitung aktif,jika ditekan maka hasil perhitungan
akan muncul pada label bayar ( Bayar = Jumlah Beli * Harga Satuan ) - Saat Itu Tombol Bersihkan,Keluar bisa diakses
- Jika Bayar >=500000, maka diskon 10 %
Jika Bayar>=250000, maka diskon 5 %
Jika Bayar>=100000, maka diskon 2 % - Total Bayar = Bayar - Diskon
- Pada Saat Pengisian Cash Uang Kembali Akan Muncul Secara Otomatis
Uang Kembali = Cash - Total Bayar
Buatlah component-component dengan properties sebagai berikut:
- Form
Name : Form1
Caption : disesuaikan
- Label
Name : Label1
Caption : STRUK BELANJA
Name : Label2
Caption : Kode Barang
Name : Label3
Caption : Nama Barang
Name : Label4
Caption : Jumlah
Name : Label5
Caption : Harga Satuan
Name : Label6
Caption : Bayar
Name : Label7
Caption : Diskon
Name : Label8
Caption : Total Bayar
Name : Label9
Caption : Cash
Name : Label10
Caption : Uang Kembali
Name : Label11
Caption : dikosongkan
Name : Label12
Caption : %
- TextBox
Name :Text1
Text : dikosongkan
Name : Text2
Text : dikosongkan
Name : Text3
Text : dikosongkan
Name : Text4
Text : dikosongkan
Name : Text5
Text : dikosongkan
Name : Text6
Text : dikosongkan
Name : Text7
Text : dikosongkan
Name : Text8
Text : dikosongkan- CommandButton
Name : Command1
Caption : &Hitung
Name : Command2
Caption : &Bersihkan
Name :Command3
Caption : &Keluar
Listing Programnya:(tinggal di copy paste kan ke editor code)
[general]
Dim bayar As Double
[Command1]
Private Sub Command1_Click()
bayar = Text3.Text * Text4.Text
Label11 = bayar
Command2.Enabled = True
Command3.Enabled = True
If (bayar >= 500000) Then
Text5.Text = 10
ElseIf (bayar >= 250000) Then
Text5.Text = 5
ElseIf (bayar >= 100000) Then
Text5.Text = 2
Else
Text5.Text = "0"
End If
Text6.Text = bayar - (bayar * Text5.Text / 100)
End Sub
[Command2]
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Label11.Caption = ""
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End Sub
[Command3]
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End Sub
[Text4]
Private Sub Text4_Click()
Command1.Enabled = True
End Sub
[Text7]
Private Sub Text7_Change()
If Text7.Text <> "" Then
Text8.Text = Text7.Text - Text6.Text
Else
Text8.Text = ""
End If
End Sub
[Text3]
Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox ("Kesalahan: Hanya untuk angka")
End Select
End Sub
[Text4]
Private Sub Text4_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox ("Kesalahan: Hanya untuk angka")
End Select
End Sub
[Text7]
Private Sub Text7_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox ("Kesalahan: Hanya untuk angka")
End Select
End Sub
Cara Kerja:
- Masukan kode dan nama barang secara manual
- Masukan jumlah dan harga satuan
- Kemudain klik hitung
- Setelah itu masukan jumlah cash, nanti uang kembali akan secara otomatis menghitung
- Selamat mencoba
