TUGAS 3.2

TUGAS 3.2

MENCARI DATA MAHASISWA

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama = ""

Txtnpm = ""

Txtjur = ""

Txtps = ""

Txttm = ""

Txturut = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama = ""

Txtnpm = ""

Txtjur = ""

Txtps = ""

Txttm = ""

Txturut = ""

End Sub

Private Sub Cmdproses_Click()

Dim D As String

Txttm = "20" & Left(Txtnpm, 2)

D = Mid(Txtnpm, 3, 1)

If D = "1" Then

Txtjur = "Sistem Informasi"

ElseIf D = "2" Then

Txtjur = "Manajemen Informatika"

ElseIf D = "3" Then

Txtjur = "Tehnik Informatina"

ElseIf D = "4" Then

Txtjur = "Manajemen & kom.Akuntansi"

End If

D = Mid(Txtnpm, 4, 2)

If D = "01" Then

Txtps = "Strata Satu"

ElseIf D = "02" Then

Txtps = "Diploma Tiga"

ElseIf D = "03" Then

Txtps = "Diploma Empat"

ElseIf D = "04" Then

Txtps = "Diploma Dua"

End If

Txturut = Right(Txtnpm, 3)

End Sub

Private Sub Form_Activate()

Txtnama.SetFocus

Txtnama = ""

Txtnpm = ""

Txtjur = ""

Txtps = ""

Txttm = ""

Txturut = ""

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub