Macam macam hacker

A. Grey Hat Hacker
Jenis hacker ini merupakan jenis hacker yang sifatnya berada di antara white hat hacker dan black hat hacker. Hacker yang satu ini tidak memiliki ketetapan dalam memegang prinsipnya. Oleh sebab itu, jenis hacker yang satu ini biasanya memegang standar etika yang sifatnya ganda pada setiap kegiatan hacking-nya. Jadi, bisa dalam beberapa saat hacker ini memegang teguh prinsip hacker namun pada keadaan yang lain hacker yang satu ini dapat melanggar batas-batas hukum yang telah ditetapkan.

B. Script Kiddie Hacker
Hacker ini merupakan jenis hacker yang tidak begitu menguasai mengenai sistem komputer. Namun bukan berarti hacker ini tidak dapat menembus suatu sistem komputer, hacker jenis ini masih dapat menembus sistem komputer dengan cara memanfaat software buatan orang lain.

C. Hacktivist Hacker
Kemampuan jenis hacker ini digunaka untuk menebar pesan-pesan yang sifatnya bersinggungan dengan politik, ideology beserta agama. Biasanya jenis hacker ini melakukan teknik deface pada setiap website yang berhasil mereka retas yang tujuannya digunakan untuk menampilkan pesan-pesan tersebut pada website yang menjadi korban retasan hacker.

D. Black Hat Hacker
Hacker ini merupakan tipe hacker yang kegiatan hackingnya dilakukan untuk menembus sistem keamanan suatu sistem dengan tujuan utamanya adalah melakukan kerusakan. Mulai dari pencurian identitas, menghapus file dan berbagai jenis kerusakan lain yang pada intinya sifatnya sangat merugikan. Jenis hacker ini biasa disebut cracker.

E. White Hat Hacker
Hacker ini merupakan hacker yang sangat teguh pada setiap prinsip standar etika yang sudah ditetapkan. Dalam arti, setiap aktivitas hacking yang dilakukan sifatnya tidak boleh merugikan pihak lain. Lalu untuk apa hacker tersebut melakukan aktivitas hacker? Tujuan tipe hacker ini dalam setiap kegiatan hacking yang dilakukannya sifatnya untuk uji ketahanan suatu sistem atau server. Oleh sebab itu, tipe hacker ini selalu suka mempelajari tentang suatu sistem dan kebanyak hacker tipe ini berprofesi sebagai konsultan keamanan suatu server atau website.

Macam Macam Virus

1. Spoofing

Spoofing adalah teknik untuk mendapatkan akses yang tidak sah ke suatu komputer atau informasi. Dalam teknik Spoofing, untuk memalsukan bahwa mereka adalah host yang terpercaya, penyerang berpura-pura agar pengguna tidak mengetahui teknik ini.

2. DDOS (distributed denial of service)

Serangan DDOS merupakan serangan trhadap komputer atau server di dalam sebuah jaringan dengan cara menghabiskan resource yang dimiliki komputer. Sehingga komputer tersebut tidak bisa berjalan dengan baik sehingga secara tidak langsung mencegah pengguna lain memperoleh akses layanan dari komputer yang diserang.

3.DNS Poisoning

DNS Poisoning adalah cara untuk menembus pertahanan dengan menyampaikan IP Address mengenai host. DNS Poisoning mempunyai tujuan mengalihkan lalu lintas paket data dari tujuan aslinya.

4. Sniffer

Sniffer Paket atau penganalisa paket dapat pula diartikan 'penyadap paket') yang juga dikenal sebagai Network Analyzers atau Ethernet Sniffer ialah sebuah aplikasi yang dapat melihat lalu lintas data pada jaringan komputer. Dikarenakan data mengalir secara bolak-balik pada jaringan, aplikasi ini menangkap tiap-tiap paket dan kadang-kadang menguraikan isi dari RFC(Request for Comments) atau spesifikasi yang lain. Berdasarkan pada struktur jaringan (seperti hub atau switch), salah satu pihak dapat menyadap keseluruhan atau salah satu dari pembagian lalu lintas dari salah satu mesin di jaringan.


5. Trojan Horse

Trojan horse atau Kuda Troya atau yang lebih dikenal sebagai Trojan dalam keamanan komputer merujuk kepada sebuah bentuk perangkat lunak yang mencurigakan (malicious software/malware) yang dapat merusak sebuah sistem atau jaringan. Tujuan dari Trojan adalah memperoleh informasi dari target (password, kebiasaan user yang tercatat dalam system log, data, dan lain-lain), dan mengendalikan target (memperoleh hak akses pada target).


6. SQL Injection

Injeksi SQL atau SQL Injection memiliki makna dan arti yaitu sebuah teknik yang menyalahgunakan sebuah celah keamanan yang terjadi dalam lapisan basis data sebuah aplikasi. Celah ini terjadi ketika masukan pengguna tidak disaring secara benar dari karakter-karakter pelolos bentukan string yang diimbuhkan dalam pernyataan SQL atau masukan pengguna tidak bertipe kuat dan karenanya dijalankan tidak sesuai harapan.
7. Worm
Meskipun tidak terlalu berbahaya, namun jika dibiarkan terus menerus maka virus ini akan membuat penyimpanan komputer anda penuh dengan sangat cepat. Pasalnya, Worm sendiri merupakan salah satu virus yang mempunyai kemampuan menggandakan diri. Tentu saja ini tidak bisa terlalu lama dibiarkan berada di dalam komputer. Selain itu, Worm dapat menginfeksi komputer pengguna melalui email dan jaringan internet, sama halnya dengan Trojan.
8. Memory Resident Virus
Memory Resident Virus merupakan jenis virus komputer yang diciptakan untuk menginfeksi memori RAM. Tentu efek yang ditimbulkan dari virus ini akan mengganggu program komputer dan bahkan dapat membuat komputer menjadi sangat lambat. Adapun Memory Resident Virus akan aktif secara otomatis ketika sistem operasi komputer dinyalakan.
9.  Multipartite Virus
Fungsinya sendiri sebenarnya hampir sama dengan Memory Resident Virus, yakni sama-sama menyerang memori RAM yang kemudian akan menginfeksi sistem operasi tertentu lalu setelah itu merambah kebagian hardisk. Jika tidak diatasi dengan segera maka virus ini akan sangat menggangu. Pasalnya, Multipartite Virus sendiri mempunyai kemampuan menyerang dengan cepat sehingga dinilai sangat membahayakan kesehatan RAM maupun Hardisk komputer anda.
10. Web Scripting Virus
Web Scripting sebenarnya bukan sebuah virus, melainkan adalah suatu kode program yang digunakan untuk mengoperasikan konten yang ada dalam website. Kenapa jadi digolongkan sebagai virus? Meskipun fungsinya demikian, namun karena Web Scripting kerap mengganggu program-program pada komputer, hal itulah yang kemudian membuatnya digolongkan sebagai salah satu virus yang bernama Web Scripting Virus
11. FAT Virus
FAT Virus atau File Allocation Table Virus adalah sejenis virus komputer yang mempunyai kemampuan untuk merusak file yang ada pada perangkat komputer kita. Selain itu, kemampuan virus ini yang sangat berbahaya adalah dapat dengan mudah menyebunyikan berbagai file penting kita, sehingga seakan-akan file tersebut hilang atau telah terhapus.
12. Companion Virus
Companion Virus juga merupakan salah satu jenis virus yang dapat mengganggu data-data pribadi kita. Virus ini sendiri sulit dideteksi, karena mempunyai kemampuan bersembunyi di dalam hardisk, dan bahkan dapat mengubah format data kita menjadi format data file palsu. Contohnya, Data Kita.jpg dirubah virus ini menjadi Data Kita.Apk. Dengan itu, otomatis kita akan dibuat kesulitan mencari data yang sesungguhnya.
13. Polymorpic Virus
Polymorpic Virus merupakan salah satu virus yang sangat sulit untuk dideteksi dan dibersihkan, karena virus ini sendiri mempunyai kemampuan yang sedikit pintar. Pasalnya, Polymorpic Virus dapat membuat dirinya bersandi dengan otomatis saat sedang menginfeksi sistem. Bahkan, virus ini serta mempunyai kemampuan untuk mengubah strukturnya dan memanipulasi antivirus agar tidak menggolongkannya sebagai sebuah virus.
14. Directory Virus
Directory Virus adalah sejenis virus yang dapat menginfeksi file berekstensi .exe, cara kerjanya adalah membuat sebuah program .exe tersebut hilang atau error tanpa alasan jelas saat sedang dijalankan. Dan saat anda menjalankan program tersebut, maka secara otomatis virus ini juga akan bekerja dan akan menginfeksi sistem lain. Jika virus ini sudah mulai menginfeksi, komputer anda kemungkinan akan melambat dan banyak program yang tidak dapat dibuka. Serta antivirus sendiri tidak mempan untuk membersihkan Directory Virus ini.
15. Macro Virus
Macro Virus biasanya akan mengganggu sekaligus menginfeksi file-file makro seperti .docm, .xls, .pps dan sejenisnya. Virus ini dibuat dengan bahasa pemrograman suatu aplikasi, justru hal itu dinilai lebih sulit dibanding dengan bahasa pemrograman suatu sistem operasi. Untuk penyebarannya sendiri, Macro Virus sering kali datang dari email-email yang pengguna terima.
16. Boot Sector Virus
Boot Sector Virus tidak menyerang program-program yang terdapat pada komputer anda, namun justru langsung menyerang bagian terkecil dalam hardisk yang disebut dengan sektor boot. Sementara Boot Sector Virus biasanya bersembunyi di dalam komponen floppy disk. Dengan kemampuan tersebut, virus ini lebih diunggulkan karena dapat bergerak ke mana pun dan menginfeksi file apa pun yang ada pada hardisk tersebut.
17. Overwrite Virus
Overwrite Virus ternyata memiliki kemampuan yang cukup hebat untuk sebuah virus, karena mampu menghapus file atau data yang sudah terinfeksi tanpa mengurangi kapasitas hard disk komputer anda. Artinya, virus ini dapat menghapus berbagai data yang ada pada perangkat komputer pengguna, baik itu data penting atau pun yang tidak semuanya bisa saja terhapus dengan otomatis tanpa mengurangi kapasitas hardisk anda. Misalnya, anda memiliki data sebesar 1 GB. Data tersebut kemudian hilang dengan otomatis dikarenakan terinfeksi oleh Overwrite Virus. Meskipun demikian, kapasitas hardisk anda akan tetap terpakai sebanyak 1 GB walaupun sebenarnya data tersebut sudah terhapus.
18. Direct Action Virus
Virus ini tergolong mudah dibersihkan dan biasanya sering menginfeksi jenis file Bat Autoxec yang ada pada hardisk. Direct Action Virus sendiri akan aktif secara otomatis saat sistem operasi komputer dinyalakan. Bahaya yang lain dari virus ini adalah mampu menginfeksi perangkat eksternal seperti flashdisk dan lainnya.

Tugas 3.5

Private Sub cmdBatal_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

-------------------------------------------------------------------------------------------
Private Sub cmdKeluar_Click()
End
End Sub
-------------------------------------------------------------------------------------------
Private Sub cmdLagi_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub
-------------------------------------------------------------------------------------------
Private Sub cmdProses_Click()
Dim kode As String

txtTahun = Left(txtNik.Text, 4)
txtKode = Mid(txtNik, 7, 1)

kode = Mid(txtNik.Text, 5, 1)
If kode = "A" Then
txtGol = "A"
txtJabatan = "Manager"
txtGapok = "4000000"
txtTunjangan.Text = "1025000"
ElseIf kode = "B" Then
txtGol = "B"
txtJabatan = "Ka. Seksi"
txtGapok = "3500000"
txtTunjangan = "975000"
ElseIf kode = "C" Then
txtGol = "C"
txtJabatan = "Staff"
txtGapok = "Ka. Seksi"
txtTunjangan = "925000"
End If

kode = Right(txtNik, 3)
If kode = "KEU" Then
txtBagian = "Accounting"
ElseIf kode = "ADM" Then
txtBagian = "Administrasi"
ElseIf kode = "SDM" Then
txtBagian = "General Affair"
ElseIf kode = "EDP" Then
txtBagian = "IT Unit"
ElseIf kode = "SPM" Then
txtBagian = "Security"
End If

kode = Mid(txtNik, 7, 1)
If kode = "S" Then
txtStatus = "Single"
ElseIf kode = "M" Then
txtStatus = "Menikah"
ElseIf kode = "J" Then
txtStatus = "Janda"
ElseIf kode = "D" Then
txtStatus = "Duda"
End If

txtTotalg = Val(txtGapok) + Val(txtTunjangan)

If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If

End Sub
--------------------------------------------------------------------------------------------
Private Sub Form_Load()
txtGol.Enabled = False
txtKode.Enabled = False
txtStatus.Enabled = False
txtTahun.Enabled = False
txtJabatan.Enabled = False
txtBagian.Enabled = False
txtGapok.Enabled = False
txtTunjangan.Enabled = False
txtTotalg.Enabled = False
txtTerbilang.Enabled = False
End Sub
-------------------------------------------------------------------------------------------
Private Sub txtTotalg_Change()
On Error Resume Next
If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If
End Sub
-------------------------------------------------------------------------------------------

Di bawah ini adalah source code untuk memunculkan teks di bagian Terbilang. SourceCode dapat diletakkan di bagian "Private Sub Form_Load()" atau bisa juga menggunakan Module.

Public Function AngkaTerbilang(ByVal nilai As Currency) As String
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
    Case 0 To 11
        AngkaTerbilang = "" + satuan(Fix(nilai))
    Case 12 To 19
        AngkaTerbilang = AngkaTerbilang(nilai Mod 10) + "Belas"
    Case 20 To 99
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 10)) + "Puluh" + AngkaTerbilang(nilai Mod 10)
    Case 100 To 199
        AngkaTerbilang = "Seratus" + AngkaTerbilang(nilai - 100)
    Case 200 To 999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 100)) + "Ratus" + AngkaTerbilang(nilai Mod 100)
    Case 1000 To 1999
        AngkaTerbilang = "Seribu" + AngkaTerbilang(nilai - 1000)
    Case 2000 To 999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000)) + "Ribu" + AngkaTerbilang(nilai Mod 1000)
    Case 1000000 To 999999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000)) + "Juta" + AngkaTerbilang(nilai Mod 1000000)
    Case Else
    AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000000)) + "Milyar" + AngkaTerbilang(nilai Mod 1000000000)
End Select
End Function

Tugas 3.4

Private Sub cmdBatal_Click()
Txtkode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Txtkode.SetFocus
End Sub

---------------------------------------------------------------------
Private Sub cmdKeluar_Click()
End
End Sub
---------------------------------------------------------------------
Private Sub cmdLagi_Click()
Txtkode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Txtkode.SetFocus
End Sub
---------------------------------------------------------------------
Private Sub cmdProses_Click()
Dim kode As String

kode = Left(Txtkode.Text, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Fadiya Ulfa"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Nurul Agustina"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Rian Hidayat"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Siti Nur Khotimah"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Winda Erlianti"
TxtHarga.Text = "83000"
End If

kode = Right(Txtkode.Text, 1)
If kode = "A" Then
TxtPenerbit.Text = "Andi Offset Yogyakarta"
ElseIf kode = "I" Then
TxtPenerbit.Text = "Indah Surabaya"
ElseIf kode = "S" Then
TxtPenerbit.Text = "Salemba Empat"
ElseIf kode = "E" Then
TxtPenerbit.Text = "Elek Media Komputindo"
ElseIf kode = "M" Then
TxtPenerbit.Text = "Mexicom"
End If

TxtTahun.Text = "20" & Mid(Txtkode.Text, 5, 2)
End Sub
---------------------------------------------------------------------
Private Sub Form_Load()
TxtJudul.Enabled = False
TxtPengarang.Enabled = False
TxtTahun.Enabled = False
TxtPenerbit.Enabled = False
TxtHarga.Enabled = False
End Sub

Tugas 3.3

Private Sub cmdkeluar_Click()
End
End Sub
------------------------------------------------

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalb = ""
End Sub
------------------------------------------------
Private Sub cmdproses_Click()
Dim kode As String

kode = Left(txtkt.Text, 3)
If kode = "BIM" Then
txtht.Text = "50000"
txtjk.Text = "BIMA"
txtjb.Text = "16.00"
ElseIf kode = "EKO" Then
txtht.Text = "35000"
txtjk.Text = "EKONOMI"
txtjb.Text = "19.00"
ElseIf kode = "MUT" Then
txtht.Text = "23000"
txtjk.Text = "MUTIARA"
txtjb.Text = "17.00"
ElseIf kode = "SEN" Then
txtht.Text = "15000"
txtjk.Text = "SENJA"
txtjb.Text = "20.00"
End If
txtjt.SetFocus
End Sub
------------------------------------------------
Private Sub Form_Load()
txtht.Enabled = False
txtjk.Enabled = False
txtjb.Enabled = False
txttotalp.Enabled = False
End Sub
------------------------------------------------
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub

Tugas 3.2

3.2

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 kode As String

kode = Mid(Cbokode.Text, 3, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Yati Nur Oktavia"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Imam Tarmizi"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Valentina Mariana Adiwianti"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Riyan Suhandi"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Sinta Umpu Singa"
TxtHarga.Text = "83000"
End If
-------------------------------------------------------------
kode = Left(Cbokode.Text, 1)
If kode = "A" Then
TxtPenerbit.Text = "Andi Offset Yogyakarta"
ElseIf kode = "I" Then
TxtPenerbit.Text = "Indah Surabaya"
ElseIf kode = "S" Then
TxtPenerbit.Text = "Salemba Empat"
ElseIf kode = "E" Then
TxtPenerbit.Text = "Elek Media Komputindo"
ElseIf kode = "M" Then
TxtPenerbit.Text = "Mexicom"
End If

TxtTahun.Text = "20" & Right(Cbokode.Text, 2)
End Sub
-------------------------------------------------------------
Private Sub Form_Load()
TxtJudul.Enabled = False
TxtPengarang.Enabled = False
TxtTahun.Enabled = False
TxtPenerbit.Enabled = False
TxtHarga.Enabled = False

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

Tugas 3.1

Tugas 3.1

Private Sub cbokode_Click()
Dim merk, harga, hm As Integer
Select Case cbokode.Text
Case "Apple MC965 MacBook Air"
merk = "Apple MacBook Air MC965"
harga = "12800000"
Case "Apple MC966 MacBook Air"
merk = "Apple MacBook Air MC966"
harga = "15800000"
Case "Apple MC968 MacBook Air"
merk = "Apple MacBook Air MC968"
harga = "9900000"
Case "Apple MC969 MacBook Air"
merk = "Apple MacBook Air MC969"
harga = "11900000"
Case "Apple MC700 MacBook Pro"
merk = "Apple MacBook Pro MC700"
harga = "10800000"
Case "Apple MC721 MacBook Pro"
merk = "Apple MacBook Pro MC721"
harga = "15900000"
Case "Aplle MC723 MacBook Pro"
merk = "Apple MacBook Pro MC723"
harga = "19300000"
Case "Apple MC724 MacBook Pro"
merk = "Apple MacBook Pro MC724"
harga = "13700000"
Case "Apple MC311 MacBook Pro"
merk = "Apple MacBook Pro MC311"
harga = "24200000"
Case "Apple MC313 MacBook Pro"
merk = "Apple MacBook Pro MC313"
harga = "11900000"
Case "Apple MC314 MacBook Pro"
merk = "Apple MacBook Pro MC314"
harga = "14700000"
Case "Apple MC318 MacBook Pro"
merk = "Apple MacBook Pro MC318"
harga = "17600000"
Case "Apple MC322 MacBook Pro"
merk = "Apple MacBook Pro MC322"
harga = "21300000"
End Select
txtmerk.Text = merk
txths.Text = harga
txtjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode = ""
txtmerk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim s, disc As String
s = Mid(cbokode, 7, 5)
If s = "MC965" Then
txtmerk = "Apple MacBook Air MC965"
txths = "12800000"
ElseIf s = "MC966" Then
txtmerk = "Apple MacBook Air MC966"
txths = "15800000"
ElseIf s = "MC968" Then
txtmerk = "Apple MacBook Air MC968"
txths = "9900000"
ElseIf s = "MC969" Then
txtmerk = "Apple MacBook Air MC969"
txths = "11900000"
ElseIf s = "MC700" Then
txtmerk = "Apple MacBook Pro MC700"
txths = "10800000"
ElseIf s = "MC721" Then
txtmerk = "Apple MacBook Pro MC721"
txths = "15900000"
ElseIf s = "MC723" Then
txtmerk = "Aplle MacBook Pro MC723"
txths = "19300000"
ElseIf s = "MC724" Then
txtmerk = "Apple MacBook Pro MC724"
txths = "13700000"
ElseIf s = "MC311" Then
txtmerk = "Apple MacBook Pro MC311"
txths = "24200000"
ElseIf s = "MC313" Then
txtmerk = "Apple MacBook Pro MC313"
txths = "11900000"
ElseIf s = "MC314" Then
txtmerk = "Apple MacBook Pro MC314"
txths = "14700000"
ElseIf s = "MC318" Then
txtmerk = "Apple MacBook Pro MC318"
txths = "17600000"
ElseIf s = "MC322" Then
txtmerk = "Apple MacBook Pro MC322"
txths = "2130000"
End If
txthp = Val(txths) * Val(txtjj)

Select Case txthp.Text
Case Is > 140000000
disc = 0.15 * Val(txthp)
Case Is > 135000000
disc = 0.1 * Val(txthp)
Case Is > 130000000
disc = 0.05 * Val(txthp)
Case Is > 125000000
disc = 0.02 * Val(txthp)
End Select
txtdis.Text = disc
txttb = txthp - 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"
End Sub