Kamis, 25 Oktober 2012

Membuat Program Sederhana Menggunakan VB 6.0 (Tugas Kuliah)

Media Infonetku- Apa kabar semua sahabat media infonetku, kali ini berhubung karena ada tugas dari dosen  untuk menampilkan coding latihan yang sudah saya kerjakan di kampus, yaitu sebuah program sederhana menggunakan Visual Basic 6.0, yaitu program Membuat Program Cafe.. Saya berterimakasih sekali kepada bapak dosen yang memberikan tugas seperti ni, karena membuat semngat saya untuk posting di blog ini semakin bertambah terus...

Membuat Program Cafe



Coding Program...

















































































Walaupun ini berupa tugas dari dosen saya, buat sobat yang berminat untuk membuat program ini silahkan aja yah, untuk membantu sobat berikut ini coding nya saya berikan yang bukan berupa image atau gambar..

Private Sub cmdbersih_Click()
menu.Text = ""
paket.Text = ""
listmenu.Clear
deli.Value = False
ditempat.Value = False
harga1.Text = ""
jumbel.Text = ""
totbayar.Text = ""
uangbayar.Text = ""
uangkembali.Text = ""
harga2.Text = ""

End Sub



Private Sub cmdkeluar_Click()
a = MsgBox("Yakin mau keluar?", vbQuestion + vbYesNo, "Pesan")
If a = vbYes Then
Unload Me
End If
End Sub


Private Sub Form_Load()
menu.AddItem ("Sarapan Pagi")
menu.AddItem ("Makan Siang")
paket.AddItem ("Paket 1")
paket.AddItem ("Paket 2")
End Sub


Private Sub deli_Click()
harga2 = 5000
jumbel.SetFocus
End Sub


Private Sub ditempat_Click()
harga2 = 0
jumbel.SetFocus
End Sub

Private Sub paket_Click()
If menu.Text = "Sarapan Pagi" Then
listmenu.Clear
If paket.Text = "Paket 1" Then
listmenu.AddItem ("Nasi Uduk")
listmenu.AddItem ("Telur")
listmenu.AddItem ("Tempe Orek")
harga1 = 5000
Else
listmenu.AddItem ("Nasi Goreng")
listmenu.AddItem ("Telur Mata Sapi")
listmenu.AddItem ("Tempe Goreng")
harga1 = 7000
End If
Else
listmenu.Clear
If paket.Text = "Paket 1" Then
listmenu.AddItem ("Nasi Putih")
listmenu.AddItem ("Ayam Bakar")
listmenu.AddItem ("Lalapan")
harga1 = 8000

Else
listmenu.Clear
listmenu.AddItem ("Nasi Putih")
listmenu.AddItem ("Rendang")
listmenu.AddItem ("Sayur")
listmenu.AddItem ("Sambal Ijo")
harga1 = 10000
End If
End If
End Sub



Private Sub jumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
totbayar.Text = Val(jumbel.Text * harga1.Text) + Val(harga2.Text)
uangbayar.SetFocus
End If
End Sub

Private Sub uangbayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
uangkembali.Text = Val(uangbayar.Text) - Val(totbayar.Text)
If Val(uangbayar.Text) < Val(totbayar.Text) Then 

uangkembali = "" 
a = MsgBox("Salah, Uang Bayar Lebih Kecil dari Total Bayar", vbQuestion + vbOKOnly, "Pesan") 
If a = vbOK Then
Unload Me
End If
End If
End If
End Sub

Semoga tugas yang saya posting di blog kesayangan saya ini mendapat nilai yang lumayan yah..Amin,
Dan buat sobat Media Infonetku semoga membantu yah, dan kita bisa sama-sama belajar.
Salam Blogger.

11 komentar

PASANG IKLAN Jual / Beli, pasti cepat laku. Sekali ...klik, langsung tayang - GRATIS 100% # Kunjungi : www.topiklanku.tk

gann coding nya masih ada yang eror udah ane coba gmana ini pencerahanya

Nico Pachelbel: ada bagian yang tidak boleh hanya di copas, terutama ComboBox, pastikan gan semua namanya benar

Terima Kasih Pak Atas Tutorialnya ..
Sangat Membantu ..

bisa diperjelas gk gan dengan image form nya ?

saya siswa RPL ( SMK ) masih tahap awal pembelajaran VB6

Mksh kawan atas info'x ..
sangat membantu sekali ..

Itu pake form kah ?

maaf mas dmna ya alamat nya bisa kasih tau gag?via email.ini jasa pembuatan program kan?blz.


EmoticonEmoticon