huruf mutu mahasiswa

 Private Sub Form_Load()
 Combo1.AddItem "12100515"
 Combo1.AddItem "12100525"
 Combo1.AddItem "12100535"
 Combo1.AddItem "12100545"
 Combo1.AddItem "12100555"
 Combo1.AddItem "12100565"
 Combo1.AddItem "12100575"
 Combo1.AddItem "12100585"
 Combo1.AddItem "12100595"
 Combo1.AddItem "12100666"
 End Sub

 Private Sub Combo1_Click()
 If Combo1 = "12100515" Then
 txtNama.Text = "Marchoni"
 txtjurusan.Text = "Sistem Informasi"
 txtQuis.SetFocus
 Else
 End If

 If Combo1 = "12100525" Then
 txtNama.Text = "Siti Kholijah"
 txtjurusan.Text = "Sistem Informasi"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100535" Then
 txtNama.Text = "Adi Setiawan"
 txtjurusan.Text = "Sistem Informasi"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100545" Then
 txtNama.Text = "Barnes Setiawan"
 txtjurusan.Text = "Manajemen Informatika"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100555" Then
 txtNama.Text = "Adhy Pangestu"
 txtjurusan.Text = "Manajemen Informatika"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100565" Then
 txtNama.Text = "Setiawan Adi"
 txtjurusan.Text = "Design Grafis"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100575" Then
 txtNama.Text = "Sunardi"
 txtjurusan.Text = "Manajemen Informatika"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100585" Then
 txtNama.Text = "Arif Lukman"
 txtjurusan.Text = "Manajemen Informatika"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100595" Then
 txtNama.Text = "Alivia"
 txtjurusan.Text = "Sistem Informasi"
 txtQuis.SetFocus
 Else
 End If
 If Combo1 = "12100666" Then
 txtNama.Text = "Adi Barnes Setiawan"
 txtjurusan.Text = "Design Grafis"
 txtQuis.SetFocus
 Else
 End If
 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
 txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
 If Val(txtNA.Text) <= 50 Then txtHuruf.Text = "E"
 If Val(txtNA.Text) >= 50 Then txtHuruf.Text = "D"
 If Val(txtNA.Text) >= 60 Then txtHuruf.Text = "C"
 If Val(txtNA.Text) >= 70 Then txtHuruf.Text = "B"
 If Val(txtNA.Text) >= 80 Then txtHuruf.Text = "A"
 End If
 End Sub

 Private Sub txtUts_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
 txtUas.SetFocus
 End If
 End Sub

 Private Sub cmdProses_Click()
 txtNA.Text = (Val(txtQuis.Text) + Val(txtTugas.Text) + Val(txtUts.Text) + Val(txtUas.Text)) / 4
 If Val(txtNA.Text) <= 50 Then txtHuruf.Text = "E"
 If Val(txtNA.Text) >= 50 Then txtHuruf.Text = "D"
 If Val(txtNA.Text) >= 60 Then txtHuruf.Text = "C"
 If Val(txtNA.Text) >= 70 Then txtHuruf.Text = "B"
 If Val(txtNA.Text) >= 80 Then txtHuruf.Text = "A"
 End Sub

 Private Sub cmdBatal_Click()
 txtNama.Text = ""
 txtjurusan.Text = ""
 txtQuis.Text = ""
 txtTugas.Text = ""
 txtUts.Text = ""
 txtUas.Text = ""
 txtNA.Text = ""
 txtHuruf.Text = ""
 txtNama.SetFocus
 End Sub

 Private Sub cmdKeluar_Click()
 End
 End Sub