PT. PULANG 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

DATA BUKU STMIK PRINGSEWU (COMBO)

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
txtharga = “79500”
ElseIf A = “EDP” Then
txtharga = “62000”
ElseIf A = “MNJ” Then
txtharga = “42000”
ElseIf A = “CDR” Then
txtharga = “53000”
ElseIf A = “RPL” Then
txtharga = “83000”
End If
txtthn.Text = “20” & Right(cmbkode.Text, 2)
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 PRINGSEWU 2 (TUGAS 3 VB 1)

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 PRINGSEWU 1 (TUGAS 3 VB 1)

 

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

Private Sub txtkode_Change()

End Sub

PROPERTY TEST (TUGAS 3 VB 1)

 

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

 

FONT COLOUR AND FONT STYLE

Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
ibiteks.FontBold = True
Else
ibiteks.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
ibiteks.FontItalic = True
Else
ibiteks.FontItalic = False
End If
End Sub

Private Sub Chkstrike_Click()
If Chkstrike.Value = 1 Then
ibiteks.FontStrikethru = True
Else
ibiteks.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
If Chkunderline.Value = 1 Then
ibiteks.FontUnderline = True
Else
ibiteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Optblue_Click()
ibiteks.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
ibiteks.ForeColor = vbGreen
End Sub

Private Sub Optred_Click()
ibiteks.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
ibiteks.ForeColor = vbYellow
End Sub

TUGAS 3 VB 1

 

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
Txtjr = “”
Txtps = “”
Txttahun = “”
Txturut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
Txtjr = “”
Txtps = “”
Txttahun = “”
Txturut = “”
End Sub

Private Sub Cmdproses_Click()
Dim a, jr, ps As String
Txttahun.Text = “20” & Left(txtnpm.Text, 2)
a = Mid(txtnpm.Text, 3, 1)
If a = “1” Then
jr = “sistem informasi”
ElseIf a = “2” Then
jr = “manajemen informatika”
ElseIf a = “3” Then
jr = “tekhnik informatika”
ElseIf a = “4” Then
jr = “komputer akuntansi”
End If
Txtjr.Text = jr
a = Mid(txtnpm.Text, 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

NILAI MAHASISWA STMIK PRINGSEWU

Private Sub Txtnpm_keypress(keyAScii As Integer)
If keyAScii = 13 Then
Txtnama.SetFocus
End If
End Sub
Private Sub Txtnama_keypress(keyAScii As Integer)
If keyAScii = 13 Then
Txtquis.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
Private Sub Txtuas_keypress(keyAScii As Integer)
If keyAScii = 13 Then
End If
End Sub
Private Sub cmdproses_Click()
Txtakhir.Text = Val((Txtquis.Text) + Val(Txttugas.Text) + Val(Txtuas.Text)) / 4
End Sub
Private Sub Cmdlagi_Click()
Txtnpm.SetFocus
Txtnpm = “”
Txtnama = “”
Txtquis = “”
Txttugas = “”
txtuts = “”
Txtuas = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnpm.SetFocus
Txtnpm = “”
Txtnama = “”
Txtquis = “”
Txttugas = “”
txtuts = “”
Txtuas = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub

KALKULATOR MINI

 

Private Sub Txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnilai2.SetFocus
End If
End Sub

Private Sub Command1_Click()
Txthasil.Text = Val(Txtnilai1.Text) + Val(Txtnilai2.Text)
End Sub

Private Sub Command2_Click()
Txthasil.Text = Val(Txtnilai1.Text) * Val(Txtnilai2.Text)
End Sub

Private Sub Command3_Click()
Txthasil.Text = Val(Txtnilai1.Text) / Val(Txtnilai2.Text)
End Sub

Private Sub Command4_Click()
Txthasil.Text = Val(Txtnilai1.Text) – Val(Txtnilai2.Text)
End Sub

Private Sub Command5_Click()
Txtnilai1.Text = “”
Txtnilai2.Text = “”
Txthasil.Text = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

PERKALIAN DUA BILANGAN

Private 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.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub

Private 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()
End
End Sub