tugas 6-7. menggunakan proses

sourch kode

 

Private Sub Command1_Click()

Dim K, J, P As String

K = Mid(Txtnpm.Text, 3, 1)

If K = “1” Then

J = “SISTEM INFORMASI”

P = “STRATA SATU”

ElseIf K = “2” Then

J = “MANAJEMEN INFORMATIKA”

P = “DIPLOMA 3”

ElseIf K = “3” Then

J = “TEKNIK INFORMATIKA”

P = “DIPLOMA 2”

ElseIf K = “4” Then

J = “KOMPUTER AKUNTASNI”

P = “DIPLOMA 4”

End If

Txtjur.Text = J

Txtps.Text = P

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

Txturut.Text = Right(Txtnpm.Text, 5)

End Sub

 

Private Sub Command2_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

End Sub

 

Private Sub Command3_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P As String

K = Mid(Txtnpm.Text, 3, 1)

If K = “1” Then

J = “SISTEM INFORMASI”

P = “STRATA SATU”

ElseIf K = “2” Then

J = “MANAJEMEN INFORMATIKA”

P = “DIPLOMA 3”

ElseIf K = “3” Then

J = “TEKNIK INFORMATIKA”

P = “DIPLOMA 2”

ElseIf K = “4” Then

J = “KOMPUTER AKUNTASNI”

P = “DIPLOMA 4”

End If

Txtjur.Text = J

Txtps.Text = P

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

Txturut.Text = Right(Txtnpm.Text, 5)

End If

 

End Sub