Nah, gue mau berbagi sedikit ilmu gue nih guys tentang pemrograman, cocok banget buat lo semua yang kuliah di jurusan programming kaya gue ini. oke, di entri gue kali ini gue bakal ngasih tau gimana cara membuat suatu program sederhana dengan menggunakan VISUAL BASIC 6.0.
Program yang gue buat adalah salah satu contoh program penjualan sebuah kafe atau semacam aplikasi kasir pada suatu kafe. dan aplikasi ini gue namain "Godit's Cafe", anggap saja itu nama kafe nya. hehe.
nih contoh tampilan aplikasi nya:
yang lo butuhin buat bikin program ini adalah yang pastinya software VISUAL BASIC 6.0 yang udah lo install di PC lo tentunya. kalo belom ada, nah lo download aje disini: http://kolombloggratis.blogspot.com/2011/04/download-sofrware-microsoft-visual.html
kalo udah, lo buka software nya, pilih standard.exe nah mulai deh lo desain sesuai gambar.
icon2 yang lo butuhin disini adalah: 11 label, 2 combo box, 1 list box, 7 text box, 2 frame, 2 option, 2 check box, dan 2 command button.
lo desain deh layout nya, tulisan nya, sesuai dengan selera lo, bebas gan, ga harus ngikutin punya gue. tapi kalo mau niru juga gapapa kok biar gampang. hehe
nah kalo udah lo desain semua nya, lo masukin deh listing berikut ke kotak listing:
If Check1 = 1 And Check2 = 1 Then
Text2 = 3000
Else
If Check1 = 1 And Check2 = 0 Then
Text2 = 2500
Else
If Check1 = 0 And Check2 = 1 Then
Text2 = 500
Else
Text2 = 0
End If
End If
End If
End Sub
Private Sub Check2_Click()
If Check2 = 1 And Check1 = 1 Then
Text2 = 3000
Else
If Check2 = 1 And Check1 = 0 Then
Text2 = 500
Else
If Check2 = 0 And Check1 = 1 Then
Text2 = 2500
Else
Text2 = 0
End If
End If
End If
End Sub
Private Sub Combo2_Click()
If Combo1.Text = "Sarapan Pagi" Then
Select Case (Combo2.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
Text1 = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Goreng")
Text1 = 7000
End Select
Else
Select Case (Combo2.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
Text1 = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayuran")
List1.AddItem ("Sambal Ijo")
Text1 = 10000
End Select
End If
End Sub
Private Sub Command1_Click()
Me.Combo1.Clear
Me.Combo2.Clear
Me.List1.Clear
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""
Me.Text5.Text = ""
Me.Text6.Text = ""
Me.Text7.Text = ""
Me.Option1 = False
Me.Option2 = False
Me.Check1 = False
Me.Check2 = False
Combo1.AddItem ("Sarapan Pagi")
Combo1.AddItem ("Makan Siang")
Combo2.AddItem ("Paket 1")
Combo2.AddItem ("Paket 2")
End Sub
Private Sub Command2_Click()
X = MsgBox("ciyus mau keluar ?", vbQuestion + vbOKCancel, "Informasi")
If X = vbOK Then
End
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem ("Sarapan Pagi")
Combo1.AddItem ("Makan Siang")
Combo2.AddItem ("Paket 1")
Combo2.AddItem ("Paket 2")
End Sub
Private Sub Option1_Click()
Text7 = 5000
Option2 = False
End Sub
Private Sub Option2_Click()
Text7 = 0
Option1 = False
End Sub
Private Sub Text3_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text4 = Val(Text3) * (Val(Text1) + Val(Text2) + Val(Text7))
Text5.SetFocus
End If
End Sub
Private Sub Text5_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text6 = Val(Text5) - Val(Text4)
End If
End Sub
kalo udah selesai, tinggal di jalanin deh program nya dengan pilih menu 'run' lalu pilih 'start' / F5
nah, lo jalanin deh program nya, kalo error, berarti ada kesalahan tuh, coba di cek lagi.
nah, lo jalanin deh program nya, kalo error, berarti ada kesalahan tuh, coba di cek lagi.
selamat mencoba, salam programmer Indonesia :)
ada baik nya follow juga twitter gue @godhitttt :)
bisa minta yg udah jadinya ga?
BalasHapuskirim via email aja bro
mudzakir_biwir@ymail.com
makasih :D
Bisa minta yang sudah jadi gak bro
BalasHapusemail ke marsoadiwibowo@gmail.com
thanks so much
Gan, salahnya kok malah di Private Sub nya ya?
BalasHapusmohon bantuan gan... ato mungkin sintaks VB 11.0 Beda kali yak??
Mohon cepat dibales ya....
BalasHapusbermanfaat, mantabbb lancar jaya gan :D
BalasHapusMantab mas bro tapi kalo bisa dijelasin nama"nya yg mana hehe biat ga bingung masukin codenya. Makasiiih
BalasHapusgan mau nanya nih, ko jumlah membeli, total membayar, uang membayar uang kembali nya gak berpungsi sih..?
BalasHapusjumlah beli, total bayar, uang bayar & kembali k0k nggak muncul secara otomatis ?
BalasHapusbermanfaat gan thnak's
BalasHapusgan kalo boleh minta yang sudah jadinya dong :-)
kirim via email
irfansodikin8@gmail.com
keren gan
BalasHapusminta yang udah jadi nya dong gan.. thx gan.
kirim via email ya: dwicahyo_m@yahoo.com
Gan bisa kirim ke email saya, programnya sudah bagus.
BalasHapusakhmad.selmy@gmail.com
label jumlah, total, bayar, kembalian ga berfungsi gan. tulung benerin dung hehe~
BalasHapusbisa minta yg udah jadinya ga?
BalasHapuskirim via email
alam_253@yahoo.co.id
makasih :D
iya jumlah beli, total, bayar sama kembaliannya kok nggak berfungsi ya ? mohon bantuannya jg tmen" yg sudah coment kali aja sudah dibalas sm yang punya :)
BalasHapuspelit ilmu
BalasHapustak satupun di tanggapi
Ane Rasa bukan pelit bro,, emg dianya juga nggak tau, asal nyopas aja sana sini :v kalo pelit jadi apa gunanya elu share ?
BalasHapusbisa minta yg jadinya ga bro
BalasHapuskirim via email :faisalblacklist@gmail.com
makasih
thank infonya
BalasHapusitu gunanya text 3 sampai text 6 buat apa, soalnya dikodingnya kosong gak ada rumusnya atau kodenya
BalasHapusitu rumus dibawah udah ada tapi kok gak keluar ya
BalasHapusgan bisa minta aplikasinya dalam bentuk aplikasi vb.bet
BalasHapusmakasih....
Gan boleh minta vb nya yang sudah jadi dalam bentuk rar . kirim via email gan dimasadong123@gmail.com terimaksih gan
BalasHapus