Tugas 3 BP2


Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = ""
Textnpm = ""
Textjr = ""
Textps = ""
Texttm = ""
Texturut = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Textnama.SetFocus
Textnama = ""
Textnpm = ""
Textjr = ""
Textps = ""
Texttm = ""
Texturut = ""
End Sub

Private Sub Cmdproses_Click()
Dim a As String
Texttm = "20" & Left(Textnpm, 2)
a = Mid(Textnpm, 3, 1)
If a = "1" Then
Textjr = "sistem informasi"
ElseIf a = "2" Then
Textjr = "teknik informatika"
ElseIf a = "3" Then
Textjr = "manajemen informatika"
ElseIf a = "4" Then
Textjr = "komputer akuntansi"
End If
a = Mid(Textnpm, 4, 2)
If a = "00" Then
Textps = "Strata Satu"
ElseIf a = "01" Then
Textps = "Diploma empat"
ElseIf a = "02" Then
Textps = "Diploma tiga"
ElseIf a = "03" Then
Textps = "Diploma Dua"
End If
Texturut = Right(Textnpm, 3)
End Sub

Private Sub Texnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Textnpm.SetFocus
End If

End Sub

Komentar

Postingan populer dari blog ini

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone