Private Sub Combo1_Click()
Dim NPM, NM, JR As String
NPM = Combo1.Text
If NPM = “11201030” Then
NM = “SISKA IKAWATI”
JR = “D3-MANAJEMEN INFORMATIKA”
ElseIf NPM = “11201037” Then
NM = “ROFIKOH ALFULAELI”
JR = “D3-MANAJEMEN INFORMATIKA”
Else
NM = “TRIA SEPTIANA”
JR = “D3-MANAJEMEN INFORMATIKA”
End If
Text1.Text = NM
Text2.Text = JR
End Sub

Private Sub Command1_Click()
Dim NQ, NT, UTS, UAS, NA As Integer
Dim HM As String
NQ = Val(Text3.Text)
NT = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.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
Text7.Text = NA
Text8.Text = HM
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Combo1.Text = “”
Combo1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “11201030”
Combo1.AddItem “11201037”
Combo1.AddItem “11201038”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Combo1_Click()
Dim GL As String
Dim GP, TJ, PJ, TT As Currency
GL = Combo1.Text
If GL = “I” Then
GP = 1500000
TJ = 150000
ElseIf GL = “II” Then
GP = 2000000
TJ = 200000
ElseIf GL = “III” Then
GP = 2500000
TJ = 250000
Else
GP = 3000000
TJ = 300000
End If
PJ = (GP + TJ) / 10
TT = GP + TJ – PJ
Text3.Text = GP
Text4.Text = TJ
Text5.Text = PJ
Text6.Text = TT
End Sub

Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command1_Click()
txtmatakuliah.SetFocus
txtmatakuliah.Text = “”
txtnamadosen.Text = “”
txtemail.Text = “”
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub txtmatakuliah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamadosen.SetFocus
End If
End Sub

Private Sub txtnamadosen_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtemail.SetFocus
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtemail.SetFocus
End If
End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

1. You can find new ideas for what to blog about by reading the Daily Post.
2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.