Tampilan Form
Pada Form1
Private Sub isicmbbln()
Dim ulang1 As Integer
[Link] = "bulan"
ulang1 = 1
Do While (ulang1 <= 12)
[Link] (ulang1)
ulang1 = ulang1 + 1
Loop
End Sub
Private Sub isilist()
Dim ulang As Integer
[Link] = "tanggal"
ulang = 1
Do While (ulang <= 31)
[Link] (ulang)
ulang = ulang + 1
Loop
End Sub
Private Sub isicmbtahun()
Dim ulang2 As Integer
[Link] = "tahun"
ulang2 = 1990
Do While (ulang2 <= 2020)
[Link] (ulang2)
ulang2 = ulang2 + 1
Loop
End Sub
Private Sub Check1_Click()
If [Link] = 1 Then
[Link] = "FC Ijasah"
[Link] = False
End If
End Sub
Private Sub Check3_Click()
If [Link] = 1 Then
[Link] = "SKCK"
[Link] = False
End If
End Sub
Private Sub Check4_Click()
If [Link] = 1 Then
[Link] = "PAS PHOTO"
[Link] = False
End If
End Sub
Private Sub Combo1_LOSTFOCUS()
[Link]
If [Link] = "PASCASARJANA" Then
[Link] "MAGISTER PSIKOLOGI"
Else
If [Link] = "ILMU TEKNIK" Then
[Link] "TEKNIK SIPIL"
[Link] "TEKNIK MESIN"
[Link] "TEKNIK ELEKTRO"
[Link] "TEKNIK GEOLOGI"
[Link] "TEKNIK INDUSTRI"
[Link] "TEKNIK LISTRIK"
[Link] "TEKNIK KIMIA"
[Link] "PENDIDIKAN TEKNIK"
[Link] "TEKNIK TAMBANG"
Else
If [Link] = "EKONOMIKA DAN BISNIS" Then
[Link] "MANAJEMEN"
[Link] "AKUNTANSI"
[Link] "KEUANGAN"
Else
If [Link] = "ILMU PERTANIAN" Then
[Link] "KEHUTANAN"
[Link] "PERTANIAN"
Else
If [Link] = "ILMU KESEHATAN" Then
[Link] "KESEHATAN MASYARAKAT"
[Link] "HIPERKES / K3"
[Link] "KEPERAWATAN"
Else
If [Link] = "TEKNOLOGI INFORMASI" Then
[Link] "TEKNIK KOMPUTER"
[Link] "TEKNIK INFORMATIKA"
[Link] "KOMUNIKASI"
[Link] "MANAJEMEN INFORMATIKA"
Else
If [Link] = "PSIKOLOGI" Then
[Link] "PSIKOLOGI"
[Link] "ANTROPOLOGI"
Else
If [Link] = "HUKUM" Then
[Link] "ILMU HUKUM"
Else
If [Link] = "ILMU SAINS" Then
[Link] "MATEMATIKA"
[Link] "STATISTIKA"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
Dim Syarat, S1, S2, S3, S4 As String
Form2.Text1 = [Link]
Form2.Text2 = [Link]
Form2.Text3 = [Link]
Form2.Text4 = [Link]
Form2.Text5 = [Link]
Form2.Text7 = [Link]
Form2.Text6 = [Link]
Form2.Text11 = [Link]
Form2.Text12 = [Link]
Form2.Text13 = [Link]
Form2.Text14 = [Link]
Dim bulan, tanggal As String
tanggal = DateSerial(Val([Link]), Val([Link]), Val([Link]))
If (DatePart("m", tanggal) = 1) Then
bulan = "Januari"
Else
If (DatePart("m", tanggal) = 2) Then
bulan = "Pebruari"
Else
If (DatePart("m", tanggal) = 3) Then
bulan = "Maret"
Else
If (DatePart("m", tanggal) = 4) Then
bulan = "April"
Else
If (DatePart("m", tanggal) = 5) Then
bulan = "Mei"
Else
If (DatePart("m", tanggal) = 6) Then
bulan = "Juni"
Else
If (DatePart("m", tanggal) = 7) Then
bulan = "Juli"
Else
If (DatePart("m", tanggal) = 8) Then
bulan = "Agustus"
Else
If (DatePart("m", tanggal) = 8) Then
bulan = "September"
Else
If (DatePart("m", tanggal) = 10) Then
bulan = "Oktober"
Else
If (DatePart("m", tanggal) = 11) Then
bulan = "Nopember"
Else
If (DatePart("m", tanggal) = 12) Then
bulan = "Desember"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
If [Link] = 1 Then
S1 = [Link]
End If
If [Link] = 1 Then
S2 = [Link]
End If
If [Link] = 1 Then
S3 = [Link]
End If
If [Link] = 1 Then
S4 = [Link]
End If
Syarat = S1 + S2 + S3 + S4
[Link] = tanggal
If [Link] = True Then
JK = [Link]
Else
If [Link] = True Then
JK = [Link]
End If
End If
[Link] = JK
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
End If
End If
End If
End If
End If
[Link] = AGAMA
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
Else
If [Link] = True Then
AGAMA = [Link]
End If
End If
End If
End If
End If
[Link] = Syarat
[Link]
End Sub
Private Sub Command2_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
isicmbbln
isilist
isicmbtahun
[Link] "Menikah"
[Link] "Belum Menikah"
[Link] "Janda/Duda"
[Link] "Production Group Leader"
[Link] "Management Development Office"
[Link] "Engineering Group Leader"
[Link] "Data Evaluator"
[Link] "Plant Group Leader"
[Link] "Suplly Management Group Leader"
[Link] "Safety Officer"
[Link] "General Services Group Leader"
[Link] "Bussines Development Officer"
[Link] "Human Capital Officer"
[Link] "Organization Development Officer"
[Link] "Recruitment & Selection Officer"
[Link] "Corporate Internal Audit"
[Link] "Corp. Social Resposibility Officer"
[Link] "Human Capital Group Leader"
[Link] "Corporate Legal Officer"
[Link] "Information System Officer"
[Link] "FA Officer"
[Link] "Payroll Officer"
[Link] "D-3"
[Link] "S-1"
[Link] "S-2"
[Link] = "Pilih Fakultas"
[Link] "PASCASARJANA"
[Link] "ILMU TEKNIK"
[Link] "EKONOMIKA DAN BISNIS"
[Link] "ILMU PERTANIAN"
[Link] "ILMU KESEHATAN"
[Link] "TEKNOLOGI INFORMASI"
[Link] "PSIKOLOGI"
[Link] "HUKUM"
[Link] "ILMU SAINS"
End Sub
Pada Form2
Private Sub Command1_Click()
Unload Me
End Sub
