TUGAS Mata Kuliah Etika Profesi - Kelas Line 1 TKJ

1. )

Pengertian : 

Pinjaman online adalah fasilitas pinjaman uang oleh penyedia jasa keuangan yang beroperasi secara online. Penyedia pinjaman online tersebut biasa dikenal dengan sebutan fintech.

Jenis-Jenis Pinjaman Online :

1. KTA. Kredit Tanpa Agunan adalah produk pinjaman online pribadi yang tidak mensyaratkan agunan/jaminan atas kredit yang diajukan nasabah.

Pada umumnya penyedia aplikasi atau jasa pinjaman dana online menjadikan kepemilikan kartu kredit sebagai syarat utama pengajuan KTA.

2. Kredit Karyawan. Pinjaman karyawan adalah produk yang dirancang khusus bagi karyawan yang aktif bekerja di sebuah instansi, perusahaan, badan usaha maupun lembaga.

Syarat utama pinjaman ini di antaranya SK Pengangkatan PNS/Pegawai Tetap, rekomendasi pejabat/atasan yang berwenang dan slip gaji.

3. Kredit Kendaraan. Saat ini kredit mobil maupun motor dapat diajukan secara online.

Syarat utama pinjaman ini di antaranya adalah slip gaji, memiliki tempat tinggal sendiri dan uang muka (DP) sesuai ketentuan.

4. KPR. Kredit Pemilikan Rumah adalah fasilitas pinjaman bagi nasabah yang ingin membeli rumah dengan cara mencicil.

Sejumlah fintech yang bekerjasama dengan bank juga telah menyediakan fasilitas KPR online.

5. Pinjaman usaha. Kredit usaha adalah pinjaman dengan tujuan permodalan usaha.

sumber : https://www.online-pajak.com/pinjamanh-online

2. )

Dengan proses pengajuan online, Anda tidak perlu tatap muka kepada pihak lembaga keuangan atau menyiapkan dokumen fisik. Anda dapat mengisi formulir aplikasi secara online, foto dokumen persyaratan kemudian menguploadnya, serta meng-verifikasi informasi Anda lewat telepon saja.

Pinjaman online umumnya memiliki persyaratan yang sangat mudah dan ringan dibandingkan KTA dari pihak bank. Baik itu dari segi syarat umur, penghasilan bulanan, hingga dokumen yang dibutuhkan. Percaya atau tidak, tersedia lembaga keuangan yang bisa memberikan pinjaman kepada Anda dengan modal KTP saja dengan tanpa jaminan ataupun penjamin.

Jika Anda terdesak dana, maka layanan ini dapat menjadi jalan keluarnya. Mayoritas Lembaga keuangan dapat mencairkan dana pinjaman dalam waktu kurang dari 7 hari dan langsung ke rekening Anda.

sumber : https://www.aturduit.com/pinjaman-online

3. )

Secara umum, Undang-Undang Internet dan Transaksi Elektronik atau UU ITE Pasal 32 meyebutkan bahwa setiap orang dengan sengaja dan tanpa hak melakukan transmisi dan memindahkan informasi elektronik milik orang lain akan dipidana dengan penjara paling lama delapan tahun dan/atau denda paling banyak Rp 2 miliar.

Dalam menindak aplikasi layanan peminjaman online yang berjalan tidak sesuai dengan aturan, Kominfo telah bekerjasama dengan toko aplikasi. "Kalau memang ilegal mereka akan kami kirimi surat untuk tidak boleh diunduh lewat Apple App Store ataupun Google Play Store," ujar Semuel.

Lebih dari itu, Semuel mengatakan bahwa aplikasi yang menyalahi aturan dapat ditindak secara hukum. "Terkait penyalahgunaannya, kalau penyalahgunaan data Kominfo, kalau beroperasi tanpa izin di OJK," kata dia.

Semuel mengungkapkan bahwa Kominfo telah memiliki satuan tugas investasi bodong, juga mengenai fintech. Menurut dia, satgas tersebut telah menurunkan lebih dari 300 layanan fintech dengan total hingga saat ini 669 fintech dan investasi bodong yang telah dilakukan semenjak 2012. "Untuk memerangi ini yang paling bagus ada mengedukasi masyarakat," ujar Semuel.

sumber : https://bisnis.tempo.co/read/1144608/pinjaman-online-yang-salah-gunakan-data-terancam-denda-dan-pidana/full?view=ok

TUGAS BP1 (PROGRAM I)

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = ""

txtnpm = ""

txtjurusan = ""

txtpstudi = ""

txttahun = ""

txtnurut = ""

txtbp = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = ""

txtnpm = ""

txtjurusan = ""

txtpstudi = ""

txttahun = ""

txtnurut = ""

txtbp = ""

End Sub

Private Sub cmdproses_Click()

Dim Z As String

txttahun = "20" & Left(txtnpm, 2)

txtnurut = Right(txtnpm, 3)

Z = Mid(txtnpm, 3, 1)

If Z = "1" Then

txtjurusan = "Sistem Informasi"

ElseIf Z = "2" Then

txtjurusan = "Tehnik Informatika"

ElseIf Z = "3" Then

txtjurusan = "Manajemen Informatika"

ElseIf Z = "4" Then

txtjurusan = "Manajemen & Komp.Akuntansi"

End If

Dim Q As String

Q = Mid(txtnpm, 4, 2)

If Q = "01" Then

txtpstudi = "Strata Satu"

txtbp = "1950000"

ElseIf Q = "02" Then

txtpstudi = "Diploma Empat"

txtbp = "1750000"

ElseIf Q = "03" Then

txtpstudi = "Diploma Tiga"

txtbp = "1650000"

ElseIf Q = "04" Then

txtpstudi = "Diploma Dua"

txtbp = "1450000"

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

TUGAS BP1 (PROGRAM H)

Private Sub cbokode_Click()

Dim A, M As String

Select Case cbokode

Case "P205"

A = "Pentium II 500 Mega Hz"

M = "1500000"

Case "P308"

A = "Pentium III 800 Mega Hz"

M = "2100000"

Case "P310"

A = "Pentium III 1.0 Giga Hz"

M = "3500000"

Case "P415"

A = "Pentium IV 1.5 Giga Hz"

M = "4000000"

Case "P417"

A = "Pentium IV 1.7 Giga Hz"

M = "4200000"

Case "P419"

A = "Pentium IV 1.9 Giga Hz "

M = "5500000"

End Select

txtjk = A

txths = M

txtjj.SetFocus

End Sub

Private Sub cmdproses_Click()

txthp = Val(txtjj) * Val(txths)

If txthp >= 30000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 25000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 20000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 15000000 Then

txtdis = 0.02 * Val(txthp)

End If

txthb = Val(txthp) - Val(txtdis)

End Sub

Private Sub cmdhu_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Komputer"

txtjk = ""

txths = ""

txtjj = ""

txthp = ""

txtdis = ""

txthb = ""

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbokode.AddItem "P205"

cbokode.AddItem "P308"

cbokode.AddItem "P310"

cbokode.AddItem "P415"

cbokode.AddItem "P417"

cbokode.AddItem "P419"

End Sub

TUGAS BP1 (PROGRAM G)

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtpeng = ""

txttt = ""

txtper = ""

txth = ""

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtpeng = ""

txttt = ""

txtper = ""

txth = ""

End Sub

Private Sub cmdproses_Click()

Dim X As String

txttt = "20" & Mid(txtkb, 5, 2)

X = Left(txtkb, 3)

If X = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtpeng = "Fadiya Ulfa"

txth = "75900"

ElseIf X = "EDP" Then

txtjb = "Electronik Data Processing"

txtpeng = "Nurul Agustina"

txth = "62000"

ElseIf X = "MNJ" Then

txtjb = "Manajemen"

txtpeng = "Rian Hidayat"

txth = "42000"

ElseIf X = "CDR" Then

txtjb = "Corel Draw"

txtpeng = "Siti Nur Khotimah"

txth = "53000"

ElseIf X = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpeng = "Winda Erlianti"

txth = "83000"

End If

Dim Y As String

Y = Right(txtkb, 1)

If Y = "A" Then

txtper = "Andi Offset Yogyakarta"

ElseIf Y = "I" Then

txtper = "Indah Surabaya"

ElseIf Y = "S" Then

txtper = "Salemba Empat"

ElseIf Y = "E" Then

txtper = "Elek Media Komputindo"

ElseIf Y = "M" Then

txtper = "Maxicom"

End If

End Sub

TUGAS BP1 (PROGRAM F)

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt = ""

txtht = ""

txtjk = ""

txtjb = ""

txtjt = ""

txttp = ""

End Sub

Private Sub cmdproses_Click()

txttp = Val(txtht) * Val(txtjt)

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

Dim k As String

k = txtkt

If k = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf k = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf k = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf k = "SEN" Then

txtht = "15000"

txtjk = "SENJA"

txtjb = "20.00"

End If

End Sub

TUGAS BP1 (PROGRAM E)

Private Sub cbokode_Click()

Dim j, h As String

Select Case cbokode

Case "P205"

j = "Pentium II 500 Mega Hz"

h = "1500000"

Case "P308"

j = "Pentium III 800 Mega Hz"

h = "2100000"

Case "P310"

j = "Pentium III 1.0 Giga Hz"

h = "3500000"

Case "P415"

j = "Pentium IV 1.5 Giga Hz"

h = "4000000"

Case "P417"

j = "Pentium IV 1.7 Giga Hz"

h = "4200000"

Case "P419"

j = "Pentium IV 1.9 Giga Hz"

h = "5500000"

End Select

txtjk = j

txths = h

txtjj.SetFocus

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Komputer"

txtjj = ""

txtjk = ""

txths = ""

txthp = ""

txtdis = ""

txttb = ""

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txthp = Val(txths) * Val(txtjj)

If txthp >= 40000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 35000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 30000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 25000000 Then

txtdis = 0.02 * Val(txthp)

End If

txttb = Val(txthp) - Val(txtdis)

End Sub

Private Sub Form_Load()

cbokode.AddItem "P205"

cbokode.AddItem "P308"

cbokode.AddItem "P310"

cbokode.AddItem "P415"

cbokode.AddItem "P417"

cbokode.AddItem "P419"

End Sub

TUGAS BP1 (PROGRAM D)

Private Sub cbokode_Click()

Dim m, h As String

Select Case cbokode

Case "Asus A43SA"

m = "Asus A43SA - VX090D"

h = "5500000"

Case "Asus A43SD"

m = "Asus A43SD - VX052D"

h = "4500000"

Case "Asus A43SJ"

m = "Asus A43SJ - VX792D"

h = "4300000"

Case "Asus A43TA"

m = "Asus A43TA - VX034D"

h = "4900000"

Case "Asus N43SL"

m = "Asus N43SL - VX264D"

h = "4300000"

Case "Apple MD311"

m = "Apple MacBook Pro MD311"

h = "19300000"

Case "Apple MD313"

m = "Apple MacBook Pro MD313"

h = "24200000"

Case "Apple MD314"

m = "Apple MacBook Pro MD314"

h = "11900000"

Case "Apple MD322"

m = "Apple MacBook Pro MD322"

h = "14700000"

Case "Apple MC965"

m = "Apple MacBook Pro MC965"

h = "21300000"

End Select

txtmerk = m

txths = h

txtjj.SetFocus

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)

End If

txttb = Val(txthp) - Val(txtdis)

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Laptop"

txtmerk = ""

txths = ""

txtjj = ""

txthp = ""

txtdis = ""

txttb = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbokode.AddItem "Asus A43SA"

cbokode.AddItem "Asus A43SD"

cbokode.AddItem "Asus A43SJ"

cbokode.AddItem "Asus A43TA"

cbokode.AddItem "Asus N43SL"

cbokode.AddItem "Apple MD311"

cbokode.AddItem "Apple MD313"

cbokode.AddItem "Apple MD314"

cbokode.AddItem "Apple MD322"

cbokode.AddItem "Apple MC965"

End Sub

TUGAS BP1 (PROGRAM C)

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = ""

txtjb = ""

txtp = ""

txttahun = ""

txtpenerbit = ""

txthg = ""

End Sub

Private Sub cmdproses_Click()

Dim X As String

txttahun = "20" & Right(txtkb, 2)

X = Mid(txtkb, 3, 3)

If X = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtp = "Andra Setiawan"

txthg = "75900"

ElseIf X = "EDP" Then

txtjb = "Electronic Data Processing"

txtp = "Desi Istiqomah"

txthg = "62000"

ElseIf X = "MNJ" Then

txtjb = "Manajemen"

txtp = "Sandy Fitrajaya"

txthg = "42000"

ElseIf X = "CDR" Then

txtjb = "Corel Draw"

txtp = "Tri Indah Sari"

txthg = "53000"

ElseIf X = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtp = "Ernita Sari"

txthg = "83000"

End If

Dim Y As String

Y = Left(txtkb, 1)

If Y = "A" Then

txtpenerbit = "Andi Offset Yogyakarta"

ElseIf Y = "I" Then

txtpenerbit = "Indah Surabaya"

ElseIf Y = "S" Then

txtpenerbit = "Salemba Empat"

ElseIf Y = "E" Then

txtpenerbit = "Elek Media Komputindo"

ElseIf Y = "M" Then

txtpenerbit = "Maxicom"

End If

End Sub

TUGAS BP1 (PROGRAM B)

Private Sub cmdproses_Click()

txttt = "20" & Right(cbokb, 2)

Dim V, S As String

V = Mid(cbokb, 3, 3)

If V = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtpr = "Yati Nur Oktavia"

txth = "75900"

ElseIf V = "EDP" Then

txtjb = "Electronic Data Processing"

txtpr = "Imam Tarmizi"

txth = "62000"

ElseIf V = "MNJ" Then

txtjb = "Manajemen"

txtpr = "Valentina Mariana"

txth = "42000"

ElseIf V = "CDR" Then

txtjb = "Corel Draw"

txtpr = "Riyan Suhandi"

txth = "53000"

ElseIf V = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpr = "Sinta Umpu Singa"

txth = "83000"

End If

S = Left(cbokb, 1)

If S = "A" Then

txtpt = "Andi Offset Yogyakarta"

ElseIf S = "I" Then

txtpt = "Indah Surabaya"

ElseIf S = "S" Then

txtpt = "Salemba Empat"

ElseIf S = "E" Then

txtpt = "Elek Media Komputindo"

ElseIf S = "M" Then

txtpt = "Maxicom"

End If

End Sub

Private Sub cmdlagi_Click()

cbokb.SetFocus

cbokb = ""

txtjb = ""

txtpr = ""

txttt = ""

txtpt = ""

txth = ""

cbokb = "Pilih Kode Buku"

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

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

TUGAS BP1 (PROGRAM A)

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = ""

txtnik = ""

txtgol = ""

txtkstat = ""

txtstatus = ""

txttahun = ""

txtjbt = ""

txtbagian = ""

txtgapok = ""

txttunjangan = ""

txttotg = ""

End Sub

Private Sub cmdproses_Click()

Dim V As String

txttahun = Left(txtnik, 4)

V = Mid(txtnik, 7, 1)

If V = "S" Then

txtkstat = "S"

txtstatus = "Single"

ElseIf V = "M" Then

txtkstat = "M"

txtstatus = "Menikah"

ElseIf V = "J" Then

txtkstat = "J"

txtstatus = "Janda"

ElseIf V = "D" Then

txtkstat = "D"

txtstatus = "Duda"

End If

Dim S As String

S = Right(txtnik, 3)

If S = "KEU" Then

txtbagian = "Accounting"

ElseIf S = "ADM" Then

txtbagian = "Administrasi"

ElseIf S = "SDM" Then

txtbagian = "General Affair"

ElseIf S = "EDP" Then

txtbagian = "IT Unit"

ElseIf S = "SPM" Then

txtbagian = "Security"

End If

Dim P As String

P = Mid(txtnik, 5, 1)

If P = "A" Then

txtgol = "A"

txtjbt = "Manajer"

txtgapok = "4000000"

txttunjangan = "1025000"

ElseIf P = "B" Then

txtgol = "B"

txtjbt = "Ka.Seksi"

txtgapok = "3500000"

txttunjangan = "975000"

ElseIf P = "C" Then

txtgol = "C"

txtjbgt = "Staff"

txtgapok = "3000000"

txttunjangan = "925000"

End If

txttotg = Val(txtgapok) + Val(txttunjangan)

End Sub

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = ""

txtnik = ""

txtgol = ""

txtkstat = ""

txtstatus = ""

txttahun = ""

txtjbt = ""

txtbagian = ""

txtgapok = ""

txttunjangan = ""

txttotg = ""

End Sub

Private Sub txtnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

TUGAS BP1 (2.7)

Private Sub Command1_Click()

Text4 = Val(Text1) + Val(Text2) - (Text3)

Text5 = Val(Text4) * 0.20

Text6 = Val(Text4) - Val(Text5)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

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.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4 = Val(Text1) + Val(Text2) - (Text3)

Text5 = Val(Text4) * 0.20

Text6 = Val(Text4) - Val(Text5)

End If

End Sub

TUGAS BP1 (2.6)

Private Sub Command1_Click()

Text4 = Val(Text1) + Val(Text2) - (Text3)

Text5 = Val(Text4) * 0.20

Text6 = Val(Text4) - Val(Text5)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

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.SetFocus

End If

End Sub

TUGAS BP1 (2.5)

Private Sub Command1_Click()

Text2 = Val(Text1) * 0.15

Text3 = Val(Text1) - Val(Text2)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2 = Val(Text1) * 0.15

Text3 = Val(Text1) - Val(Text2)

End If

End Sub