NAMA=FUAIDIN AMIN

KELAS= LIN 1 TKJ

NPM =17100022

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

Read More »

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtnama.Text = ""
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtnama.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim x As String
txtgolongan.Text = Mid(txtnik.Text, 5, 1)
txtkode.Text = Mid(txtnik.Text, 7, 1)
txttahun.Text = Left(txtnik.Text, 4)

x = Mid(txtnik.Text, 7, 1)
If x = "S" Or x = "s" Then
txtstatus.Text = "Single"

ElseIf x = "M" Or x = "m" Then
txtstatus.Text = "Menikah"

ElseIf x = "J" Or x = "j" Then
txtstatus.Text = "Janda"

ElseIf x = "D" Or x = "d" Then
txtstatus.Text = "Duda"

End If

x = Mid(txtnik.Text, 5, 1)
If x = "A" Or x = "a" Then
txtjabatan.Text = "Manager"
txtgaji.Text = "4000000"
txttunjangan.Text = "1025000"

ElseIf x = "B" Or x = "b" Then
txtjabatan.Text = "Ka.Seksi"
txtgaji.Text = "3500000"
txttunjangan.Text = "975000"

ElseIf x = "C" Or x = "c" Then
txtjabatan.Text = "Staff"
txtgaji.Text = "3000000"
txttunjangan.Text = "925000"

End If

x = Right(txtnik.Text, 3)
If x = "KEU" Then
txtbagian.Text = "Accounting"

ElseIf x = "ADM" Then
txtbagian.Text = "Administrasi"

ElseIf x = "SDM" Then
txtbagian.Text = "General Affair"

ElseIf x = "EDP" Then
txtbagian.Text = "IT Unit"

ElseIf x = "SPM" Then
txtbagian.Text = "Security"
End If

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub

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

Read More »

Private Sub cmdbatal_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim A As String
A = Left(cbokode, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Rian Hidayat"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
txttahun = "20" & Mid(txtkode, 5, 2)
A = Right(cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
End Sub

Read More »

Private Sub cmdkeluar_Click()
End
End Sub

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

Private Sub cmdproses_Click()
Dim B As String
B = Left(Txtkt, 3)
If B = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf B = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf B = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf B = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp = Val(txtht) * (txtjt)
End If
End Sub


Read More »

Private Sub cbokode_Click()
Select Case Cbokode
Case "A-SIM-01"
Case "I-EDP-02"
Case "S-MNJ-03"
Case "E-CDR-04"
Case "M-RPL-05"
End Select
End Sub

Private Sub cmdbatal_Click()
Cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(Cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
A = Mid(Cbokode, 3, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Yati Nur Oktavia"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Imam Tarmizi"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Valentina Mariana Adiwianti"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Riyan Suhandi"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Sinta Umpu Singa"
txtharga = "83000"
End If
txttahun = "20" & Right(Cbokode, 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-CDR-04"
Cbokode.AddItem "M-RPL-05"
End Sub

Read More »

Private Sub cbokode_Click()
Dim merk As String
merk = Mid(Cbokode, 7, 5)
If merk = "MC965" Then
Txtmerk = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
Txtmerk = "Apple MacBook Air MC966"
harga = "15800000"
ElseIf merk = "MC968" Then
Txtmerk = "Apple MacBook Air MC968"
harga = "9900000"
ElseIf merk = "MC969" Then
Txtmerk = "Apple MacBook Air MC969"
harga = "11900000"
ElseIf merk = "MC700" Then
Txtmerk = "Apple MacBook Pro MC700"
harga = "10800000"
ElseIf merk = "MC721" Then
Txtmerk = "Apple MacBook Pro MC721"
harga = "15900000"
ElseIf merk = "MC723" Then
Txtmerk = "Apple MacBook Pro MC723"
harga = "19300000"
ElseIf merk = "MC724" Then
Txtmerk = "Apple MacBook Pro MC724"
harga = "13700000"
ElseIf merk = "MC311" Then
Txtmerk = "Apple MacBook Pro MC311"
harga = "24200000"
ElseIf merk = "MC313" Then
Txtmerk = "Apple MacBook Pro MC313"
harga = "11900000"
ElseIf merk = "MC314" Then
Txtmerk = "Apple MacBook Pro MC314"
harga = "14700000"
ElseIf merk = "MC318" Then
Txtmerk = "Apple MacBook Pro MC318"
harga = "17600000"
ElseIf merk = "MC322" Then
Txtmerk = "Apple MacBook Pro MC322"
harga = "21300000"
ElseIf merk = "MC965" Then
Txtmerk = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
Txtmerk = "Apple MacBook Air MC966"
harga = "15800000"
End If
Txths = harga
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdhitunglagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
txtjj = ""
Txtharga = ""
txtdisc = ""
txttb = ""
Cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim harga, dis, total As String
harga = Val(txtjj) * (Txths)
Txtharga = harga
If Txtharga > "140000000" Then
dis = Val(Txtharga) * 0.15
ElseIf txthp > "135000000" Then
dis = Val(Txtharga) * 0.1
ElseIf txthp > "130000000" Then
dis = Val(Txtharga) * 0.05
ElseIf txthp > "125000000" Then
dis = Val(Txtharga) * 0.02
End If
txtdisc = dis
txttb = Val(Txtharga) - Val(txtdisc)
End Sub
Private Sub Form_Load()
Cbokode.AddItem "Apple MC965 MacBook Air"
Cbokode.AddItem "Apple MC966 MacBook Air"
Cbokode.AddItem "Apple MC968 MacBook Air"
Cbokode.AddItem "Apple MC969 MacBook Air"
Cbokode.AddItem "Apple MC700 MacBook Pro"
Cbokode.AddItem "Apple MC721 MacBook Pro"
Cbokode.AddItem "Apple MC723 MacBook Pro"
Cbokode.AddItem "Apple MC724 MacBook Pro"
Cbokode.AddItem "Apple MC311 MacBook Pro"
Cbokode.AddItem "Apple MC313 MacBook Pro"
Cbokode.AddItem "Apple MC314 MacBook Pro"
Cbokode.AddItem "Apple MC318 MacBook Pro"
Cbokode.AddItem "Apple MC322 MacBook Pro"
Cbokode.AddItem "Apple MC965 MacBook Air"
Cbokode.AddItem "Apple MC966 MacBook Air"
End Sub

Read More »

Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim pro As String
txttahun = "20" & Left(txtnpm, 2)
pro = Mid(txtnpm, 3, 1)
If pro = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf pro = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf pro = "3" Then
txtjurusan = "Teknik Informasi"
End If
pro = Mid(txtnpm, 4, 2)
If pro = "00" Then
txtprogram = "Strata Satu"
ElseIf pro = "01" Then
txtprogram = "Diplomat Tiga"
ElseIf pro = "02" Then
txtprogram = "Diplomat Empat"
End If
txtnomor = Right(txtnpm, 3)
End Sub


Read More »

Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim pro As String
txttahun = "20" & Left(txtnpm, 2)
pro = Mid(txtnpm, 3, 1)
If pro = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf pro = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf pro = "3" Then
txtjurusan = "Teknik Informasi"
End If
pro = Mid(txtnpm, 4, 2)
If pro = "00" Then
txtprogram = "Strata Satu"
ElseIf pro = "01" Then
txtprogram = "Diplomat Tiga"
ElseIf pro = "02" Then
txtprogram = "Diplomat Empat"
End If
txtnomor = Right(txtnpm, 3)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End Sub
Read More »

Private Sub cbogolongan_Click()
Dim gaji, tunjangan, pajak, total As Variant
Select Case cbogolongan
Case "I"
gaji = 1500000
tunjangan = 150000
Case "II"
gaji = 2000000
tunjangan = 200000
Case "III"
gaji = 2500000
tunjangan = 250000
Case "IV"
gaji = 3000000
tunjangan = 300000
gaji = 0
tunjangan = 0
End Select
total = gaji + tunjangan
pajak = total * 0.1
txtgaji = gaji
txtpajak = pajak
txttunjangan = tunjangan
txttotal = total - pajak
End Sub

Private Sub cmdbatal_Click()
txtnpm = ""
txtnama = ""
cbogolongan = ""
txtgaji = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
txtnpm.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnpm = ""
txtnama = ""
cbogolongan = ""
txtgaji = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
txtnpm.SetFocus
End Sub

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

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

Read More »

Perkenalkan nama saya fuaidin amin saya lahir di podorejo tanggal 7  bulan januari 1999 hobi saya adalah memancing, sekolah SD N 3 Rejosari  setelah saya melajutkan ketingkat  selanjutnya di  SMP N 4 pringsewu setelah saya lulus saya melanjutkan di Smk KH.Ghalib pringsewu.

Read More »

Private Sub proses_Click()

txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)

txtpaj = Val(txtkot) * 0.1

Txtgadi = Val(txtkot) - Val(txtpaj)

End Sub

Private Sub batal_Click()

txtgapok = ""

txttun = ""

txtpot = ""

txtkot = ""

txtpaj = ""

Txtgadi = ""

txtgapok.SetFocus

End Sub

Private Sub keluar_Click()

Unload Me

end sub

Read More »