Tugas 3.1


Private Sub Form_Load()
Cbogolongan.AddItem "I"
Cbogolongan.AddItem "II"
Cbogolongan.AddItem "III"
Cbogolongan.AddItem "IV"
End Sub

Private Sub Cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogolongan
Case "I"
gapok = 1500000
tunjangan = 150000
Case "II"
gapok = 2000000
tunjangan = 20000
Case "III"
gapok = 2500000
tunjangan = 250000
Case "IV"
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok = gapok
txttunjangan = tunjangan
txtpajak = pajak
txttotal = gapok + tunjangan - pajak
End Sub

Private Sub cmdbatal_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Public Sub kosong()
Txtnidn.SetFocus
Txtnidn = “”
txtnama = “”
Cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Tugas 3.2


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(txtnpm.Text, 3, 1)
If S = "1" Then
txtjur.Text = "Sistem Informasi"
ElseIf S = "2" Then
txtjur.Text = "Manajemen Informatika"
ElseIf S = "3" Then
txtjur.Text = "Tehnik Informatika"
ElseIf S = "4" Then
txtjur.Text = "Manajemen & Komp. Akuntansi"
End If
S = Mid(txtnpm.Text, 4, 2)
If S = "01" Then
txtps.Text = "Strata Satu"
ElseIf S = "02" Then
txtps.Text = "Diploma Tiga"
ElseIf S = "03" Then
txtps.Text = "Diploma Empat"
ElseIf S = "04" Then
txtps.Text = "Diploma Dua"
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub


Tugas 3.3

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(txtnpm.Text, 3, 1)
If S = "1" Then
txtjur.Text = "Sistem Informasi"
txtps.Text = "Strata Satu"
ElseIf S = "2" Then
txtjur.Text = "Manajemen Informatika"
txtps.Text = "Diploma Empat"
ElseIf S = "3" Then
txtjur.Text = "Tehnik Informatika"
txtps.Text = "Diploma Tiga"
ElseIf S = "4" Then
txtjur.Text = "Manajemen & Komp. Akuntansi"
txtps.Text = "Diploma Dua"
End If
S = Mid(txtnpm.Text, 4, 2)
If S = "01" Then
txtps.Text = "Strata Satu"
ElseIf S = "02" Then
txtps.Text = "Diploma Tiga"
ElseIf S = "03" Then
txtps.Text = "Diploma Empat"
ElseIf S = "04" Then
txtps.Text = "Diploma Dua"
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub


Tugas 3.4

Private Sub Cbokode_Click()
Dim merk, harga As String
Select Case Cbokode
Case "MC965"
merk = "Apple MacBook Air MC965"
harga = "12800000"
Case "MC966"
merk = "Apple MacBook Air MC966"
harga = "15800000"
Case "MC968"
merk = "Apple MacBook Air MC968"
harga = "9900000"
Case "MC969"
merk = "Apple MacBook Air MC969"
harga = "11900000"
Case "MC700"
merk = "Apple MacBook Pro MC700"
harga = "10800000"
Case "MC721"
merk = "Apple MacBook Pro MC721"
harga = "15900000"
Case "MC723"
merk = "Apple MacBook Pro MC723"
harga = "19300000"
Case "MC724"
merk = "Apple MacBook Pro MC724"
harga = "13700000"
Case "MC311"
merk = "Apple MacBook Pro MC311"
harga = "24200000"
Case "MC313"
merk = "Apple MacBook Pro MC313"
harga = "11900000"
Case "MC314"
merk = "Apple MacBook Pro MC314"
harga = "14700000"
Case "MC318"
merk = "Apple MacBook Pro MC318"
harga = "17600000"
Case "MC322"
merk = "Apple MacBook Pro MC322"
harga = "21300000"
Case "MC965"
merk = "Apple MacBook Air MC965"
harga = "12800000"
Case "MC966"
merk = "Apple MacBook Air MC966"
harga = "15800000"
End Select
Txtmerk = merk
Txths = harga
Txtjj.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Kosong
End Sub
Public Sub Kosong()
Cbokode.SetFocus
Txtmerk = ""
Txths = ""
Cbokode = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttb = ""
End Sub

Private Sub Cmdproses_Click()
Txthp = Val(Txtjj) * Val(Txths)
If Txthp > "140000000" Then
Txtdis = (0.15) * Val(Txthp)
ElseIf Txthp > "135000000" Then
Txtdis = (0.1) * Val(Txthp)
ElseIf Txthp > "130000000" Then
Txtdis = (0.05) * Val(Txthp)
ElseIf Txthp > "125000000" Then
Txtdis = (0.02) * Val(Txthp)
Else
End If
Txttb = Val(Txthp) - Val(Txtdis)
End Sub

Private Sub Form_Load()
Cbokode.AddItem "MC965"
Cbokode.AddItem "MC966"
Cbokode.AddItem "MC968"
Cbokode.AddItem "MC969"
Cbokode.AddItem "MC700"
Cbokode.AddItem "MC721"
Cbokode.AddItem "MC723"
Cbokode.AddItem "MC724"
Cbokode.AddItem "MC311"
Cbokode.AddItem "MC313"
Cbokode.AddItem "MC314"
Cbokode.AddItem "MC318"
Cbokode.AddItem "MC322"
Cbokode.AddItem "MC965"
Cbokode.AddItem "MC966"
End Sub

Tugas3.5

Private Sub cmdbatal_Click()
Cbokb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
Cbokb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
End Sub

Private Sub cmdproses_Click()
Dim C, jb, peng, har, pener As String
Txttt = "20" & Right(Cbokb, 2)
C = Mid(Cbokb, 3, 3)
If C = "SIM" Then
jb = "Sistem Informasi Manajemen"
peng = "Yati Nur Oktavia"
har = "75900"
ElseIf C = "EDP" Then
jb = "Elektronik Data Processing"
peng = "Imam Tarmizi"
har = "62000"
ElseIf C = "MNJ" Then
jb = "Manajemen"
peng = "Valentina Mariana Adiwianti"
har = "42000"
ElseIf C = "CDR" Then
jb = "corel draw"
peng = "Riyan Suhandi"
har = "53000"
ElseIf C = "RPL" Then
jb = "Rekayasa Perangkat Lunak"
peng = "Sinta Umpu Singa"
har = "83000"
End If
Txtjb = jb
Txtp = peng
Txthar = har
C = Left(Cbokb, 1)
If C = "A" Then
pener = "Andi Offset"
ElseIf C = "I" Then
pener = "Indah Surabaya"
ElseIf C = "S" Then
pener = "Salemba Empat"
ElseIf C = "E" Then
pener = "Elek Media Komputindo"
ElseIf C = "M" Then
pener = "Maxinco"
End If
Txtpn = pener
End Sub

Private Sub Form_Load()
Cbokb.AddItem "A-SIM_01"
Cbokb.AddItem "I-EDP_02"
Cbokb.AddItem "S-MNJ_03"
Cbokb.AddItem "E-CDR_04"
Cbokb.AddItem "M-RPL_05"
End Sub


Tugas3.6

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim k, jk, ht, jb As String
k = Left(txtkt, 3)
If k = "BIM" Or k = "bim" Then
jk = “BIMA”
ht = "50000"
jb = "16.00"
ElseIf k = "EKO" Or k = "eko" Then
jk = "EKONOMI"
ht = "35000"
jb = "19.00"
ElseIf k = "MUT" Or k = "mut" Then
jk = "MUTIARA"
ht = "23000"
jb = "17.00"
ElseIf k = "SEN" Or k = "sen" Then
jk = "SENJA"
ht = "15000"
jb = "20.00"
End If
txtjk.Text = jk
txtht.Text = ht
txtjb.Text = jb
txtjt.SetFocus
End Sub

Private Sub Form_Activate()
txtkt.SetFocus
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub

Tugas 3.7

Private Sub cmdbatal_Click()
txtkb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
txtkb.SetFocus
End Sub

 Private Sub cmdkeluar_Click()
Unload Me
End Sub

 Private Sub cmdlagi_Click()
txtkb = ""
Txtjb = ""
Txtp = ""
Txttt = ""
Txtpn = ""
Txthar = ""
txtkb.SetFocus
End Sub

 Private Sub cmdproses_Click()
Dim k, jb, pen, har As String
Txttt = "20" & Mid(txtkb, 5, 2)
k = Left(txtkb, 3)
If k = "SIM" Then
jb = "Sistem Informasi Manajemen"
pen = "fadiya ulfa"
har = "75900"
ElseIf k = "EDP" Then
jb = "Elektronik Data Processing"
pen = "Nurul Agustina"
har = "62000"
ElseIf k = "MNJ" Then
jb = "Manajemen"
pen = "Rian Hidayat"
har = "42000"
ElseIf k = "CDR" Then
jb = "Corel Draw"
pen = "Siti Nur Khotimah"
har = "53000"
ElseIf k = "RPL" Then
jb = "Rekaya Perangkat Lunak"
pen = "Winda Erlanti"
har = "83000"
End If
Txtjb.Text = jb
Txtp.Text = pen
Txthar = har

 k = Right(txtkb, 1)
If k = "A" Then
pen = "Andi Offset Yogyakarta"
ElseIf k = "I" Then
pen = "Indah Surabaya"
ElseIf k = "S" Then
pen = "Salemba Empat"
ElseIf k = "E" Then
pen = "Elek Media Komputindo"
ElseIf k = "M" Then
pen = "Maxicom"
End If
Txtpn.Text = pen

End Sub


Tugas 3.8
 

Private Sub cmdbatal_Click()
txtnama = ""
txtnik = ""
txtnik.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnik = ""
txtgol = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjab = ""
txtbag = ""
txtgp = ""
txttj = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim k, bag, stat, kode, gol, jab, gp, tj As String
k = Right(txtnik, 3)
If k = "KEU" Then
bag = "Accounting"
ElseIf k = "ADM" Then
bag = "Administrasi"
ElseIf k = "SDM" Then
bag = "General Affair"
ElseIf k = "EDP" Then
bag = "IT Unit"
ElseIf k = "SPM" Then
bag = "Security"
End If
txtbag = bag

k = Mid(txtnik, 7, 1)
If k = "S" Then
kode = "S"
stat = "Singgle"
ElseIf k = "M" Then
kode = "M"
stat = "Menikah"
ElseIf k = "J" Then
kode = "J"
stat = "Janda"
ElseIf k = "D" Then
kode = "D"
stat = "Duda"
End If
txtkode = kode
txtstatus = stat

Select Case k = Mid(txtnik, 5, 1)
Case k = "A"
gol = "A"
jab = "Manager"
gp = "4000000"
tj = "1025000"
Case k = "B"
gol = "B"
jab = "Ka.Seksi"
gp = "3500000"
tj = "975000"
Case k = "C"
gol = "C"
jab = "Staff"
gp = "3000000"
tj = "925000"
End Select
txtgol = gol
txtjab = jab
txtgp = gp
txttj = tj
txttahun = Left(txtnik, 4)
total = Val(gp) + Val(tj)
txttotal = total
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub



Private Sub txtnik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

PENGUKUHAN PUSAT INFORMASI & KONSELING MAHASISWA

Gambar
STMIK PRINGSEWU – Pusat Informasi dan Konseling Mahasiswa (PIK-Mahasiswa) adalah suatu wadah kegiatan program KKB yang dikelola dari, oleh dan untuk mahasiswa guna memberikan pelayanan informasi dan konseling tentang KEPENDUDUKAN DAN Keluarga Berencana termasuk Penyiapan Kehidupan Berkeluarga bagi Remaja serta kegiatan-kegiatan penunjang lainnya. PIK Mahasiswa adalah nama generik. Untuk menampung kebutuhan program PKBR dan menarik minat mahasiswa datang ke PIK Mahasiswa, nama generik ini dapat dikembangkan dengan nama-nama yang sesuai dengan kebutuhan program dan selera mahasiswa setempat. Tujuan umum dari PIK Mahasiswa adalah dalam rangka meningkatkan akses dan kualitas pelayanan program penyiapan kehidupan berkeluarga bagi mahasiswa. Sedangkan tujuan khususnya antara lain: 1) membentuk Pusat Informasi dan Konseling Mahasiswa (PIK Mahasiswa) di kampus; 2) meningkatkan Pusat Informasi dan Konseling Mahasiswa (PIK Mahasiswa) dari tahap Tumbuh menjadi tahap tegak dan tahap
Baca selengkapnya

Render OnePlus 5T dengan Desain Bezel-Less 18:9 Telah Muncul PonselPonsel Menarik

Gambar
OnePlus merupakan brand smartphone dengan jargon flagship killer, dimana smartphone besutannya mengusung spesifikasi high-end namun dibanderol dengan harga yang lebih murah ketimbang kompetitornya. Smartphone flagship milik perusahaan saat ini adalah OnePlus 5, dimana mereka mendapatkan angka penjualan baik selama empat bulan terakhir. Tampaknya OnePlus 5 akan segera kedatangan penerusnya yang saat ini tengah dipersiapkan untuk segera meluncur. Model terbaru akan menjadi OnePlus 5T, dimana smartphone tersebut bakal rilis pada bulan November 2017. Jika itu benar, tampaknya OnePlus 5 akan bernasib sama seperti OnePlus 3 yang kedatang OnePlus 3T setelah lima bulan diluncurkan. Baru-baru ini bocoran mengenai OnePlus 5T telah beredar, dimana smartphone tersebut akan hadir dengan desain yang menjadi tren saat ini, yaki fullscreen display. Desain tersebut sangat digemari karena selain mendapatkan layar yang lebih luas, kesan smartphone juga akan menjadi terlihat sangat premium.
Baca selengkapnya