Jelita adelia

13 Jenis Virus Komputer dan Cara Mengatasinya 1. Trojan Image: itstillworks.com Trojan adalah salah satu jenis virus komputer yang dibuat dengan tujuan mencuri data dan bahkan dapat digunakan untuk mengendalikan data yang ada di dalam komputer korban. Virus ini sendiri biasanya muncul melalui internet dan juga email yang diterima oleh pengguna. Lewat media tersebut pulalah Trojan menginfeksi komputer pengguna. Maka dari itu, anda harus berhati-hati saat mengakses internet maupun membuka email, karena virus ini dapat mencuri informasi berharga yang ada pada komputer. Ditinjau dari cara kerjanya, Trojan sendiri sebenarnya bukan berjenis virus, namun karena sifat dari Trojan ini mengganggu kinerja komputer, maka banyak orang-orang yang menggolongkannya sebagai salah satu jenis virus komputer Cara Mengatasinya Cara yang sering digunakan pengguna komputer untuk membersihkan Trojan dari komputer adalah dengan menggunakan antivirus yang dibuat khusus untuk virus Trojan, sepe...

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 = "Manager...

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 = "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

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" Then txtpener...

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 = ...