database

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Txtnama.SetFocus4
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjurusan.Text = “”
Txtprodi.Text = “”
Txttahunmasuk.Text = “”
txtnomorurut.Text = “”

End Sub

Private Sub Cmdhapus_Click()
Data1.Recordset.Delete
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjurusan.Text = “”
Txtprodi.Text = “”
Txttahunmasuk.Text = “”
txtnomorurut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
Txtjurusan.Text = “Sistem Informasi”
ElseIf A = “2” Then
Txtjurusan.Text = “Manajemen informatika”
ElseIf A = “3” Then
Txtjurusan.Text = “Tekhnik Informatika”
ElseIf A = “4” Then
Txtjurusan.Text = “Komputer Akuntansi”
End If
Txtnpm.SetFocus
A = Mid(Txtnpm.Text, 4, 2)
If A = “01” Then
Txtprodi.Text = “strata satu”
ElseIf A = “02” Then
Txtprodi.Text = “diploma empat”
ElseIf A = “03” Then
Txtprodi.Text = “diploma tiga”
ElseIf A = “04” Then
Txtprodi.Text = “diploma dua”
End If
Txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

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

DATA BUKU STMIK PRINGSEWU 2

 

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

 

 

tugas 3 vb1

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

DATA BUKU STMIK PRINGSEWU

 

Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim a As String

a = Left(cbokode.Text, 1)
If a = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf a = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf a = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf a = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf a = “M” Then
txtpenerbit.Text = “Maxicom”
End If

a = Mid(cbokode.Text, 3, 3)
If kode = “SIM” Then
txtjudul.Text = “Sistem Informasi Manajemen”
txtpengarang.Text = “Yati Nur Oktavia”
txtharga.Text = “75900”
ElseIf a = “EDP” Then
txtjudul.Text = “Elektronik Data Proses”
txtpengarang.Text = “Imam Tarmizi”
txtharga.Text = “62000”
ElseIf a = “MNJ” Then
txtjudul.Text = “Manajemen”
txtpengarang.Text = “Valentina Mariana Adiwiyanti”
txtharga.Text = “42000”
ElseIf a = “CRD” Then
txtjudul.Text = “Corel Draw”
txtpengarang.Text = “Riyan Suhandi”
txtharga.Text = “453000”
ElseIf a = “RPL” Then
txtjudul.Text = “Rekayasa Perangkat Lunak”
txtpengarang.Text = “Sinta umpu singa”
txtharga.Text = “83000”
End If

txttahun.Text = Right(cbokode.Text, 2)

End Sub

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

DATA BUKU MAHASISWA STMIK PRINGSEWU 1

Private Sub CmdBATAL_Click()
txtkode.SetFocus
txtkode.Text = “”
Txtjudul.Text = “”
Txtpengarang.Text = “”
Txttahun.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKELUAR_Click()
Unload Me
End Sub

Private Sub CmdLAGI_Click()
txtkode.SetFocus
txtkode.Text = “”
Txtjudul.Text = “”
Txtpengarang.Text = “”
Txttahun.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdPROSES_Click()
Dim A As String
Txttahun.Text = “20” & Right(txtkode.Text, 2)
A = Mid(txtkode.Text, 3, 3)
If A = “SIM” Then
Txtjudul.Text = “SISTEM INFORMASI MANAJEMEN”
ElseIf A = “EDP” Then
Txtjudul.Text = “ELEKTRONIK DATA PROCESSING”
ElseIf A = “MNJ” Then
Txtjudul.Text = “MANAJEMEN”
ElseIf A = “CDR” Then
Txtjudul.Text = “CORELDRAW”
ElseIf A = “RPL” Then
Txtjudul.Text = “REKAYASA PERANGKAT LUNAK”
End If
A = Left(txtkode.Text, 1)
If A = “A” Then
Txtpenerbit.Text = “ANDI OFSSET YOGYAKARTA”
ElseIf A = “I” Then
Txtpenerbit.Text = “INDAH SURABAYA”
ElseIf A = “S” Then
Txtpenerbit.Text = “SALEMBA”
ElseIf A = “E” Then
Txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf A = “M” Then
Txtpenerbit.Text = “MAXICOM”
End If
A = Mid(txtkode.Text, 3, 3)
If A = “SIM” Then
Txtpengarang.Text = ” ANDRA SETIAWAN”
ElseIf A = “EDP” Then
Txtpengarang.Text = “DESI ISTIQOMAH”
ElseIf A = “MNJ” Then
Txtpengarang.Text = “SANDY FITRAJAYA”
ElseIf A = “CDR” Then
Txtpengarang.Text = “TRI INDAH SARI”
ElseIf A = “RPL” Then
Txtpengarang.Text = “ERNITA”
End If
A = Mid(txtkode.Text, 3, 3)
If A = “SIM” Then
Txtharga.Text = “83000”
ElseIf A = “EDP” Then
Txtharga.Text = “57000”
ElseIf A = “MNJ” Then
Txtharga.Text = “42000”
ElseIf A = “CDR” Then
Txtharga.Text = “62000”
ElseIf A = “RPL” Then
Txtharga.Text = “75900”
End If
End Sub

TUGAS 3 VB

Private Sub ChK1_Click()
Label2.FontBold = ChK1.Value
End Sub

Private Sub ChK2_Click()
Label2.FontItalic = ChK2.Value
End Sub

Private Sub CMD1_Click()
Label2.Caption = TXt1.Text
End Sub

Private Sub CMD2_Click()
End
End Sub

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

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

tugas 3 vb1

Private Sub cmdhitung_Click()
Dim A, B, C As Double
TXTB.Text = Val(TxtA.Text) * 0.1
TXTC.Text = Val(TxtA.Text) – (TXTB.Text)
End Sub

Private Sub CMDQUIT_Click()
End
End Sub

Private Sub cmdulangi_Click()
TxtA = “”
TXTB = “”
TXTC = “”
End Sub

TUGAS 3 VB1

 

 

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

TUGAS 3 VB 1

Private Sub CMDBATAL_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprogramstudi = “”
Txttahunmasuk = “”
Txtnomerurut = “”
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprogramstudi = “”
Txttahunmasuk = “”
Txtnomerurut = “”
End Sub

Private Sub cmdproses_Click()
Dim A As String
Txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
Txtjurusan.Text = “sistem informasi”
ElseIf A = “2” Then
Txtjurusan.Text = ” manajemen informatika”
ElseIf A = “3” Then
Txtjurusan.Text = “tekhnik informatika”
ElseIf A = “4” Then
Txtjurusan.Text = “komputer akuntansi”
End If

A = Mid(Txtnpm.Text, 4, 2)
If A = “01” Then
Txtprogramstudi = “strata satu”
ElseIf A = “02” Then
Txtprogramstudi = “diploma empat”
ElseIf A = “03” Then
Txtprogramstudi = “diploma tiga”
ElseIf A = “04” Then
Txtprogramstudi = “diploma dua”
End If
Txtnomerurut.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub Command2_Click()

End Sub

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

End Sub

Private Sub Txtprogramstudi_Change()
If keyAsii = 13 Then
Txttahunmasuk.SetFocus
End If
End Sub

Private Sub Txttahunmasuk_Change()
If KeyAscii = 13 Then
txtnomorurut.setfokus
End If
End Sub

NILAI MAHASISWA STMIK PRINGSEWU KELAS TWITTER 4

Private Sub Command1_Click()

End Sub

Private Sub Cmdbatal_Click()
Txtnpm.SetFocus
Txtnpm = “”
Txtnama = “”
Txtquis = “”
Txttugas = “”
Txtuts = “”
Txtnilaiakhir
End Sub
Private Sub Cmdlagi_Click()
Txtnpm.SetFocus
Txtnpm = “”
Txtnama = “”
Txtquis = “”
Txttugas = “”
Txtuts = “”
txtuas = “”
Txtakhir = “”
End Sub

Private Sub Cmdproses_Click()
Dim quis, tugas, uts, uas, akhir As String
quis = Val(Txtquis.Text)
tugas = Val(Txttugas.Text)
uts = Val(Txtuts.Text)
uas = Val(txtuas.Text)
akhir = quis + tugas + uts + uas
Txtakhir.Text = akhir / 4
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 Txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub