PROGRAM MENU MAKANAN MENGGUNAKAN VISUAL BASIC 2010

• pertama , buka aplikasi visual basic 2010 
• setelah muncul worksheet pada area form , mulailah mendesain dengan membuat 3 groupbox
• dalam groupbox1 masukkan 5 radiobutton
• dalam groupbox2 masukkan 4 checkbox
• dalam groupbox3 dan groupbox4 masing masing masukkan 8 textbox , jika semuanya sudah lengkap desainnya seperti gambar di bawah ini:

• untuk menambahkan gambar seperti yang terlihat pada gambarr diatas, hal yang dilakukan seperti di bawah ini :

•  Caranya pilih Picturebox pada area all windows form yang berada di sebelah kiri form design.
• setelah picturebox tersebut muncul, pada ujung picturebox tersebut terdapat tanda seperti segitiga , klik tanda tersebut maka akan muncul tampilan seperti gambar di atas, lalu pada pilihan size mode pilih perintah strechimage dan klik choose image yang berada diatas pilihan size mode.
• setelah itu akan muncul jendela gambar, dan anda pilih menu import untuk memasukkan gambar, lalu anda dapat memilih gambar sesuai keinginan, lalu tinggal pilih perintah ok
• dan untuk memberikan warna pada groupbox seperti pada gambar di atas, anda dapat mengubahnya secara langsung pada properties dengan cara meng klik terlebih dahulu area groupbox lalu arahkan kursor ke areal properties, dan anda dapat langsung mengubah sesuai dengan warna yang di inginkan  pada areal back color.
• Jika semua design sudah selesai dibuat , untuk mengubah nama yang terdapat pada radiobutton dan checkbox dan groupbox , dapat dilakukan dengan memberi coding dengan cara double klik pada areal form dan lakukan coding pada areal form1_load , coding yang dimaksud seperti di bawah ini :
•         Me.Text = "Fauzy Rifallah"
          GroupBox1.Text = "Menu Makanan"
          RadioButton5.Text = "Tidak ada Pilihan "
          RadioButton5.Checked = True
          RadioButton1.Text = "Nasi Goreng Seafood"
          RadioButton2.Text = "Ujip's Pizza"
          RadioButton3.Text = "Kepiting Laut"
          RadioButton4.Text = "Ikan Nila"
          GroupBox2.Text = "Menu Minuman"
          CheckBox1.Text = "White Choffe"
          CheckBox2.Text = "Es Jeruk"
          CheckBox3.Text = "Es Kelapa Cincau"
          CheckBox4.Text = "Es Strawberry"
          GroupBox3.Text = "Menu Yang di Pesan"
          GroupBox4.Text = "Harga"  

•  Seperti yang terlihat pada gambar pengcodingan dibawah ini :

• Jika pengcodingan di atas sudah dilakukan , maka tampilan yang muncul setelah di Run(F5) seperti gambar di bawah ini :

•  Tahap selanjutnya yakni memberi coding pada setiap radiobutton dan checkbox agar pada saat radiobutton atau checkbox di klik nama makanan minuman dan harganya muncul pada textbox yang sudah di sesuaikan.
• untuk radiobutton1 lakukan coding dengan cara double klik pada radiobutton1, masukkan coding seperti dibawah ini .
•         If RadioButton1.Checked = True Then
              TextBox1.Text = "Nasi Goreng Seafood"
              TextBox9.Text = "Rp.20.000"
          Else
              TextBox1.Text = ""
              TextBox9.Text = ""
  
  
  
  
          End If

• lakukan hal yang sama pada radiobutton 2 , 3, dan 4 ,  namun pada radiobutton 5  tidak perlu dilakukan pengcodingan seperti perintah di atas. 
• pengcodingan yang dimaksud seperti pada gambar berikut :

•   pada checkbox lakukan pengcodingan seperti di bawah ini dengan cara double klik pada checkbox1, 2, 3, dan 4 seperti dibawah ini :
•     Private Sub CheckBox1_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox1.CheckedChanged
          If CheckBox1.Checked = True Then
              TextBox5.Text = "White Coffe"
              TextBox13.Text = "Rp.15.000"
          Else
              TextBox5.Text = ""
              TextBox13.Text = ""
          End If
      End Sub
  
  
      Private Sub CheckBox2_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox2.CheckedChanged
          If CheckBox2.Checked = True Then
              TextBox6.Text = "Es Jeruk"
              TextBox14.Text = "Rp.10.000"
          Else
              TextBox6.Text = ""
              TextBox14.Text = ""
          End If
  
  
      Private Sub CheckBox3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox3.CheckedChanged
          If CheckBox3.Checked = True Then
              TextBox7.Text = "Es Kelapa Cincau"
              TextBox15.Text = "Rp.25.000"
          Else
              TextBox7.Text = ""
              TextBox15.Text = ""
          End If
      End Sub
  
  
      End Sub
  
  
      Private Sub CheckBox4_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCheckBox4.CheckedChanged
          If CheckBox4.Checked = True Then
              TextBox8.Text = "Sari Strawberry"
              TextBox16.Text = "Rp.12.000"
          Else
              TextBox8.Text = ""
              TextBox16.Text = ""
          End If
      End Sub

• pengcodingannya  seperti dibawah ini :

• setelah semua pengcodingan selesai dilakukan , setelah di run maka akan muncul tampilan seperti di bawah ini :

•  jika tampilan yang muncul seperti gambar di atas , maka program yang dibuat sudah berjalan dan berhasil.

"SELAMAT MENCOBA"