About me

Feeds RSS
Feeds RSS

Kamis, 18 Oktober 2012

Membuat CV Melalui Visual Basic


Membuat CV Melalui Visual Basic

Dibawah ini tampilan form CV yang belum diisi :

Contoh Form CV



Pengaturan Properties :
 Pengaturan properties berdasarkan gambar form CV yang diatas.

FORM
PROPERTIES
Form


Nama    : Form Data Tamu
Caption : Data Tamu
Picture  :  (Bitmap)
Label Nama
Nama    : Label1
Caption : Nama
Font       : Agency FB,regular,14, &H00FFFFFF&
Textbox Nama
Nama    : Text2
Font       : Agency FB,regular,12, &H80000008&
Label Tempat/Tanggal Lahir
Nama    : Label2
Caption : Tempat/Tanggal Lahir
Font       : Agency FB,regular,14, &H00FFFFFF&
Textbox Tempat Lahir
Nama    : Text3
Font       : Agency FB,regular,12, &H80000008&
Combo Tanggal Lahir
Nama    : Combo1
Font       : Agency FB,regular,12, &H80000008&
Combo Bulan
Nama    : Combo2
Font       : Agency FB,regular,12, &H80000008&
Combo Tahun
Nama    : Combo3
Font       : Agency FB,regular,12, &H80000008&
Label Jenis Kelamin
Nama    : Label3
Caption : Jenis Kelamin
Font       : Agency FB,regular,14, &H00FFFFFF&
Option Jenis Kelamin
Nama    : Option1 / Option 2
Caption : Laki-laki / Perempuan
Font       : Agency FB,regular,12, &H80000008&
Label Alamat
Nama    : Label4
Caption : Alamat
Font       : Agency FB,regular,14, &H00FFFFFF&
Textbox Alamat
Nama    : Text1
Font       : Agency FB,regular,12, &H80000008&
Label Bahasa
Nama    : Label5
Caption : Bahasa yg dikuasai
Font       : Agency FB,regular,14, &H00FFFFFF&
Check Basic
Nama    : Check1
Caption : Basic
Font       : Agency FB,regular,12, &H80000008&
Check C
Nama    : Check2
Caption : C
Font       : Agency FB,regular,12, &H80000008&
Check C++
Nama    : Check3
Caption : C++
Font       : Agency FB,regular,12, &H80000008&
Check Java
Nama    : Check4
Caption : Java
Font       : Agency FB,regular,12, &H80000008&
Check PHP
Nama    : Check5
Caption : PHP
Font       : Agency FB,regular,12, &H80000008&
Frame Resume
Nama    : Frame1
Caption : Resume
Font       : Agency FB,regular,12, &H80000008&
Label Nama
Nama    : Label6
Font       : Agency FB,regular,12, &H80000008&
Label Tempat/Tanggal Lahir
Nama    : Label7
Font       : Agency FB,regular,12, &H80000008&
Label Jenis Kelamin
Nama    : Label8
Font       : Agency FB,regular,12, &H80000008&
Label Alamat
Nama    : Label9
Font       : Agency FB,regular,12, &H80000008&
Label Bahasa
Nama    : Label10
Font       : Agency FB,regular,12, &H80000008&


Dan ini seluruh Codingannya :


Private Sub Check1_Click()
Label18.Caption = Check1.Caption
End Sub

Private Sub Check2_Click()
Label18.Caption = Check2.Caption
End Sub

Private Sub Check3_Click()
Label18.Caption = Check3.Caption
End Sub

Private Sub Check4_Click()
Label18.Caption = Check4.Caption
End Sub

Private Sub Check5_Click()
Label18.Caption = Check5.Caption
End Sub

Private Sub Command1_Click()
Label6.Caption = Label1.Caption
Label7.Caption = Text2.Text
Label8.Caption = Label2.Caption
Label12.Caption = Text3.Text
Label9.Caption = Label3.Caption
Label10.Caption = Label4.Caption
Label17.Caption = Text1.Text
Label11.Caption = Label5.Caption

Label13.Caption = Combo1.Text
Label14.Caption = Combo2.Text
Label15.Caption = Combo3.Text

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 "Febuari"
Combo2.AddItem "Maret"
Combo2.AddItem "April"
Combo2.AddItem "Mai"
Combo2.AddItem "Juni"
Combo2.AddItem "Juli"
Combo2.AddItem "Agustus"
Combo2.AddItem "September"
Combo2.AddItem "October"
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"
Combo3.AddItem "2013"


End Sub

Private Sub Label6_Click()
Label6.Caption = Label1.Caption
End Sub

Private Sub Option1_Click()
Label16.Caption = Option1.Caption
End Sub

Private Sub Option2_Click()
Label16.Caption = Option2.Caption
End Sub


Capture Program :

Hasil Run Program

0 komentar:

Posting Komentar