TUGAS 3.2

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama = ""

txtnpm = ""

txtjurusan = ""

txtprodi = ""

txttm = ""

txtnorut = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

Txtnama.SetFocus

Txtnama = ""

txtnpm = ""

txtjurusan = ""

txtprodi = ""

txttm = ""

txtnorut = ""

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 = "Menejemen Informasi "

ElseIf s = "3" Then

txtjurusan.Text = "Tehnik Komputer"

ElseIf s = "4" Then

txtjurusan.Text = "Menejemen & Komp. Akuntansi"

End If

s = Mid(txtnpm.Text, 4, 2)

If s = "01" Then

txtprodi.Text = "strata satu"

ElseIf s = "02" Then

txtprodi.Text = "Diploma Tiga"

ElseIf s = "03" Then

txtprodi.Text = "Diploma Empat"

ElseIf s = "04" Then

txtprodi.Text = "Diploma Dua"

End If

txtnorut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub form_activate()

Txtnama.SetFocus

Txtnama = ""

txtnpm = ""

txtjurusan = ""

txtprodi = ""

txttm = ""

txtnorut = ""

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub