data base

 

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

Private Sub CmdNEW_Click(Index As Integer)
Data1.Recordset.AddNew
TxtKODE.SetFocus
End Sub

Private Sub CmdPROSES_Click()
Dim A, JB, P, TB, PT As String
Dim HG As String
TxtTB.Text = “20″ & Right(TxtKODE.Text, 2)
A = Left(TxtKODE.Text, 1)
If A = “A” Then
PT = “ANDI OFFSET YOGJAKARTA”
ElseIf A = “I” Then
PT = “INDAH SURABAYA”
ElseIf A = “S” Then
PT = “SALEMBA EMPAT”
ElseIf A = “E” Then
PT = “ELEK MEDIA KOMPUTINDO”
ElseIf A = “M” Then
PT = “MAXICOM”
End If
A = Mid(TxtKODE.Text, 3, 3)
If A = “SIM” Then
JB = “SISTEM INFORMASI MANAJEMEN”
P = “ANDRA SETIAWAN”
HG = “75900″
ElseIf A = “EDP” Then
JB = “ELEKTONIK DATA PROCESING”
P = “DESI ISTIQOMAH”
HG = “62000″
ElseIf A = “MNJ” Then
JB = “MANAJEMEN”
P = “SANDY FITRIAJAYA”
HG = “42000″
ElseIf A = “CDR” Then
JB = “COREL DRAW”
P = “TRI INDAH SARI”
HG = “53000″
ElseIf A = “RPL” Then
JB = “REKAYASA PERANGKAT LUNAK”
P = “ERNITA”
HG = “83000″
End If
TxtJB.Text = JB
TxtPENG.Text = P
TxtTERBIT.Text = PT
TxtHG.Text = HG
End Sub

Private Sub CmdQUIT_Click()
End
End Sub

Private Sub CmdSAVE_Click(Index As Integer)
Data1.Recordset.Update
End Sub

PROGRAM 6

PROGRAM6

Private Sub CmdBATAL_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

 

 

Private Sub CmdLAGI_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

TxtTM.Text = “20” & Left(TxtNPM.Text, 2)

S = Mid(TxtYHSNPM.Text, 3, 1)

If S = “1” Then

TxtJUR.Text = “Sistem Informasi”

ElseIf S = “2” Then

TxtYJUR.Text = “Manajemen Informatika”

End If

S = Mid(TxtNPM.Text, 4, 2)

If S = “01” Then

TxtPS.Text = “Strata Satu”

ElseIf S = “02” Then

TxtPS.Text = “Diploma Tiga”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

 

End Sub

 

Private Sub Form_Activate()

TxtYNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

 

End Sub

 

Private Sub TxtTM_Change()

 

End Sub

 

Private Sub TxtNAMA_Change()

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

 

End Sub

 

 

PROGRAM 5

PROGRAM 5

 

 

Private Sub Cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 500000000

tunjangan = 500000

Case “II”

gapok = 10000000

tunjangan = 1000000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 30000000

tunjangan = 3000000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

 

 

Private Sub Cmdbatal_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub Txtnip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

 

End Sub

 

Private Sub Txttunjangan_Change()

 

End Sub

 

PROGRAM 4

PROGRAM 4

Private Sub CboNPM_Click()

Dim NAMA, JURUSAN, HM As String

 

Select Case CboNPM.Text

Case “12201018”

NAMA = “ARIS SETIAWAN”

JURUSAN = “MANAJEMEN INRORMATIKA”

Case “12201020”

NAMA = “YOHANES KRISNAWAN”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201019”

NAMA = “DARWIN SAPUTRA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201021”

NAMA = “METALIANA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201018”

NAMA = “SITI FATHONAH”

JURUSAN = “Manajemen Informatika”

End Select

TxtNAMA.Text = NAMA

TxtJURUSAN.Text = JURUSAN

TxtQUIS.SetFocus

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtNAMA.Text = “”

TxtJURUSAN.Text = “”

TxtQUIS.Text = “”

TxtTUGAS.Text = “”

TxtUTS.Text = “”

TxtUAS.Text = “”

TxtNA.Text = “”

TxtHM.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim NA As Integer

Dim HM As String

quis = Val(TxtQUIS.Text)

TUGAS = Val(TxtTUGAS.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

NA = (quis + TUGAS + UTS + UAS) / 4

TxtNA.Text = NA

 

Select Case TxtNA.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

TxtHM.Text = HM

End Sub

 

Private Sub Form_Load()

CboNPM.AddItem “12100018”

CboNPM.AddItem “12201020”

CboNPM.AddItem “12201019”

CboNPM.AddItem “12201021”

CboNPM.AddItem “12201018”

End Sub

 

 

Private Sub TxtNAMA_Change()

 

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 KESASCII = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

 

PROGRAM 3

PROGRAM 3

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 Option1_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

PROGRAM 2

PROGRAM 2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End Sub

Private Sub CmdULANG_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

Txt6 = “”

End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

Private Sub TxtYHS3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(TxtY2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End If

End Sub

PROGRAM 1

PROSRAM 1

 

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

 

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

 

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Optblue_Click()

Lbltext.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lbltext.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

Lbltext.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

 

PROGRAM KALKULATOR MINI

Private Sub Command1_Click()
TxtYHS3.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text)
TxtYHS4.Text = Val(TxtYHS1.Text) * Val(TxtYHS2.Text)
TxtYHS5.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)
End Sub

Private Sub Command2_Click()
TxtYHS1.SetFocus
TxtYHS1 = “”
TxtYHS2 = “”
TxtYHS3 = “”
TxtYHS4 = “”
TxtYHS5 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub TxtYHS1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtYHS2.SetFocus
End If
End Sub

Private Sub TxtYHS2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtYHS3.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text)
TxtYHS4.Text = Val(TxtYHS1.Text) * Val(TxtYHS2.Text)
TxtYHS5.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)
End If
End Sub

PROGRAM SETELAH DISKON 10%

Private Sub CmdHASIL_Click()
TxtYHS2.Text = Val(TxtYHS1.Text) * 0.1
TxtYHS3.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)
End Sub

Private Sub CmdKELUAR_Click()
Unload Me
End Sub

Private Sub CmdLAGI_Click()
TxtYHS1.SetFocus
TxtYHS1 = “”
TxtYHS2 = “”
TxtYHS3 = “”
End Sub

Private Sub TxtYHS1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtYHS2.Text = Val(TxtYHS1.Text) * 0.1
TxtYHS3.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)
End If
End Sub

PROGRAM DUA BILANGAN

Private Sub CmdHASIL_Click()
TxtYHSBIL3.Text = Val(TxtYHSBIL1.Text) * Val(TxtYHSBIL2.Text)
End Sub

Private Sub CmdKEMBALI_Click()
Unload Me
End Sub

Private Sub CmdLAGI_Click()
TxtYHSBIL1.SetFocus
TxtYHSBIL1.Text = “”
TxtYHSBIL2.Text = “”
TxtYHSBIL3.Text = “”
End Sub

Private Sub TxtYHSBIL1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtYHSBIL2.SetFocus
End If
End Sub

Private Sub TxtYHSBIL2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtYHSBIL3.Text = Val(TxtYHSBIL1.Text) * Val(TxtYHSBIL2.Text)
End If

End Sub