Visual Basic

Form Biodata

A.    Form Biodata :

1.      Form Awal

Tampilan awal sebelum coding di debug yang menampilkan gambar seperti diatas

2. Form Kedua

Tampilan saat kita memasukkan data diri yang akan kita buat dan sudah di debug

 3. Form Ketiga

Tampilan saat sudah di proses, maka akan muncul tampilan seperti diatas yang akan menampilkan data-data diri yang telah dimasukkan ke dalam Form (Code).

B. Coding Program Form Biodata

Private Sub Command1_Click()

If Option1.Value = True Then Sex = "Male" Else: Sex = "Female"

If Option2.Value = True Then Sex = "Female" Else: Sex = "Male"

If Check1.Value = 1 Then

Language = Check1.Caption

ElseIf Check2.Value = 1 Then

Language = Check2.Caption

ElseIf Check3.Value = 1 Then

Language = Check3.Caption

ElseIf Check4.Value = 1 Then

Language = Check4.Caption

ElseIf Check5.Value = 1 Then

Language = Check5.Caption

End If

Text4.Text = "Name : " + Text1.Text + vbCrLf + "Birthplace : " + Text2.Text + "," + Combo1.Text + " " + Combo2.Text + " " + Combo3.Text + vbCrLf + "Sex : " + Sex + vbCrLf + "Address : " + Text3.Text + vbCrLf + "Language : " + Language + vbCrLf

End Sub

Private Sub Command2_Click()

End

End Sub

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 "January"

Combo2.AddItem "February"

Combo2.AddItem "March"

Combo2.AddItem "April"

Combo2.AddItem "May"

Combo2.AddItem "July"

Combo2.AddItem "June"

Combo2.AddItem "August"

Combo2.AddItem "September"

Combo2.AddItem "Oktober"

Combo2.AddItem "November"

Combo2.AddItem "December"

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"

Combo3.AddItem "2006"

Combo3.AddItem "2007"

Combo3.AddItem "2008"

Combo3.AddItem "2009"

Combo3.AddItem "2010"

Combo3.AddItem "2011"

Combo3.AddItem "2012"

End Sub

 C. Deskripsi Program Biodata                     

                               

FORM	PROPERTY
Form	Nama : Form Biodata Caption : Form Biodata
Label Name	Caption : Text1
Label Birthplace	Nama : Place Caption : Text2 Nama : Date Caption : Combo1 Nama : Month Caption : Combo2 Nama : Years Caption : Combo3
Label Sex	Nama : Sex Caption :  Option1: male                  Option2: Female
Label Address	Nama :  Adress Caption : Text3
Label Language	Nama : Langeage Caption : Check
Frame Resume	Nama : Resume Caption :  Text4