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