MEMBUAT BIODATA MENGGUNAKAN VISUAL BASIC 6.0

                 MEMBUAT BIODATA MENGGUNAKAN VISUAL BASIC 6.0

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.

1.      PROPERTIES

FORM	PROPERTY
Form	Nama : formbiodata Caption : form_biodata
Labelbiodata	Nama : labelbiodata Caption :BIODATA MAHASISWA Font : Ms sans sarif,regular,8 Backcolor : &H00C0E0FF&
Labelnamkap	Nama : Labelnamkap Caption : Nama Lengkap               : Font : Ms sans sarif,regular,8
Labelttl	Nama: Labelttl Caption: Tempat Tanggal Lahir    : Font: Ms sans sarif,regular,8
Combotanggal	Nama:Combotanggal Text: Tanggal Font: Ms sans sarif,regular,8
Combobulan	Nama: Combobulan Caption:Bulan Font: Ms sans sarif,regular,8
Labeljk	Nama: labeljk Caption: Jenis kelamin       : Font: Ms sans sarif,regular,8
Labelalkap	Nama:labelalkap Caption: Alamat Lengkap       Font: Ms sans sarif,regular,8
Labelbahasa	Nama:labelbahasa Caption: Bahasa Yang Di Kuasai   : Font: Ms sans sarif,regular,8
Checkbasic	Nama: Checkbasic Caption : Basic Font: Ms sans sarif,regular,8
Checkc	Nama: Checkc Caption: C Font: Ms sans sarif,regular,8
Checkcples	Nama: Checkcples Caption: C++ Font: Ms sans sarif,regular,8
Checkphp	Nama: Checkphp Caption: Php Font: Ms sans sarif,regular,8
Checkjava	Nama: Checkjava Caption: Java Font: Ms sans sarif,regular,8
Textboxnama	Nama: Textnama Text: Font: Ms sans sarif,regular,8
Textboxtempat	Nama: Texttempat Text: Font: Ms sans sarif,regular,8
Textboxalkap	Nama: Textalkap Text: Font: Ms sans sarif,regular,8 Multiline:true
Frameresume	Nama: Frame Caption:RESUME Font: Ms sans sarif,regular,8 Backcolor: &H00FF80FF&
Labelnamkap	Nama:label7 Caption: Font: Ms sans sarif,regular,8
Labelnama	Nama: Label8 Caption: Font: Ms sans sarif,regular,8
Labelttl	Nama:label9 Caption: Font: Ms sans sarif,regular,8
Labeltempat	Nama:label10 Caption: Font: Ms sans sarif,regular,8
Labeltanggal	Nama:label11 Caption: Font: Ms sans sarif,regular,8
Labelbulan	Nama:label12 Caption: Font: Ms sans sarif,regular,8
Labeltahun	Nama:label13 Caption: Font: Ms sans sarif,regular,8
Labeljk	Nama:label14 Caption: Font: Ms sans sarif,regular,8
Labellaki-laki	Nama:label15 Caption: Font: Ms sans sarif,regular,8
Labelperempuan	Nama:label16 Caption: Font: Ms sans sarif,regular,8
Labelalkap	Nama:label17 Caption: Font: Ms sans sarif,regular,8
Labelalkap	Nama:label18 Caption: Font: Ms sans sarif,regular,8
Labelbahasa	Nama:label19 Caption: Font: Ms sans sarif,regular,8
Labelbasic	Nama:label20 Caption: Font: Ms sans sarif,regular,8
Labelc	Nama:label21 Caption: Font: Ms sans sarif,regular,8
Labelcples	Nama:label22 Caption: Font: Ms sans sarif,regular,8
Labeljava	Nama:label23 Caption: Font: Ms sans sarif,regular,8
Labelphp	Nama:label24 Caption: Font: Ms sans sarif,regular,8

2.     Source Code

Private Sub Optionlaki_Click()

Label15.Caption = Optionlaki.Caption

End Sub

Private Sub Optionperempuan_Click()

Label15.Caption = Optionperempuan.Caption

End Sub

Private Sub Checkbasic_Click()

Label20.Caption = Checkbasic.Caption

End Sub

Private Sub Checkc_Click()

Label21.Caption = Checkc.Caption

End Sub

Private Sub Checkcples_Click()

Label22.Caption = Checkcples.Caption

End Sub

Private Sub Checkjava_Click()

Label23.Caption = Checkjava.Caption

End Sub

Private Sub Checkphp_Click()

Label24.Caption = Checkphp.Caption

End Sub

Private Sub Cmd_Proses_Click()

Label8.Caption = Textnama.Text

Label10.Caption = Texttempat.Text

Label11.Caption = Combotanggal.Text

Label12.Caption = Combobulan.Text

Label13.Caption = Combotahun.Text

Label18.Caption = Textalkap.Text

Label7.Caption = Labelnamkap.Caption

Label9.Caption = Labelttl.Caption

Label14.Caption = Labeljk.Caption

Label17.Caption = Labelalkap.Caption

Label19.Caption = Labelbahasa.Caption

End Sub

Private Sub Form_Load()

Combotanggal.AddItem "01"

Combotanggal.AddItem "02"

Combotanggal.AddItem "03"

Combotanggal.AddItem "04"

Combotanggal.AddItem "05"

Combotanggal.AddItem "06"

Combotanggal.AddItem "07"

Combotanggal.AddItem "08"

Combotanggal.AddItem "09"

Combotanggal.AddItem "10"

Combotanggal.AddItem "11"

Combotanggal.AddItem "12"

Combotanggal.AddItem "13"

Combotanggal.AddItem "14"

Combotanggal.AddItem "15"

Combotanggal.AddItem "16"

Combotanggal.AddItem "17"

Combotanggal.AddItem "18"

Combotanggal.AddItem "19"

Combotanggal.AddItem "20"

Combotanggal.AddItem "21"

Combotanggal.AddItem "22"

Combotanggal.AddItem "23"

Combotanggal.AddItem "24"

Combotanggal.AddItem "25"

Combotanggal.AddItem "26"

Combotanggal.AddItem "27"

Combotanggal.AddItem "28"

Combotanggal.AddItem "29"

Combotanggal.AddItem "30"

Combotanggal.AddItem "31"

Combobulan.AddItem "Januari"

Combobulan.AddItem "Febuari"

Combobulan.AddItem "Maret"

Combobulan.AddItem "April"

Combobulan.AddItem "Mei"

Combobulan.AddItem "Juni"

Combobulan.AddItem "Juli"

Combobulan.AddItem "Agustus"

Combobulan.AddItem "September"

Combobulan.AddItem "Oktober"

Combobulan.AddItem "November"

Combobulan.AddItem "Desember"

Combotahun.AddItem "1885"

Combotahun.AddItem "1886"

Combotahun.AddItem "1887"

Combotahun.AddItem "1888"

Combotahun.AddItem "1889"

Combotahun.AddItem "1990"

Combotahun.AddItem "1991"

Combotahun.AddItem "1992"

Combotahun.AddItem "1993"

Combotahun.AddItem "1994"

Combotahun.AddItem "1995"

Combotahun.AddItem "1996"

Combotahun.AddItem "1997"

Combotahun.AddItem "1998"

Combotahun.AddItem "1999"

Combotahun.AddItem "2000"

Combotahun.AddItem "2001"

Combotahun.AddItem "2002"

Combotahun.AddItem "2003"

Combotahun.AddItem "2004"

Combotahun.AddItem "2005"

Combotahun.AddItem "2006"

Combotahun.AddItem "2007"

Combotahun.AddItem "2008"

Combotahun.AddItem "2009"

Combotahun.AddItem "2010"

Combotahun.AddItem "2011"

Combotahun.AddItem "2012"

End Sub

Private Sub Cmd_Selesai_Click()

End

End Sub

3.       HASIL CAPTURE

Gambar 1

Gambar 2

Gambar 3