Membuat Menu Makanan Menggunakan Program VB 2010

BELAJAR MEMBUAT MENU MAKANAN MENGGUNAKAN PROGRAM VB 2010

v  Pertama buatlah 1 label untuk menulis judulnya didalam form1,terus buatlah 2 groupbox,5 checkbox dan 5 label didalam groupbox1,dan didalam groupbox2 buatlah 10 label seperti

gambar yang dibawah ini :

v  Setelah designnya di buat masukkan coding seperti dibawah ini :

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Text = "Latihan Membuat Menu Makanan Menggunakan VB 2010"         Me.BackColor = Color.Pink         Label1.ForeColor = Color.DarkGol         GroupBox2.BackColor = Color.RoyalBlue         GroupBox1.Text = "Nama Menu Makanan Dan Harga"         GroupBox2.Text = "Menu Yang Di Pilih Dan Harganya"         GroupBox1.ForeColor = Color.DarkSlateGray         GroupBox2.ForeColor = Color.DarkRed         Button1.Text = "Delet"         Button2.Text = "Close"         Label1.Text = "Menu Makanan Restoran Duo Putri Cantik"         CheckBox1.Text = "Nasi Kuning Special"         CheckBox2.Text = "Nasi Goreng Cantik"         CheckBox3.Text = "Sop Buntut Special"         CheckBox4.Text = "Ayam Bakar Madu"         CheckBox5.Text = "Ikan Bakar Madu"         Label2.Text = "Rp 20.000"         Label3.Text = "Rp 15.000"         Label4.Text = "Rp 35.000"         Label5.Text = "Rp 30.000"         Label6.Text = "Rp 25.000"     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Label7.Text = "..............."         Label8.Text = "..............."         Label9.Text = "..............."         Label10.Text = "..............."         Label11.Text = "..............."         Label12.Text = "..............."         Label13.Text = "..............."         Label14.Text = "..............."         Label15.Text = "..............."         Label16.Text = "..............."     End Sub     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged         Label7.Text = "Nasi Kunung Special"         Label12.Text = "Rp 20.000"     End Sub     Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged         Label8.Text = "Nasi Goreng Cantik"         Label13.Text = "Rp 15.000"     End Sub     Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged         Label9.Text = "Sop Buntut Special"         Label14.Text = "Rp 35.000"     End Sub     Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged         Label10.Text = "Ayam Bakar Madu"         Label15.Text = "Rp 30.000"     End Sub     Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged         Label11.Text = "Ikan Bakar Madu"         Label16.Text = "Rp 25.000"     End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter         GroupBox1.BackColor = Color.DarkSalmon     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Close()     End Sub

v  Setelah codingnya selesai dimasukkan coba lihat hasilnya,caranya klik Debug -> start debugging atau  tekan langsung F5,hasilnya akan seperti dibawah ini :

v  Setelah itu,cara kerjanya adalah coba pilih salah satu menu makanan yang ada didalam groupbox1 atau centang semuanya maka hasilnya akan muncul di groupbox2 sesuai dengan menu yang di pilih/di centang tadi.Dan hasilnya seperti gambar dibawah ini :

v  Untuk menghapus menu makanan yang sudah dipilih,klik button “Delet”

v  Dan untuk keluar klik button “Close”.

v  Begitulah cara membuat Menu Makanan menggunakan program VB 2010.