RSS

Tugas 5

HURUF MUTU

 

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100091”
nama = “ELLY KURNIAWATI”
jurusan = “Sistem Informasi”

Case “12100009”
nama = “MUTMAINAH”
jurusan = “Sistem Informasi”

Case “12100011”
nama = “NINA ARIFA”
jurusan = “Sistem Informasi”

Case “12100020”
nama = “UMI SAKINAH”
jurusan = “Sistem Informasi”

Case “12100018”
nama = “MUHAMMAD FIDDIN”
jurusan = “Sistem Informasi”

End Select
Txtnama.Text = nama
Txtjurusan.Text = jurusan
Txtquis.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
quis = Val(Txtquis.Text)
tugas = Val(Txttugas.Text)
uts = Val(Txtuts.Text)
uas = Val(TxtUAS.Text)
NA = (quis + tugas + uts + uas) / 4
TXTNA.Text = NA
Select Case TXTNA.Text

Case Is > 80
txtHM = “A”
Case Is > 70
txtHM = “B”
Case Is > 60
txtHM = “c”
Case Is > 50
txtHM = “D”

Case Is < 50
txtHM = “E”
End Select
txtHM.Text = txtHM
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1 = “”
Txtnama = “”
Txtjurusan = “”
Txtquis = “”
Txttugas = “”
Txtuts = “”
TxtUAS = “”
TXTNA = “”
txtHM = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100091”
Combo1.AddItem “12100009”
Combo1.AddItem “12100011”
Combo1.AddItem “12100020”
Combo1.AddItem “12100018”
End Sub
Private Sub Txtquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttugas.SetFocus
End If
End Sub
Private Sub Txttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtuts.SetFocus
End If
End Sub
Private Sub TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNA.SetFocus
End If
End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUAS.SetFocus
End If
End Sub

Iklan
 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: