tugas4

Screenshot_4

 

 

Private Sub combo1npm_Click()

Select Case combo1npm.Text

Case “15201004”

nama = “ANTON ARMANSAH”

jurusan = “SISTEM INFORMASI”

 

Case “15100149”

nama = “BAHTIAR RIFAI”

jurusan = “SISTEM INFORMASI”

 

Case “15100151”

nama = “BAYU SULAIMAN”

jurusan = “SISTEM INFORMASI”

 

Case “15201003”

nama = “DAMAIYANTI”

jurusan = “SISTEM INFORMASI”

 

Case “15100162”

nama = “DEWI AMBARWATI”

jurusan = “SISTEM INFORMASI”

 

Case “15100182”

nama = “DEWI SANTIKA”

jurusan = “SISTEM INFORMASI”

 

Case “15100113”

nama = “DIAN ANGGARA”

jurusan = “SISTEM INFORMASI”

 

Case “15100148”

nama = “ETI SRI ASIH”

jurusan = “SISTEM INFORMASI”

 

Case “15100155”

nama = “EVA NURMA YUNITA”

jurusan = “SISTEM INFORMASI”

 

Case “15201013”

nama = “EVA YUNITA”

jurusan = “SISTEM INFORMASI”

 

Case “15100164”

nama = “FADHILAH FIRDAUS”

jurusan = “SISTEM INFORMASI”

 

Case “15100114”

nama = “FADOLI IRAWAN”

jurusan = “SISTEM INFORMASI”

 

Case “15100111”

nama = “HENI ANI SETIANI”

jurusan = “SISTEM INFORMASI”

 

Case “15100152”

nama = “HESTI MARSANDI”

jurusan = “SISTEM INFORMASI”

 

Case “15100156”

nama = “INDAH PRASETIA NINGRUM”

jurusan = “SISTEM INFORMASI”

 

Case “15100146”

nama = “KARLINA”

jurusan = “SISTEM INFORMASI”

 

Case “15100157”

nama = “LEO ADIMAS SAPUTRA”

jurusan = “SISTEM INFORMASI”

 

Case “15201002”

nama = “LEONITA JULIANTI”

jurusan = “SISTEM INFORMASI”

 

Case “15100160”

nama = “M. HERMAWAN PRATAMA”

jurusan = “SISTEM INFORMASI”

 

Case “15100144”

nama = “MARTHA DIAN GUSTI PRADINI”

jurusan = “SISTEM INFORMASI”

 

Case “15100159”

nama = “MEA ARI ANGGRI YANI”

jurusan = “SISTEM INFORMASI”

 

Case “15100115”

nama = “MEILINDA”

jurusan = “SISTEM INFORMASI”

 

Case “NANDA ADITIA”

nama = “ANTONARMANSAH”

jurusan = “SISTEM INFORMASI”

 

Case “15201001”

nama = “NINA RISTI PAMUNGKAS”

jurusan = “SISTEM INFORMASI”

 

Case “15100145”

nama = “NIVA KURNIA SARI”

jurusan = “SISTEM INFORMASI”

 

Case “15100154”

nama = “NOVARET CLASIOVA”

jurusan = “SISTEM INFORMASI”

 

Case “15201016”

nama = “NOVI HERLIZA”

jurusan = “SISTEM INFORMASI”

 

Case “15100158”

nama = “RETNO SHAFRINA MAYANG ARUM”

jurusan = “SISTEM INFORMASI”

 

Case “15100143”

nama = “RIDA ISNAENI”

jurusan = “SISTEM INFORMASI”

 

Case “15100112”

nama = “SUKILAH”

jurusan = “SISTEM INFORMASI”

 

Case “15201017”

nama = “SUNINGSIH”

jurusan = “SISTEM INFORMASI”

 

Case “15100142”

nama = “VERIZA ISRA SAPUTRI”

jurusan = “SISTEM INFORMASI”

 

Case “15100153”

nama = “WULAN SUCI HIDAYAH”

jurusan = “SISTEM INFORMASI”

 

Case “15201005”

nama = “YEFANDO ALJAYA”

jurusan = “SISTEM INFORMASI”

 

Case “15100147”

nama = “YUNITARIA”

jurusan = “SISTEM INFORMASI”

 

Case “15100163”

nama = “YUNUS APRIANTO”

jurusan = “SISTEM INFORMASI”

 

End Select

textnama = nama

Textjurusan = jurusan

 

End Sub

 

Private Sub cmdexit_Click()

Unload Me

End Sub

 

Private Sub command1_Click()

Textnilaiakhir = Val(textquis) + Val(texttugas) + Val(textuts) + Val(textuas)

Textnilaiakhir = Val(Textnilaiakhir) / 4

 

Dim nilai As Integer

nilai = Textnilaiakhir.Text

If (nilai < 50) Then

Texthurufmutu.Text = “E”

End If

If (nilai >= 51) And (nilai < 60) Then

Texthurufmutu.Text = “D”

End If

If (nilai >= 61) And (nilai < 70) Then

Texthurufmutu.Text = “C”

End If

If (nilai >= 70) And (nilai < 80) Then

Texthurufmutu.Text = “B”

End If

If (nilai >= 80) And (nilai <= 100) Then

Texthurufmutu.Text = “A”

End If

End Sub

 

 

 

Private Sub Command2_Click()

textuas = “”

textquis = “”

textcombo1npm = “”

Textjurusan = “”

texttugas = “”

textuts = “”

Textnilaiakhir = “”

Texthurufmutu = “”

textnama = “”

End Sub

 

 

 

 

 

Private Sub texttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

textuts.SetFocus

End If

End Sub

 

 

Private Sub Form_Load()

combo1npm.AddItem “15201004”

combo1npm.AddItem “15100149”

combo1npm.AddItem “15100151”

combo1npm.AddItem “15201003”

combo1npm.AddItem “15100162”

combo1npm.AddItem “15100182”

combo1npm.AddItem “15100113”

combo1npm.AddItem “15100148”

combo1npm.AddItem “15100155”

combo1npm.AddItem “15201013”

combo1npm.AddItem “15100164”

combo1npm.AddItem “15100114”

combo1npm.AddItem “15100111”

combo1npm.AddItem “15100152”

combo1npm.AddItem “15100156”

combo1npm.AddItem “15100146”

combo1npm.AddItem “15100157”

combo1npm.AddItem “15201002”

combo1npm.AddItem “15100160”

combo1npm.AddItem “15100144”

combo1npm.AddItem “15100159”

combo1npm.AddItem “15100115”

combo1npm.AddItem “15100150”

combo1npm.AddItem “15201001”

combo1npm.AddItem “15100145”

combo1npm.AddItem “15100154”

combo1npm.AddItem “15201016”

combo1npm.AddItem “15100158”

combo1npm.AddItem “15100143”

combo1npm.AddItem “15100112”

combo1npm.AddItem “15201017”

combo1npm.AddItem “15100142”

combo1npm.AddItem “15100153”

combo1npm.AddItem “15201005”

combo1npm.AddItem “15100147”

combo1npm.AddItem “15100163”

End Sub

 

Private Sub textquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

texttugas.SetFocus

End If

End Sub

 

Private Sub textuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnilaiakhir = Val(textquis) + Val(texttugas) + Val(textuts) + Val(textuas)

Textnilaiakhir = Val(Textnilaiakhir) / 4

 

Dim nilai As Integer

nilai = Textnilaiakhir.Text

If (nilai < 50) Then

Texthurufmutu.Text = “E”

End If

If (nilai >= 51) And (nilai < 60) Then

Texthurufmutu.Text = “D”

End If

If (nilai >= 61) And (nilai < 70) Then

Texthurufmutu.Text = “C”

End If

If (nilai >= 70) And (nilai < 80) Then

Texthurufmutu.Text = “B”

End If

If (nilai >= 80) And (nilai <= 100) Then

Texthurufmutu.Text = “A”

End If

End sub

 

Private Sub textuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

textuas.SetFocus

End If

 

End Sub

 

 

 

 

 

Advertisements

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 )

Google+ photo

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

Connecting to %s