FINAL1 MEMBUAT PROGRAM KASIR DENGAN VB2010

Program yang akan dibuat di dalam program visual basic 2010 ini adalah sebuah program Kasir Tujuan pembuatan program ini adalah untuk memudahkan dalam perhitungan barang dalam jumlah banyak ,menghindari antrian panjang , dan menghemat waktu saat berbelanja.

Langkah-langkah pembuatan Program kasir adalah sebagai berikut :

1. Bukalah program mircrosoft visual basic 2010 express
2. Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project
   
3. . windows forms applications pada menu tab seperti gambar di bawah ini.Lalu tentukan name dan lokasi penyimpanan project yang ingin diinginkan,lalu klik OK
   
   
   
   
   
4. Setelah itu, akan muncul sebuah form yang berjudul form1 . Kita dapat memberi nama form tersebut dengan mengubah nama pada properties nya, dalam hal ini nama form1 diganti dengan nama “Soal 1”
   
5. Setelah itu kita tambahkan komponen-komponen yang diperlukan. kita dapat menambahkan label , textbox ,button dan  combobox lalu drag komponen yang digunakan kedalam kotak form.
   
   
6. Aturlah dan design letak sesuai yang diinginka di dalam kotak Form “Soal 1 ”
   
7. Klik Double pada  button1,button2,dan button3 lalu mulai membuat listing programPublic Class Form1
       Dim gula, garam, ajinamoto, jumlah, total, uang, balik As Double
   
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
   
           jumlah = Val(TextBox1.Text)
   
   
           If ComboBox1.Text = "gula" Then
               gula = 7000
               total = gula * jumlah
               TextBox2.Text = total
           ElseIf ComboBox1.Text = " garam " Then
               garam = 8000
               total = garam * jumlah
               TextBox2.Text = total
           ElseIf ComboBox1.Text = " ajinamoto " Then
               garam = 6000
               total = ajinamoto * jumlah
               TextBox2.Text = total
           Else
               End
   
   
           End If
       End Sub
   
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           uang = Val(TextBox3.Text)
           balik = uang - total
           TextBox4.Text = balik
       End Sub
   
   
       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           End
       End Sub
   
   
       Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
   
   
       End Sub
   End Class
8. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / tekan F5 .
   
9. Jika kita mengklik button "Clear" maka program akan selesai dan ditutup secara otomatis

SELAMAT MENCOBA, TERIMA KASIH