huruf mutu

sfi4

Private Sub Cmd1_Click()
Dim NQ, NT, UTS, UAS, NA As Integer
Dim HM As String
NQ = Val(txt3.Text)
NT = Val(txt4.Text)
UTS = Val(Txt5.Text)
UAS = Val(Txt6.Text)
NA = (NQ + NT + UTS + UAS) / 4
If NA < 51 Then
HM = “E”
ElseIf NA < 61 Then
HM = “D”
ElseIf NA < 71 Then
HM = “C”
ElseIf NA < 81 Then
HM = “B”
Else
HM = “A”
End If
Txt7.Text = NA
txt8.Text = HM
End Sub

Private Sub cmd2_Click()
Combonpm.SetFocus
Combonpm.Text = “”
Txt1.Text = “”
Txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
Txt5.Text = “”
Txt6.Text = “”
Txt7.Text = “”
txt8.Text = “”
End Sub

Private Sub cmd3_Click()
Unload Me
End Sub

Private Sub Combonpm_Click()
Dim npm, nm, jrusan As String
Select Case Combonpm.Text
Case “12100034″
nama = “Nur Hamdanah”
jurusan = “Sistem Informasi”
Case “12100036″
nama = “Ines Purnama Sari”
jurusan = “Sistem Informasi”
Case “12100038″
nama = “Agusta Hendriyarti”
jurusan = “Sistem Informasi”
End Select
Txt1.Text = nama
Txt2.Text = jurusan
txt3.SetFocus
End Sub

Private Sub Form_Load()
Combonpm.AddItem “12100034″
Combonpm.AddItem “12100036″
Combonpm.AddItem “12100038″
End Sub

Private Sub txt3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt4.SetFocus
End If
End Sub

Private Sub txt4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt5.SetFocus
End If
End Sub

Private Sub Txt5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt6.SetFocus
End If
End Sub

 

Private Sub cmd2_Click()

Combonpm.SetFocus

Combonpm.Text = “”

Txt1.Text = “”

Txt2.Text = “”

txt3.Text = “”

txt4.Text = “”

Txt5.Text = “”

Txt6.Text = “”

Txt7.Text = “”

txt8.Text = “”

End Sub

Private Sub cmd3_Click()

Unload Me

End Sub

Private Sub Combonpm_Click()

Dim nama, jurusan, HM As String

Select Case Combonpm.Text

Case “12100034″

nama = “Nur Hamdanah”

jurusan = “Sistem Informasi”

Case “12100036″

nama = “Ines purnama sari”

jurusan = “Sistem Informasi”

Case “12100036″

nama = “Agusta Hendriyarti”

jurusan = “Sistem Informasi”

End Select

Txt1.Text = nama

Txt2.Text = jurusan

txt3.SetFocus

End Sub

Private Sub Form_Load()

Combonpm.AddItem “12100034″

Combonpm.AddItem “12100036″

Combonpm.AddItem “12100038″

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