Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtuang.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttb.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtuang.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttb.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Mid(txtnpm.Text, 3, 2)
s = Mid(txtnpm.Text, 5, 1)
If s = “1” Then
txtjurusan.Text = “sistem informasi”
ElseIf s = “2” Then
txtjurusan.Text = “manajemen informatika”
ElseIf s = “3” Then
txtjurusan.Text = “manajemen & komp.akuntansi”
End If
s = Mid(txtnpm.Text, 6, 2)
If s = “01” Then
txtpstudi.Text = “strata satu”
ElseIf s = “02” Then
txtpstudi.Text = “diploma tiga”
ElseIf s = “03” Then
txtpstudi.Text = “diploma satu”
End If
s = Left(txtnpm.Text, 1) & Mid(txtnpm.Text, 6, 2)
If s = “E” & “01” Then
txtkelas.Text = “Eksekutif”
txtuang.Text = “200000”
txtbiaya.Text = “1900000”
txtbangun.Text = “1250000”
txtpropti.Text = “600000”
ElseIf s = “E” & “02” Then
txtkelas.Text = “Eksekutif”
txtuang.Text = “150000”
txtbiaya.Text = “1650000”
txtbangun.Text = “1250000”
txtpropti.Text = “600000”
ElseIf s = “E” & “03” Then
txtkelas.Text = “Eksekutif”
txtuang.Text = “150000”
txtbiaya.Text = “1350000”
txtbangun.Text = “1250000”
txtpropti.Text = “600000”
ElseIf s = “R” & “01” Then
txtkelas.Text = “Reguler”
txtuang.Text = “200000”
txtbiaya.Text = “1500000”
txtbangun.Text = “1000000”
txtpropti.Text = “600000”
ElseIf s = “R” & “02” Then
txtkelas.Text = “Reguler”
txtuang.Text = “150000”
txtbiaya.Text = “1250000”
txtbangun.Text = “1000000”
txtpropti.Text = “600000”
ElseIf s = “R” & “03” Then
txtkelas.Text = “Reguler”
txtuang.Text = “150000”
txtbiaya.Text = “1250000”
txtbangun.Text = “1000000”
txtpropti.Text = “600000”
End If
txttb.Text = Val(txtuang.Text) + Val(txtbiaya.Text) + Val(txtbangun.Text) + Val(txtpropti.Text)
txtnurut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtpstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtuang.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttb.Text = “”
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
rizkiwidastmikpringsewu 