tugas 12

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()
Dim J, P, S As String
S = Mid(Txtnpm, 4, 2)
If S = “01” Then
J = “sistem informasi”
ElseIf S = “02” Then
J = “teknik informatika”
ElseIf S = “03” Then
J = “menejemen informatika”
ElseIf S = “04” Then
J = “komputer akutansi”
End If
Txtjur = J
S = Mid(Txtnpm, 3, 1)
If S = “1” Then
P = “strata satu”
ElseIf S = “2” Then
P = “diploma dua”
ElseIf S = “3” Then
P = “diploma tiga”
End If
Txtprodi = P
Txttm = “20” & Left(Txtnpm, 2)
Txturut = Right(Txtnpm, 3)

End Sub
Private Sub form_activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

GAMBAR TUGAS PERTEMUAN 2.2

 

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s