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
|
Posting Komentar