Kamis, 18 Oktober 2012

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


Tidak ada komentar:

Posting Komentar