MEMBUAT
APLIKASI KASIR
Langkah pengerjaan :
1. Buat
project baru ditempatkan di folder yang anda inginkan
2. Rancang
form sebagai berikut
Atur propertis masing masing object
seperti pada table berikut :
|
Object
|
Properties
|
Value
|
|
Form
|
Text
|
Aplikasi Kasir
|
|
Texbox1
|
Name
|
Txtnmbarang
|
|
Texbox2
|
Name
|
Txthrgbarang
|
|
Texbox3
|
Name
|
Txtjmlbarang
|
|
Texbox4
|
Name
|
txtttlbarang
|
|
Button1
|
Name
|
Btok
|
|
Button2
|
Name
|
Btclear
|
|
Button3
|
Name
|
Btexit
|
Double klik pada tmbol Ok kemudian ketik program berikut
Private Sub btok_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles btok.Click
Dim hasil As Double
Dim harga As Double
Dim jumlah As Double
harga
= txthrgbarang.Text
jumlah = txtjmlbarang.Text
hasil
= harga * jumlah
txttlbarang.Text = hasil
End Sub
Double klik pada tombol clear kemudian ketik program berikut
Private Sub btclear_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles btclear.Click
Txtnmbarang.Clear()
txthrgbarang.Clear()
txtjmlbarang.ResetText()
txttlbarang.Text = ""
Txtnmbarang.Focus()
End Sub
Double klik pada tombol exit kemudian ketik program berikut
Private Sub btexit_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles btexit.Click
If MsgBox("Apakah
Anda Ingin Keluar", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
End If
Me.Close()
End Sub
