Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.AddNew
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
kode = Mid(txtnpm.Text, 3, 1)
If kode = “1” Then
txtjur.Text = “sistem informasi”
ElseIf kode = “2” Then
txtjur.Text = “managemen informatika”
ElseIf kode = “3” Then
txtjur.Text = “teknik informatika”
ElseIf kode = “4” Then
txtjur.Text = “komputer akuntansi”
End If
txtnpm.SetFocus
kode = Mid(txtnpm.Text, 4, 2)
If kode = “00” Then
txtprodi.Text = “strata satu”
ElseIf kode = “01” Then
txtprodi.Text = “diploma empat”
ElseIf kode = “02” Then
txtprodi.Text = “diploma tiga”
ElseIf kode = “03” Then
txtprodi.Text = “diploma dua”
End If
txttm.Text = “20” & Left(txtnpm.Text, 2)
txtnu.Text = Right(txtnpm.Text, 3)
End Sub

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

tugas pt.pulng petang setiap hari

 

Private Sub Command1_Click()
Dim a, GOLONGAN, KODESTATUS, STATUS, JABATAN, BAGIAN, GAJIPOKOK, TUNJANGAN, totalgaji, asstring
Text4.Text = “” & Left(Text11.Text, 4)
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
GOLONGAN = “A”
ElseIf a = “B” Then
GOLONGAN = “B”
ElseIf a = “C” Then
GOLONGAN = “C”
End If
Text1.Text = GOLONGAN
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
JABATAN = “MANAJER”
ElseIf a = “B” Then
JABATAN = “Ka Seksi”
ElseIf a = “C” Then
JABATAN = “Staff”
End If
Text5.Text = JABATAN
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
GAJIPOKOK = “4000000”
ElseIf a = “B” Then
GAJIPOKOK = “3500000”
ElseIf a = “C” Then
GAJIPOKOK = “3000000”
End If
Text7.Text = GAJIPOKOK
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
TUNJANGAN = “1025000”
ElseIf a = “B” Then
TUNJANGAN = “975000”
ElseIf a = “C” Then
TUNJANGAN = “925000”
End If
Text8.Text = TUNJANGAN
a = Mid(Text11.Text, 7, 1)
If a = “S” Then
KODESTATUS = “S”
ElseIf a = “M” Then
KODESTATUS = “M”
ElseIf a = “J” Then
KODESTATUS = “J”
ElseIf a = “D” Then
KODESTATUS = “D”
End If
Text2.Text = KODESTATUS
a = Mid(Text11.Text, 7, 1)
If a = “S” Then
STATUS = “single”
ElseIf a = “M” Then
STATUS = “menikah”
ElseIf a = “J” Then
STATUS = “janda”
ElseIf a = “D” Then
STATUS = “duda”
End If
Text3.Text = STATUS
a = Right(Text11.Text, 3)
If a = “KEU” Then
BAGIAN = “Accounting”
ElseIf a = “ADM” Then
BAGIAN = “Administrasi”
ElseIf a = “SDM” Then
BAGIAN = “General Affair”
ElseIf a = “EDP” Then
BAGIAN = “IP Unit”
ElseIf a = “SPM” Then
BAGIAN = “Security”
End If
Text6.Text = BAGIAN
Text9.Text = Val(Text7.Text) + Val(Text8.Text)
End Sub

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

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

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Text10_keypress(keyascii As Integer)
If keyascii = 13 Then
Text11.SetFocus
End If
End Sub

 

penggunaan combo

penggu

Private Sub cmdbatal_Click()
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
txtthn.Text = “20” & Right(txtkode, 2)
A = Mid(cmbkode, 3, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb

A = Mid(cmbkode, 3, 3)
If A = “SIM” Then
pg = “Yati Nur Oktavia”
ElseIf A = “EDP” Then
pg = “Imam Tarmizi”
ElseIf A = “MNJ” Then
pg = “Valentina Mariana Adiwianti”
ElseIf A = “CDR” Then
pg = “Riyan Suhandi”
ElseIf A = “RPL” Then
pg = “Sinta Umpu Singa”
End If
txtpg.Text = pg

A = Left(cmbkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb

A = Mid(cmbkode, 3, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub

Private Sub Form_Load()
cmbkode.AddItem “A-SIM-01”
cmbkode.AddItem “I-EDP-02”
cmbkode.AddItem “S-MNJ-03”
cmbkode.AddItem “E-CDR-04”
cmbkode.AddItem “M-RPL-05”
End Sub

 

DATA BUKU STMIK VB

 

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A, jb, pg, th, pb, h As Integer

txtthn.Text = “20” & Right(txtkode, 2)

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

jb = “sistem informasi manajemen”

ElseIf A = “EDP” Then

jb = “elektronik data processing”

ElseIf A = “MNJ” Then

jb = “manajemen”

ElseIf A = “CDR” Then

jb = “coreldraw”

ElseIf A = “RPL” Then

jb = “rekayasa perangkat lunak”

End If

txtjb.Text = jb

 

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

pg = “Yati Nur Oktavia”

ElseIf A = “EDP” Then

pg = “Imam Tarmizi”

ElseIf A = “MNJ” Then

pg = “Valentina Mariana Adiwianti”

ElseIf A = “CDR” Then

pg = “Riyan Suhandi”

ElseIf A = “RPL” Then

pg = “Sinta Umpu Singa”

End If

txtpg.Text = pg

 

A = Left(txtkode, 1)

If A = “A” Then

pb = “andi offset jogjakarta”

ElseIf A = “I” Then

pb = “indah surabaya”

ElseIf A = “S” Then

pb = “salemba empat”

ElseIf A = “E” Then

pb = “elexmedia komputindo”

ElseIf A = “M” Then

pb = “maxicom”

End If

txtpb.Text = pb

 

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

hg = “79500”

ElseIf A = “EDP” Then

hg = “62000”

ElseIf A = “MNJ” Then

hg = “42000”

ElseIf A = “CDR” Then

hg = “53000”

ElseIf A = “RPL” Then

hg = “83000”

End If

txtharga.Text = hg

End Sub

DATA BUKU STMIK2

 

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A, jb, pg, th, pb, h As Integer

txtthn.Text = “20” & Mid(txtkode, 5, 2)

A = Left(txtkode, 3)

If A = “SIM” Then

jb = “sistem informasi manajemen”

ElseIf A = “EDP” Then

jb = “elektronik data processing”

ElseIf A = “MNJ” Then

jb = “manajemen”

ElseIf A = “CDR” Then

jb = “coreldraw”

ElseIf A = “RPL” Then

jb = “rekayasa perangkat lunak”

End If

txtjb.Text = jb

 

A = Left(txtkode, 3)

If A = “SIM” Then

pg = “fadiya ulfa”

ElseIf A = “EDP” Then

pg = “nurul agustina”

ElseIf A = “MNJ” Then

pg = “riyan hidayat”

ElseIf A = “CDR” Then

pg = “siti nur khotimah”

ElseIf A = “RPL” Then

pg = “winda ertianti”

End If

txtpg.Text = pg

 

A = Right(txtkode, 1)

If A = “A” Then

pb = “andi offset jogjakarta”

ElseIf A = “I” Then

pb = “indah surabaya”

ElseIf A = “S” Then

pb = “salemba empat”

ElseIf A = “E” Then

pb = “elexmedia komputindo”

ElseIf A = “M” Then

pb = “maxicom”

End If

txtpb.Text = pb

 

A = Left(txtkode, 3)

If A = “SIM” Then

hg = “79500”

ElseIf A = “EDP” Then

hg = “62000”

ElseIf A = “MNJ” Then

hg = “42000”

ElseIf A = “CDR” Then

hg = “53000”

ElseIf A = “RPL” Then

hg = “83000”

End If

txtharga.Text = hg

End Sub

data buku stmik 1 vb

 

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A, jb, pg, th, pb, h As Integer

txtthn.Text = “20” & Right(txtkode, 2)

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

jb = “sistem informasi manajemen”

ElseIf A = “EDP” Then

jb = “elektronik data processing”

ElseIf A = “MNJ” Then

jb = “manajemen”

ElseIf A = “CDR” Then

jb = “coreldraw”

ElseIf A = “RPL” Then

jb = “rekayasa perangkat lunak”

End If

txtjb.Text = jb

 

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

pg = “andra setiawan”

ElseIf A = “EDP” Then

pg = “desi ostiqomah”

ElseIf A = “MNJ” Then

pg = “sandy fitra jaya”

ElseIf A = “CDR” Then

pg = “tri indah sari”

ElseIf A = “RPL” Then

pg = “ernita sari”

End If

txtpg.Text = pg

 

A = Left(txtkode, 1)

If A = “A” Then

pb = “andi offset jogjakarta”

ElseIf A = “I” Then

pb = “indah surabaya”

ElseIf A = “S” Then

pb = “salemba empat”

ElseIf A = “E” Then

pb = “elexmedia komputindo”

ElseIf A = “M” Then

pb = “maxicom”

End If

txtpb.Text = pb

 

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

hg = “79500”

ElseIf A = “EDP” Then

hg = “62000”

ElseIf A = “MNJ” Then

hg = “42000”

ElseIf A = “CDR” Then

hg = “53000”

ElseIf A = “RPL” Then

hg = “83000”

End If

txtharga.Text = hg

End Sub

tugas properti test

 

Private Sub chkmiring_Click()
Label2.FontItalic = chkmiring.Value
End Sub

Private Sub CHKTEBAL_Click()
Label2.FontBold = CHKTEBAL.Value
End Sub

Private Sub cmdend_Click()
End
End Sub

Private Sub cmdoke_Click()
Label2.Caption = txtnama.Text
End Sub

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

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

tugas vb 4

tugas 3 vb

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txtthn = “”

txturut = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txtthn = “”

txturut = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A, jr, ps As String

txtthn.Text = “20” & Left(txtnpm.Text, 2)

A = Mid(txtnpm, 3, 1)

If A = “1” Then

jur = “sistem informasi”

ElseIf A = “2” Then

jur = “manajemen informatika”

ElseIf A = “3” Then

jur = “teknik informatika”

ElseIf A = “4” Then

jur = “komputer akkuntansi”

End If

txtjur.Text = jur

A = Mid(txtnpm, 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

txtps.Text = ps

txturut.Text = Right(txtnpm.Text, 3)

 

End Sub

 

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

alat hitung sederhana

ALAT HITUNG SEDERHANA

 

 

Private Sub cmdbagi_Click()

txthasil.Text = Val(txtnilai1.Text) / Val(txtnilai2.Text)

End Sub

 

Private Sub cmdkali_Click()

txthasil.Text = Val(txtnilai1.Text) * Val(txtnilai2.Text)

End Sub

 

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdkurang_Click()

txthasil.Text = Val(txtnilai1.Text) – Val(txtnilai2.Text)

End Sub

 

Private Sub cmdlagi_Click()

txtnilai1.SetFocus

txtnilai1 = “”

txtnilai2 = “”

txthasil = “”

End Sub

 

Private Sub cmdtambah_Click()

txthasil.Text = Val(txtnilai1.Text) + Val(txtnilai2.Text)

End Sub

 

 

Private Sub txtnilai1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilai2.SetFocus

End If

End Sub