TUGAS 2 PROGRAM 8 BP1

Private Sub Combonpm_Click()

Dim nama, jurusan, HM As String

Select Case Combonpm

Case "17100085"

nama = "AGISTA UTAMI"

jurusan = "Manajemen Informatika"

Case "17100074"

nama = "NUZUL RAMADHANI"

jurusan = "Sistem Informasi"

Case "17100103"

nama = "HELMIYANTO"

jurusan = "Sistem Informasi"

Case "17100099"

nama = "IRVAN BAHARI"

jurusan = "Teknik Komputer Jaringan"

Case "17100084"

nama = "UUT ELOK PERMATA"

jurusan = "Manajemen Informatika"

End Select

Textnama = nama

Textjurusan = jurusan

Textquis.SetFocus

End Sub

Private Sub Command2_Click()

Combonpm.SetFocus

Combonpm = ""

Textnama = ""

Textjurusan = ""

Textquis = ""

Texttugas = ""

Textuts = ""

Textuas = ""

Textna = ""

Texthm = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combonpm.AddItem "17100085"

Combonpm.AddItem "17100074"

Combonpm.AddItem "17100103"

Combonpm.AddItem "17100099"

Combonpm.AddItem "17100084"

End Sub

Private Sub Command1_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Textquis)

TUGAS = Val(Texttugas)

UTS = Val(Textuts)

UAS = Val(Textuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Textna = NA

Select Case Textna

Case Is > 80

HM = "A"

Case Is > 70

HM = "B"

Case Is > 60

HM = "C"

Case Is > 50

HM = "D"

Case Is < 40

HM = "E"

End Select

Texthm = HM

End Sub

Private Sub textquis_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Texttugas.SetFocus

End If

End Sub

Private Sub texttugas_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Textuts.SetFocus

End If

End Sub

Private Sub textuts_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Textuas.SetFocus

End If

End Sub

Private Sub textuas_keypress(keyascii As Integer)

Dim NA As Integer

Dim HM As String

QUIS = Val(Textquis)

TUGAS = Val(Texttugas)

UTS = Val(Textuts)

UAS = Val(Textuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Textna = NA

Select Case Textna

Case Is > 80

HM = "A"

Case Is > 70

HM = "B"

Case Is > 60

HM = "C"

Case Is > 50

HM = "D"

Case Is < 40

HM = "E"

End Select

Texthm = HM

End Sub