- HOME Radit ditdot

Visual Basic Data diri SOURCE CODE : Private Sub Command1_Click() If Option1.Value = True Then jk = "Laki-laki&quo... thumbnail 1 summary

22:51

Visual Basic

Data diri

SOURCE CODE :

Private Sub Command1_Click()
If Option1.Value = True Then jk = "Laki-laki" Else: jk = "Perempuan"
If Option2.Value = True Then jk = "Perempuan" Else: jk = "Laki-laki"
Text4.Text = "Nama lengkap : " + Text1.Text + vbCrLf + "Tempat lahir : " + Text2.Text + vbCrLf + "Tanggal lahir : " + Combo1.Text + "-" + Combo2.Text + "-" + Combo3.Text + vbCrLf + "Jenis kelamin : " + jk + vbCrLf + "Alamat : " + Text3.Text + vbCrLf + "Bahasa yang dikuasai : " + vbCrLf + bahasa
If Check1.Value = 1 Then
bahasa = Check1.Caption
ElseIf Check4.Value = 1 Then
bahasa = Check4.Caption
ElseIf Check2.Value = 1 Then
bahasa = Check2.Caption
ElseIf Check3.Value = 1 Then
bahasa = Check3.Caption
ElseIf Check5.Value = 1 Then
bahasa = Check5.Caption
End If

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 "January"
Combo2.AddItem "February"
Combo2.AddItem "Maret"
Combo2.AddItem "April"
Combo2.AddItem "Mei"
Combo2.AddItem "Juni"
Combo2.AddItem "Juli"
Combo2.AddItem "Agustus"
Combo2.AddItem "September"
Combo2.AddItem "Oktober"
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"
End Sub
Private Sub Command2_Click()
End
End Sub

Tampilan yangsudah jadi VB nya