Private Sub Cmd.docx

Private Sub cmd_proses_Click() If opt_lk.Value = True Then jk = "Laki-laki" Else jk = "Perempuan" End If If c_membaca.Value = 1 And c_menyanyi.Value = 1 And c_mainmusik.Value = 1 And c_nonton.Value And c_traveling.Value = 1 Then bahasa = c_membaca.Caption & ", " & c_menyanyi.Caption & ", " & c_mainmusik.Caption & ", " & c_traveling.Caption & ", " & c_nonton.Caption ElseIf c_membaca.Value = 1 And c_menyanyi.Value = 1 And c_mainmusik.Value = 1 And c_traveling.Value Then bahasa = c_membaca.Caption & ", " & c_menyanyi.Caption & ", " & c_mainmusik.Caption & ", " & c_traveling.Caption ElseIf c_membaca.Value = 1 And c_menyanyi.Value = 1 And c_mainmusik.Value = 1 Then bahasa = c_membaca.Caption & ", " & c_menyanyi.Caption & ", " & c_mainmusik.Caption ElseIf c_membaca.Value = 1 And c_menyanyi.Value = 1 Then bahasa = c_membaca.Caption & ", " & c_menyanyi.Caption ElseIf c_membaca.Value = 1 Then bahasa = c_membaca.Caption ElseIf c_menyanyi.Value = 1 Then bahasa = c_menyanyi.Caption ElseIf c_mainmusik.Value = 1 Then bahasa = c_mainmusik.Caption ElseIf c_traveling.Value = 1 Then bahasa = c_traveling.Caption ElseIf c_nonton.Value + 1 Then bahasa = c_nonton.Caption Else bahasa "tidak memiliki hobi" 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 + "Hobi : " + vbCrLf + bahasa

End Sub

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 cmd_selesai_Click() End End Sub