Langkah – langkah membuat program kasir sederhana

1. Pertama kita membuka visual studio. Net 2003
2. kedua kita buat
a. 5 buah label
b. 2 buah Combobox
c. 1 buah textbox
d. 1 buah button
Bentuk Form Kasir sederhana


3. Bentuk coding dari Aplikasi Kasir Sederhana
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With cbo_makan
.Items.Add("Nasi Pecel")
.Items.Add("Nasi Rawon")
.Items.Add("Teh Hangat")
.Items.Add("Es Degan")
End With
With cbo_harga
.Items.Add("5000")
.Items.Add("10000")
.Items.Add("5000")
End With
End Sub

Private Sub cbo_makan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_makan.SelectedIndexChanged
cbo_harga.Focus()
End Sub

Private Sub cbo_harga_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_harga.SelectedIndexChanged
txt_jml.Focus()
End Sub

Private Sub btn_pesan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_pesan.Click
Dim Total As Single
Total = cbo_harga.Text * txt_jml.Text
lbl_total.Text = Format(Total, "0,#")
End Sub
End Class

4. Form Hasil