Tugas huruf mutu proses dan enter

a. Huruf mutu Proses

TUGAS 2

b. Huruf Mutu Enter

TUGAS 2.2

Private Sub CboNPM_Click()
Dim NAMA, JURUSAN, hm As String

Select Case CboNPM.Text
Case “14100211”
NAMA = “ADELIA YUTIKA”
JURUSAN = “SISTEM INFORMASI”

Case “14100445”
NAMA = “EKA APRILIA”
JURUSAN = “SISTEM INFORMASI”

Case “14100411”
NAMA = “OVITRIA NINGSIH”
JURUSAN = “SISTEM INFORMASI”

Case “14201052”
NAMA = “TIA ALFIANA”
JURUSAN = “MANAJEMEN INFORMATIKA”

Case “14100223”
NAMA = “CIYE”
JURUSAN = “SISTEM INFORMASI”

Case “14100476”
NAMA = “AHAY DE”
JURUSAN = “SISTEM INFORMASI”

Case “141OO408”
NAMA = “ITA ROFOQOH”
JURUSAN = “SISTEM INFORMASI”

Case “14100412”
NAMA = “HENI KARTIKA SARI”
JURUSAN = “SISTEM INFORMASI”

Case “14100200”
NAMA = “HELLO”
JURUSAN = “SISTEM INFORMASI”

Case “14100400”
NAMA = “EHEMMMB”
JURUSAN = “SISTEM INFORMASI”
End Select
TxtNama.Text = NAMA
TxtJurusan.Text = JURUSAN
TxtQuis.SetFocus

End Sub

Private Sub Cmdbatal_Click()
CboNPM.SetFocus
CboNPM = “”
NAMA = “”
JURUSAN = “”
quis = “”
tugas = “”
uts = “”
uas = “”
na = “”
hm = “”

End Sub

Private Sub cmdKeluar_Click()
Unload Me

End Sub

Private Sub cmdProses_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
hm = “A”
Case Is > 80
hm = “B”
Case Is > 70
hm = “C”
Case Is > 65
hm = “D”
Case Is < 60
hm = “E”
End Select
Txthm.Text = hm

End Sub

Private Sub Form_Load()
CboNPM.AddItem “14100211”
CboNPM.AddItem “14100445”
CboNPM.AddItem “14100411”
CboNPM.AddItem “14201052”
CboNPM.AddItem “14100223”
CboNPM.AddItem “14100476”
CboNPM.AddItem “141OO408”
CboNPM.AddItem “14100412”
CboNPM.AddItem “14100200”
CboNPM.AddItem “14100400”

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
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 > 85
hm = “A”
Case Is > 80
hm = “B”
Case Is > 75
hm = “C”
Case Is > 60
hm = “D”
Case Is < 55
hm = “E”
End Select
Txthm.Text = hm
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 )

Foto Google+

You are commenting using your Google+ 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 )

Connecting to %s