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
