1. Form tampilan awal
Tampilan awal sebelum coding di debug yang menampilkan gambar seperti
diatas
2.
Form setelah di isi
biodata dan diproses
Tampilan saat sudah di proses, maka akan muncul tampilan seperti diatas
yang akan menampilkan data-data diri yang telah dimasukkan ke dalam Form (Code).
- Code Program Form Biodata
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"
If Check1.Value = 1 Then
bahasa = Check1.Caption = True
ElseIf Check2.Value = 1 Then
bahasa = Check2.Caption = True
ElseIf Check3.Value = 1 Then
bahasa = Check3.Caption = True
ElseIf Check4.Value = 1 Then
bahasa = Check4.Caption = True
ElseIf Check5.Value = 1 Then
bahasa = Check5.Caption = True
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
------------------------------------------------------------------------------------------------------------
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
0 komentar:
Posting Komentar