TUTORIAL MEMBUAT PROGRAM KASIR DENGAN VISUAL BASIC oleh Dian Sasmita ( Info Prakerind SIC )

Hai  nama saya Dian Sasmita atau lebih akrab dipanggil Dian saja. Kelahiran Wonosobo, 13 September 1998. Anak pertama dari 2 bersaudara. Hobi membaca novel , menyanyi (walau tak besuara merdu) dan menonton film. Makanan kesukaan saya Sayur Sop, minuman kesukaan lemon tea. Saya bersekolah disebuah sekolah kejuruan di sebuah kota kecil yang akrab disebut Purwokerto. Saat ini aku sedang menjalani program sekolah yang disebut Prakerin di CV. SIC Multimedia Jogja. 

Mau tahu bagaimana cara membuat program kasir yang mudah? Saya disini akan berbagi bagaimana cara membuat program kasir menggunakan VB ( VISUAL BASIC ). 

1. Buatlah desain seperti di bawah ini

2. Atur propertiesnya seperti ini
 

3. Menuliskan source code sesuai dengan fungsinya masing-masing

Ø  Klik 2x Timer1 dan copas kode di bawah :

Private Sub Timer1_Timer()

  lblTanggal.Caption = Format(Date, "dd mmmm yyyy")

  lblJam.Caption = Format(Time, "hh:mm:ss")

End Sub

Ø  Klik 2x txtId.text dan isi kode berikut :

Private Sub txtId_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If txtId.Text = 101 Then

txtMenu.Text = "Sate Kambing"

txtSatuan.Text = "Porsi"

txtHarga.Text = 15000

ElseIf txtId.Text = 102 Then

txtMenu.Text = "Gulai"
txtSatuan.Text = "Porsi"
txtHarga.Text = 10000

              ElseIf txtId.Text = 103 Then

                    txtMenu.Text = "Soto Ayam"

                    txtSatuan.Text = "Porsi"

                    txtHarga.Text = 17000

              ElseIf txtId.Text = 104 Then

txtMenu.Text = "Coto Makasar"

txtSatuan.Text = "Porsi"

txtHarga.Text = 20000

              Else

MsgBox ("Menu yang dipesan belum ada...!")

End If

txtPesanan.SetFocus

 End If

         End Sub

Ø  Klik 2x txtPesanan.text dan isi kode seperti di bawah

         Private Sub txtPesanan_Change()

         txtTotal.Text = Val(txtHarga.Text) * Val(txtPesanan.Text)

         End Sub

Ø  Klik 2x txtBayar.text dan copas source code berikut :

Private Sub txtBayar_Change()

txtKembali.Text = Val(txtBayar.Text) - Val(txtTotal.Text)

End Sub

Ø  Klik 2x cmdBaru, isi dengan kode berikut

Private Sub cmdBaru_Click()

txtId.Text = ""

txtMenu.Text = ""

txtSatuan.Text = ""

txtHarga.Text = ""

txtPesanan.Text = ""

txtTotal.Text = ""

txtBayar.Text = ""

txtKembali.Text = ""

txtId.SetFocus
End Sub

Ø  Klik 2x cmdTutup, isi dengan kode berikut :

Private Sub cmdTutup_Click()

Unload Me

End Sub

4. Coba running program , hasilnya seperti ini

 Mau membuat program-program dekstop lainya? atau mau membuat game android, game 2D, game 3D. konsultasi dulu saja ke 081804075713. atau buka di www.klicsic.com. 

Info prakerind jurusan multimedia, info prakerind jurusan animasi, info prakerind jurusan RPL, info prakerind jurusan TKJ. klik saja DI SINI.