Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtno.Text = “”
txtuang.Text = “”
txtbp.Text = “”
txtub.Text = “”
txtb.Text = “”
txttb.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtno.Text = “”
txtuang.Text = “”
txtbp.Text = “”
txtub.Text = “”
txtb.Text = “”
txttb.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim x As String
x = Left(txtnpm.Text, 1)
If x = “E” Then
txtkelas.Text = “Eksekutif”
txtb.Text = “600000”
txtub.Text = “1250000”
txtb.Text = “600000”
ElseIf x = “R” Then
txtkelas.Text = “Reguler”
txtb.Text = “600000”
txtub.Text = “1000000”
txtb.Text = “600000”
End If
txttm.Text = “20” & Mid(txtnpm.Text, 3, 2)
txtno.Text = Right(txtnpm.Text, 3)
x = Mid(txtnpm.Text, 5, 1)
If x = “1” Then
txtjurusan.Text = “Sistem Informasi”
ElseIf x = “2” Then
txtjurusan.Text = “Managemen Informatika”
ElseIf x = “3” Then
txtjurusan.Text = “Managemen dan Komp. Akuntansi”
End If
x = Mid(txtnpm.Text, 6, 2)
If x = “01” Then
txtps.Text = “Strata Satu”
txtuang.Text = “200000”
ElseIf x = “02” Then
txtps.Text = “Diploma Tiga”
txtuang.Text = “150000”
ElseIf x = “03” Then
txtps.Text = “Diploma Satu”
txtuang.Text = “150000”
End If
x = Left(txtnpm.Text, 1) & Mid(txtnpm.Text, 6, 2)
If x = “E” & “01” Then
txtbp.Text = “1900000”
ElseIf x = “E” & “02” Then
txtbp.Text = “1650000”
ElseIf x = “E” & “03” Then
txtbp.Text = “1350000”
ElseIf x = “R” & “01” Then
txtbp.Text = “1500000”
ElseIf x = “R” & “02” Then
txtbp.Text = “1250000”
ElseIf x = “R” & “03” Then
txtbp.Text = “1250000”
End If
txttb.Text = Val(txtuang.Text) + Val(txtbp.Text) + Val(txtub.Text) + Val(txtb.Text)
End Sub
Private Sub txtb_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
txttb.Text = Val(txtuang.Text) + Val(txtbp.Text) + Val(txtub.Text) + Val(txtb.Text)
End If
End Sub