MEMBUAT BODATA PAKAI VB 6.0

Private Sub CmdProses_Click()

TxtBiodata.Text = ""

If OptLakilaki.Value = True Then

    OptJenisKelamin = "Laki-laki"

    Else

    OptJenisKelamin = "Perempuan"

    End If

    If ChkMembaca.Value = 1 Then

    ChkHobby = "Membaca"

    Else

    ChkHobby = "Musik"

   

   

    End If

    TxtArmawansyah.Text = "ARMAWANSYAH"

    TxtTempat.Text = "Padang Guci, "

    TxtAlamat.Text = "Ds. Selika 1, Jl Lintas Barat, Kec. Tj Kemuning, Kab KAUR"

    TxtBiodata.Text = "Nama: " + TxtArmawansyah.Text + vbCrLf + "Tempat Tanggal Lahir: " + TxtTempat.Text + CboTanggal.Text + CboBulan.Text + CboTahun.Text + vbCrLf + "JenisKelamin: " + OptJenisKelamin + vbCrLf + "Alamat: " + TxtAlamat.Text + vbCrLf + "Hobby: " + ChkHobby

End Sub

Private Sub CmdSelesai_Click()

End

End Sub

Private Sub Form_Load()

CboTanggal.AddItem "01"

CboTanggal.AddItem "02"

CboTanggal.AddItem "03"

CboTanggal.AddItem "04"

CboTanggal.AddItem "05"

CboTanggal.AddItem "06"

CboTanggal.AddItem "07"

CboTanggal.AddItem "08"

CboTanggal.AddItem "09"

CboTanggal.AddItem "10"

CboTanggal.AddItem "11"

CboTanggal.AddItem "12"

CboTanggal.AddItem "13"

CboTanggal.AddItem "14"

CboTanggal.AddItem "15"

CboTanggal.AddItem "16"

CboTanggal.AddItem "17"

CboTanggal.AddItem "18"

CboTanggal.AddItem "19"

CboTanggal.AddItem "20"

CboTanggal.AddItem "21"

CboTanggal.AddItem "22"

CboTanggal.AddItem "23"

CboTanggal.AddItem "24"

CboTanggal.AddItem "25"

CboTanggal.AddItem "26"

CboTanggal.AddItem "27"

CboTanggal.AddItem "28"

CboTanggal.AddItem "29"

CboTanggal.AddItem "30"

CboTanggal.AddItem "31"

CboBulan.AddItem "Januari"

CboBulan.AddItem "Februari"

CboBulan.AddItem "Maret"

CboBulan.AddItem "April"

CboBulan.AddItem "Mei"

CboBulan.AddItem "Juni"

CboBulan.AddItem "Juli"

CboBulan.AddItem "Agustus"

CboBulan.AddItem "September"

CboBulan.AddItem "Oktober"

CboBulan.AddItem "November"

CboBulan.AddItem "Desember"

CboTahun.AddItem "2013"

CboTahun.AddItem "2012"

CboTahun.AddItem "2011"

CboTahun.AddItem "2010"

CboTahun.AddItem "2009"

CboTahun.AddItem "2008"

CboTahun.AddItem "2007"

CboTahun.AddItem "2006"

CboTahun.AddItem "2005"

CboTahun.AddItem "2004"

CboTahun.AddItem "2003"

CboTahun.AddItem "2002"

CboTahun.AddItem "2001"

CboTahun.AddItem "2000"

CboTahun.AddItem "1999"

CboTahun.AddItem "1998"

CboTahun.AddItem "1997"

CboTahun.AddItem "1996"

CboTahun.AddItem "1995"

CboTahun.AddItem "1994"

CboTahun.AddItem "1993"

CboTahun.AddItem "1992"

CboTahun.AddItem "1991"

CboTahun.AddItem "1990"

CboTahun.AddItem "1989"

CboTahun.AddItem "1988"

CboTahun.AddItem "1987"

End Sub