Belajar VB bag,1

Belajar VB bag,1

  April 08, 2010    vre

---

Oke kita mulai membuat program struk belanja:

Ini print screen nya:

Urutan proses:

1. Pertama Form Dipanggil,Tombol Hitung,Bersih,Keluar tidak Aktif
2. Kursor Terfokus Pada Kode saat program dijalankan
3. Saat Mengisi Harga Satuan,tombol hitung aktif,jika ditekan maka hasil perhitungan
   akan muncul pada label bayar ( Bayar = Jumlah Beli * Harga Satuan )
4. Saat Itu Tombol Bersihkan,Keluar bisa diakses
5. Jika Bayar >=500000, maka diskon 10 %
   Jika Bayar>=250000, maka diskon 5 %
   Jika Bayar>=100000, maka diskon 2 %
6. Total Bayar = Bayar - Diskon
7. 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