npm

Private Sub cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case cbonpm.Text
Case “11100042″
nama = “FITRIYANI”
jurusan = “SISTEM INFORMASI”
Case “11200077″
nama = “PUSPITA DEWI”
jurusan = “MANAJEMEN INFORMATIKA”
Case “11300078″
nama = “SEPTIANA”
jurusan = “TEHNIK INFORMASI”
Case “11100079″
nama = “TOTO ISWANTO”
jurusan = “SISTEM INFORMASI”
Case “11200081″
nama = “SUPRAPTO”
jurusan = “MANAJEMEN INFORMATIKA”
Case “11300082″
nama = “NOVI SUSANTI”
jurusan = “TEHNIK INFORMASI”
Case “11100084″
nama = “SUKMAWATI”
jurusan = “MANAJEMEN INFORMATIKA”
Case “11200085″
nama = “LENI APRIANI”
jurusan = “SISTEM INFORMASI”
Case “11300086″
nama = “NURMALITA SARI”
jurusan = “TEHNIK INFORMASI”
Case “11200087″
nama = “HENI LENSTARI”
jurusan = “MANAJEMEN INFORMATIKA”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub Form_Load()
cbonpm.AddItem “11100042″
cbonpm.AddItem “11200077″
cbonpm.AddItem “11300078″
cbonpm.AddItem “11100079″
cbonpm.AddItem “11200081″
cbonpm.AddItem “11300082″
cbonpm.AddItem “11100084″
cbonpm.AddItem “11200085″
cbonpm.AddItem “11300086″
cbonpm.AddItem “11200087″
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm = “”
txtnama = “”
txtjurusan = “”
txtquis = “”
txttugas = “”
txtuts = “”
txtuas = “”
txtna = “”
txtmutu = “”
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
txtmutu.Text = 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 txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdproses.SetFocus
End If
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: