TUTORIAL MEMBUAT
PROGRAM KASIR PADA VISUAL BASIC 2010
Langkah-Langkah:
1. Membuka Aplikasi Visual Basic 2011
2. Klik Windows Form Application maka akan mucul tampilan seperti
berikut
3. Menampilkan Toolbox yang akan digunakan Untuk memunculkan toolbox,
bisa dimunculkan dari menu bar-view-other
windows-tollbox
A. MEMBUAT
DESIGN FORM
1. Bentuk Form seperti di bawah ini dengan menggunakan komponen
toolbox di atas
3. Mengganti style pada toolbox (font,background toolbox), klik toolbox yang hendak diganti stylenya,pilih properties-font(huruf)-)-backcolor(background toolbox)- forecolor(warna tulisan toolbox).
4. (Sebagai Tambahan) Untuk membuat agar gambar dapat muncul yaitu dengan klik picture box pada toolbox-import gambar yang diinginkan
(dengan cara properties – Backgroundimage-local resource-import-ok)
5. Pada properties picture box, visible = false , agar gambar tidak muncul
kembali
A.
LISTING PROGRAM
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
With ComboBox1
.Items.Add("Buku Tulis")
.Items.Add("Buku Gambar")
.Items.Add("Pensil")
.Items.Add("Penggaris")
End With
End Sub
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If ComboBox1.Text = ("Buku
Tulis") Then
TextBox1.Text = (3000)
ElseIf ComboBox1.Text = ("Buku
Gambar") Then
TextBox1.Text = (2000)
ElseIf ComboBox1.Text = ("Pensil")
Then
TextBox1.Text = (1500)
ElseIf
ComboBox1.Text = ("Penggaris") Then
TextBox1.Text = (500)
End If
If ComboBox1.Text = ("Buku
Tulis") Then
PictureBox1.Show()
ElseIf ComboBox1.Text = ("Buku
Gambar") Then
PictureBox2.Show()
ElseIf ComboBox1.Text = ("Pensil")
Then
PictureBox3.Show()
ElseIf ComboBox1.Text = ("Penggaris")
Then
PictureBox4.Show()
End If
End Sub
Private Sub
TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox2.TextChanged
If TextBox2.Text >= (0) Then
TextBox3.Text = (0)
If TextBox2.Text >= (10) Then
TextBox3.Text = (5)
If TextBox2.Text >= (20) Then
TextBox3.Text = (10)
TextBox4.Text = (TextBox1.Text *
TextBox2.Text) - (TextBox3.Text * TextBox1.Text / 100)
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
If TextBox5.Text = ""
Then
MessageBox.Show(TextBox5, "Maaf
Anda Belum Memasukkan Uang Bayar")
ElseIf TextBox5.Text < TextBox4.Text Then
MessageBox.Show(TextBox5, "Maaf
Uang Anda Kurang")
ElseIf TextBox5.Text > TextBox4.Text Then
TextBox6.Text = TextBox5.Text - TextBox4.Text
End If
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
ComboBox1.Text = Nothing
TextBox1.Text = Nothing
TextBox2.Text = Nothing
TextBox3.Text = Nothing
TextBox4.Text = Nothing
TextBox5.Text = Nothing
TextBox6.Text = Nothing
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Close()
End Sub
End Class
.jpg)
