Gambar

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmddelete_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
s = Mid(txtnpm.Text, 3, 1)
If s = “1” Then
txtjurusan.Text = “SistemInformasi”
ElseIf s = “2” Then
txtjurusan.Text = “tekhnikInformasi”
ElseIf s = “3” Then
txtjurusan.Text = “ManajemenInformatika”
ElseIf s = “4” Then
txtjurusan.Text = “komputerakutansi”
End If
s = Mid(txtnpm.Text, 4, 2)
If s = “01” Then
txtps.Text = “Strata Satu”
ElseIf s = “02” Then
txtps.Text = “Diploma empat”
ElseIf s = “03” Then
txtps.Text = “Diploma Tiga”
ElseIf s = “04” Then
txtps.Text = “Diploma Dua”
End If
txtnurut.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txt_Change()

End Sub

Gambar

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdproses_Click()
Dim A, jr, ps As String
txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
jr = “sistem informasi”
ElseIf A = “2” Then
jr = “manajemen informatika”
ElseIf A = “3” Then
jr = “teknik informatika”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
txtjurusan.Text = jr
A = Mid(Txtnpm.Text, 4, 2)
If A = “00” Then
ps = “strata satu”
ElseIf A = “01” Then
ps = “diploma empat”
ElseIf A = “02” Then
ps = “diploma tiga”
ElseIf A = “03” Then
ps = “diploma dua”
End If
txtprogramstudy.Text = ps
txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

 

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

GambarPrivate Sub Check1_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub ChkBold_Click()
Label2.FontBold = ChkBold.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Label2_Click()

End Sub

Private Sub OptBlue_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub OptRed_Click()
Label2.ForeColor = vbRed
End Sub

Gambar

Private Sub ckbold_Click()
If ckbold.Value = 1 Then
Label1.FontBold = True
ElseIf ckbold.FontBold = 0 Then
Label1.FontBold = False
End If
End Sub

 

Private Sub ckitalic_Click()
If ckitalic.Value = 1 Then
Label1.FontItalic = True
ElseIf ckitalic.Value = 0 Then
Label1.FontItalic = False
End If
End Sub

 

Private Sub ckstriketout_Click()
If ckstriketout.Value = 1 Then
Label1.FontStrikethru = True
ElseIf ckstriketout.Value = 0 Then
Label1.FontStrikethru = False
End If
End Sub

 

Private Sub ckunderline_Click()
If ckunderline.Value = 1 Then
Label1.FontUnderline = True
ElseIf ckunderline.Value = 0 Then
Label1.FontUnderline = False
End If
End Sub

 

Private Sub cmd_Click()
Unload Me
End Sub

 

Private Sub optblue_Click()
If optblue.Value = True Then
Label1.ForeColor = vbBlue
End If
End Sub

 

Private Sub optgreen_Click()
If optgreen.Value = True Then
Label1.ForeColor = vbGreen
End If
End Sub

 

Private Sub optred_Click()
If optred.Value = True Then
Label1.ForeColor = vbRed
End If
End Sub

 

Private Sub optyellow_Click()
If optyellow.Value = True Then
Label1.ForeColor = vbYellow
End If
End Sub

 

 

 

Gambar

Private Sub Command1_Click()
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

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

Private Sub Command3_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

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

Private Sub Text2_keypress(keyascii As Integer)
If keyascii = 13 Then
Text3.SetFocus
End If
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

Gambar

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Text1.Text = SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

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

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Gambar

 

 

 

 

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

 

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

 

Private Sub Command3_Click()
Unload Me
End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
End If
End Sub