MID MK SECURITY SISTEM

0

Nama                       : RENDY SAPUTRA

NPM                        : 12100527

KELAS                    : TWITTER 3

MID                         : SECURITY SISTEM

  1. Keamanan system terbagi menjadi 3 yaitu, keamanan eksternal, keamanan interface, internal jeaskan ?
  2. Jelaskan apa yang dimaksud pengamanan fisik, pengamanan akses, data dan jaringan?
  3. Jelaskan jenis-jenis/tipe-tipe ancaman keamanan terhadap system computer?
  4. Jelaskan bagaimana suatu program dikatakan virus?
  5. Sebutkan jenis-jenis virus dan jelaskan?
  6. Jelaskan tips anda dalam menanggulangi virus?
  7. Jelaskan apa yang dimaksud dengan spyware?
  8. Jelaskan bagaimana spyware sampai ke komputer kita dan jelaskan cara menanggulanginya?

Jawab:

  1. Keamanan eksternal berkaitan dengan pengamanan fasilitas Komputer dari penyusup dan bencana seperti kebakaran dan kebanjiran .

Keamanan interface pemakai berkaitan dengan identifikasi pemakai sebelum pemakai diizinkan mengakses program dan data yang disimpan.

Keamanan internal berkaitan dengan pengamanan beragam kendali yang dibangun pada perangkat keras dan sistem operasi yang menjamin operasi yang handal dan tak terkorupsi untuk menjaga integritas dan data.

  1. Pengamanan fisik tindakan / cara yang dilakukan untuk mencegah dan menanggulangi dan menjaga hardware, program ,jaringan dan data dari bahaya fisik dan kejadian yang dapat menyebabkan kehilangan besar/kehancuran.

Pengamanan akses dalam hal administrator harus mampu mengontrol dan mendokumentasikan

Seluruh akses kesistem computer.

Pengamanan data dilakukan dengan menerapakan sistem tingkatan akses data seseorang hanya dapat mengakses data tertentu saja yang menjadi haknya.

Pengamanan jaringan dapat dilakukan dengan menggunakan kriptografi dimana data yang sifatnya sensitifdepkripsi terlebih dahulu sebelum ditransfer ke internet.

  1. Interupsi adalah sumber daya sistem computer dihancurkan/menjadi tak tersedia/tak berguna, interupsi merupakan ancaman terhadap ketersediaan.

Intersepsi adalah pihak yang diotorisasi dapat mengakses sumber daya, intersepsi merupakan ancaman terhadap kerahasiaan ,dapat berupa orang/ program komputer.

Modifikasi adalah pihak tak diotorisasi tidak hanya mengakses tapi juga merusak sumber daya,odifikasi merupakan ancaman terhadap integritas.

Fabrikasi adalah pihak yang diotorisasi menyisipkan / memasukkan objek-objek palsu ke sistem, fabrikasi merupakan ancam,an terhadap integritas.

  1. –   Komputer berjalan lebih lambat dari biasanya.

–   Komputer berhenti merespon/ seringkali terkunci.

–   komputer merestar dengan sendirinya.

–   Icon-icon baru yang bermunculan.

–   Aplikasi dalam komputer tidak bekerja dengan baik.

  1. Trojan horse adalah kode berbahaya yang tidak seperti virus dengan menginveksi file lainnya, program ini menyamar data atau aplikasi yang berguna.

Warms program yang sangat mirip dengan virus memiliki kemampuan untuk mereplikasi diri dan dapat menyebabkan efek negative pada sistem.

Web scripting virus adalah Banyak halaman web menggunakan kode yang kompleks dalam rangka menciptakan konten yang menarik dan interaktif.

Multipartite virus, virus ini menyebar dalam berbagai cara tergantung pada sistem operasi yang terpasang dan adanya file tertentu.

Fat virus bagian dari disk yang digunakan untuk menyimpan semua informasi mengenai lokasi file, ruangan yang tersedia , ruang tidak dapat digunakan.

Companion viruses umumnya menggunakan nama file yang sama dan membuat ekstensi yang berbeda.

  1. –      Gunakan anti virus dengan update yang terbaru,.
  • Selalu scanning semua media penyimpanan eksternal yang akan digunakan.
  • Jika anda terhubung ke internet , cobalah untuk mengkombinasikan anti virus dengan firewall, anti spmming.
  • Selalu waspada terhadap file-file yang mencurigakan.
  • Untuk software, freeware + shareware ada baiknya anda mengambilnya dari situs resmi.
  • Semampunya menghindari membeli barang bajakan gunakan software open source.
  1. Spyware adalah software atau perangkat lunak yang dapat menginstal sendiri dalam sistem komputer untuk mencuri data / memantau pengguna komputer tersebut sebenarnya spyware bukanlah virus, tetapi saatini banyak orang yang memanfaatkan kelemahan dan browser internet untuk berbuat jahat.
  1. Karena syware tertanam didalam aplikasi –aplikasi gratisan dengan fitur –fitur layanan smiley control, spyware dapat ,menempel pada komputer kita terlebih lagi apabila melakukan browsing internet/ memiliki SO yang punya cukup banyak selah untuk dimasuki :
  • Cara menanggulangi :
  • Jalankan program senti-spyware
  • Pastikan browser yang sering digunakan : email, client sofware dan sistem operasi komputer terinstal dengan baik.
  • Gunakan plugin security options yang telah direkomendasi oleh browser anda.

0

Rendi

Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
TxtNama.SetFocus
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub CmdKeluar_Click()
Unload Me
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
JUR = “Tehnik Komputer”
ElseIf S = “2” Then
JUR = “Manajemen Informatika”
ElseIf S = “3” Then
JUR = “Tehnik Informatika”
ElseIf S = “4” Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TxtJur.Text = JUR
S = Mid(TxtNpm.Text, 4, 2)
If S = “00” Then
PS = “Strata Satu”
ElseIf S = “01” Then
PS = “Diploma Tiga”
ElseIf S = “02” Then
PS = “Diploma Empat”
ElseIf S = “03” Then
PS = “Diploma Dua”
End If
TxtPs.Text = PS
TxtNu.Text = Right(TxtNpm.Text, 3)
End Sub

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

Tugas VB4

0

1.

ren1

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Right(Txtkbuk.Text, 2)

S = Left(Txtkbuk.Text, 1)

If S = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnb = “Indah Surabaya”

ElseIf S = “S” Then

Pnb = “Salemba Empat”

ElseIf S = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Mid(Txtkbuk.Text, 3, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnb.Text = Pnb

Txtjdb.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdlb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

ren2

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Mid(Txtkbuk.Text, 5, 2)

S = Right(Txtkbuk.Text, 1)

If S = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnb = “Indah Surabaya”

ElseIf S = “S” Then

Pnb = “Salemba Empat”

ElseIf S = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Left(Txtkbuk.Text, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnb.Text = Pnb

Txtjdb.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkelwr_Click()

End

End Sub

3.

ren3

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim Jb, Bg, Gl, Ks, St As String

Dim Gjp, Tun, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

Z = Mid(Txtnik.Text, 5, 1)

If Z = “A” Then

Gl = “A”

Jb = “Manajer”

Gjp = “4000000”

Tun = “1025000”

ElseIf Z = “B” Then

Gl = “B”

Jb = “Ka.seksi”

Gjp = “3500000”

Tun = “975000”

ElseIf Z = “C” Then

Gl = “C”

Jb = “Staff”

Gjp = “3000000”

Tun = “925000”

End If

 

K = Mid(Txtnik.Text, 7, 1)

If K = “S” Then

Ks = “S”

St = “Single”

ElseIf K = “M” Then

Ks = “M”

St = “Menikah”

ElseIf K = “J” Then

Ks = “J”

St = “Janda”

ElseIf K = “D” Then

Ks = “D”

St = “Duda”

End If

 

T = Right(Txtnik.Text, 3)

If T = “KEU” Then

Bg = “Accounting”

ElseIf T = “ADM” Then

Bg = “Administrasi”

ElseIf T = “SDM” Then

Bg = “General Affair”

ElseIf T = “EDP” Then

Bg = “IT Unit”

ElseIf T = “SPM” Then

Bg = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgjp.Text = Gjp

Txtjbt.Text = Jb

Txttun.Text = Tun

Txtsta.Text = St

Txtbag.Text = Bg

Txtgol.Text = Gl

Txtkds.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlagi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgjp = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgjp = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

ren4

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Right(Txtkbuk.Text, 2)

S = Left(Txtkbuk.Text, 1)

If S = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnb = “Indah Surabaya”

ElseIf S = “S” Then

Pnb = “Salemba Empat”

ElseIf S = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Mid(Txtkbuk.Text, 3, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnb.Text = Pnb

Txtjdbk.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

Tugas VB 3

0

1.

rendi1

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

Select Case Cbonpm.Text

Case “12100527”

nama = “Rendi Saputra”

jurusan = “Sistem Informasi”

Case “12101510”

nama = “Wahyu”

jurusan = “Manajemen Informatika”

Case “12100117”

nama = “Elyana Ftriani”

jurusan = “Sistem Informasi”

Case “12101419”

nama = “Eko Mualip”

jurusan = “Manajemen Informatika”

Case “12100204”

nama = “Eko Rudiyanto”

jurusan = “Sisitem Informasi”

End Select

Txtnm.Text = nama

Txtjrs.Text = jurusan.

 

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100527”

Cbonpm.AddItem “12101510”

Cbonpm.AddItem “12100117”

Cbonpm.AddItem “12101419”

Cbonpm.AddItem “12100204”

End Sub

 

Private Sub Txtnlq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnlt.SetFocus

End If

End Sub

 

Private Sub Txtnlt_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 Cmdproses_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtnlq.Text)

tugas = Val(Txtnlt.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

NilaiAkhir = (quiz + tugas + uts + uas) / 4

Txtnlak.Text = NilaiAkhir

 

Select Case Txtnlak.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is <50

HurufMutu = “E”

End Select

Txthm.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjrs = “”

Txtnlq = “”

Txtnlt = “”

Txtuts = “”

Txtuas = “”

Txtnlak = “”

Txthm = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

2.

rendi2

Private Sub Optrmrh_Click()

Lblnam.ForeColor = vbRed

End Sub

 

Private Sub Opthij_Click()

Lblnam.ForeColor = vbGreen

End Sub

 

Private Sub Chktbl_Click()

Lblnam.FontBold = Chktbl.Value

End Sub

 

Private Sub Chkmrg_Click()

Lblnam.FontItalic = Chkmrg.Value

End Sub

Private Sub Cmdok_Click()

Lblnam.Caption = Txtnam.Text

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

rendi3

Private Sub Txtnid_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnmp.SetFocus

End If

End Sub

 

Private Sub Cbogol_DblClick()

Private Sub form_load()

Cbogol.AddItem “I”

Cbogol.AddItem “II”

Cbogol.AddItem “III”

End Sub

 

Private Sub Cbogol_Click()

Dim Gajipokok, Pajak, Tunjangan, Gajibersih As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 2500000

Tunjangan = 500000

Case “II”

Gajipokok = 3500000

Tunjangan = 700000

Case “III”

Gajipokok = 5000000

Tunjangan = 900000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

 

 

 

 

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Txtgpk.Text = Gajipokok

Txttnj.Text = Tunjangan

Txtpjk.Text = Pajak

Txtgjb = Gajibersih – Pajak

 

 

Private Sub Cmdlgi_Click()

Txtnid = “”

Txtnmp = “”

Cbogol = “”

Txtgjp = “”

Txttnj = “”

Txtpjk = “”

Txtgjb = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnid = “”

Txtnmp = “”

Cbogol = “”

Txtgjp = “”

Txttnj = “”

Txtpjk = “”

Txtgjb = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

rendi4

Private Sub Txtnam_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdproses_Click()

Dim St As String

Txtthm.Text = “20” & Left(Txtnpm.Text, 2)

PS = Mid(Txtnpm.Text, 3, 1)

If PS = “1” Then

Txtjrs.Text = “Sistem Informasi”

ElseIf PS = “2” Then

Txtjrs.Text = “Manajemen Informasi”

ElseIf PS = “3” Then

Txtjrs.Text = “Komputer Manajemen Akuntansi”

ElseIf PS = “4” Then

Txtjrs.Text = “Tehnik Informatika”

End If

PS= Mid(Txtnpm.Text, 4, 2)

If PS = “00” Then

Txtpst.Text = “Strata Satu”

ElseIf PS = “01” Then

Txtpst.Text = “Diploma Tiga ”

ElseIf PS = “02” Then

Txtpst.Text = “Diploma Dua”

ElseIf PS = “03” Then

Txtpst.Text = “Diploma Satu”

End If

PS = Right(Txtnpm.Text, 3)

Txtnour.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Cmdlagi_Click()

Txtnam.SetFocus

Txtnam = “”

Txtnpm = “”

Txtjrs = “”

Txtpst = “”

Txtthm = “”

Txtnour = “”

End Sub

 

Private Sub Cmdbatal_Click()

Txtnam.SetFocus

Txtnam = “”

Txtnpm = “”

Txtjrs = “”

Txtpst = “”

Txtthm = “”

Txtnour = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

Tugas Visual Basic

0

1.

Ren4

Private Sub Cmdhit_Click()

Txtdiskn.Text = Val(TxthrgP.Text) * 0.1

TxthrgA.Text = Val(TxthrgP.Text) – Val(Txtdiskn.Text)

End Sub

 

Private Sub Cmdlgi_Click()

TxthrgP = “”

Txtdiskn = “”

TxthrgA = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

2.

Ren1

Private Sub txtag1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtag2.SetFocus

End If

End Sub

 

Private Sub txtag2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtag3.SetFocus

End If

End Sub

 

Private Sub Txtag3_KeyPress(KeyAscii As Integer)

Txtag3.Text = Val(txtag1.Text) * Val(txtag2.Text)

End Sub

 

Private Sub Cmdhtg_Click()

Txtag3.Text = Val(txtag1.Text) * Val(txtag2.Text)

End Sub

 

Private Sub Cmddel_Click()

txtag1 = “”

txtag2 = “”

Txtag3 = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

Ren2

Private Sub optgreen_Click()

Lbljd.ForeColor = vbGreen

End Sub

 

Private Sub optblue_Click()

Lbljd.ForeColor = vbBlue

End Sub

 

Private Sub optred_Click()

Lbljd.ForeColor = vbRed

End Sub

 

Private Sub Optyellow_Click()

Lbljd.ForeColor = vbYellow

End Sub

 

 

Private Sub Chkitl_Click()

If Chkitl.Value = 1 Then

Lbljd.FontItalic = True

Else

Lbljd.FontItalic = False

End If

End Sub

 

Private Sub Chkbld_Click()

If Chkbld.Value = 1 Then

Lbljd.FontBold = True

Else

Lbljd.FontBold = False

End If

End Sub

 

Private Sub Chkudr_Click()

If Chkudr.Value = 1 Then

Lbljd.FontUnderline = True

Else

Lbljd.FontUnderline = False

End If

End Sub

 

Private Sub Chkstrk_Click()

If Chkstrk.Value = 1 Then

Lbljd.FontStrikethru = True

Else

Lbljd.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

4.

Ren5

Private Sub Txtni1_Change()

If KeyAscii = 13 Then

Txtni2.SetFocus

End If

End Sub

 

Private Sub Cmdkali_Click()

Txtjml.Text = Val(Txtni1.Text) * Val(Txtni2)

End Sub

 

Private Sub Cmdbagi_Click()

Txtjml.Text = Val(Txtni1.Text) / Val(Txtni2)

End Sub

 

Private Sub Cmdkrng_Click()

Txtjml.Text = Val(Txtni1.Text) – Val(Txtni2.Text)

End Sub

 

Private Sub Cmdtmbh_Click()

Txtjml.Text = Val(Txtni1.Text) + Val(Txtni2.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtni1 = “”

Txtni2 = “”

Txtjml = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

5.

Ren3

Private Sub Txtgpok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttjgn.SetFocus

End If

End Sub

 

Private Sub Txttjgn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtptgn.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Txtgjkt.Text = Val(Txtgpok.Text) + Val(Txttjgn.Text) – Val(Txtptgn.Text)

Txtpjk.Text = Val(Txtgjkt.Text) * 0.1

Txtgbrs.Text = Val(Txtgjkt.Text) – Val(Txtpjk.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgpok = “”

Txttjgn = “”

Txtptgn = “”

Txtgjkt = “”

Txtpjk = “”

Txtgbrs = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

Dell XPS 10, Tablet Windows RT dengan Prosesor Quad Core ARM Cortex A15 yang Mampu Bertahan hingga 10 Jam Pemakaian

0

Persaingan tablet berbasis Windows RT nampaknya bakal ramai. Para produsen elektronik berbondong-bondong meluncurkan tablet terbaru dengan OS Windows RT. Dan yang terbaru adalah Dell dengan tablet XPS 10.

Gambar

Dalam ajang IFA 2012 di Berlin, perusahaan yang berbasis di Amerika ini memperkenalkan tablet dengan layar 10 inci tersebut. Tablet ini bakal menggunakan prosesor quad core APQ8064 milik Qualcomm. Yang perlu Anda ketahui, prosesor ini merupakan prosesor baru yang dibangun dengan arsitektur ARM Cortex A15.

Qualcomm pun mengklaim bahwa prosesor ini memiliki kemampuan jauh lebih baik dibandingkan dengan prosesor quad core Nvidia Tegra 3 yang memakai ARM Cortex A9. Selain itu, prosesor ini juga memiliki efisiensi power yang lebih baik.

Dari segi desain, tablet ini hadir seperti kebanyakan tablet Windows RT lain, yakni Anda juga akan bisa memilih untuk menggunakan docking keyboard. Dengan docking tersebut, Anda bisa memakai tablet ini sebagai sebuah tablet ataupun sebagai sebuah laptop. Dan, berkat docking tersebut, Dell mengklaim tablet ini mampu bertahan hingga 20 jam.

Nokia Dikabarkan bakal Meluncurkan Tablet 10 Inci dengan OS Windows RT pada MWC 2013(0)

0

Rumor mengenai langkah Nokia untuk memproduksi sebuah tablet kini kembali mencuat. Dikutip dari GSM Arena, sebuah sumber anonim dari Digitimes mengatakan bahwa perusahaan yang berbasis di Finlandia tersebut tengah menyiapkan proses produksi tablet Windows RT berlayar 10 inci.

Gambar

Selanjutnya, masih menurut sumber yang sama, Nokia akan memakai prosesor milik Qualcomm pada tablet tersebut. Dan, kalau rencana ini terus berjalan lancar, maka Nokia kemungkinan akan memperkenalkan tablet tersebut kepada publik di ajang Mobile World Congress yang diadakan pada Februari 2013.

Rumor mengenai tablet dari Nokia sebelumnya memang pernah terkuak pada Maret tahun ini. Namun, pada akhirnya, Nokia lebih memilih untuk memfokuskan diri dalam membangun perangkat Windows Phone 8. Kemunculan kembali rumor ini memang cukup beralasan. Terlebih, tingkat penjualan perangkat Windows Phone 8 milik Nokia yang belum terlalu menunjukkan jati diri Nokia sebagai salah satu raksasa produsen handphone dunia. Jadi, tidak mengherankan jika terdapat kemungkinan jika Nokia ingin membuat variasi baru dalam produknya.