Kalkulasi data dengan vb

Visual basic ( vb )  merupakan bahasa pemograman yang bisa disebut wajib, ya wajib mengerti, wajib ada, wajib bisa dll. Karena memang kita belajar jadi programer dan semua tehnologi dibangun dari sekumpulan code program. Jadi jika anda alergi dengan code program ya belajar saja memasak..he..he..he. tetapiiiiiiiii mereka para programmer pun mengerti kalau kita mumet sama code2 program jadi sekarang banyak aplikasi yang sudah di otak atik berorentasi pada obyek..artinya urusan code program menjadi tidak banyak kok, Cuma sebatas kebutuhan programmer amatir seperti kita…dan kalau kita sedikit bisa bahasa pemograman, kita bisa dianggap agak pinter computer sama temen2 he…he…he asyikkkan ?!    

yuk, sekarang kita coba otak atik bahasa program.

Pertama kita panggil form entry barang yang telah kita buat sebelumnya, mungkin sudah anda rapikan sepeti ini.

Selanjutnya  kita masuk pada design view. Click tombol simpan, pada property sheet click event, kemudian pada on enter pilih event procedure

Selanjutnya click pada tanda … maka anda akan masuk lembar kerja microsoft visual basic kemudian ketik kode programnya seperti ini :

^{Private Sub cmdsimpan_Enter()}

^{'jika kode barang belum diisi maka semua data gagal diinput}

^{If IsNull(Me.kode_barang) Then}

^{Me.nama_barang.Value = Me.kode_barang.Value}

^{Me.satuan.Value = Me.kode_barang.Value}

^{Me.harga_beli.Value = Me.kode_barang.Value}

^{Me.harga_jual.Value = Me.kode_barang.Value}

^{Me.laba_item.Value = Me.kode_barang.Value}

^{Me.persen.Value = Me.kode_barang.Value}

^{Me.kategori.Value = Me.kode_barang.Value}

^{MsgBox " kode barang belum diisi ", vbInformation, "admin tokoku"}

^{Me.kode_barang.SetFocus}

   

    ^{ElseIf IsNull(Me.nama_barang) Then}

    ^{MsgBox " nama barang belum diisi ", vbInformation, "admin tokoku"}

    ^{Me.nama_barang.SetFocus}

        ^{ElseIf IsNull(Me.satuan) Then}

        ^{MsgBox " satuan belum diisi ", vbInformation, "admin tokoku"}

        ^{Me.satuan.SetFocus}

            ^{ElseIf IsNull(Me.harga_beli) Then}

            ^{Me.harga_jual.Value = Me.harga_beli.Value}

            ^{Me.laba_item.Value = Me.harga_jual.Value}

            ^{Me.persen.Value = Me.laba_item.Value}

            ^{MsgBox " harga beli belum diisi ", vbInformation, "admin tokoku"}

            ^{Me.harga_beli.SetFocus}

                ^{ElseIf IsNull(Me.harga_jual) Then}

                ^{MsgBox " harga jual belum diisi ", vbInformation, "admin tokoku"}

                ^{Me.harga_jual.SetFocus}

                ^{ElseIf IsNull(Me.kategori) Then}

                ^{MsgBox " kategori belum diisi ", vbInformation, "admin tokoku"}

                ^{Me.kategori.SetFocus}

^{End If}

^{End Sub}

Jika sudah tambahkan  juga kode program seperti ini dibawahnya :

^{Private Sub harga_jual_afterupdate()}

                                                    

^{'menghitung laba dan persen}

^{Me.laba_item.Value = Me.harga_jual.Value - Me.harga_beli.Value}

^{Me.persen.Value = (Me.laba_item.Value / Me.harga_beli.Value) * 100}

^{End Sub}

Rubah kode program untuk tombol close dengan cara click event pada on click ganti menjadi event procedure kemudian ketik kode programnya seperti ini :

^{Private Sub Cmdclose_Click()}

^DoCmd.Close

^{End Sub}         

Nah, sekarang kita coba isi semua data barang sebanyak-banyaknya kemudian simpan, sampai disini kultum kita, pada artikel selanjutnya akan kita bahas pencarian barang melalui combo. Jadi ikuti terus kelanjutan artikelnya biar pinter gitu lo !?