Tugas Etika Profesi Kelas Line 1 TKJ

Tugas Etika Profesi Kelas Line 1 TKJ

Imamuddin 8/29/2019 Komentar

Analisi Masalah Fenomena "Pinjaman 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!

Jawab :

1. Pinjaman online adalah fasilitas pinjaman uang oleh penyedia jasa keuangan yang beroperasi secara online. Penyedia pinjaman online tersebut biasa dikenal dengan sebutan fintech.
2. Para penyelenggara pinjaman online legal menyatakan, telah menjelaskan besaran bunga dan biaya administrasi kepada nasabah di awal peminjaman. Mereka tak menerapkan sistem bunga berbunga, dan memperhatikan kemampuan calon peminjam. Fintech lending yang menjadi anggota AFPI juga berjanji tidak akan menyalahgunakan data pribadi peminjam.
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. Peraturan Menteri Kominfo No. 20 Tahun 2016 tentang Perlindungan Data Pribadi dalam Sistem Elektronik (PM 20/2016) yang berlaku sejak Desember 2016 tersebut, perlindungan data pribadi mencakup perlindungan terhadap perolehan, pengumpulan, pengolahan, penganalisisan, penyimpanan, penampilan, pengumuman, pengiriman, penyebarluasan, dan pemusnahan data pribadi.

Sumber :

https://www.online-pajak.com/pinjaman-online

https://kumparan.com/@kumparanbisnis/jerat-setan-pinjaman-online-1puJx9sOrtx

https://www.kominfo.go.id/content/detail/13541/fintech-lending-langgar-aturan-lakukan-persekusi-digital/0/sorotan_media

Baca selengkapnya

TUGAS 3

TUGAS 3

TUGAS 3

Imamuddin 12/14/2017 Komentar

TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 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


TAMPILAN TUGAS 3 PROGRAM 8

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

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

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

End Sub

Private Sub cmdproses_Click()
Dim A, bag, stat, kode, gol, jab, gp, tj As String
A = Right(txtnik, 3)
If A = "KEU" Or A = "keu" Then
bag = "Accounting"
ElseIf A = "ADM" Or A = "adm" Then
bag = "Administrasi"
ElseIf A = "SDM" Or A = "sdm" Then
bag = "General Affair"
ElseIf A = "EDP" Or A = "edp" Then
bag = "IT Unit"
ElseIf A = "SPM" Or A = "spm" Then
bag = "Security"
End If
txtbag = bag
A = Mid(txtnik, 7, 1)
If A = "S" Or A = "S" Then
kode = "S"
stat = "Single"
ElseIf A = "M" Or A = "m" Then
kode = "M"
stat = "Menikah"
ElseIf A = "J" Or A = "J" Then
kode = "J"
stat = "Janda"
ElseIf A = "D" Or A = "D" Then
kode = "D"
stat = "Duda"
End If
txtkode = kode
txtstatus = stat

Select Case A = Mid(txtnik, 5, 1)
Case A = "A" Or A = "a"
gol = "A"
jab = "Manager"
gp = "4000000"
tj = "1025000"

Case A = "B" Or A = "b"
gol = "B"
jab = "Ka.Seksi"
gp = "3500000"
tj = "975000"

Case A = "C" Or A = "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

Baca selengkapnya

TUGAS 2

TUGAS 2

TUGAS 2

Imamuddin 11/23/2017 Komentar

TAMPILAN TUGAS 2 PROGRAM 1 (Perhitungan Harga Tanpa Keypress)

Private Sub cmdHitung_Click()

txtdiskon = Val(txtHA) * 0.15

Txtak = Val(txtHA) - Val(txtdiskon)

End Sub

Private Sub cmdQuit_Click()

End

End Sub

Private Sub cmdUlangi_Click()

txtHA = ""

txtdiskon = ""

Txtak = ""

txtHA.SetFocus

End Sub

TAMPILAN TUGAS 2 PROGRAM 2 (Perhitungan Harga Menggunakan Keypress)

Private Sub txtHA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtak.SetFocus

txtdiskon = Val(txtHA) * 0.15

Txtak = Val(txtHA) - Val(txtdiskon)

End If

End Sub

Private Sub cmdQuit_Click()

End

End Sub

Private Sub cmdUlangi_Click()

txtHA = ""

txtdiskon = ""

Txtak = ""

txtHA.SetFocus

end Sub


TAMPILAN TUGAS 2 PROGRAM 3 (Aplikasi Perhitungan Gaji Tanpa Keypress)

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)

txtpajak = Val(txtgajik) * 0.05

txtgajid = Val(txtgajik) - Val(txtpajak)

End Sub

Private Sub cmdulang_Click()

txtgajip = ""

txttn = ""

txtpotongan = ""

txtgajik = ""

txtpajak = ""

txtgajid = ""

txtgajip.SetFocus

End Sub

TAMPILAN TUGAS 2 PROGRAM 4 (Aplikasi Perhitungan Menggunakan Keypress)

 

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)

txtpajak = Val(txtgajik) * 0.05

txtgajid = Val(txtgajik) - Val(txtpajak)

End Sub

Private Sub cmdulang_Click()

txtgajip = ""

txttn = ""

txtpotongan = ""

txtgajik = ""

txtpajak = ""

txtgajid = ""

txtgajip.SetFocus

End Sub

Private Sub txtgajip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttn.SetFocus

End If

End Sub

Private Sub txtpotongan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgajid.SetFocus

txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)

txtpajak = Val(txtgajik) * 0.05

txtgajid = Val(txtgajik) - Val(txtpajak)

End If

End Sub

Private Sub txttn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpotongan.SetFocus

End If

End Sub

TAMPILAN TUGAS 2 PROGRAM 5

Private Sub Cmdext_Click()

End

End Sub

Private Sub Optred_Click()

Lbltxt.ForeColor = vbRed

End Sub

Private Sub Optbiru_Click()

Lbltxt.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Lbltxt.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Lbltxt.ForeColor = vbYellow

End Sub

Private Sub chkbold_Click()

If Chkbold.Value = 1 Then

Lbltxt.FontBold = True

Else

Lbltxt.FontBold = False

End If

End Sub

Private Sub chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltxt.FontUnderline = True

Else

Lbltxt.FontUnderline = False

End If

End Sub

Private Sub chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltxt.FontStrikethru = True

Else

Lbltxt.FontStrikethru = False

End If

End Sub

Private Sub chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltxt.FontItalic = True

Else

Lbltxt.FontItalic = False

End If

End Sub

TAMPILAN TUGAS 2 PROGRAM 6

Private Sub Cmdoke_Click()

lbltext1.Caption = txtnnm.Text

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Optbiru_Click()

lbltext1.ForeColor = vbBlue

End Sub

Private Sub Optred_Click()

lbltext1.ForeColor = vbRed

End Sub

Private Sub Chkbold_Click()

lbltext1.FontBold = Chkbold.Value

End Sub

Private Sub Chkitalic_Click()

lbltext1.FontItalic = Chkitalic.Value

End Sub

TAMPILAN TUGAS 2 PROGRAM 7 (Huruf Mutu Tanpa Keypress)

Private Sub Form_Load()

Cbonpm.AddItem "17100075"

Cbonpm.AddItem "17200089"

Cbonpm.AddItem "16300212"

Cbonpm.AddItem "17400056"

Cbonpm.AddItem "15400586"

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100075"

 nama = "DWI AGUNG CAHYADI"

 jurusan = "Sistem Informasi"

 Case "17200089"

 nama = "IMAMUDDIN"

 jurusan = "Manajemen Informatika"

 Case "16300212"

 nama = "SUKINEM"

 jurusan = "Tehnik Sipil"

 Case "17400056"

 nama = "SAKIR KECIL"

 jurusan = "Tehnik Informatika"

 Case "15400586"

 nama = "MBAH WAGU"

 jurusan = "MANAGEMENT SISTEM INFORMASI"

 End Select

 txtnm = nama

 txtjr = jurusan

 txtnq.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

txtnm = ""

txtjr = ""

txtnq = ""

txtnt = ""

txtuts = ""

txtuas = ""

txtna = ""

txthm = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtnq)

TUGAS = Val(txtnt)

UTS = Val(txtuts)

UAS = Val(txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

  End Sub

TAMPILAN TUGAS 2 PROGRAM 8 (Huruf Mutu Menggunakan Keypress)

Private Sub Form_Load()

Cbonpm.AddItem "17100075"

Cbonpm.AddItem "17200089"

Cbonpm.AddItem "16300212"

Cbonpm.AddItem "17400056"

Cbonpm.AddItem "15400586"

End Sub

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

Private Sub txtnt_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

txtuas.SetFocus

Dim NA As Integer

Dim HM As String

QUIS = Val(txtnq)

TUGAS = Val(txtnt)

UTS = Val(txtuts)

UAS = Val(txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

End If

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100075"

 nama = "DWI AGUNG CAHYADI"

 jurusan = "Sistem Informasi"

 Case "17200089"

 nama = "IMAMUDDIN"

 jurusan = "Manajemen Informatika"

 Case "16300212"

 nama = "SUKINEM"

 jurusan = "Tehnik Sipil"

 Case "17400056"

 nama = "SAKIR KECIL"

 jurusan = "Tehnik Informatika"

 Case "15400586"

 nama = "MBAH WAGU"

 jurusan = "MANAGEMENT SISTEM INFORMASI"

 End Select

 txtnm = nama

 txtjr = jurusan

 txtnq.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

txtnm = ""

txtjr = ""

txtnq = ""

txtnt = ""

txtuts = ""

txtuas = ""

txtna = ""

txthm = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

  End Sub

Baca selengkapnya