DATABASE

Private Sub Command1_Click()
Dim A, jr, ps, tm, urut, asString
Text5.Text = 20 & Left(Text2.Text, 2)
A = Mid(Text2.Text, 3, 1)
If A = “1” Then
jr = “SISTEM INFORMASI”
ElseIf A = “2” Then
jr = “MANAJEMEN INFORMATIKA”
ElseIf A = “3” Then
jr = “TEHNIK INFORMATIKA”
ElseIf A = “4” Then
jr = “KOMPUTER AKUTANSI”
End If
Text3.Text = jr
A = Mid(Text2.Text, 4, 2)
If A = “01” Then
ps = “STRATA SATU”
ElseIf A = “02” Then
ps = “DIPLOMA EMPAT”
ElseIf A = “03” Then
ps = “DIPLOMA TIGA”
ElseIf A = “04” Then
ps = “DIPLOMA DUA”
End If
Text4.Text = ps
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub text1_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

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

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

Private Sub Command5_Click()
End
End Sub

Gambar

Iklan

tugaas

Gambar

 

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

 Gambar

tugass

Gambar

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

 

 Gambar

 

tugas

Gambar

Private Sub Command1_Click()
Dim a, judulbuku, pengarang, penerbiT, asString
Text4.Text = “20” & Mid(Text1.Text, 5, 2)
a = Left(Text1.Text, 3)
If a = “sim” Then
judulbuku = “sistem informasi menejemen”
ElseIf a = “edp” Then
judulbuku = “elektronik data processing”
ElseIf a = “mnj” Then
judulbuku = “manajemen”
ElseIf a = “cdr” Then
judulbuku = “coreldraw”
ElseIf a = “rpl” Then
judulbuku = “rekayasa perangkat lunak”
End If
Text2.Text = judulbuku
a = Left(Text1.Text, 3)
If a = “sim” Then
pengarang = “muhammad fajar”
ElseIf a = “edp” Then
pengarang = “eko alan”
ElseIf a = “mnj” Then
pengarang = “rizki ardiansyah”
ElseIf a = “cdr” Then
pengarang = “robin kurniawan”
ElseIf a = “rlp” Then
pengarang = “topik”
End If
Text3.Text = pengarang
a = Left(Text1.Text, 3)
If a = “sim” Then
harga = “25000”
ElseIf a = “edp” Then
harga = “40000”
ElseIf a = “mnj” Then
harga = “10000”
ElseIf a = “cdr” Then
harga = “100000”
ElseIf a = “rlp” Then
harga = “30000”
End If
Text6.Text = harga
a = Right(Text1.Text, 1)
If a = “a” Then
penerbiT = “andi offset yogyakarta”
ElseIf a = “i” Then
penerbiT = “indah surabaya”
ElseIf a = “s” Then
penerbiT = “salemba empat”
ElseIf a = “e” Then
penerbiT = “elek media komputindo”
ElseIf a = “m” Then
penerbiT = “maxicom”
Text5.Text = penerbiT
End If
End Sub

 

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

 

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

 

Private Sub Command4_Click()
End
End Sub

 

 Gambar

 

tugas

Gambar

Private Sub Command1_Click()
Dim a, judulbuku, pengarang, penerbiT, asString
Text4.Text = “20” & Right(Text1.Text, 2)
a = Mid(Text1.Text, 3, 3)
If a = “sim” Then
judulbuku = “sistem informasi menejemen”
ElseIf a = “edp” Then
judulbuku = “elektronik data processing”
ElseIf a = “mnj” Then
judulbuku = “manajemen”
ElseIf a = “cdr” Then
judulbuku = “coreldraw”
ElseIf a = “rpl” Then
judulbuku = “rekayasa perangkat lunak”
End If
Text2.Text = judulbuku
a = Mid(Text1.Text, 3, 3)
If a = “sim” Then
pengarang = “robin kurniawan”
ElseIf a = “edp” Then
pengarang = “eko alan”
ElseIf a = “mnj” Then
pengarang = “rizki ardiansyah”
ElseIf a = “cdr” Then
pengarang = “muhammad fajar”
ElseIf a = “rlp” Then
pengarang = “topik”
End If
Text3.Text = pengarang
a = Mid(Text1.Text, 3, 3)
If a = “sim” Then
harga = “25000”
ElseIf a = “edp” Then
harga = “40000”
ElseIf a = “mnj” Then
harga = “10000”
ElseIf a = “cdr” Then
harga = “100000”
ElseIf a = “rlp” Then
harga = “30000”
End If
Text6.Text = harga
a = Left(Text1.Text, 1)
If a = “a” Then
penerbiT = “andi offset yogyakarta”
ElseIf a = “i” Then
penerbiT = “indah surabaya”
ElseIf a = “s” Then
penerbiT = “salemba empat”
ElseIf a = “e” Then
penerbiT = “elek media komputindo”
ElseIf a = “m” Then
penerbiT = “maxicom”
Text5.Text = penerbiT
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

 Gambar

tugas

Gambar

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 Check1_Click()
Label2.FontBold = Check1.Value
End Sub

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

Capture3

tugas

Gambar

Private Sub Cmdhitung_Click()
Dim A, B, C As String
txtb.Text = Val(txta.Text) * 0.1
txtc.Text = Val(txta.Text) – Val(txtb.Text)
End Sub

 

Private Sub cmdquit_Click()
End
End Sub

 

Private Sub cmdulangi_ClICK()
txta.SetFocus
txta.Text = “”
txtb.Text = “”
txtc.Text = “”
End Sub

 

 Gambar

 

tugas

Gambar

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 Chkstrike_Click()
If Chkstrike.Value = 1 Then
Lbltext.FontStrikethru = True
Else
Lbltext.FontStrikethru = False
End If
End Sub

 

Private Sub chkUnder_Click()
If chkUnder.Value = 1 Then
Lbltext.FontUnderline = True
Else
Lbltext.FontUnderline = False
End If
End Sub

 

Private Sub Cmdexit_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

Gambar

 

TUGAS

Gambar

Private Sub command3_Click()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”

 

End Sub

 

Private Sub command4_Click()
Unload Me
End Sub

 

Private Sub command2_Click()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”

 

End Sub

 

Private Sub command1_Click()
Dim S As String
Dim Total As Long
text5.Text = “20” & Left(text2.Text, 2)

 

S = Mid(text2.Text, 3, 1)
If S = “1” Then
text3.Text = “sistem Informasi”
ElseIf S = “2” Then
text3.Text = “Manajemen Informatika”
ElseIf S = “3” Then
text3.Text = “Tehnik Informatika”
ElseIf S = “04” Then
text3.Text = “Manajemen Komp. Akuntansi”
End If

 

text4.Text = Mid(text2.Text, 5, 2)
If S = “1” Then
text4.Text = “strata satu”
ElseIf S = “2” Then
text4.Text = “diploma tiga”
ElseIf S = “3” Then
text4.Text = “Diploma Empat”
ElseIf S = “4” Then
text4.Text = “Diploma Dua”
End If

 

text6.Text = text4
text6.Text = Right(text2.Text, 3)

 

 

 

End Sub

 

Private Sub Form_Activate()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”

 

End Sub

 

Private Sub text1_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
text2.SetFocus
End If
End Sub

 

 Gambar

 

tugas 3

GambarGambar
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnama = “”
txtquis = “”
txttugas = “”
txtuts = “”
txtuas = “”
txtakhir = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnama = “”
txtquis = “”
txttugas = “”
txtuts = “”
txtuas = “”
txtakhir = “”
End Sub

Private Sub cmdproses_Click()
txtakhir.Text = Val((txtquis.Text) + Val(txttugas.Text) + Val(txtuts.Text) + Val(txtuas.Text)) / 4
End Sub

Private Sub txtakhir_Change()

End Sub

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

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
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 KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub

Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtakhir.SetFocus
End If
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub