Membuat aplikasi biodata

Posted: April 8, 2013 in Uncategorized
Properties yang digunakan :
Object
Property
Value
Form
Name
Form_biodata
BackColour
&H80000009& (black)
StartUpPosition
CentreScreen
CommandButton 1
Name
cmd_proses
Caption
Proses
CommandButton 2
Name
cmd_refresh
Caption
Refresh
CommandButton 3
Name
cmd_end
Caption
Selesai
Label 1
Name
Label1
Caption
Biodata Diri
Label 2
Name
lbl_nama
Caption
Nama :
Label 3
Name
Lbl_ttl
Caption
Tempat / tgl lahir :
Label 4
Name
Lbl_jk
Caption
Jenis Kelamin :
Label 5
Name
Lbl_alamat
Caption
Alamat :
Label 6
Name
Lbl_bahasa
Caption
Bahasa yang dikuasai :
Textbox 1
Name
Txt_nama
Text
Textbox 2
Name
Txt_tempat
Text
Textbox 3
Name
Txt_alamat
Text
Multiline
True
Scrollbars
Vertical
Textbox 4
Name
Txt_resume
Text
Multiline
True
Scrollbars
Both
ComboBox 1
Name
Cmb_tgl
Text
Tanggal
ComboBox 2
Name
Cmb_bulan
Text
Bulan
ComboBox 3
Name
Cmb_tahun
Text
Tahun
OptionButton 1
Name
Opt_lk
Caption
Laki-laki
OptionButton 2
Name
Opt_pr
Caption
Perempuan
CheckBox 1
Name
C_basic
Caption
Basic
CheckBox 2
Name
C_c
Caption
C
CheckBox 3
Name
C_cplus
Caption
C++
CheckBox 4
Name
C_php
Caption
Php
CheckBox 5
Name
C_java
Caption
Java
Frame 1
Name
Frame1
Caption
Frame 2
Name
Frame2
Caption
Resume :
Line 1
Name
Line1

Dan berikut adalah listing programnya :

Private Sub cmd_end_Click()
    End
End Sub
Private Sub cmd_proses_Click()
    If Opt_lk.Value = True Then
    jk = “Laki-laki”
    Else
    jk = “Perempuan”
    End If
    If c_basic.Value = 1 And c_c.Value = 1 And c_cplus.Value = 1 And c_php.Value And c_java.Value = 1 Then
        bahasa = c_basic.Caption & “, ” & c_c.Caption & “, ” & c_cplus.Caption & “, ” & c_php.Caption & “, ” & c_java.Caption
    ElseIf c_basic.Value = 1 And c_c.Value = 1 And c_cplus.Value = 1 And c_php.Value Then
        bahasa = c_basic.Caption & “, ” & c_c.Caption & “, ” & c_cplus.Caption & “, ” & c_php.Caption
    ElseIf c_basic.Value = 1 And c_c.Value = 1 And c_cplus.Value = 1 Then
        bahasa = c_basic.Caption & “, ” & c_c.Caption & “, ” & c_cplus.Caption
    ElseIf c_basic.Value = 1 And c_c.Value = 1 Then
        bahasa = c_basic.Caption & “, ” & c_c.Caption
    ElseIf c_basic.Value = 1 Then
        bahasa = c_basic.Caption
    ElseIf c_c.Value = 1 Then
        bahasa = c_c.Caption
    ElseIf c_cplus.Value = 1 Then
        bahasa = c_cplus.Caption
    ElseIf c_php.Value = 1 Then
        bahasa = c_php.Caption
    ElseIf c_java.Value = 1 Then
        bahasa = c_java.Caption
    Else
        bahasa = “tidak ada bahasa yang dikuasai”
    End If
    txt_resume.Text = “Nama lengkap : ” + txt_nama.Text + vbCrLf + vbCrLf + “Tempat lahir : ” + txt_tempat.Text + vbCrLf + vbCrLf + “Tanggal lahir : ” + cmb_tgl.Text + “-” + cmb_bulan.Text + “-” + cmb_tahun.Text + vbCrLf + vbCrLf + “Jenis kelamin : ” + jk + vbCrLf + vbCrLf + “Alamat : ” + txt_alamat.Text + vbCrLf + vbCrLf + “Bahasa yang dikuasai : ” + vbCrLf + bahasa
End Sub
(Keterangan : untuk coding txt_resume , ditulis mendatar . karena apabila menggunakan  enter , program tersebut akan error)
Private Sub cmd_refresh_Click()
    txt_nama.Text = “”
    txt_tempat.Text = “”
    cmb_tgl.Text = “”
    cmb_bulan.Text = “”
    cmb_tahun.Text = “”
    txt_alamat.Text = “”
End Sub
Private Sub Form_Load()
    cmb_tgl.AddItem “1”
    cmb_tgl.AddItem “2”
    cmb_tgl.AddItem “3”
    cmb_tgl.AddItem “4”
    cmb_tgl.AddItem “5”
    cmb_tgl.AddItem “6”
    cmb_tgl.AddItem “7”
    cmb_tgl.AddItem “8”
    cmb_tgl.AddItem “9”
    cmb_tgl.AddItem “10”
    cmb_tgl.AddItem “11”
    cmb_tgl.AddItem “12”
    cmb_tgl.AddItem “13”
    cmb_tgl.AddItem “14”
    cmb_tgl.AddItem “15”
    cmb_tgl.AddItem “16”
    cmb_tgl.AddItem “17”
    cmb_tgl.AddItem “18”
    cmb_tgl.AddItem “19”
    cmb_tgl.AddItem “20”
    cmb_tgl.AddItem “21”
    cmb_tgl.AddItem “22”
    cmb_tgl.AddItem “23”
    cmb_tgl.AddItem “24”
    cmb_tgl.AddItem “25”
    cmb_tgl.AddItem “26”
    cmb_tgl.AddItem “27”
    cmb_tgl.AddItem “28”
    cmb_tgl.AddItem “29”
    cmb_tgl.AddItem “30”
    cmb_tgl.AddItem “31”
    cmb_bulan.AddItem “Januari”
    cmb_bulan.AddItem “Februari”
    cmb_bulan.AddItem “Maret”
    cmb_bulan.AddItem “April”
    cmb_bulan.AddItem “Mei”
    cmb_bulan.AddItem “Juni”
    cmb_bulan.AddItem “Juli”
    cmb_bulan.AddItem “Agustus”
    cmb_bulan.AddItem “September”
    cmb_bulan.AddItem “Oktober”
    cmb_bulan.AddItem “November”
    cmb_bulan.AddItem “Desember”
    cmb_tahun.AddItem “1980”
    cmb_tahun.AddItem “1981”
    cmb_tahun.AddItem “1982”
    cmb_tahun.AddItem “1983”
    cmb_tahun.AddItem “1984”
    cmb_tahun.AddItem “1985”
    cmb_tahun.AddItem “1986”
    cmb_tahun.AddItem “1987”
    cmb_tahun.AddItem “1989”
    cmb_tahun.AddItem “1990”
    cmb_tahun.AddItem “1991”
    cmb_tahun.AddItem “1992”
    cmb_tahun.AddItem “1993”
    cmb_tahun.AddItem “1994”
    cmb_tahun.AddItem “1995”
    cmb_tahun.AddItem “1996”
    cmb_tahun.AddItem “1997”
    cmb_tahun.AddItem “1998”
    cmb_tahun.AddItem “1999”
    cmb_tahun.AddItem “2000”
    cmb_tahun.AddItem “2001”
    cmb_tahun.AddItem “2002”
    cmb_tahun.AddItem “2003”
    cmb_tahun.AddItem “2004”
    cmb_tahun.AddItem “2005”
    cmb_tahun.AddItem “2006”
    cmb_tahun.AddItem “2007”
    cmb_tahun.AddItem “2008”
    cmb_tahun.AddItem “2009”
    cmb_tahun.AddItem “2010”
    cmb_tahun.AddItem “2011”
    cmb_tahun.AddItem “2012”
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s