2. Akan muncul form kosong seperti ini
3. Form kosong tersebut akan kita isi dengan ToolBox seperti Label, ComboBox, Button, GroupBox dan Picture
4. Untuk mengganti nama Text dan Name pada tombol Label, Button dan GroupBox terdapat di Properties atau klik kanan dengan menggunakan mouse
5. Di dalam kotak ComboBox kita harus mengisi nama yang akan di tulis dengan klik tombol yang seperti tanda panah kecil kemudian klik Edit Items
6. Masukan nama-nama perempuan pada ComboBox1 seperti yang tertera di atas Indri, Jessica, Aya, Nina, Tiara
7. Kemuadian ComboBox2 isi dengan nama laki-laki seperti Victor, Andre,Kevin,Anton dan Handi
8. Hasil dari tampilan form akan seperti ini jika anda ingin menambahkan Gambar tinggal klik ToolBox > PictureBox > Choose Image > Import, Jika ingin mengubah warna BackColor dan BackgroundImage tinggal ubah di properties maka hasilnya akan seperti ini.
9. Untuk pengcodingan klik tombol Prediksi isi codingan tersebut seperti ini
untuk lebih jelas saya masukan codingan di atas dengan warna biru
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (ComboBox1.Text = "Aya" And ComboBox2.Text = "Victor") Then
MessageBox.Show("Pasangan Serasi")
ElseIf (ComboBox2.Text = "Handi") Then
MessageBox.Show("Jomblo Nih")
ElseIf (ComboBox1.Text = "Indri" And ComboBox2.Text = "Anton") Then
MessageBox.Show("Pasangan Serasi")
ElseIf (ComboBox1.Text = "Tiara" And ComboBox2.Text = "Anton") Then
MessageBox.Show("Baru Putus 2 Minggu yang lalu")
ElseIf (ComboBox1.Text = "Jessica" And ComboBox2.Text = "Andre") Then
MessageBox.Show("Pasangan Serasi")
ElseIf (ComboBox1.Text = "Nina" And ComboBox2.Text = "Kevin") Then
MessageBox.Show("Pasangan Serasi")
Else
MessageBox.Show("Pasangan tidak Serasi")
End If
End Sub
End Class
10. Untuk mencoba aplikasi di atas kik start atau F5, kemudian masukan nama pasangan tersebut sebagai contoh di pihak perempuan pilih Aya dan laki-laki pilih Victor. lalu klik prediksi dan hasilnya mereka Pasangan Serasi, karena sesuai dengan hasil pengcodingan di atas
11. Kemudian pilih nama pasangan lain seperti Indri dan Kevin ketika klik prediksi mereka Pasangan Tidak Serasa karena dalam pengcodingan Indri berpasangan dengan Anton bukan dengan Kevin
12. Jika kita ingin memilih nama lain seperti Handi maka hasil prediksi akan keluar kata-kata Jomblo Nih walaupun dipasangkan dengan nama perempuan hasil yang keluar akan tetap karena dalam coding nama Handi sudah ditulis dengan
ElseIf (ComboBox2.Text = "Handi") Then
MessageBox.Show("Jomblo Nih")
13. Hasil lainnya seperti Tiara dan Anton yang akan muncul adalah Baru Putus 2 Minggu yang lalu karena nama Tiara sudah terset
ElseIf (ComboBox1.Text = "Tiara" And ComboBox2.Text = "Anton") Then
MessageBox.Show("Baru Putus 2 Minggu yang lalu")
14. Jika Anda menglik tombol keluar maka ada pernyataan Ingin Keluar dari Aplikasi ini? kemudian anda tinggal memilih Yes/No
15. Klik 2x pada tombol keluar untuk pengcodingan
coding untuk tombol keluar:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim y As Integer
y = MsgBox("Ingin Keluar dari Aplikasi ini?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If y = vbYes Then
Me.Close()
End If
End Sub
End Class
TERIMAKASIH :)
-
Tidak ada komentar:
Posting Komentar