Jumat, 17 April 2015

VIsual Basic , Aplikasi Mememsan Makanan Dan Minuman


Cara Membuat Form Apllikasi Sederhana” Memesan  Makanan Dan Minuman” Menggunakan Visual Basic 2010 , Seperti Gambar Dibwah Ini.



 



1.Langkah Pertama bukalah aplikasi Visual Basic 2010 Anda, Lanjut New Project ,




 




2.Isi Form  Dengan Icon-Icon Seperti Gambar Dibawah ini, Dan memilih Icon Di TOOTBOX, Buatlah seperti Gambar ini.


3.Isi Semua Coding Di Form Load , Dengan Cara Klik 2 Kali Di Form Load, Masukan Semua Coding Seperti Gambar Dibwah Ini.


Ø  Coding Lanjutan Nya  (Coding > TextBox3.Backcolor=Color.PaleVioletRed < )
Ø                                    (Coding > TextBox4.Backcolor=Color.SteelBlue < )
NB: Coding GroupBox1.Font = New Font(GroupBox1.Font, FontStyle.Italic)
         TextBox1.BackColor = Color.PaleVioletRed
         TextBox2.BackColor = Color.SteelBlue
         TextBox3.BackColor = Color.PaleVioletRed
         TextBox4.BackColor = Color.SteelBlue
Coding Diatas tidak Perlu di masukin Hanya Tambahan agar Tampilan Aplikasi Bervariasi,  Kalo Mau Di Gunakan Juga Bisa.


4.Setelah Memasukan Semua coding Di Form Load tersebut, Lanjukant Isi Coding Di masing- masing Icon Yang Sudah Di isi Tadi, Cara nya Sama dengan Klik Dua Kali Di Icon Tersebut ,

Masukan Coding Dbawah Ini Di setiap Icon;

   RadioButton1.Text = "Lalapan Dan Nasi"
        TextBox1.Text = RadioButton1.Text
        TextBox2.Text = "25.000"

   RadioButton2.Text = "Nasi Balap Puyung"
        TextBox1.Text = RadioButton2.Text
        TextBox2.Text = "12000"

   RadioButton3.Text = "Nasi Goreng"
        TextBox1.Text = RadioButton3.Text
        TextBox2.Text = "20.000"

   RadioButton4.Text = "Nasi Campur"
        TextBox1.Text = RadioButton4.Text
        TextBox2.Text = "17.000"


Hasil Run Seperti Gambar Dibwah Ini.
 


5. Langkah Terakhir Masukan Coding Di CheckBox.
   If CheckBox1.Checked = True Then
            TextBox3.Text = "Es Teh/Hangat"
            TextBox4.Text = "9.000"
        Else
            TextBox3.Text = ""
            TextBox4.Text = ""
        End If

  If CheckBox2.Checked = True Then
            TextBox3.Text = "Es Jeruk"
            TextBox4.Text = "12.000"
        Else
            TextBox3.Text = ""
            TextBox4.Text = ""
        End If






If CheckBox3.Checked = True Then
            TextBox3.Text = "Pop Ice"
            TextBox4.Text = "7.000"
        Else
            TextBox3.Text = ""
            TextBox4.Text = ""
        End If

  If CheckBox4.Checked = True Then
            TextBox3.Text = "Teh Botol"
            TextBox4.Text = "8.000"
        Else
            TextBox3.Text = ""
            TextBox4.Text = ""
        End If

Hasil Run nya Seperti Gambar Dibawah Ini.


Sekian Postingan Dari Saya , Selamat Mencoba ya,,,,,^_^
 >  GOOD LUCK<
By.yuyun andriani




Tidak ada komentar:

Posting Komentar