Sabtu, 23 Juli 2011

Membuat Program Toko Alat Tulis Sederhana (Visual Basic)

Pada kesempatan kali ini kita akan membuat sebuah program sederhana yang digunakan di toko alat tulis ketentuannya sebagai berikut:

Menghitung Harga Pembelian Toko Alat Tulis sederhana dengan spesifikasi sebagai berikut :
Harga Bolpoin : Rp. 3.500,-
Harga Buku Tulis : Rp. 2.000,-
Harga Pensil : Rp. 1500,-
Dengan memasukkan jumlah banyaknya bolpoin, Buku Tulis dan Pensil yang dibeli.
Hitung total pembelian dengan tampilan sebagai berikut.


kita bisa merancang tampilan sebagus mungkin contohnya seperti ini :


Sourcode progamnya sebagai berikut :

Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
MsgBox "Silakan Isi Dulu Nama Pengguna dan Kata Kunci", vbCritical
End If
Dim a, b, c, d, e, f, g, h As Single
a = CSng(Text1.Text)
d = a * 3500
Text4.Text = CStr(d)
b = CSng(Text2.Text)
e = b * 2000
Text5.Text = CStr(e)
c = CSng(Text3.Text)
f = c * 1500
Text6.Text = CStr(f)
g = d + e + f
Text7.Text = CStr(g)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub

Private Sub Command3_Click()
a = MsgBox("Keluar Sekarang?", vbQuestion + vbYesNo, "Konfirmasi")
If a = vbYes Then
Unload Me
ElseIf a = vbNo Then
MsgBox "Batal Keluar"
End If
End Sub


Private Sub mcreator_Click()
Form5.Show
End Sub

Private Sub mkeluar_Click()
Dim a As Integer
a = MsgBox("Keluar Sekarang?", vbQuestion + vbYesNo, "Konfirmasi")
If a = vbYes Then
Unload Me
ElseIf a = vbNo Then
MsgBox "Batal Keluar"
End If
End Sub

Private Sub mkembali_Click()
Unload Me
Form1.Show
End Sub

Private Sub mketerangan_Click()
Form7.Show
End Sub

project dan program jadinya bisa di download disini
Materi Pembelajaran visual basic lengkap lainnya silahkan pilih dibawah ini :
1. Belajar Visual Basic Dengan Cepat dan Mudah
2. Pengenalan Visual Basic
3. Menggunakan Even dan Property(Visual Basic)
4. Menggunakan Even dan Method(Visual Basic)
5. Penggunaan Data dan Variabe(Visual Basic)
6. Penggunaan Operator (Visual Basic)
7. Membuat Program Kalkulator (Visual Basic)
8. Membuat Program Toko Alat Tulis Sederhana (Visual Basic)

0 komentar:

Poskan Komentar