Membuat Form dengan Visual Basic 2012

Halo semua , malam ini saya mau berbagi tutorial cara membuat form di Visual basic 2012 . Dalam form ini nantinya akan ada beberapa TextBox , Date Time Picker, Option box, ComboBox, Check Box

Oke , Langsung saja . Pertama kita buka Visual Studio 2012 nya . Lalu buat project baru :



Setelah Kita buat Windows Form Application , lalu kita buat design form seperti gamabar di bawah ini :



 

Lalu double klik tombol submit, kalau sudah ... Lets start coding ....

[code]

Me.Width = 640

GroupBox2.Visible = True

nl_isi.Text = TextBox1.Text

tl_isi.Text = TextBox2.Text

tgl_isi.Text = DateTimePicker1.Text

If opsi1.Checked = True Then

jk_isi.Text = "Laki Laki"

ElseIf Opsi2.Checked = True Then

jk_isi.Text = "Perempuan"

Else

jk_isi.Text = "Tidak Diketahui"

End If

as_isi.Text = TextBox3.Text

jur_isi.Text = ComboBox1.Text

If CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = False Then

ek_isi.Text = "Masak"

ElseIf CheckBox1.Checked = False And CheckBox2.Checked = True And CheckBox3.Checked = False Then

ek_isi.Text = "Mancing"

ElseIf CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = True Then

ek_isi.Text = "Makan"

ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = False Then

ek_isi.Text = "Masak dan Mancing"

ElseIf CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = True Then

ek_isi.Text = "Masak dan Makan"

ElseIf CheckBox1.Checked = False And CheckBox2.Checked = True And CheckBox3.Checked = True Then

ek_isi.Text = "Mancing dan Makan"

ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True Then

ek_isi.Text = "Masak , Mancing , dan Makan"

Else

ek_isi.Text = "Tidak mengikuti Ekstra Kulikuler"

End If

[/code]

Kode diatas di letakkan di bawah Button1.Click Sampai End Sub . Fungsinya adalah untuk menghandle inputan ke dalam Label hasil di sebelah kanan .

Setelah kita copas source tadi , sekarang kita beralih untuk fungsi yang lainnya . Kita fokus pada tombol reset . Oke kita double klik tombol Reset , dan akan masuk ke source editor lagi . Tambahkan script seperti di bawah ini :

[code]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.Width = 336

GroupBox2.Visible = False

nl_isi.Text = ""

tl_isi.Text = ""

tgl_isi.Text = ""

jk_isi.Text = ""

as_isi.Text = ""

jur_isi.Text = ""

ek_isi.Text = ""

End Sub

[/code]

Oh iya , mungkin ada yang error waktu anda copas / jalankan . Mengapa ?? Karena name pada form kita tidak sama . Coba di pelajari dahulu tentang dasar" Properties Form (Jika belum tahu) hehehehe.

Karena disini kita ingin membuat tampilan awal pertama di run seperti ini :



 

Jadi maksutnya , Pertama aplikasi akan muncul sesuai design yang ada di gambar . Nahhh , ketika kita klik tombol button . Langsung muncul Groupbox sebelahnya yang menampilkan hasil ... Gak mudeng yah , sama ... hahahahaha

Jadi intinya sama kaya pertama kita design program , namun untuk penampilan hasil kita sembunyikan terlebih dahulu .

oke , langsung saja .Double Klik form kita  , lalu isikan kode berikut di bawahnya :

[code]

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

GroupBox2.Visible = False

Me.Width = 336

End Sub

[/code]

Nahhh , selesai sudah program kita . Nantinya program kita kurang lebih akan jadi seperti gambar di bawah ini :

[caption id="attachment_47" align="aligncenter" width="300"] Klik Gambar , Untuk melihat demo aplikasi[/caption]

Untuk yang mau mendownload sourcenya langsung (biasanya orang yang males baca) . Bisa di download disini :