VB Huruf Mutu Mahasiswa STMIK Pringsewu

 

Code VB Huruf Mutu Mahasiswa STMIK Pringsewu :

Private Sub Combo1_Click()
Dim nama, jurusan, NM As String
Select Case Combo1.Text
Case “12100654”
nama = “Rivandi Saputra”
jurusan = “Sistem Informasi”
Case “12100655”
nama = “Revita Yulistina”
jurusan = “Sistem Informasi”
Case “12100409”
nama = “Windri Puji Astuti”
jurusan = “Sistem Informasi”
Case “12100410”
nama = “Dwi Indah”
jurusan = “Sistem Informasi”
Case “12100414”
nama = “Suntiaji Yudo Negoro”
jurusan = “Sistem Informasi”
Case “12201111”
nama = “Fajar Deswantoro”
jurusan = “Manajemen Informatika”
Case “12100413”
nama = “Herianto”
jurusan = “Sistem Informasi”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim na As Integer
Dim hm As String
quis = Val(Text3.Text)
TUGAS = Val(Text4.Text)
uts = Val(Text5.Text)
uas = Val(Text6.Text)
na = (quis + TUGAS + uts + uas) / 4
Text7.Text = na
Select Case Text7.Text
Case Is > 80
hm = “A”
Case Is > 70
hm = “B”
Case Is > 60
hm = “C”
Case Is > 50
hm = “D”
Case Is < 50
hm = “E”
End Select
Text8.Text = hm
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100654”
Combo1.AddItem “12100655”
Combo1.AddItem “12100409”
Combo1.AddItem “12100410”
Combo1.AddItem “12100414”
Combo1.AddItem “12100413”
Combo1.AddItem “12201111”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s