MEMBUAT STRUK BELANJA MENGGUNAKAN VB 6.0

Assalamu'alaikum Wr Wb.

        Baiklah pada kesempatan ini saya akan berbagi sedikit pengalaman tetang pembuatan struk belanja menggunakan VB 6.0.

sebelum kita membahas coding alangkah baiknya jika kita tau apasih itu Visual Basic (VB)?

        Visual Basic adalah salah satu development tools untuk membangun aplikasi dalam lingkungan windows. Dengan pendekatan visual digunakan untuk merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan bahasa basic yang cenderung mudah dipelajari. Umumnya pembuatan suatu aplikasi dimulai dari perancangan dan pembuatan user interface, mengatur property dari tiap objek yang digunakan, kemudian melakukan pengkodean.

         IDE (Integrated Development Environtment) Visual Basic merupakan Lingkungan Pengembangan Terpadu bagi programmer dalam mengembangkan aplikasinya, karena dengan menggunakan IDE programmer dapat membuat User Interface, melakukan koding, melakukan testing dan debugging, kemudian mengkompilasi program menjadi executable.
       Visual Basic merupakan bahasa pemrograman tercepat dan termudah untuk membuat suatu aplikasi dalam Micosoft Windows.
       Dalam pengembangan aplikasi, Visual Basic menggunakan pendekatan Visual untuk  merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa Basic yang cenderung mudah dipelajari. Visual Basic telah menjadi tools yang terkenal bagi para pemula maupun para developer. 

setelah kita mengenal apa itu VB sekarang kita akan membahas cara membuat program  struk belanja menggunakan VB.

Langkah pertama seperti biasa kita buka VB yang mana saya menggunakan VB 6.0

setelah itu kita buat modelnya kira-kira seperti gambar dibawah ini

SOURCE CODE

-------------------------------------------------------------------------------------

Private Sub Command1_Click()

Label7 = Val(Text3) * Val(Text4)

Label9 = Val(Text5) - Val(Label7)

If (Text1 = "") Then

MsgBox "Maaf Kode Barang Tidak Lengkap  ", vbQuestion, "Pesan Luqi hakim"

End If

If (Text2 = "") Then

MsgBox "Nama Barang Harap Diisi ", vbQuestion, "Pesan Luqi hakim"

End If

If (Text3 = "") Then

MsgBox "Maaf Jumlah barang Tidak Lengkap ", vbQuestion, "Pesan Luqi hakim"

End If

If (Text4 = "") Then

MsgBox "Maaf Harga Satuan Harap Diisi ", vbQuestion, "Pesan Luqi hakim"

End If

If (Text5 = "") Then

MsgBox "Anda Belum Memasukkan Nominal  ", vbQuestion, "Pesan Luqi hakim"

End If

End Sub

--------------------------------------------------------------------

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Label7 = ""

Label9 = ""

End Sub

--------------------------------------------------------------------

Private Sub Command3_Click()

Unload Me

MsgBox " Anda Yakin Mau Keluar ", vbQuestion, "Pesan Luqi hakim"

End Sub

--------------------------------------------------------------------

Private Sub Timer1_Timer()

Label12.ForeColor = RGB(Rnd * 255, _

Rnd * 255, Rnd * 255)

End Sub

Private Sub Timer2_Timer()

Label13.ForeColor = RGB(Rnd * 255, _

Rnd * 255, Rnd * 255)

End Sub

--------------------------------------------------------------------

Private Sub Timer3_Timer()

If (Label14.Left + Label14.Width) <= 0 Then

Label14.Left = Me.Width

End If

Label14.Left = Label14.Left - 25

End Sub

--------------------------------------------------------------------

Private Sub Form_Load()

Label12.FontSize = 15

Label13.FontSize = 15

End Sub

 hasilnya kira-kira seperti ini

demikian yang dapat saya sampaikan apabila ada yang kurang mohon dipelajari sendiri !!!!