Annisa

Pengertian dan Jenis-Jenis Hacker Pengertian dan Jenis-Jenis Hacker  – Hacker ialah Seseorang yang memiliki Keahlian berkaitan dengan sistem komputer dan pemrograman. Programmer istilah sendiri mengalami perkembangan pengertian dan definisi. Kata “hacker” mulai muncul di akhir tahun 1950-a, merujuk pada pengembang para mahir. Kemudian di Tahun 1970-an, istilah hacker digunakan untuk menggambarkan para revolusioner komputer yang menjadi cikal-bakal para pendiri perusahaan komputer. Akhir Tahun 1980-a, hacker kata identik dengan pembajakan fitur pengalihan dengan menghilangkan proteksi dan menjualnya. dan sebelumnya saat ini banyak yang mengartikan negatif bahwa hacker ialah seseorang yang menerobos sistem komputer guna mengumpulkan informasi, akses menolak, berkas cara menghapus atau cara mengacaukan sistem komputer. Pengertian negatif dari hacker tidaklah sepenuhnya benar, meskipun memang ada jenis hacker yang aksinya melakukan hal-hal demikian. Hacker jenis ini sering...

Private Sub cmdbatal_Click() txtnk.SetFocus txtgolongan = "" txtks = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgp = "" txttunjangan = "" txttg = "" txtterbilang = "" txtnk = "" txtnik = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk.SetFocus txtgolongan = "" txtks = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgp = "" txttunjangan = "" txttg = "" txtterbilang = "" txtnk = "" txtnik = "" 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 txtgolongan = "A" txtjabatan = "M...

Private Sub Cmdbatal_Click() Cbokode.SetFocus Cbokode= "" Txtjb = "" Txtpengarang = "" Txttt = "" Txtpenerbit = "" Txtharga = "" End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() Cbokode.SetFocus Cbokode = "" Txtjb = "" Txtpengarang = "" Txttt = "" Txtpenerbit = "" Txtharga = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttt = "20" & Mid(Cbokode, 5, 2) S = Right(Cbokode, 1) If S = "A" Then Txtpenerbit = "Andi Offset Yogyakarta" ElseIf S = "I" Then Txtpenerbit = "Indah Surabaya" ElseIf S = "S" Then Txtpenerbit = "Salemba Empat" ElseIf S = "E" Then Txtpenerbit = "Elek Media Komputindo" ElseIf S = "M" Then Txtpenerbit = "Maxicom" End If S = Left(Cbokode, 3) If S = ...

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" End Sub Private Sub cmdproses_Click() Dim s As String s = Left(txtkt, 3) If s = "BIM" Then txtjk = "BIMA" txtht = "50000" txtjb = "16.00" ElseIf s = "EKO" Then txtjk = "EKONOMI" txtht = "35000" txtjb = "19.00" ElseIf s = "MUT" Then txtjk = "MUTIARA" txtht = "23000" txtjb = "17.00" ElseIf s = "SEN" Then txtjk = "SENJA" txtht = "15000" txtjb = "20.00" End If txttotalp = Val(txtjt) * Val(txtht) txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtjt) * Val(txtht) End If End Sub

Tugas 3. 2  Private Sub cmdbatal_Click() cbokode.SetFocus cbokode.Text = "" txtjudul.Text = "" txtpengarang.Text = "" txttahun.Text = "" txtpenerbit.Text = "" txtharga.Text = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode.SetFocus cbokode.Text = "" txtjudul.Text = "" txtpengarang.Text = "" txttahun.Text = "" txtpenerbit.Text = "" txtharga.Text = "" End Sub Private Sub cmdproses_Click() Dim kode As String txttt = "20" & Right(cbokode, 2) S = Left(cbokode, 1) If S = "A" Then txtpenerbit = "Andi Offset Yogyakarta" ElseIf S = "I" Then txtpenerbit = "Indah Surabaya" ElseIf S = "S" Then txtpenerbit = "Salemba Empat" ElseIf S = "E" Then txtpenerbit = "Elek Media Komputindo" ElseIf S = "M"...

Private Sub cbokode_Click() Dim merk, harga, hm As String Select Case cbokode.Text Case "Aplle MC965 MacBook Air" merk = "Aplle MacBook Air MC965" harga = "12800000" Case "Aplle MC966 MacBook Air" merk = "Aplle MacBook Air MC966" harga = "15800000" Case "Aplle MC968 MacBook Air" merk = "Aplle MacBook Air MC968" harga = "9900000" Case "Aplle MC969 MacBook Air" merk = "Aplle MacBook Air MC969" harga = "11900000" Case "Aplle MC700 MacBook Pro" merk = "Aplle MacBook Pro MC700" harga = "10800000" Case "Aplle MC721 MacBook Pro" merk = "Aplle MacBook Pro MC721" harga = "15900000" Case "Aplle MC723 MacBook Pro" merk = "Aplle MacBook Pro MC723" harga = "19300000" Case "Aplle MC724 MacBook Pro" merk = "Aplle MacBook Pro MC724" harga = "1...