Posted on

NILAI MAHASISWA STMIK PRINGSEWU

Gambar

Private Sub Txtnpm_keypress(keyAScii As Integer)
If keyAScii = 13 Then
Txtnama.SetFocus
End If
End Sub
Private Sub Txtnama_keypress(keyAScii As Integer)
If keyAScii = 13 Then
Txtquis.SetFocus
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 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
End If
End Sub
Private Sub cmdproses_Click()
Txtakhir.Text = Val((Txtquis.Text) + Val(Txttugas.Text) + Val(Txtuas.Text)) / 4
End Sub
Private Sub Cmdlagi_Click()
Txtnpm.SetFocus
Txtnpm = “”
Txtnama = “”
Txtquis = “”
Txttugas = “”
txtuts = “”
Txtuas = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnpm.SetFocus
Txtnpm = “”
Txtnama = “”
Txtquis = “”
Txttugas = “”
txtuts = “”
Txtuas = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s