"Kuliah online etika profesi"

Alvin Aziz npm,17100202

Tugas MK. Etika Profesi Kelas Line 1

Agustus 29, 2019

Analisis Masalah Fenomena "Peminjaman Online"
1. Apa yg anda ketahui tentang Peminjaman Online!
2. Bagaimana Sistem yg digunakan pada Peminjaman Online !
3. Bagaimana Pinjaman Online d lihat dari sudut pandang UU ITE. Jelaskan !

catatan: Sertakan Daftar Pustaka
                       " Jawaban "

1.Pinjaman online merupakan sistem atau  jenis fasilitas pinjaman yang dapat langsung cair dengan jaminan yang begitu simple. Produk ini merupakan solusi alternatif bagi masyarakat yang membutuhkan dana tunai lebih cepat. Seluruh persyaratan dan prosedur yang semula harus dilakukan dengan tatap muka pun tidak diperlukan lagi. Bahkan, wawancara kelayakan kredit kini dilakukan melalui telepon.

2.sistem peminjaman online adalah acara kerja yang dilakukan oleh suatu perusahaan yang memiliki cara kerja masing2 seperti salah satu contohnya adalah 

Dana Didik

Dana Didik merupakan platformyang disponsori bagi pelajar yang membutuhkan dana untuk melanjutkan pendidikannya ke jenjang universitas. Proses mulai dimulai setelah peminjaman lulus kuliah dengan suku bunga 1%.

• Walter Pinem. 4 Oktober 2016. INVESTASI: Semua yang Perlu Anda Ketahui Tentang Peer to peer Lending(P2P Lending ). Koinworks.com - https://goo.gl/7Q21NV

3.“Kalau bicara tindakan persekusi digital dan penyalahgunaan data pribadi dari pelanggan, itu jelas yang dilakukannya melanggar aturan. Jelas itu ada di Undang-undang Informasi dan Transaksi Elektronik (ITE) serta aturan menteri soal data pribadi,” tegas Menkominfo Rudiantara menanggapi ramainya kasus penagihan oleh salah satu aplikasi pinjaman online Rupiah Plus yang meresahkan warganet, usai makan malam bersama media, akhir pekan lalu.

 Dijelaskannya, dalam Undang-Undang Nomor 11 Tahun 2008 tentang Informasi dan Transaksi Elektronik sebagimana telah diubah dengan Undang-Undang Nomor 19 Tahun 2016 (UU ITE) serta Peraturan Menteri Kominfo No. 20 Tahun 2016 tentang Perlindungan Data Pribadi dalam Sistem Elektronik (PM 20/2016) tercantum sanksi bagi pihak-pihak yang melanggar.

Disebutkan di UU ITE pada Pasal 26 Ayat 1 bahwa kecuali ditentukan lain oleh peraturan perundang-undangan, penggunaan setiap informasi melalui media elektronik yang menyangkut data pribadi seseorang harus dilakukan atas persetujuan Orang yang bersangkutan.

Sumber Berita : www.indotelko.com

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

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