Membuat Biodata menggunakan Visual Basic

VISUAL PROGRAMMING

Visual Basic merupakan bahasa pemrograman yang sangat mudah dipelajari, dengan teknik pemrograman visual yang memungkinkan penggunanya untuk berkreasi lebih baik dalam menghasilkan suatu program aplikasi. Ini terlihat dari dasar pembuatan dalam visual basic adalah FORM, dimana pengguna dapat mengatur tampilan form kemudian dijalankan dalam script yang sangat mudah.

Berikut merukan pengaturan property yang digunakan dalam pembuatan biodata.

Pengaturan property

Object	Property	Nilai
Form1	Caption StarUp Position Picture	Biodata 2 – CenterScreen (Bitmap)
Label7	Caption Alignment Font Forecolor	Biodata 2-center Niagara engraved &H000000FF&
Label1	Caption Font Forecolor	Nama MS Sans Serif &H000000FF&
Text1	Text	Kosong
Label2	Caption Font Forecolor	TTL MS Sans Serif &H000000FF&
Text2	Text	Kosong
Combo1	Text	Kosong
Combo2	Text	Kosong
Combo3	Text	Kosong
Label3	Caption Font Forecolor	Jenis Kelamin MS Sans Serif &H000000FF&
Option1	Caption Forecolor	Laki-laki &H000000FF&
Option2	Caption Forecolor	Perempuan &H000000FF&
Label4	Caption Font Forecolor	Alamat MS Sans Serif &H000000FF&
Text3	Text	Kosong
Label5	Caption Font Forecolor	Bhs. Di sukai MS Sans Serif &H000000FF&
Check1	Caption Font Forecolor	Basic MS Sans Serif &H000000FF&
Check2	Caption Font Forecolor	C MS Sans Serif &H000000FF&
Check3	Caption Font Forecolor	C++ MS Sans Serif &H000000FF&
Check4	Caption Font Forecolor	Java MS Sans Serif &H000000FF&
Check5	Caption Font Forecolor	Php MS Sans Serif &H000000FF&
Command1	Caption Font	Proses MS Sans Serif
Command2	Caption Font	Selesai MS Sans Serif
Command4	Caption Font	Clear MS Sans Serif

                                           

Private Sub Check1_Click()

Label19.Caption = Check1.Caption

End Sub

Private Sub Check2_Click()

Label20.Caption = Check2.Caption

End Sub

Private Sub Check3_Click()

Label21.Caption = Check3.Caption

End Sub

Private Sub Check4_Click()

Label22.Caption = Check4.Caption

End Sub

Private Sub Check5_Click()

Label23.Caption = Check5.Caption

End Sub

Private Sub Command1_Click()

Label10.Caption = Text1.Text

Label11.Caption = Text2.Text

Label12.Caption = Combo1.Text

Label13.Caption = Combo2.Text

Label14.Caption = Combo3.Text

Label15.Caption = Text3.Text

Label6.Caption = Label1.Caption

Label8.Caption = Label2.Caption

Label17.Caption = Label3.Caption

Label9.Caption = Label4.Caption

Label16.Caption = Label5.Caption

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command4_Click()

Label6.Caption = ""

Label10.Caption = ""

Label8.Caption = ""

Label11.Caption = ""

Label12.Caption = ""

Label13.Caption = ""

Label14.Caption = ""

Label17.Caption = ""

Label18.Caption = ""

Label9.Caption = ""

Label15.Caption = ""

Label16.Caption = ""

Label19.Caption = ""

Label20.Caption = ""

Label20.Caption = ""

Label21.Caption = ""

Label22.Caption = ""

Label23.Caption = ""

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

Private Sub Option1_Click()

Label18.Caption = Option1.Caption

End Sub

Private Sub Option2_Click()

Label18.Caption = Option2.Caption

End Sub

Capture program