Jumat, 01 Februari 2013

0 Tutorial Vb |Membuat Biodata

setelah sekian kali saya coba buat aplikasi biodata menggunakan visual basic, akhirnya bisa juga.
untuk itu, saya akan share ne ma sobat semua,
semoga saja bermanfaat ya...:

ne uraian pembuatannya nya heeheeeee... *mg buat makalah...





buat format seperti gambar diatas...
menggunakan Label, Textbox, Command Button, Line, Check box, Option button, dll.

kemudian == > code :
copy + Paste kan code dibawah ini :

 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

untuk pengaturan Command button lihat code dibawah ini :


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

Untuk pengaturan command button_tanggal, bulan dan tahun, lihat code dibawah ini :

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



lalu lihat hasilnya...!

catatan : kalau misalnya Error, silahkan cek lagi letak kesalahannya..

kalau mau yang instant, download aja dech... here...!

0 komentar:

Poskan Komentar

 

Pemograman Visual Basic Copyright © 2011 - |- Template created by O Pregador - |- Powered by Blogger Templates