tugas 3.2 dengan fungsi enter

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As Integer

Select Case Cbonpm.Text
Case “14100186”
nama = “AGENG PRAYOGO”
jurusan = “sistem informasi”
Case “14100191”
nama = “IMAM SAISOHAR”
jurusan = “sistem informasi”
Case “14100190”
nama = “AHMAD SYAIFULLAH”
jurusan = “sistem informasi”
Case “14100172”
nama = “ARMINSYAH”
jurusan = “sistem informasi”
Case “14100213”
nama = “INDRI DESTRIANA”
jurusan = “sistem informasi”
Case “14100177”
nama = “JAMILAH”
jurusan = “sistem informasi”
Case “14100207”
nama = “RAIS ZULKARNAIN”
jurusan = “sistem informasi”
Case “14100247”
nama = “RATNASARI”
jurusan = “sistem informasi”
Case “14100204”
nama = “BAMBANG ARYO PAMUNGKAS”
jurusan = “sistem informasi”
Case “14100209”
nama = “WINDI SAFITRI”
jurusan = “sistem onformasi”
End Select
Txtnama.Text = nama
Txtjurusan.Text = jurusan
Txtquis.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnama.Text = “”
Txtjurusan.Text = “”
Txtquis.Text = “”
Txttugas.Text = “”
Txtuts.Text = “”
Txtuas.Text = “”
Txtna.Text = “”
Txthm.Text = “”
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.Text)
TUGAS = Val(Txttugas.Text)
UTS = Val(Txtuts.Text)
UAS = Val(Txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Txtna.Text = NA

Select Case Txtna.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Txthm.Text = HM
End Sub

Private Sub Form_Load()
Cbonpm.AddItem “14100182”
Cbonpm.AddItem “14100191”
Cbonpm.AddItem “14100190”
Cbonpm.AddItem “14100172”
Cbonpm.AddItem “14100213”
Cbonpm.AddItem “14100177”
Cbonpm.AddItem “14100207”
Cbonpm.AddItem “14100247”
Cbonpm.AddItem “14100204”
Cbonpm.AddItem “14100209”
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 txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim HM As String
QUIS = Val(Txtquis.Text)
TUGAS = Val(Txttugas.Text)
UTS = Val(Txtuts.Text)
UAS = Val(Txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Txtna.Text = NA

Select Case Txtna.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Txthm.Text = HM
End If
End Sub

Private Sub Txtuts_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtuas.SetFocus
End If
End Sub