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 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

 

Advertisements

Image

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

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

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

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

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

Image

Private Sub ChKBOLD_Click()
If chkBOLD.Value = 1 Then
lblteks.FontBold = True
elase
lblteks.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If chkITALIC.Value = 1 Then
lblteks.FontItalic = Ture
elase
lblteks.FontItalic = False
End If
End Sub

Private Sub Chkstrikethru_Click()
If chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = True
elase
lblteks.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
elase
lblteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub
Private Sub Optblue_Click()
lblteks.ForeColor = vbBlue
End Sub

Private Sub OptGreen_Click()
lblteks.ForeColor = vbGreen
End Sub

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

Private Sub OptYellow_Click()
lblteks.ForeColor = vbYellow
End Sub

Private Sub Form_Load()

End Sub

ImagePrivate 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
Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub

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
ImagePrivate 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
ImagePrivate 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.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Label2_Click()

End Sub

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