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
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. Source Code
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
"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
"1980"
Combo3.AddItem
"1981"
Combo3.AddItem
"1982"
Combo3.AddItem
"1983"
Combo3.AddItem
"1984"
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"
Combo3.AddItem
"2006"
Combo3.AddItem
"2007"
Combo3.AddItem
"2008"
Combo3.AddItem
"2009"
Combo3.AddItem "2010"
Combo3.AddItem
"2011"
Combo3.AddItem "2012"
End Sub
FORM
|
PROPERTY
|
Form
|
Nama : formbiodata
Caption : form_biodata
|
Labelbiodata
|
Nama : labelbiodata
Caption :BIODATA
MAHASISWA
Font : Ms sans
sarif,regular,8
Backcolor : &H00C0E0FF&
|
Label tempat tgl lahir
|
Nama: Labelttl
Caption: Tempat Tanggal
Lahir :
Font: Ms sans
sarif,regular,8
|
Combo tanggal
|
Nama:Combotanggal
Text: Tanggal
Font: Ms sans
sarif,regular,8
|
Combo bulan
|
Nama: Combobulan
Caption:Bulan
Font: Ms sans
sarif,regular,8
|
Label jenis kelamin
|
Nama: labeljk
Caption: Jenis kelamin :
Font: Ms sans
sarif,regular,8
|
Label Alamat
|
Nama:labelalkap
Caption: Alamat Lengkap
Font: Ms sans
sarif,regular,8
|
Label bahasa
|
Nama:labelbahasa
Caption: Bahasa Yang Di
Kuasai :
Font: Ms sans
sarif,regular,8
|
Check basic
|
Nama: Checkbasic
Caption : Basic
Font: Ms sans
sarif,regular,8
|
Check C
|
Nama: Checkc
Caption: C
Font: Ms sans
sarif,regular,8
|
Check C++
|
Nama: Check C++
Caption: C++
Font: Ms sans
sarif,regular,8
|
Check php
|
Nama: Check php
Caption: Php
Font: Ms sans
sarif,regular,8
|
Check java
|
Nama: Checkjava
Caption: Java
Font: Ms sans
sarif,regular,8
|
Textboxnama
|
Nama: Textnama
Text:
Font: Ms sans
sarif,regular,8
|
Textbox tempat Tanggal
Lahir
|
Nama: Texttempat
Text:
Font: Ms sans
sarif,regular,8
|
Text box alamat lengkap
|
Nama: Textalkap
Text:
Font: Ms sans
sarif,regular,8
Multiline:true
|
Frameresume
|
Nama: Frame
Caption:RESUME
Font: Ms sans
sarif,regular,8
Backcolor: &H00FF80FF&
|
0 komentar:
Posting Komentar