TIPE 3

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjurusan = “”
txtprodi = “”
txttm = “”
txturut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjurusan = “”
txtprodi = “”
txttm = “”
txturut = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjurusan.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjurusan.Text = “Manajemen Informatika”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “01” Then
txtprodi.Text = “Strata Satu”
ElseIf S = “02” Then
txtprodi.Text = “Diploma Empat”
End If
txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

TIPE 2

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjurusan = “”
txtprodi = “”
txttm = “”
txturut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjurusan = “”
txtprodi = “”
txttm = “”
txturut = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjurusan.Text = “Sistem Informasi”
txtprodi.Text = “Strata Satu”
ElseIf S = “2” Then
txtjurusan.Text = “Manajemen Informatika”
txtprodi.Text = “Diploma Tiga”
End If
txturut.Text = Right(txtnpm.Text, 5)

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

TIPE 1

Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn = “”
txtnama = “”
cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn = “”
txtnama = “”
cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub

Private Sub cbogolongan_Click()
Select Case cbogolongan.Text
Case “I”
gapok = 1000000
tunjangan = 100000
Case “II”
gapok = 1500000
tunjangan = 150000
Case “III”
gapok = 2000000
tunjangan = 200000
Case “IV”
gapok = 2500000
tunjangan = 250000
Case Else
gapok = 3000000
tunjangan = 300000
End Select
total = Val(gapok) + Val(tunjangan)
pajak = Val(total) * 0.1
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttotal.Text = total – pajak
End Sub

Private Sub Form_load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub