kelompok praktikum 29 TI 2012: Tutorial (Cara Pembuatan Gambar) formulir Biro jodoh

TUTORIAL APLIKASI DUA DIMENSI

Ambil label dan dan ComboBox dan buatlah susunannya seperti gambar diatas.

Klik dua kali form agar muncul listingnya. Pada listing tuliskan listing berikut:

If ComboBox1.SelectedText = "PERSEGI" Then Write("PERSEGI")

Perbanyak listing tersebut sesuai dengan jumlah jenis bangun yang diinginkan.

Lalu untuk listing selanjutnya ( pada sub berbeda).

If ComboBox2.SelectedText = "Merah" Then Write("Merah")

Perbanyak listing tersebut sesuai dengan jumlah jenis warna yang diinginkan.

Lalu listing untuk kombinasi kedua listing tersebut adalah

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ComboBox1.Text = "PERSEGI" And ComboBox2.Text = "Merah" Then Form2.Show()

Dengan catatan, form2.show adalah form yang berisi perintah yang diingikan (bentuk dan warna yang diinputkan).

Lalu kita buat dua buah tombol. Tombol “OK” dan “EXIT”. Untuk membuatnya ambil ButtonBox pada toolbox. Dan untuk tombol exit, listingnya:

Me.Hide()

Form26.Show()

Maka akan muncul form26. Form 26 seperti berikut

Untuk mempercantik tampilan, buatlah backgroundnya berwarna. Listingnya :

Private Sub Form26_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.BackColor = Color.Gray

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

Me.ForeColor = Color.Red

Buka Paint dan buatlah berbagai bangun dengan warna yang diinginkan. Lalu gambar tersebut dimasukkan ke masing-masing form sesuai dengan bangun dan warna yang diinginkan.

Caranya, klik form-nya, lalu pada properties klik insert objek dan pilihlah gambar yang diinginkan. Atau bisa juga melalui toolbox- PictureBox.

Langkah selanjutnya hanya sebuah perulangan listing. Untuk form-form selanjutnya listingnya sama. Dan pada masing-masing form diberi tombol back. Lalu untuk listingnya tuliskan seperti berikut.