TUGAS VB_DATA DIRI

CODING

Private Sub Form_Load()

Combo1.AddItem "1"

Combo1.AddItem "2"

Combo1.AddItem "3"

Combo1.AddItem "4"

Combo1.AddItem "5"

Combo1.AddItem "6"

Combo1.AddItem "7"

Combo1.AddItem "8"

Combo1.AddItem "9"

Combo1.AddItem "10"

Combo1.AddItem "11"

Combo1.AddItem "12"

Combo1.AddItem "13"

Combo1.AddItem "14"

Combo1.AddItem "15"

Combo1.AddItem "16"

Combo1.AddItem "17"

Combo1.AddItem "18"

Combo1.AddItem "19"

Combo1.AddItem "20"

Combo1.AddItem "21"

Combo1.AddItem "22"

Combo1.AddItem "23"

Combo1.AddItem "24"

Combo1.AddItem "25"

Combo1.AddItem "26"

Combo1.AddItem "27"

Combo1.AddItem "28"

Combo1.AddItem "29"

Combo1.AddItem "30"

Combo1.AddItem "31"

Combo2.AddItem "Januari"

Combo2.AddItem "Februari"

Combo2.AddItem "Maret"

Combo2.AddItem "April"

Combo2.AddItem "Mei"

Combo2.AddItem "Juni"

Combo2.AddItem "Juli"

Combo2.AddItem "Agustus"

Combo2.AddItem "September"

Combo2.AddItem "Oktober"

Combo2.AddItem "November"

Combo2.AddItem "Desember"

Combo3.AddItem "1985"

Combo3.AddItem "1986"

Combo3.AddItem "1987"

Combo3.AddItem "1988"

Combo3.AddItem "1989"

Combo3.AddItem "1990"

Combo3.AddItem "1991"

Combo3.AddItem "1992"

Combo3.AddItem "1993"

Combo3.AddItem "1994"

Combo3.AddItem "1995"

Combo3.AddItem "1996"

Combo3.AddItem "1997"

Combo3.AddItem "1998"

Combo3.AddItem "1999"

Combo3.AddItem "2000"

Combo3.AddItem "2001"

Combo3.AddItem "2002"

Combo3.AddItem "2003"

Combo3.AddItem "2004"

Combo3.AddItem "2005"

End Sub

Private Sub Command1_Click()

If Option1.Value = True Then Jeniskelamin = "Laki-laki" Else: Jeniskelamin = "Perempuan"

If Option2.Value = True Then Jeniskelamin = "Perempuan" Else: Jeniskelamin = "Laki-laki"

IfCheck1.Value = 1

bahasa = Check1.Caption

ElseIf Check2.Value = 1 Then

bahasa = Check2.Caption

ElseIf Check3.Value = 1 Then

bahasa = Check3.Caption

ElseIf Check4.Value = 1 Then

bahasa = Check4.Caption

ElseIf Check5.Value = 1 Then

bahasa = Check5.Caption

End If

Text4.Text = "Nama lengkap : " + Text1.Text + vbCrLf + "Tempat, tanggal lahir : " + Text2.Text + ", " + Combo1.Text + " " + Combo2.Text + " " + Combo3.Text + vbCrLf + "Jenis kelamin : " + Jeniskelamin + vbCrLf + "Alamat : " + Text3.Text + vbCrLf + "Bahasa yang dikuasai : " + bahasa + vbCrLf

End Sub

Private Sub Command2_Click()

End

End Sub

GAMBAR

PROPERTIES

1.      Untuk nama lengkap(label1)tempat tanggal lahir(label2),jenis kelamin(label3),alamat(label4) dan bahasa yang dikuasai(label5)  dan diganti captionnya.

2.      Untuk pengisian Nama Menggunakan Textbox1.

3.      Untuk pengisian Tempat Menggunakan Textbox2.

4.      Untuk pengisian Tanggal(combobox1),bulan(combobox2) dan tahun menggunakan (Combobox3).

5.      Untuk pengisian Jenis Kelamin menggunakan option button,laki-laki(optionbutton1) dan perempuan (optionbutton2).

6.      Untuk pengisian Alamat Menggunakan Textbox3.

7.      Untuk pengisian Bahasa yang di kuasai menggunakan Checkbox,bassic(checkbox1), C(checkbox4), C++(Checkbox2), PHP (checkbox3) dan Java(Checkbox5).

8.      Untuk Proses(command1) dan selesai(command2)