APLIKASI FORM BIODATA DI VB 2010
Assalamualaikum.Wr.Wb
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi biodata di vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi biodata di vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , "TextBox" , "Label" , "GroupBox" , "RadioButton" , "ListBox" , "ComboBox" , " CheckBox" seperti gambar di bawah ini
6. Maka hasilnya akan muncul form seperti gambar di bawah ini
7. Kemudian copr script di bawah ini
'NAMA : M.SAEPUL BURHAN
'NIM : TI 1210043
'JURUSAN : T.INFORMATIKA
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 ComboBoxtgl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxtgl.SelectedIndexChanged
End Sub
Private Sub ButtonHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHapus.Click
'Tombol Ulangi
TextBoxFulname.Text = ""
TextBoxPanggilan.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 ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click
'Nama Lengkap
LabelFulname.Text = TextBoxFulname.Text
LabelPanggilan.Text = TextBoxPanggilan.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
lstLain.Items.Add("VISUAL BASIC")
End If
If CheckBoxC.Checked Then
lstLain.Items.Add("C")
End If
If CheckBoxCplus.Checked Then
lstLain.Items.Add("C++")
End If
If CheckBoxPhp.Checked Then
lstLain.Items.Add("PHP")
End If
If CheckBoxJava.Checked Then
lstLain.Items.Add("JAVA")
End If
If CheckBoxLain.Checked Then
lstLain.Items.Add(TextBoxLain.Text)
End If
End Sub
Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
End
End Sub
End Class
8. Maka hasilnya akan seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon