Kamis, 31 Desember 2015

Cara Mengetahui Spesifikasi Komputer Atau Laptop Kita Dengan Mudah

Kadang kita sering bertanya kenapa komputer kita melambat? ada beberapa alasan yang membuat komputer kita melambat, seperti banyaknya virus, hardware yang sudah terlalu tua atau mungkin terlalu banyak aplikasi. Hal yang penulis sebutkan terakhir menjadi masalah yang paling sering terjadi. Pengguna sering kali menginstal aplikasi-aplikasi tanpa mengukur kemampuan dari komputer.
Agar tidak mengalami hal yang demikian, sebaiknya teman-teman melihat terlebih dahulu Spesifikasi Komputer yang dipakai, dan membandingkanya dengan spesifikasi yang dibutuhkan untuk menjalankan aplikasi yang akan diistal. Untuk komputer yang dibeli baru, biasanya spesifikasi tertera pada kardus komputer. Tapi bagaimana jika kardusnya sudah hilang atau tidak tertera di kardus?
Tenang, penulis akan memberikan Cara mengetahui spesifikasi komputer secara lengkap. Ikuti langkah-langkah dibawah ini :

Cara Mengetahui Spesifikasi Komputer Atau Laptop Secara Lengkap

1. Buka Menu Run dengan cara menekan tombol Windows + R
Menu Run
Menu Run
2. Pada Jendela Run ketikan "dxdiag" tanpa menggunakan tanda petik, kemudian klik OK. Jika muncul jendela konfirmasi Klik  Yes saja.
3. Maka akan munjul jendela DirectX Diagnostic Tool, disitu teman-teman dapat melihat spesifikasi komputer. Beberapa informasi penting yang perlu diperhatikan adalah sebagai berikut
DirectX Diagnostic Tool
DirectX Diagnostic Tool

Pada tab System



  • Operating System yaitu sistem operasi yang digunakan pada komputer tersebut
  • System Manufacturer adalah produsen komputer tersebut
  • BIOS merangkum jenis BIOS yang digunakan serta versinya
  • Processor yaitu tentang spesifikasi processor yang digunakan serta kecepatan dari processor tersebut. Bagi teman-teman yang akan membeli komputer baru, usahakan yang sudah memiliki kecepatan processor diatas 2.0 GHz.
  • Memory adalah ukuran dari RAM yang digunakan, nah usahakan juga untuk membeli komputer yang sudah memiliki ukuran RAM diatas 2 Giga Byte.

Pada tab Display

Menampilkan jenis VGA yang digunakan, serta akumulasi ukuran VGA.

Pada tab Sound

Tertera jenis perangkat Sound yang digunakan.

Pada tab Input

Tertera Input Device atau perangkat masukan yang digunakan. Biasanya akan tertera mouse dan keyboard.


Itulah tadi Cara Mudah Melihat Spesifikasi Komputer. Dengan mengetahui spesifikasi komputer, penulis berharap teman-teman tidak lagi menginstal aplikasi yang memiliki Recommended System Requirements diatas spesifikasi komputer teman-teman. Ada baiknya juga, sebelum menginstal aplikasi terlebih dahulu mencari system requirements nya agar dapat berjalan dengan baik di komputer kita, serta tidak membuat komputer melakukan beban kerja yang berlebihan. Semoga bermanfaat.


Baca Juga :

Cara Membuat Logo Online Gratis Dengan Mudah Dalam 5 Menit

Logo adalah salah satu hal yang cukup pentik untuk sebuah brand. Logo merupakan lambang dari brand tersebut. Sering kali logo digunakan untuk sebuah situs, seperti blog atau situs web lainya. Banyak orang yang ingin membuat logo, bahkan tidak jarang mereka membayar desainer untuk membuatkan logo, yang pastinya tidak murah. Tentu hal itu tidak memungkinkan untuk pemula. Oleh karena itu, pada tulisan kali ini, penulis akan memberikan cara membuat logo online gratis untuk pemula. Baiklah tidak perlu panjang lebar, mari kita langsung membuatnya.

Cara Mudah Membuat Logo Online Untuk Pemula Dalam 5 Menit

1. Kunjungi situs logaster.com
2. Klik Create A Logo
3. Tunggu sebentar hingga muncul Logo creation wizard
4. Masukan Nama atau Brand untuk logo yang akan teman-teman buat pada kolom "Your Company", pada kolom Your Activity Type pilih tema dari brand yang akan dibuat. Misalnya untuk situs dengan tema komputer seperti tutorialkomputerlengkap.com, pilih Activity Computer. Kemudian klik next.
Masukan Nama Dan Tema
Masukan Nama Dan Tema
5. Kemudian pilih model logo yang akan dipakai. Disini tersedia banyak sekali model logo yang bisa dipakai, jadi teman-teman dapat memilih sesuka hati. Jika sudah menetukan mana logo yang akan dipakai, klik next untuk menuju ke proses selanjutnya.
Pilih Model Logo Yang Akan Digunakan
Pilih Model Logo Yang Akan Digunakan
6. Pada step edit logo concept, teman-teman dapat mengubah tampilan dari logo yang sudah dipilih tadi, misalnya mengubah warna. Jika sudah selesai mengedit tampilan logo, klik next.
7. Langkah pengeditan terakhir tinggal klik save.
8. Setelahnya kita dapat mendownload logo tadi. Untuk mendownloadnya kita harus masuk login terlebih dahulu ke situs Logaster, dengan mendaftar menjadi member situs logaster.com, atau dapat juga masuk menggunakan akun Google+, Facebook, Yahoo, atau yang sudah disediakan disitus itu.
Login Ke Situs Logaster
Login Ke Situs Logaster
9. Jika sudah login teman-teman dapat mendownload logo yang telah dibuat tadi. Terdapat beberapa pilihan download yang disediakan, diantaranya ada yang gratis tetapi juga ada yang berbayar. Karena kita masih dalam tahap percobaan lebih baik gunakan yang gratis dulu.
Download Logo
Download Logo
10. Logo sudah dapat dipakai.

Tidak sampai 5 menit bukan?
Membuat logo di Logaster memang sangat mudah, bahkan untuk pemula yang tidak bisa mendesain sekalipun. Jadi untuk teman-teman yang ingin membuat logo gratis dapat menggunkaan cara diatas. Sekian artikel ini, semoga bermanfaat.


Baca Juga :

Pengertian dan Fungsi Kernel pada Sistem Operasi Komputer

Apa yang dimaksud dengan Kernel? Kernel adalah sebuah perangkat lunak bagian dari sistem operasi yang berfungsi melayani berbagai macam aplikasi untuk dapat mengakses perangkat keras komputer secara aman. Dengan kata lain Kernel bisa difungsikan sebagai perantara antara peragkat lunak aplikasi dan dan perangkat keras komputer.

Adapun definsisi dari Kernel antara lain:
  1. Kernel merupakan Sebuah perangkat yang berfungsi sebgai mediator atau sebuah perangkat yang membuat komunikasi antara perangkat lunak dan perangkat keras komputer.
  2. Kernel adalah sebuah perangkat yang menyediakan pelayanan terhadap sistem seperti pengaturan memori untuk proses yang sedang berjalan, pengaturan file dan pengaturan inpu dan output pada komputer.
Setelah kita mempelajari pengertian dan definisi dari Kernel, sekarang apa fungsi dari Kernel itu sendiri? Berikut adalah fungsi dari Kernel pada sistem operasi komputer:
  • Kernel berfungsi untuk melayani perangkat lunak aplikasi untuk dapat mengakses perangkat keras atau hardware secara aman.
  • Kernel juga berfungsi sebagai pengatur  kapan dan berapa lama sebuah program aplikasi dapat menggunakan satu bagian perangkat keras. hal tersebut biasanya disebut dengan Multiplexing
  • Membantu dan mendukung perangkat lunak aplikasi untuk mengeksekusi dengan fitur abtraksi perangkat keras (hardware)
Selain Pengertian dan fungsi dari Kernel, Kita juga harus mengetahui beberapa kategori dari kernel. Berikut adalah penjelasan dari 4 kategori dari kernel:
  1. Kernel monolitik yaitu kernel yang mengintegrasikan banyak fungsi di dalam kernel dan menyediakan lapisan abstraksi perangkat keras secara penuh terhadap perangkat keras yang berada di bawah sistem operasi.
  2. Kernel Microkernel adalah kernel yang menyediakan hanya sekumpulan kecil dari abstraksi perangkat keras sederhana, dan menggunakan aplikasi-aplikasi yang disebut dengan server untuk menyediakan fungsi-fungsi lainnya.
  3. Kernel Hybrid (modifikasi dari microkernel) adalah kernel yang persis atau mirip dengan microkernel, akan tetapi ia juga memasukkan beberapa kode atau tambahan kode di dalam ruangan kernel suapaya ia menjadi lebih cepat atau untuk meningkatkan performanya.
  4. Kernel Exokernel adalah kernel yang tidak menyediakan sama sekali abstraksi perangkat keras, akan tetapi ia menyediakan sekumpulan library yang menyediakan fungsi akses ke perangkat keras (hardware) secara langsung atau hampir-hampir langsung.
Demikianlah penjelasan dari Kernel pada sistem operasi komputer, semoga tutorial ini bisa bermanfaat.


Inilah Kerusakan Yang Sering Terjadi Pada Komputer Dan Solusi Untuk Mengatasinya

Mendeteksi Kerusakan Pada Komputer
Mendeteksi Kerusakan Pada Komputer
Komputer tidak selamanya berjalan dengan baik, kadang kala ada kerusakan yang terjadi pada komputer. Kita yang tidak tau, ketika terjadi kerusakan, seringkali langsung membawa komputer ke teknisi. Padahal masalah yang terjadi tidak selalu parah, kadang justru masalah sepele. Oleh karena itu sebagai pengguna komputer, kita harus tau masalah-masalah apa yang sering terjadi pada komputer. Pada artikel kali ini, penulis akan memberikan rangkuman permasalahan yang sering terjadi pada komputer.

7 Kerusakan Yang Sering Terjadi Pada Komputer Dan Solusi Untuk Mengatasinya

1. CPU Tidak Hidup

Solusinya :
  • Cek kabel power pada CPU, apakah sudah terpasang dengan benar atau belum
  • Jika kabel power sudah terpasang dengan benar, cek Power Supply. Jika kipas Power Supply tidak berputar kemungkinan kerusakan terjadi pada Power Supply
  • Jika kipas Power Supply hidup tapi CPU tidak juga hidup juga kemungkinan kerusakan terjadi pada Motherboard. Jika kerusakan terjadi pada Motherboard solusinya diganti.


2. Komputer Hidup Tetapi Tidak Booting

Solusinya :
  • Kenali permasalahan yang terjadi dengan mengenali Kode Beep yang sudah penulis bahas pada artikel sebelumnya.


3. Keyboard Tidak Dapat Digunakan

Solusinya :
  • Cek apakah kabel keyboard sudah terpasang dengan benar
  • Jika kabel sudah terpasang dengan benar tapi keyboard tetap tidak dapat digunakan, kemungkinan kerusakan terjadi pada keyboard. Coba ganti dengan keyboard yang baru
  • Jika keyboard sudah diganti tetapi tidak dapat digunakan, kemungkinan kerusakan terjadi pada Port PS2. Solusinya coba ganti dengan keyboard USB.


4. Mouse Tidak Dapat Digunakan

Solusinya :
  • Sama dengan permasalahan pada Keyboard.


5. Jam Komputer Selalu Berubah

Solusinya :
  • Kerusakan terjadi pada baterai CMOS, atau baterai CMOS habis. Solusinya ganti baterai CMOS


6. Monitor Tidak Menyala

Solusinya :
  • Cek apakah kabel power yang mengarah ke monitor sudah terpasang dengan benar
  • Jika monitor sudah menyala tapi muncul tulisan "No Signal", kemungkinan kabel VGA tidak terpasang dengan benar, solusinya cek kabel VGA.
  • Jika kabel VGA sudah terpasang dengan benar tapi tetap saja No Signal, kemungkinan VGA bermasalah. Coba atasi dengan menambahkan VGA Card.


7. Komputer Hidup Tapi Tidak Dapat Masuk Sistem Operasi

Solusinya :
  • Instal Ulang Komputer


Itulah masalah yang sering terjadi pada komputer. Masalah-masalah sepele seperti diatas dapat ditangani sendiri tanpa memanggil teknisi. Semoga bermanfaat.


Baca Juga :

Menggunakan ComboBox Di Visual Basic

Hampir sama dengan Option dan CheckBox, ComboBox juga berfungsi memberikan pilihan. ComboBox hanya mengijinkan user untuk memiliki 1 pilihan. ComboBox memberikan pilihan dalam bentuk list atau daftar, pilihan dilakukan dengan mengklik salah satu daftar tersebut. Baiklah untuk lebih jelasnya, mari kita coba membuat Aplikasi Huruf Mutu Mahasiswa berikut ini

Membuat Aplikasi Huruf Mutu Mahasiswa


1. Buatlah desain aplikasi seperti pada gambar dibawah ini

2. Ganti Properties tools yang telah dibuat menjadi seperti dibawah ini

Tools
Nama
Properties
Label
Label1
Caption : HURUF MUTU MAHASISWA
Label2
Caption : NPM
Label3
Caption : NAMA MAHASISWA
Label4
Caption : JURUSAN
Label5
Caption : NILAI QUIS
Label6
Caption : NILAI TUGAS
Label7
Caption : UTS
Label8
Caption : UAS
Label9
Caption : NILAI AKHIR
Label10
Caption : HURUF MUTU YANG DIDAPATKAN
ComboBox
Combo1
Name : CboNpm
Text : Pilih Npm
TextBox
Text1
Name : TxtNama
Text : -
Text2
Name : TxtJurusan
Text : -
Text3
Name : TxtNilaiQuis
Text : -
Text4
Name : TxtNilaiTugas
Text : -
Text5
Name : TxUts
Text : -
Text6
Name : TxtUas
Text : -
Text7
Name : TxtNilaiAkhir
Text : -
Text8
Name : TxtMutu
Text : -
Command Button
Command1
Name : CmdProses
Caption : Proses
Command2
Name : CmdBatal
Caption : Batal
Command3
Name : CmdExit
Caption : Exit

3. Masukan script dibawah ini pada kotak dialog script

Private Sub CboNpm_Click()
    Dim Nama, Jurusan As String
    Select Case CboNpm.Text
        Case "15100001"
            Nama = "Stevanus Prihanuji"
            Jurusan = "Sistem Informasi"
        Case "15100002"
            Nama = "Fergiawan Listianto"
            Jurusan = "Sistem Informasi"
        Case "15100003"
            Nama = "Renita Fitri Andriyanti"
            Jurusan = "Sistem Informasi"
        Case "15100004"
            Nama = "Evi Setyorini"
            Jurusan = "Sistem Informasi"
        Case "15100005"
            Nama = "Anggi Maharani"
            Jurusan = "Sistem Informasi"
        Case "15100006"
            Nama = "Oktafiani"
            Jurusan = "Sistem Informasi"
        Case "15100007"
            Nama = "Desi Yulianti"
            Jurusan = "Sistem Informasi"
        Case "15100008"
            Nama = "Ahmad Yudi"
            Jurusan = "Sistem Informasi"
        Case "15100009"
            Nama = "Opi Laraswati"
            Jurusan = "Sistem Informasi"
        Case "15100010"
            Nama = "Laili Rizkia Putri"
            Jurusan = "Sistem Informasi"
        Case "15100011"
            Nama = "Tia Anggraeni"
            Jurusan = "Sistem Informasi"
        Case "15100012"
            Nama = "Fisuryani"
            Jurusan = "Sistem Informasi"
        Case "15100014"
            Nama = "Ita Indriyani"
            Jurusan = "Sistem Informasi"
        Case "15100015"
            Nama = "M Arif Rizki"
            Jurusan = "Sistem Informasi"
        Case "15100016"
            Nama = "Mirzon Prananda"
            Jurusan = "Sistem Informasi"
        Case "15100017"
            Nama = "Desi Auliani"
            Jurusan = "Sistem Informasi"
        Case "15100018"
            Nama = "Tri Setia Ningsih"
            Jurusan = "Sistem Informasi"
        Case "15100023"
            Nama = "Anggun Destriyanti"
            Jurusan = "Sistem Informasi"
        Case "15100024"
            Nama = "Rizah Anggraeni"
            Jurusan = "Sistem Informasi"
        Case "15100025"
            Nama = "Rahmat Darmawan"
            Jurusan = "Sistem Informasi"
        Case "15100026"
            Nama = "Reza Anggara"
            Jurusan = "Sistem Informasi"
        Case "15100027"
            Nama = "Rio Adi Pradhana"
            Jurusan = "Sistem Informasi"
        Case "15100030"
            Nama = "Hermin Sukmiati"
            Jurusan = "Sistem Informasi"
        Case "15100031"
            Nama = "Artika Kustriyani"
            Jurusan = "Sistem Informasi"
        Case "15100032"
            Nama = "Intan Ratnasari"
            Jurusan = "Manajemen Informatika"
        Case "15100033"
            Nama = "Dona Ari Wijaya"
            Jurusan = "Sistem Informasi"
        Case "15100034"
            Nama = "Dimas Bima Ananta"
            Jurusan = "Sistem Informasi"
        Case "15100036"
            Nama = ""
            Jurusan = "Sistem Informasi"
        Case "15100037"
            Nama = "Jefri Erlamsyah"
            Jurusan = "Sistem Informasi"
        Case "15100038"
            Nama = "Panji Wahyu Trihantoro"
            Jurusan = "Sistem Informasi"
        Case "15100039"
            Nama = "Yusuf Sugianto"
            Jurusan = "Sistem Informasi"
        Case "15100040"
            Nama = "Bagas Anggara"
            Jurusan = "Sistem Informasi"
        Case "15100041"
            Nama = "Rudi Rizkiyanto"
            Jurusan = "Sistem Informasi"
    End Select
    TxtNama = Nama
    TxtJurusan = Jurusan
    TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
    CboNpm.SetFocus
    CboNpm.Text = ""
    TxtNama.Text = ""
    TxtJurusan.Text = ""
    TxtNilaiQuis.Text = ""
    TxtNilaiTugas.Text = ""
    TxtUts.Text = ""
    TxtUas.Text = ""
    TxtNilaiAkhir.Text = ""
    TxtMutu.Text = ""
    TxtNilaiAkhir.BackColor = vbWhite
    TxtMutu.BackColor = vbWhite
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdProses_Click()
    Dim NA As Integer
    Dim Mutu As String
    TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4
 
    Select Case TxtNilaiAkhir.Text
        Case Is > 80
            Mutu = "A"
        Case Is > 70
            Mutu = "B"
        Case Is > 60
            Mutu = "C"
        Case Is > 50
            Mutu = "D"
        Case Is < 50
            Mutu = "E"
    End Select
    TxtMutu = Mutu
    TxtNilaiAkhir.BackColor = vbRed
    TxtMutu.BackColor = vbRed
End Sub

Private Sub Form_Load()
    CboNpm.AddItem "15100001"
    CboNpm.AddItem "15100002"
    CboNpm.AddItem "15100003"
    CboNpm.AddItem "15100004"
    CboNpm.AddItem "15100005"
    CboNpm.AddItem "15100006"
    CboNpm.AddItem "15100007"
    CboNpm.AddItem "15100008"
    CboNpm.AddItem "15100009"
    CboNpm.AddItem "15100010"
    CboNpm.AddItem "15100011"
    CboNpm.AddItem "15100012"
    CboNpm.AddItem "15100014"
    CboNpm.AddItem "15100015"
    CboNpm.AddItem "15100016"
    CboNpm.AddItem "15100017"
    CboNpm.AddItem "15100018"
    CboNpm.AddItem "15100023"
    CboNpm.AddItem "15100024"
    CboNpm.AddItem "15100025"
    CboNpm.AddItem "15100026"
    CboNpm.AddItem "15100027"
    CboNpm.AddItem "15100030"
    CboNpm.AddItem "15100031"
    CboNpm.AddItem "15100032"
    CboNpm.AddItem "15100033"
    CboNpm.AddItem "15100034"
    CboNpm.AddItem "15100036"
    CboNpm.AddItem "15100037"
    CboNpm.AddItem "15100038"
    CboNpm.AddItem "15100039"
    CboNpm.AddItem "15100040"
    CboNpm.AddItem "15100041"
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtNilaiTugas.SetFocus
    End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtUts.SetFocus
    End If
End Sub

Private Sub TxtUas_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Dim NA As Integer
        Dim Mutu As String
        TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4
 
        Select Case TxtNilaiAkhir.Text
            Case Is > 80
                Mutu = "A"
            Case Is > 70
                Mutu = "B"
            Case Is > 60
                Mutu = "C"
            Case Is > 50
                Mutu = "D"
            Case Is < 50
                Mutu = "E"
        End Select
        TxtMutu = Mutu
        TxtNilaiAkhir.BackColor = vbRed
        TxtMutu.BackColor = vbRed
    End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtUas.SetFocus
    End If
End Sub

4. Jalankan aplikasinya dengan menekan F5

Selamat Mencoba


Baca Juga :

Ini Bahaya Yang Akan Terjadi Jika Mematikan Komputer Tanpa Di Shut Down

Shut Down Komputer
Shut Down Komputer
Komputer dapat berjalan dengan baik karena dirawat serta digunakan dengan baik. Akan tetapi tidak semua orang melakukan hal tersebut. Entah karena tidak tau atau memang malas melakukanya, kadang orang lebih suka mematikan komputer langsung dengan menekan tombol power, tanpa di Shut Down. Padahal Shut Down sangatlah penting untuk menghentikan segala proses yang sedang berjalan di komputer sehingga perangkat komputer siap untuk dimatikan.
Untuk beberapa kali hal itu tidak masalah untuk dilakukan, terutama jika sedang dalam keadaan mendesak dan tidak memungkinkan untuk melakukan Shut Down, seperti saat komputer sedang hang atau not responding. Tetapi jika sering dilakukan hal tersebut dapat menimbulkan masalah pada komputer. Apa saja masalah yang akan terjadi bila mematikan komputer tanpa di shutdown?

Masalah Yang Akan Terjadi Jika Mematikan Komputer Tanpa Di Shut Down

1. Registry Berantakan

Salah satu masalah yang akan terjadi jika terlalu sering mematikan komputer tanpa dishut down adalah registry menjadi berantakan. Jika menggunakan shut down, registry akan mendata aplikasi yang dipakai selama komputer dijalankan, kemudian semuanya disimpan dalam registry. Tetapi jika tidak menggunakan shut down, perubahan perubahan tersebut tidak akan akan tersimpan pada registry. Jika terus menerus dilakukan akan ada aplikasi yang error.

2. RAM Bermasalah

Normalnya jika mematikan komputer dengan menggunakan shut down, RAM akan dikosongkan terlebih dahulu sebelum komputer benar-benar mati. Jadi saat komputer dihidupkan kembali, RAM akan bekerja dengan baik, karena sudah dalam keadaan benar-benar kosong. Berbeda jika mematikan paksa komputer, RAM tidak akan sempat dikosongkan.

3. Dapat Menyebabkan Kerusakan Pada Processor

Processor adalah komponen terpenting dari komputer, processor memiliki beban kerja paling tinggi, sehingga cepat panas. Untuk mendinginkan processor digunakan heatsink. Saat komputer dimatikan dengan benar, heatsink akan bekerja ekstra untuk mendinginkan processor. Jadi ketika komputer dihidupkan kembali, processor dalam keadaan fresh. Tetapi jika komputer dimatikan secara paksa heatsink tidak akan sempat mendinginkan processor, tidak jarang ketika dihidupkan kembali processor masih tetap panas. Jika hal ini terus dilakukan processor akan mengalami kerusakan.

4. Power Supply Bermasalah

Ketika komputer dimatikan dengan shut down, processor akan memberikan perintah untuk menghentikan pemakaian daya semua komponen komputer termasuk power supply. Tetapi ketika dimatikan dengan paksa, arus listrik juga akan terputus secara mendadak, dan kemungkinan masih ada arus yang terpakai.

5. Hard Disk Bad Sector

Ini adalah hal yang paling sering terjadi. Jika sering mematikan komputer dengan paksa, tinggal mengunggu waktu kerusakan Hard Disk pasti terjadi. Ketika dimatikan secara paksa, putaran piringan harddisk tidak akan berhenti mendadak dan ditempat yang tidak seharusnya. Berbeda jika dimatikan dengan shut down, Hard Disk akan berhenti secara teratur sesuai dengan posisi seharusnya. Jadi ketika komputer dihidupkan kembali, Hard Disk akan berputar dari awal.

Itulah tadi masalah-masalah yang akan timbul ketika sering mematikan komputer secara paksa. Memang jika dilakukan sesekali efeknya tidak akan terlihat, tetapi jika sering dilakukan masalah diatas pasti akan terjadi. Sekian artikel ini, semoga bermanfaat.


Baca Juga :

Rabu, 30 Desember 2015

Source Code Aplikasi Data Mahasiswa Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
    TxtNama.SetFocus
    TxtNama.Text = ""
    TxtNpm.Text = ""
    TxtJurusan.Text = ""
    TxtPrody.Text = ""
    TxtTahunMasuk.Text = ""
    TxtNomorUrut.Text = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    TxtNama.SetFocus
    TxtNama.Text = ""
    TxtNpm.Text = ""
    TxtJurusan.Text = ""
    TxtPrody.Text = ""
    TxtTahunMasuk.Text = ""
    TxtNomorUrut.Text = ""
End Sub

Private Sub CmdProses_Click()
    Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant
   
    Kode = TxtNpm
   
    TahunMasuk = "20" & Left(Kode, 2)
    TxtTahunMasuk = TahunMasuk
   
    KodeJurusan = Mid(Kode, 3, 1)
    Select Case KodeJurusan
        Case "1"
            Jurusan = "Sistem Informasi"
        Case "2"
            Jurusan = "Teknik Informatika"
        Case "3"
            Jurusan = "Manajemen Informatika"
        Case "4"
            Jurusan = "Komputer Akuntansi"
    End Select
    TxtJurusan = Jurusan
   
    KodePrody = Mid(Kode, 4, 2)
    Select Case KodePrody
        Case "01"
            Prody = "Strata Satu"
        Case "02"
            Prody = "Diplomat Empat"
        Case "03"
            Prody = "Diplomat Tiga"
        Case "04"
            Prody = "Diplomat Dua"
    End Select
    TxtPrody = Prody
   
    NomorUrut = Right(Kode, 3)
    TxtNomorUrut = NomorUrut
End Sub

Source Code Aplikasi Entri Data Penjualan Laptop

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini

Private Sub CboKode_Click()
    Dim Merk, Harga, Kode As Variant
   
    Kode = Mid(CboKode.Text, 7, 5)
    Select Case Kode
    Case "MC965"
        Merk = "Apple MC965 MacBook Air"
        Harga = 12800000
    Case "MC966"
        Merk = "Apple MC966 MacBook Air"
        Harga = 15800000
    Case "MC968"
        Merk = "Apple MC968 MacBook Air"
        Harga = 9900000
    Case "MC969"
        Merk = "Apple MC969 MacBook Air"
        Harga = 11900000
    Case "MC700"
        Merk = "Apple MC700 MacBook Pro"
        Harga = 10800000
    Case "MC721"
        Merk = "Apple MC721 MacBook Pro"
        Harga = 15900000
    Case "MC723"
        Merk = "Apple MC723 MacBook Pro"
        Harga = 19300000
    Case "MC724"
        Merk = "Apple MC724 MacBook Pro"
        Harga = 13700000
    Case "MC311"
        Merk = "Apple MC311 MacBook Pro"
        Harga = 24200000
    Case "MC313"
        Merk = "Apple MC313 MacBook Pro"
        Harga = 11900000
    Case "MC314"
        Merk = "Apple MC314 MacBook Pro"
        Harga = 14700000
    Case "MC318"
        Merk = "Apple MC318 MacBook Pro"
        Harga = 17600000
    Case "MC322"
        Merk = "Apple MC322 MacBook Pro"
        Harga = 21300000
    End Select
    TxtMerk = Merk
    TxtHarga = Harga
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    CboKode.SetFocus
    CboKode.Text = "Pilih Kode Laptop"
    TxtMerk.Text = ""
    TxtHarga.Text = ""
    TxtJual.Text = ""
    TxtHargaJual.Text = ""
    TxtDiskon.Text = ""
    TxtTotal.Text = ""
End Sub

Private Sub CmdProses_Click()
    Dim HS, Jual, Jumlah, Diskon, Total As Variant
    HS = Val(TxtHarga)
    Jual = Val(TxtJual)
    Jumlah = HS * Jual
    TxtHargaJual = Jumlah
   
    Select Case Jumlah
        Case Is > 140000000
            Diskon = Jumlah * 0.15
        Case Is > 135000000
            Diskon = Jumlah * 0.1
        Case Is > 130000000
            Diskon = Jumlah * 0.05
        Case Is > 125000000
            Diskon = Jumlah * 0.02
        Case Is <= 125000000
            Diskon = Jumlah * 0
    End Select
    TxtDiskon = Diskon
   
    Total = Jumlah - Diskon
    TxtTotal = Total
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

Source Code Perhitungan Gaji Karyawan Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
    TxtNama.SetFocus
    TxtNama = ""
    TxtNik = ""
    TxtGolongan = ""
    TxtKodeStatus = ""
    TxtStatus = ""
    TxtTahun = ""
    TxtJabatan = ""
    TxtBagian = ""
    TxtGajiPokok = ""
    TxtTunjangan = ""
    TxtTotalGaji = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    TxtNama.SetFocus
    TxtNama = ""
    TxtNik = ""
    TxtGolongan = ""
    TxtKodeStatus = ""
    TxtStatus = ""
    TxtTahun = ""
    TxtJabatan = ""
    TxtBagian = ""
    TxtGajiPokok = ""
    TxtTunjangan = ""
    TxtTotalGaji = ""
End Sub

Private Sub CmdProses_Click()
    Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
   
    Golongan = Mid(TxtNik.Text, 5, 1)
    TxtGolongan = Golongan
   
    KodeStatus = Mid(TxtNik.Text, 7, 1)
    TxtKodeStatus = KodeStatus
   
    If KodeStatus = "S" Then
        Status = "Single"
    ElseIf KodeStatus = "M" Then
        Status = "Menikah"
    ElseIf KodeStatus = "J" Then
        Status = "Janda"
    ElseIf KodeStatus = "D" Then
        Status = "Duda"
    End If
    TxtStatus = Status
   
    Tahun = Left(TxtNik.Text, 4)
    TxtTahun = Tahun
   
    Select Case Golongan
        Case "A"
            Jabatan = "Manager"
            GajiPokok = 4000000
            Tunjangan = 1025000
        Case "B"
            Jabatan = "Ka. Seksi"
            GajiPokok = 3500000
            Tunjangan = 975000
        Case "C"
            Jabatan = "Staff"
            GajiPokok = 3000000
            Tunjangan = 925000
    End Select
    TxtJabatan = Jabatan
    TxtGajiPokok = GajiPokok
    TxtTunjangan = Tunjangan
   
    KodeBagian = Right(TxtNik.Text, 3)
    Select Case KodeBagian
        Case "KEU"
            Bagian = "Accounting"
        Case "ADM"
            Bagian = "Administrasi"
        Case "SDM"
            Bagian = "General Affair"
        Case "EDP"
            Bagian = "IT Unit"
        Case "SPM"
            Bagian = "Security"
    End Select
    TxtBagian = Bagian
   
    TxtTotalGaji = GajiPokok + Tunjangan
End Sub

Private Sub Form_Activate()
    TxtNama.SetFocus
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtNik.SetFocus
    End If
End Sub

Selasa, 29 Desember 2015

Tutorial Jaringan Komputer

Halaman ini berisi kumpulan tutorial jaringan komputer mulai dari perangkat keras jaringan komputer, artikel jaringan komputer, pengertian dari istilah yang ada pada jaringan komputer, fungsi komponen dan perangkat jaringan komputer, tutorial konfigurasi jaringan komputer dan aplikasi jaringan komputer.

Dengan adanya halaman ini diharapkan pembaca blog Tutorial Komputer ini bisa lebih mudah untuk mengakses semua artikel tentang jaringan komputer. Semoga dapat membantu dan bisa bermanfaat.

* Konfigurasi DNS di mikrotik
* Fungsi LAN Card
* Fungsi layer OSI Network
* konfigurasi modem venus
* Langkah install modem venus
* Konfigurasi mikrotik router
* Virtual PC
* Setting IP address di mikrotik
* Mematikan windows firewall
* Pengertian dan Fungsi Modem
* Kelemahan dan Kelebihan Static Routing
* Contoh sistem operasi Server
* Pengertian Bandwidth
* Router Komputer atau Router PC
* Point to Point Protocol
* hight Level Data Link Control
* Komponen Router PC
* Routing Protokol
* Tabel Routing
* Routing
* Fungsi Router
* Cara instalasi Mikrotik
* Perangkat Keras Jaringan WAN
* Pengertian dan Fungsi Switch
* Pengertian dan Fungsi HUB
* Cara Melihat IP Address Komputer
* Kabel Fiber Optik
* Perangkat Keras Jaringan Komputer
* Cara Melihat Mac Address Komputer
* Cara Cek Koneksi Jaringan
* Kabel Coaxial
* Konektor RJ 45
* Urutan kabel Straight dan Crossover
* Kabel UTP Cat5
* Cara Setting Ad Hoc Pada Windows 7
* NIC (Network Interface Card)
* Setting IP Address Pada Windows 7
* IP Address
* Jaringan Protokol
* Layer TCP/IP
* Layer Network Model OSI
* Kelebihan dan Kelemahan Topologi Ring
* Kelebihan dan Kelemahan Topologi Star
* Topologi Jaringan BUS
* Macam Topologi Jaringan
* Client Server
* Jaringan Peer to Peer
* Komunikasi Data
* Pengertian Server Komputer
* Fungsi Jaringan Komputer
* Pengertian dan Macam Jaringan Komputer
* Setting Dial up Internet dengan HP* Pengertian dan fungsi intranet
* Kelebihan dan kelemahan Microsoft SQL Server
* Kelebihan dan kelemahan Oracle
* Kelebihan dan kelemahan MySQL
* Pengertian protokol stack
* Pengertian protokol layering
* Pengertian Multiplexing dan Demultiplexing
* Bagian-bagian utama protokol
* Pengertian dan fungsi protokol* Pengertian dan fungsi telnet
* Jaringan host to host
* Pengertian dan fungsi port number
* Pengertian Over a Link
* Internet dan sejarah perkembangannya
* Topologi tree
* Topologi mesh
* Pengertian topologi peer to peer
* Pengertian wireless
* Pengertian dan fungsi host to host
* Pengertian dan fungsi IP Public

Source Code Membuat Aplikasi Perhitungan Tiket Sederhana Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
    TxtNama.SetFocus
    TxtNama = ""
    TxtNik = ""
    TxtGolongan = ""
    TxtKodeStatus = ""
    TxtStatus = ""
    TxtTahun = ""
    TxtJabatan = ""
    TxtBagian = ""
    TxtGajiPokok = ""
    TxtTunjangan = ""
    TxtTotalGaji = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    TxtNama.SetFocus
    TxtNama = ""
    TxtNik = ""
    TxtGolongan = ""
    TxtKodeStatus = ""
    TxtStatus = ""
    TxtTahun = ""
    TxtJabatan = ""
    TxtBagian = ""
    TxtGajiPokok = ""
    TxtTunjangan = ""
    TxtTotalGaji = ""
End Sub

Private Sub CmdProses_Click()
    Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
   
    Golongan = Mid(TxtNik.Text, 5, 1)
    TxtGolongan = Golongan
   
    KodeStatus = Mid(TxtNik.Text, 7, 1)
    TxtKodeStatus = KodeStatus
   
    If KodeStatus = "S" Then
        Status = "Single"
    ElseIf KodeStatus = "M" Then
        Status = "Menikah"
    ElseIf KodeStatus = "J" Then
        Status = "Janda"
    ElseIf KodeStatus = "D" Then
        Status = "Duda"
    End If
    TxtStatus = Status
   
    Tahun = Left(TxtNik.Text, 4)
    TxtTahun = Tahun
   
    Select Case Golongan
        Case "A"
            Jabatan = "Manager"
            GajiPokok = 4000000
            Tunjangan = 1025000
        Case "B"
            Jabatan = "Ka. Seksi"
            GajiPokok = 3500000
            Tunjangan = 975000
        Case "C"
            Jabatan = "Staff"
            GajiPokok = 3000000
            Tunjangan = 925000
    End Select
    TxtJabatan = Jabatan
    TxtGajiPokok = GajiPokok
    TxtTunjangan = Tunjangan
   
    KodeBagian = Right(TxtNik.Text, 3)
    Select Case KodeBagian
        Case "KEU"
            Bagian = "Accounting"
        Case "ADM"
            Bagian = "Administrasi"
        Case "SDM"
            Bagian = "General Affair"
        Case "EDP"
            Bagian = "IT Unit"
        Case "SPM"
            Bagian = "Security"
    End Select
    TxtBagian = Bagian
   
    TxtTotalGaji = GajiPokok + Tunjangan
End Sub

Private Sub Form_Activate()
    TxtNama.SetFocus
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtNik.SetFocus
    End If
End Sub

Source Code Membuat Aplikasi Penjualan Tiket Kereta Api

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini
Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    TxtKt.SetFocus
    TxtKt = ""
    TxtHt = ""
    TxtJk = ""
    TxtJb = ""
    TxtJt = ""
    TxtTotal = ""
End Sub

Private Sub CmdProses_Click()
    Dim Kode, Harga, Jenis, Berangkat As Variant
   
    Kode = Left(TxtKt.Text, 3)
    Select Case Kode
        Case "BIM"
            Harga = 50000
            Jenis = "BIMA"
            Berangkat = "16.00"
        Case "EKO"
            Harga = 35000
            Jenis = "EKONOMI"
            Berangkat = "19.00"
        Case "MUT"
            Harga = 23000
            Jenis = "MUTIARA"
            Berangkat = "17.00"
        Case "SEN"
            Harga = 15000
            Jenis = "SENJA"
            Berangkat = "20.00"
    End Select
    TxtHt = Harga
    TxtJk = Jenis
    TxtJb = Berangkat
    TxtJt.SetFocus
End Sub

Private Sub TxtJt_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)
    End If
End Sub

Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic

Buat Tampilan Seperti Dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
    CboKode.SetFocus
    CboKode = "Pilih Kode Buku"
    TxtJudul = ""
    TxtPengarang = ""
    TxtTerbit = ""
    TxtPenerbit = ""
    TxtHarga = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    CboKode.SetFocus
    CboKode = "Pilih Kode Buku"
    TxtJudul = ""
    TxtPengarang = ""
    TxtTerbit = ""
    TxtPenerbit = ""
    TxtHarga = ""
End Sub

Private Sub CmdProses_Click()
    Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
   
    Kode = CboKode
    KodeBuku = Mid(Kode, 3, 3)
    Select Case KodeBuku
        Case "SIM"
            Judul = "Sistem Informasi Manajemen"
            Pengarang = "Yati Nur Oktavia"
            Harga = 75900
        Case "EDP"
            Judul = "Elektronik Data Processing"
            Pengarang = "Imam Tarmizi"
            Harga = 62000
        Case "MNJ"
            Judul = "Manajemen"
            Pengarang = "Valentina Mariana Adiwianti"
            Harga = 42000
        Case "CDR"
            Judul = "Corel Draw"
            Pengarang = "Riyan Suhandi"
            Harga = 53000
        Case "RPL"
            Judul = "Rekayasa Perangkat Lunak"
            Pengarang = "Sinta Umpu Singa"
            Harga = 83000
    End Select
    TxtJudul = Judul
    TxtPengarang = Pengarang
    TxtHarga = Harga
   
    KodePenerbit = Left(Kode, 1)
    Select Case KodePenerbit
        Case "A"
            Penerbit = "Andi Offset Yogyakarta"
        Case "I"
            Penerbit = "Indah Surabaya"
        Case "S"
            Penerbit = "Indah Surabaya"
        Case "E"
            Penerbit = "Elek Media Komputindo"
        Case "M"
            Penerbit = "Maxicom"
    End Select
    TxtPenerbit = Penerbit
   
    KodeTahun = Right(Kode, 2)
    Select Case KodeTahun
        Case "01"
            Tahun = "20" & KodeTahun
        Case "02"
            Tahun = "20" & KodeTahun
        Case "03"
            Tahun = "20" & KodeTahun
        Case "04"
            Tahun = "20" & KodeTahun
        Case "05"
            Tahun = "20" & KodeTahun
    End Select
    TxtTerbit = Tahun
End Sub

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