Guys Ane kembali bersama materi baru,kali ini ane bakalan share sama ente-ente semua guys masih seputar VB 2010 dong pastinya,ane bakalan share gmna caranya buat program menu makanan dan minuman .. program ini bagus sih buat yang punya RM gitu .. tapi ini menurut ane sih..
okeh kita langsung aje yuk
Ente buka dulu deh VB 2010 nya ..
Kalo Tampilannya Udah kayak Gambar di atas .. ente buatin deh design x dulu,buatkan komponen-komponen yang di perlukan yang terdapat dalam toolboxnya kalo program yang ane buat sekarang ane pakek komponen groupbox 6,checkbox 6,label 13,textbox 1,Button 1,kayak di bawah ini guys :
Setelah ente selesai membuatkan komponen-komponennya kita mulai kodingannya dulu ya .. menggantikan nama form melalui koding.double klik pada form kemudian masukkan koding Kodingannya tetep sama kok guys :
Me.Text="RM Puyyu Rasa"
Kodingan Groupbox :
Groupbox1.Text="Makanan"
GroupBox1.Text = "Daftar Makanan"
GroupBox2.Text = "Yang Sudah di
Pilih"
GroupBox3.Text = " Daftar Harga"
GroupBox4.Text = "Minuman"
GroupBox5.Text = "Yang Sudah di
Pilih"
GroupBox6.Text = "Daftar Harga"
Kemudian Untuk Checkboxnya :
CheckBox2.Text = "Mie
Ayam Spesial"
CheckBox3.Text = "Soto Ayam"
CheckBox4.Text = "Jus Durian"
CheckBox5.Text = "Es Teh"
CheckBox6.Text = "Es Capocino
cincao"
Kemudian Untuk Labelnya di kosongkan saja tinggal di tuliskan
Label1.Text = " "
(Begitu seterusnya samapai label 12 dan label 13 taruhkan "Total Harga")
Dan Buttonnya Gantikan Nama dengan "Jumlah Harga" ( Button1.Text = "Jumlah Harga")Maka Hasilnya akan seperti ini :
Setelah nama dari masing-masing komponen tergantikan..maka kita akan memulai kodingan pada checkbox.Agar checkbox tersebut dapat di checked dan mengeluarkan daftar harga dari menu yang telah di pilih seperti di bawah ini :
Double klik pada Checkbox kemudian buatkan kodingannya :
If CheckBox1.Checked = True
Then
Label1.Text = CheckBox1.Text
Label4.Text = "14000"
Apabila ingin Menghilangkan checked yang telah di check,maka
ElseIf CheckBox1.Checked = False
Then
Label1.Text = ""
Label4.Text = ""
End If
Dan hasil Akhir akan seperti ini :
Kemudian Guys kita akan membuat Kodingan Dari Total harga .
Double Klik pada Textbox1,kemudian ketikkan :
TextBox1.Text = Val(Label4.Text) +
Val(Label5.Text) + Val(Label6.Text) + Val(Label10.Text) + Val(Label11.Text) +
Val(Label12.Text)
Kemudian Run,Maka Hasilnya akan seperti ini :
Kemudian kita akan Mendesign Background dari form RM Puyyu Rasa tersebut,caranya menggunakan koding lagi .. lagi koding,koding lagi :
Me.Backcolor = Color.Red
hasilnya akan seperti :
ane juga punya ilmu gimana caranya biar tu kursor di program bisa berubah tapi..
kgak bisa di print screen guys .. ane kasih tahu aja ya gimana caranya nanti ente coba sendiri deh dan lihat perubahannya,okeh ... :
CheckBox1.Cursor = Cursors.PanNE
CheckBox2.Cursor = Cursors.PanNE
CheckBox3.Cursor = Cursors.PanNE
CheckBox4.Cursor = Cursors.PanNE
CheckBox5.Cursor = Cursors.PanNE
CheckBox6.Cursor = Cursors.PanNE
Button1.Cursor = Cursors.Hand
nah,ente cobain deh kodingan itu .. trus ente lihat sendiri perubahan yang terjadi di program yang udah ente buat ,okeh ...
Guys cuma itu yang bisa ane share sma ente-ente semua .. maaf ya apabila ada yang kurang jelas
selamat mencoba guys,semoga bermanfaat
Assalamualaikum Wr.Wb
Boleh pulang deh ente semua cobaik di rumah masing-masing
Tidak ada komentar:
Posting Komentar