Cara membuat aplikasi biodata sederhana dengan Visual Basic Net 2008

Sekarang saya akan share tentang script membuat salah satu aplikasi di vb.net yaitu aplikasi biodata diri. Ok simak baik-baik ya, kalo perlu diplototin dan jangan berkedip .. :D

1.       Ketikkan kode berikut pada VB kalian masing-masing.. jangan di copas yaa :D

Public Class Form1

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

ComboBoxtgl.Text = "Tgl"

ComboBoxbln.Text = "Bulan"

ComboBoxthn.Text = "Tahun"

ComboBoxAgama.Text = "Agama"

End Sub

Private Sub ButtonUlangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUlangi.Click

'Tombol Ulangi

TextBoxDepan.Text = ""

TextBoxBelakang.Text = ""

TextBoxTempat.Text = ""

TextBoxAlamat.Text = ""

TextBoxLain.Text = ""

ComboBoxtgl.Text = ""

ComboBoxbln.Text = ""

ComboBoxthn.Text = ""

ComboBoxAgama.Text = ""

RadioButton1.Checked = False

RadioButton2.Checked = False

CheckBoxBasic.Checked = False

CheckBoxC.Checked = False

CheckBoxCplus.Checked = False

CheckBoxPhp.Checked = False

CheckBoxJava.Checked = False

CheckBoxLain.Checked = False

End Sub

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

'Nama Lengkap

LabelNama.Text = TextBoxDepan.Text

LabelBelakang.Text = TextBoxBelakang.Text

'Tempat Tanggal Lahir

LabelTtl.Text = TextBoxTempat.Text & "," & ComboBoxtgl.Text & " " & ComboBoxbln.Text & " " & ComboBoxthn.Text

'Agama

LabelAgama.Text = ComboBoxAgama.Text

'Jenis Kelamin

If RadioButton1.Checked Then

LabelJK.Text = "Laki-laki"

ElseIf RadioButton2.Checked Then

LabelJK.Text = "Perempuan"

End If

'Alamat

LabelAlamat.Text = TextBoxAlamat.Text

'Pilihan Bahasa Program

If CheckBoxBasic.Checked Then

ListBox1.Items.Add("Basic")

End If

If CheckBoxC.Checked Then

ListBox1.Items.Add("C")

End If

If CheckBoxCplus.Checked Then

ListBox1.Items.Add("C++")

End If

If CheckBoxPHP.Checked Then

ListBox1.Items.Add("PHP")

End If

If CheckBoxJava.Checked Then

ListBox1.Items.Add("Java")

End If

If CheckBoxLain.Checked Then

ListBox1.Items.Add = TextBoxLain.Text

End If

End Sub

Private Sub ComboBoxtgl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxtgl.SelectedIndexChanged

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub

End Class

Bimsalabim .. dan ini hasilnya .. Selamat mencoba  :D