PROGRAM 8 BP1 TUGAS 2

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100090"

 nama = "LOLA"

 jurusan = "Teknik Informatika"

 Case "17100091"

 nama = "LILI"

 jurusan = "Manajemen Informatika"

 Case "17100092"

 nama = "PUTRI WAHYUNI"

 jurusan = "Sistem Informasi"

 Case "17100093"

 nama = "ZUBAIDAH"

 jurusan = "Teknik Mesin"

 Case "17100094"

 nama = "LULU"

 jurusan = "Teknik Komputer"

 End Select

 Txtnama = nama

 txtjurusan = jurusan

 txtquis.SetFocus

 End Sub

Private Sub Cmd2_Click()

Cbonpm.SetFocus

Cbonpm = ""

Txtnama = ""

txtjurusan = ""

txtquis = ""

txttugas = ""

txtuts = ""

txtuas = ""

txtna = ""

txthm = ""

End Sub

Private Sub Cmd3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Cbonpm.AddItem "17100090"

Cbonpm.AddItem "17100091"

Cbonpm.AddItem "17100092"

Cbonpm.AddItem "17100093"

Cbonpm.AddItem "17100094" 

End Sub

Private Sub Cmd1_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna = NA

Select Case txtna

 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

  txthm = HM

 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 txtuts_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuas.SetFocus

End If

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna = NA

Select Case txtna

 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

  txthm = HM

End Sub