TUGAS2 P8 BP1

Private Sub Form_Load()

Cbonpm.AddItem "17500075"

Cbonpm.AddItem "17200079"

Cbonpm.AddItem "16300242"

Cbonpm.AddItem "17400096"

Cbonpm.AddItem "15400526"

End Sub

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

Private Sub txtnt_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)

If KeyAscii = 13 Then

txtuas.SetFocus

Dim NA As Integer

Dim HM As String

QUIS = Val(txtnq)

TUGAS = Val(txtnt)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

End If

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17500075"

 nama = "SUKIRMAN"

 jurusan = "Sistem Informasi"

 Case "17200079"

 nama = "TUKIMAN"

 jurusan = "Manajemen Informatika"

 Case "16300242"

 nama = "SUKINEM"

 jurusan = "Tehnik Sipil"

 Case "17400096"

 nama = "CHAN"

 jurusan = "Tehnik Informatika"

 Case "15400526"

 nama = "YOGI"

 jurusan = "MANAGEMENT SISTEM INFORMASI"

 End Select

 txtnm = nama

 txtjr = jurusan

 txtnq.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

txtnm = ""

txtjr = ""

txtnq = ""

txtnt = ""

txtuts = ""

txtuas = ""

txtna = ""

txthm = ""

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)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

 End Sub