TUGAS2 PROGRAM 7 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