Kejahatan dalam bidang Teknologi Informasi

TUGAS

 KEJAHATAN DALAM BIDANG IT

UNTUK MEMENUHI SALAH SATU TUGAS DALAM MENEMPUH MATA KULIAH ETIKA PROFESI

 

 

OLEH :

WENI  REFIKASARI                        NPM    12100322

TWITTER 5

 

                                 

 

 

 

 

 

 

 

 

SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER

STMIK PRINGSEWU

2014

BAB I

PENDAHULUAN

 

1.1 Latar Belakang

Pemanfaatan dalam bidang teknologi Informasi, media, dan komunikasi telah membuat perilaku seseorang menjadi lebih baik dalam berperilaku dalam sebuah masyarakat.  Perkembangan teknologi informasi dan komunikasi telah pula menyebabkan hubungan dunia menjadi tidak terhalang dengan batas dan norma yang ada sehingga dapat menimbulkan suatu perubahan dalam seluruh bidang missal bidang sosial, ekonomi, dan budaya secara cepat dan luas. Teknologi informasi saat ini menjadi pedang bermata dua karena selain memberikan kontribusi bagi peningkatan kesejahteraan, kemajuan, dan peradaban manusia, sekaligus menjadi factor penting dalam perbuatan melawan hukum.

1.2 Metode Penulisan

Makalah ini merupakan salah satu tugas 2 mata kuliah Etika Profesi Teknologi Informasi & Komunikasi. Penyusunan malakah ini, menitikberatkan pada  kegiatan melanggar hukum di dunia maya yang di sebut dengan “Cyber Crime” dan “Cyber Law”. Makalah ini merupakan hasil pengumpulan data dan informasi melalui media internet yang di dalamnya terdapat banyak artikel dan informasi yang menjelaskan tentang Cyber Crime & Cyber Law ini.

1.3 Tujuan Penulisan

Makalah ini di susun agar pemahaman tentang tindak kejahatan melalui media internet dengan sebutan Cyber Crime dan Cyber Law ini menjadi lebih mudah di mengerti bagi setiap orang yang membacanya. Dan khususnya untuk para pengguna media online, makalah ini merupakan informasi yang harus diaplikasikan dalam menggunakan media internet sebagai wadah untuk melakukan berbagai aktifitas dengan baik dan hati-hati.

 

BAB II

PEMBAHASAN

 

2.1 Pengertian Cyber Crime

Cyber Crime adalah suatu tindakan criminal yang melanggar hukum dengan menggunakan teknologi computer sebagai alat kejahatannya. Cyber Crime ini terjadi karena ada kemajuan di bidang teknologi computer atau dunia IT khususnya media internet. Secara teknik tindak pidana tersebut dapat dibedakan menjadi off-line crime, semi on-line crime, dan cybercrime. Masing-masing memiliki karakteristik tersendiri, namun perbedaan utama antara ketiganya adalah keterhubungan dengan jaringan informasi publik (internet).

2.2 Motif Cyber Crime

Motif pelaku kejahatan dalam di dunia maya (cyber crime) pada umumnya dapat dikelompokkan menjadi dua kategori, yaitu :

Motif intelektual, yaitu kejahatan yang dilakukan hanya untuk kepuasan pribadi dan menunjukkan bahwa dirinya telah mampu untuk merekayasa dan mengimplementasikan bidang teknologi informasi. Kejahatan dengan motif ini pada umumnya dilakukan oleh seseorang secara individual.

Motif ekonomi, politik, dan kriminal, yaitu kejahatan yang dilakukan untuk keuntungan pribadi atau golongan tertentu yang berdampak pada kerugian secara ekonomi dan politik pada pihak lain. Karena memiliki tujuan yang dapat berdampak besar, kejahatan dengan motif ini pada umumnya dilakukan oleh sebuah korporasi.

 

  • Faktor Penyebab Timbulnya Cyber Crime

Jika dipandang dari sudut pandang yang lebih luas, latar belakang terjadinya kejahatan di dunia maya ini terbagi menjadi dua faktor penting, yaitu :

  • Faktor Teknis

Dengan banyaknya manfaat yang diberikan oleh teknologi internet, maka masyarakat mudah untuk menjalin komunikasi dengan masyarakat lain walaupun dipisahkan oleh jarak yang sanagt jauh. Internet juga memudahkan untuk dapat mengakses selruh informasi yang diperlukan sebagai penambah wawasan si pengguna media online tersebut. Saling terhubungnya antara jaringan yang satu dengan yang lain memudahkan pelaku kejahatan untuk melakukan aksinya. Kemudian, tidak meratanya penyebaran teknologi menjadikan pihak yang satu lebih kuat daripada yang lain.

  • Faktor Sosial Ekonomi

Cybercrime dapat dipandang sebagai produk ekonomi. Isu global yang kemudian dihubungkan dengan kejahatan tersebut adalah keamanan jaringan. Keamanan jaringan merupakan isu global yang muncul bersamaan dengan internet. Sebagai komoditi ekonomi, banyak negara yang tentunya sangat membutuhkan perangkat keamanan sebuah jaringan internet. Melihat kenyataan seperti itu, Cybercrime berada dalam skenerio besar dari kegiatan ekonomi dunia.

 

2.4 Karakteristik  Cyber Crime

Selama ini dalam kejahatan konvensional, dikenal adanya dua jenis kejahatan sebagai berikut:

  • Kejahatan kerah biru (blue collar crime), adalah tindak kriminal yang dilakukan secara konvensional seperti misalnya perampokkan, pencurian, pembunuhan dan lain-lain.
  • Kejahatan kerah putih (white collar crime), adalah tindak kejahatan dapat dibagi dalam empat kelompok kejahatan, yakni kejahatan korporasi, kejahatan birokrat, malpraktek, dan kejahatan individu.

sendiri sebagai kejahatan yang muncul sebagai akibat adanya komunitas    dunia maya di internet, memiliki karakteristik tersendiri yang berbeda dengan kedua model di atas. Karakteristik unik dari kejahatan di dunia maya tersebut antara lain menyangkut lima hal berikut:

  • Ruang lingkup kejahatan
  • Sifat kejahatan
  • Pelaku kejahatan
  • Modus Kejahatan
  • Jenis kerugian yang ditimbulkan

 

 

 

 

 

2.5 Jenis Cybercrime

Berdasarkan jenis aktifitas yang dilakukannya, cybercrime dapat digolongkan menjadi beberapa jenis sebagai berikut:

 

  • Unauthorized Access

Merupakan kejahatan yang terjadi ketika seseorang memasuki atau menyusup ke dalam suatu sistem jaringan komputer secara tidak sah, tanpa izin, atau tanpa sepengetahuan dari pemilik sistem jaringan komputer yang dimasukinya. Probing dan port merupakan contoh kejahatan ini.

  • Illegal Contents

Merupakan kejahatn yang dilakukan dengan memasukkan data atau informasi ke internet tentang suatu hal yang tidak benar, tidak etis, dan dapat dianggap melanggar hukum atau menggangu ketertiban umum, contohnya adalah penyebaran pornografi.

  • Penyebaran virus secara sengaja

Penyebaran virus pada umumnya dilakukan dengan menggunakan email. Sering kali orang yang sistem emailnya terkena virus tidak menyadari hal ini. Virus ini kemudian dikirimkan ke tempat lain melalui emailnya.

 

  • Data Forgery

Kejahatan jenis ini dilakukan dengan tujuan memalsukan data pada dokumen-dokumen penting yang ada di internet. Dokumen-dokumen ini biasanya dimiliki oleh institusi atau lembaga yang memiliki situs berbasis web database.

 

  • Cyber Espionage, Sabotage, and Extortion

Cyber Espionage merupakan kejahatan yang memanfaatkan jaringan internet untuk melakukan kegiatan mata-mata terhadap pihak lain, dengan memasuki sistem jaringan komputer pihak sasaran. Sabotage and Extortion merupakan jenis kejahatan yang dilakukan dengan membuat gangguan, perusakan atau penghancuran terhadap suatu data, program komputer atau sistem jaringan komputer yang terhubung dengan internet.

 

  • Cyberstalking

Kejahatan jenis ini dilakukan untuk mengganggu atau melecehkan seseorang dengan memanfaatkan komputer, misalnya menggunakan e-mail dan dilakukan berulang-ulang. Kejahatan tersebut menyerupai teror yang ditujukan kepada seseorang dengan memanfaatkan media internet. Hal itu bisa terjadi karena kemudahan dalam membuat email dengan alamat tertentu tanpa harus menyertakan identitas diri yang sebenarnya.

 

  • Carding

Carding merupakan kejahatan yang dilakukan untuk mencuri nomor kartu kredit milik orang lain dan digunakan dalam transaksi perdagangan di internet.

 

  • Hacking dan Cracker

Istilah hacker biasanya mengacu pada seseorang yang punya minat besar untuk mempelajari sistem komputer secara detail dan bagaimana meningkatkan kapabilitasnya. Adapun mereka yang sering melakukan aksi-aksi perusakan di internet lazimnya disebut cracker. Boleh dibilang cracker ini sebenarnya adalah hacker yang yang memanfaatkan kemampuannya untuk hal-hal yang negatif. Aktivitas cracking di internet memiliki lingkup yang sangat luas, mulai dari pembajakan account milik orang lain, pembajakan situs web, probing, menyebarkan virus, hingga pelumpuhan target sasaran. Tindakan yang terakhir disebut sebagai DoS (Denial Of Service). Dos attack merupakan serangan yang bertujuan melumpuhkan target (hang, crash) sehingga tidak dapat memberikan layanan.

  • Cybersquatting and Typosquatting

Cybersquatting merupakan kejahatan yang dilakukan dengan mendaftarkan domain nama perusahaan orang lain dan kemudian berusaha menjualnya kepada perusahaan tersebut dengan harga yang lebih mahal. Adapun typosquatting adalah kejahatan dengan membuat domain plesetan yaitu domain yang mirip dengan nama domain orang lain. Nama tersebut merupakan nama domain saingan perusahaan.

 

  • Hijacking

Hijacking merupakan kejahatan melakukan pembajakan hasil karya orang lain. Yang    paling sering terjadi adalah Software Piracy (pembajakan perangkat lunak).

 

  • Cyber Terorism

Suatu tindakan cybercrime termasuk cyber terorism jika mengancam pemerintah atau warganegara, termasuk cracking ke situs pemerintah atau militer. Beberapa contoh kasus Cyber Terorism sebagai berikut :

  • Ramzi Yousef, dalang penyerangan pertama ke gedung WTC, diketahui menyimpan detail serangan dalam file yang di enkripsi di laptopnya.
  • Osama Bin Laden diketahui menggunakan steganography untuk komunikasi jaringannya.
  • Suatu website yang dinamai Club Hacker Muslim diketahui menuliskan daftar tip untuk melakukan hacking ke Pentagon.
  • Seorang hacker yang menyebut dirinya sebagai DoktorNuker diketahui telah kurang lebih lima tahun melakukan defacing atau mengubah isi halaman web dengan propaganda anti-American, anti-Israel dan pro-Bin Laden.

 

2.6 Perkembangan Cyber Crime Di Indonesia

Di Indonesia sendiri juga sebenarnya prestasi dalam bidang cyber crime ini patut diacungi dua jempol. Walau di dunia nyata kita dianggap sebagai salah satu negara terbelakang, namun prestasi yang sangat gemilang telah berhasil ditorehkan oleh para hacker, cracker dan carder lokal.

Virus komputer yang dulunya banyak diproduksi di US dan Eropa sepertinya juga mengalami “outsourcing” dan globalisasi. Di tahun 1986 – 2003, epicenter virus computer dideteksi kebanyakan berasal dari Eropa dan Amerika dan beberapa negara lainnya seperti Jepang, Australia, dan India. Namun hasil penelitian mengatakan di beberapa tahun mendatang Mexico, India dan Africa yang akan menjadi epicenter virus terbesar di dunia, dan juga bayangkan, Indonesia juga termasuk dalam 10 besar.

Seterusnya 5 tahun belakangan ini China , Eropa, dan Brazil yang meneruskan perkembangan virus2 yang saat ini mengancam komputer kita semua… dan gak akan lama lagi Indonesia akan terkenal namun dengan nama yang kurang bagus… alasannya? mungkin pemerintah kurang ketat dalam pengontrolan dalam dunia cyber, terus terang para hacker di Amerika gak akan berani untuk bergerak karna pengaturan yang ketat dan system kontrol yang lebih high-tech lagi yang dipunyai pemerintah Amerika Serikat.

 

2.7 Penanganan Cyber Crime

Cybercrime adalah masalah dalam dunia internet yang harus ditangani secara serius. Sebagai kejahatan, penanganan terhadap cybercrime dapat dianalogikan sama dengan dunia nyata, harus dengan hukum legal yang mengatur. Berikut ini ada beberapa Cara Penanganan Cybercrime :

  • Dengan Upaya Non Hukum.

Adalah segala upaya yang lebih bersifat preventif dan persuasif terhadap para pelaku, korban dan semua pihak yang berpotensi terkait dengan kejahatan dunia maya.

 

 

  • Dengan Upaya Hukum (Cyber Law).

Adalah segala upaya yang bersifat mengikat, lebih banyak memberikan informasi mengenai hukuman dan jenis pelanggaran/ kejahatan dunia maya secara spesifik

.

Beberapa contoh yang dapat dilakukan terkait dengan cara pencegahan cyber crime adalah sebagai berikut :

  • Untuk menanggulangi masalah Denial of Services (DoS), pada sistem dapat dilakukan dengan memasang firewall dengan Instrussion Detection System (IDS) dan Instrussion Prevention System (IPS) pada Router.
  • Untuk menanggulangi masalah virus pada sistem dapat dilakukan dengan memasang anti virus dan anti spy ware dengan upgrading dan updating secara periodik.
  • Untuk menanggulangi pencurian password dilakukan proteksi security system terhadap password dan/ atau perubahan password secara berkala.

 

 

 

 

 

 

 

 

BAB III

PENUTUP

 

3.1 Kesimpulan

Sebagai manusia yang beradab, dalam menyikapi dan menggunakan teknologi ini, mestinya kita dapat memilah mana yang baik, benar dan bermanfaat bagi sesama, kemudian mengambilnya sebagai penyambung mata rantai kebaikan terhadap sesama, kita juga mesti pandai melihat mana yang buruk dan merugikan bagi orang lain untuk selanjutnya kita menghindari atau memberantasnya jika hal itu ada di hadapan kita.

 

3.2 Saran

.

Cybercrime adalah bentuk kejahatan yang mestinya kita hindari atau kita berantas keberadaannya. Cyberlaw adalah salah satu perangkat yang dipakai oleh suatu negara untuk melawan dan mengendalikan kejahatan dunia maya (cybercrime) khususnya dalam hal kasus cybercrime yang sedang tumbuh di wilayah negara tersebut. Seperti layaknya pelanggar hukum dan penegak hukum

 

 

 

DAFTAR PUSTAKA

Aji, Supriyanto, “Pengantar Tehnologi Informasi”, Semarang. Penerbit : Salemba Infotek

Lestari Sri, Prasetya, “Kasus Kejahatan Komputer” Artikel

Prabowo W. Onno, “Belajar Menjadi hacker” Artikel

Geogle

Tugas.4

Image

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim n, jurusan, pstudi, bp As String
Texttahun.Text = “20” & Left(Textnpm.Text, 2)
n = Mid(Textnpm.Text, 3, 1)
If n = “1” Then
jurusan = “sistem informasi”
ElseIf n = “2” Then
jurusan = “tehnik informatika”
ElseIf n = “3” Then
jurusan = “manajemen informasi”
ElseIf n = “4” Then
jurusan = “manajemen & komputer akuntansi”
End If
n = Mid(Textnpm.Text, 4, 2)
If n = “01” Then
pstudi = “strata satu”
ElseIf n = “02” Then
pstudi = “diploma empat”
ElseIf n = “03” Then
pstudi = “diploma tiga”
ElseIf n = “04” Then
pstudi = “diploma dua”
End If
textjurusan.Text = jurusan
textpstudi.Text = pstudi
Textnurut.Text = Right(Textnpm.Text, 3)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

TUGAS 2.6

Image

Private Sub Command1_Click()
Dim a, GOLONGAN, KODESTATUS, STATUS, JABATAN, BAGIAN, GAJIPOKOK, TUNJANGAN, totalgaji, asstring
Text4.Text = “” & Left(Text11.Text, 4)
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
GOLONGAN = “A”
ElseIf a = “B” Then
GOLONGAN = “B”
ElseIf a = “C” Then
GOLONGAN = “C”
End If
Text1.Text = GOLONGAN
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
JABATAN = “MANAJER”
ElseIf a = “B” Then
JABATAN = “Ka Seksi”
ElseIf a = “C” Then
JABATAN = “Staff”
End If
Text5.Text = JABATAN
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
GAJIPOKOK = “5000000”
ElseIf a = “B” Then
GAJIPOKOK = “3750000”
ElseIf a = “C” Then
GAJIPOKOK = “3250000”
End If
Text7.Text = GAJIPOKOK
a = Mid(Text11.Text, 5, 1)
If a = “A” Then
TUNJANGAN = “1500000”
ElseIf a = “B” Then
TUNJANGAN = “1250000”
ElseIf a = “C” Then
TUNJANGAN = “975000”
End If
Text8.Text = TUNJANGAN
a = Mid(Text11.Text, 7, 1)
If a = “S” Then
KODESTATUS = “S”
ElseIf a = “M” Then
KODESTATUS = “M”
ElseIf a = “J” Then
KODESTATUS = “J”
ElseIf a = “D” Then
KODESTATUS = “D”
End If
Text2.Text = KODESTATUS
a = Mid(Text11.Text, 7, 1)
If a = “S” Then
STATUS = “single”
ElseIf a = “M” Then
STATUS = “menikah”
ElseIf a = “J” Then
STATUS = “janda”
ElseIf a = “D” Then
STATUS = “duda”
End If
Text3.Text = STATUS
a = Right(Text11.Text, 3)
If a = “KEU” Then
BAGIAN = “Accounting”
ElseIf a = “ADM” Then
BAGIAN = “Administrasi”
ElseIf a = “SDM” Then
BAGIAN = “General Affair”
ElseIf a = “EDP” Then
BAGIAN = “IP Unit”
ElseIf a = “SPM” Then
BAGIAN = “Security”
End If
Text6.Text = BAGIAN
Text9.Text = Val(Text7.Text) + Val(Text8.Text)
End Sub
Private Sub Command2_Click()
Text10.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
End Sub
Private Sub Command3_Click()
Text10.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Text10_keypress(keyascii As Integer)
If keyascii = 13 Then
Text11.SetFocus
End If
End Sub

TUGAS 2.5

Image

Private Sub Command1_Click()
Dim s, jb, peng, penr, hrg As String
Text4.Text = “20” & Left(Text1.Text, 2)
s = Mid(Text1.Text, 3, 1)
If s = “1” Then
jb = “indahnya dunia”
ElseIf s = “2” Then
jb = “cahaya ilahi”
ElseIf s = “3” Then
jb = “sistem pengantar komputer”
End If
Text2.Text = jb
s = Mid(Text1.Text, 4, 2)
If s = “01” Then
peng = “weni refikasari”
ElseIf s = “02” Then
peng = “samsul hadi”
ElseIf s = “03” Then
peng = “faizal imron”
End If
s = Mid(Text1.Text, 5, 2)
If s = “11” Then
pnrbt = “kompas candika”
ElseIf s = “12” Then
pnrbt = “raharja com”
ElseIf s = “13” Then
pnrbt = “maya colekword”
End If
s = Right(Text1.Text, 2)
If s = “45” Then
hrg = 25000
ElseIf s = “46” Then
hrg = 30000
ElseIf s = “47” Then
hrg = 35000
End If
Text3.Text = peng
Text5.Text = pnrbt
Text6.Text = hrg
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

TUGAS 2.4

Image

Private Sub Command1_Click()
Dim s, ps, jr As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
jr = “sistem informasi”
ElseIf s = “2” Then
jr = “manajemen informatika”
ElseIf s = “3” Then
jr = “teknik informatika”
ElseIf s = “4” Then
jr = “Master komputer”
End If
s = Mid(Text2.Text, 4, 2)
If s = “01” Then
ps = “strata satu”
ElseIf s = “02” Then
ps = “Diploma empat”
ElseIf s = “03” Then
ps = “Diploma tiga”
ElseIf s = “04” Then
ps = “Diploma satu”
End If
Text3.Text = jr
Text4.Text = ps
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

TUGAS 2.3

Image

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100177”
nama = “marhatun”
jurusan = “Sistem Informasi”
Case “12100146”
nama = “M FUAIDI ABDILAH”
jurusan = “Diploma Empat”
Case “12100322”
nama = “weni refikasari”
jurusan = “Diploma Tiga”
Case “12100148”
nama = “M FUAD HASYIM”
jurusan = “Diploma Dua”
Case “12100179”
nama = “ani fitriyani”
jurusan = “Diploma Satu”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA

Select Case Text7.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Text8.Text = HM
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100177”
Combo1.AddItem “12100146”
Combo1.AddItem “12100322”
Combo1.AddItem “12100148”
Combo1.AddItem “12100179”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

TUGAS 2.1

Image

Private Sub Chkbold_Click()
‘membuat teks tebal
If Chkbold.Value = 1 Then
Lbltext.FontBold = True
Else
Lbltext.FontBold = False
End If

End Sub

Private Sub Chkitalic_Click()
‘membuat teks miring
If Chkitalic.Value = 1 Then
Lbltext.FontItalic = True
Else
Lbltext.FontItalic = False
End If
End Sub

Private Sub Chkstrikethru_Click()
‘membuat teks garis tengah
If Chkstrikethru.Value = 1 Then
Lbltext.FontStrikethru = True
Else
Lbltext.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
‘membuat teks garis bawah
If Chkunderline.Value = 1 Then
Lbltext.FontUnderline = True
Else
Lbltext.FontUnderline = False
End If
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Optblue_Click()
‘membuat teks berwarna biru
Lbltext.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
‘membuat teks berwarna hijau
Lbltext.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah
Lbltext.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
‘membuat teks berwarna kuning
Lbltext.ForeColor = vbYellow
End Sub

TUGAS 2.2

Image

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

 

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

 

Tugas 1.2

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Tugas 1.4

Image

Private Sub CmdHitung_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub CmdLagi_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub CmdQiut_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
End If
End Sub