Kipas atau fan merupakan salah satu komponen di dalam casing komputer yang memiliki fungsi cukup vital. Walaupun demikian banyak yang kurang peduli dengan perawatan komponen yang satu ini. Putaran yang tinggi saat beroperasi menyebabkan pelumas poros kipas semakin menipis dan akhirnya habis. Akibatnya putaran melemah dan dapat meyebabkan kipas tidak berputar sama sekali. Akan sangat fatal kalau yang gagal beroperasi adalah kipas dari heatsink-nya prosesor. Sistem komputer yang memiliki sensor temperatur akan membuat komputer shutdown secara otomatis, tetapi untuk sistem yang tidak memiliki sensor temperatur akan menyebabkan komputer menjadi overheating dan hang. Untuk mengatasi kipas yang putarannya rendah atau macet, langkah ini juga dapat digunakan untuk perawatan :
1. Lepaskan kipas dari heatsink
2. Bersihkan debu yang melekat
3. Lepaskan stiker pada punggung kipas
4. Teteskan pelumas secukupnya (1-2 tetes), pastikan tidak ada yang menetes keluar
5. Gerakan kipas dengan tangan sampai terasa lancar
6. Pasang kembali kipas pada heatsink.
Kipas yang kondisinya baik, saat akan berhenti dari putaran akan terlihat sedikit bergerak ke arah yang berlawanan dengan putaran. Untuk pelumasan dapat digunakan pelumas dengan kekentalan rendah, bisa juga menggunakan minyak sayur.
Sunday, April 19, 2009
HW >> Merawat dan Memperbaiki Kipas (Fan)
HW >> Merawat Memory (RAM)
Komputer yang jarang digunakan dapat menyebabkan terjadinya kegagalan koneksi antara komponen yang satu dengan yang lain, terutama memory (RAM). Kegagalan koneksi memory dapat diidentifikasi dengan adanya bunyi dua kali beep pendek dan layar monitor tidak menampakan apapun kecuali warna hitam. Untuk mengatasi hal tersebut lakukan langkah-langkah berikut:
1. Lepaskan memory dari slot-nya. Konektor memory yang kotor terlihat agak kusam.
2. Bersihkan konektor memory dengan menggunakan karet penghapus pensil
3. Pasang kembali memory
4. Restart komputer
Tuesday, February 10, 2009
Access>> Membuat Nomor Urut Otomatis
Private Sub cmdsimpan_Click()
Dim db As Database Dim rs As Recordset
Dim str As String
Dim nomor As Integer
Dim strnomor As String
Dim vnomor As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("tnomor")
If rs.RecordCount <> 0 Then
rs.MoveLast
vnomor = rs!nourut
If Val(Mid(vnomor, 5, 2)) = Month(Now()) Then
nomor = Val(Right(vnomor, 3))
nomor = nomor + 1
Else
nomor = 1
End If
Else
nomor = 1
End If
strnomor = Format(nomor, "000")
rs.AddNew rs!nourut = Format(Now(), "yyyymmdd") & strnomor
rs.Update
rs.Close
db.Close
End Sub
file .mdb silahkan download disini

Thursday, February 5, 2009
Net>> Bandwidth
Digital bandwidth, Network bandwidth , atau bandwidth dalam Jaringan Komputer dan Ilmu Komputer adalah ukuran ketersediaan atau pemakaian sumber daya komunikasi data yang diekspresikan dalam bit/s atau kelipatannya ; kbit/s, Mbit/s.
Bandwidth juga merujuk kepada kapasitas bandwidth atau bandwidth yang tersedia dalam bit/s,, secara khusus berarti net bit rate atau maksimum keluaran dari sebuah jalur komunikasi secara logika atau fisik didalam sistem konunikasi digital. Alasan penggunaannya adalah berdasarkan Hukum Hartley: keluaran data maksimum pada sebuah jaringan komunikasi secara fisik akan sebanding dengan bandwidth dalam hertz, yang disebut juga analog bandwidth dalam literatur jaringan komputer.
Apakah bandwidth yang lebih besar akan menghasilkan transfer data yang lebih cepat? Tentu! Mengapa komputer di rumah yang terhubung ke internet dengan kapasitas bandwidth 385 kbps lebih lambat dibandingkan dengan komputer di kantor yang menggunakan kapasitas bandwith 128 kbps? Perhatikan dua gambar berikut :
Bagaimana dengan Gambar01? Setiap jaringan memiliki bandwidth-nya masing-masing. Satu dengan yang lain tidak saling mempengaruhi kecepatan koneksi ke internet. Kecepatan yang dihasilkan pun relatif lebih stabil. Targetnya adalah perusahaan, tentu dengan pertimbangan biayanya yang jauh lebih besar, sekitar 20juta atau lebih per Mb.
Dengan biaya yang harus dikeluarkan oleh sebuah ISP per 1Mb sekitar Rp 18juta, berapa pelanggan eceran yang harus dijaring untuk menutup biaya 385kbps/1024kbps x Rp 20juta dengan biaya hanya Rp 150ribu per bulan? Ingat, yang ditawarkan adalah “sampai dengan sekian kbps” dimana mulainya bisa saja kurang dari 10. jadi, tidak perlu merasa heran jika kecepatan koneksi internet di rumah terasa lebih lambat.
Wednesday, January 28, 2009
Access >> Manipulasi Tabel dengan VBScript
Menambah Data
Menambah data pada sebuah tabel MS-Access, pada dasarnya adalah rangkaian proses :
1. Membuka database
2. Membuka tabel
3. Menambahkan baris kosong untuk record baru
4. Mengisi baris/record baru dengan data
5. Menyimpan data record baru
Private Sub cmdsimpan_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb() ' buka dtabase dan simpan di variabel db
Set rs = db.OpenRecordset("TNama") 'buka tabel TNama n simpan record di variabel rs
rs.AddNew 'menambah record kosong
rs!nama = txtnama 'mengisi record dengan nilai textbox
'tambahkan field-field yang lain disini, jika ada.............
rs.Update 'konfirmasi penyimpanan secara tetap
pesan = MsgBox("Data tersimpan", vbOKOnly, "Simpan")
rs.Close 'tutup recordset
db.Close 'tutup database
End Sub
contoh bisa di-download disin :
http://aburizki.multiply.com/journal/item/25/Manipulasi_Tabel_dengan_VBScript
Tuesday, January 20, 2009
Access >> Membuat Form LogIn
Walaupun tidak semua aplikasi memerlukan proteksi, tetapi ada baiknya dilengkapi dengan form untuk login. Minimal bisa dicatat siapa saja yang menjalankan aplikasi, sehingga jika terjadi masalah dengan aplikasi bisa diketahui siapa pemakai terakhir.
Untuk membuat form login, langkah-langkahnya sebagai berikut :
1. Buat tabel baru dengan nama Tuser dan definisikan field dengan
nama userid dan pword, keduanya bertipe text.
2. Buat form baru dan tempatkan dua buah textbox. Namakan textbox dengan
txtuser dan txtpword. Tambahkan sebuah button dan beri nama cmdlogin.
3. Untuk textbox txtpword ubah properties untuk Data-Input Mask menjadi Password.
4. Tambahlan script untuk event click button cmdlogin :
Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tuser where userid ='" & txtuser & _
"' and pword ='" & txtpword & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
‘proses selanjutnya tulis disini……
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub
File .mdb download disini
Monday, January 12, 2009
Excel >> Membuat DropDown List (Combo Box)
Mengisi data yang sama secara berulang secara manual berpotensi tidak konsistennya cara penulisan huruf. Walaupun dapat dilakukan dengan proses Copy-Paste, jika posisi data berselang-seling tentunya tidak efisien lagi. Untuk mengatasi hal tersebut dapat digunakan Dropdown List (Combo Box).
Langkah-langkah pembuatan Drop Down List :
1. Ketik nama-nama berikut pada sel E2-E6, sebagai sumber data:
Aman, Amin, Iman, Emon, Imin
2. Pilih sel A2
3. Pilih menu Data – Validation
4. Validation Criteria, pilih List
5. Untuk mendefinisikan sumber data (Source), klik tanda merah :
6. Pilih/blok sel E2-E6
7. Tutup Data Validation box dengan memilih tanda silang
8. Klik OK, akan terlihat tanda segitiga terbalik pada sel A2
9. Klik tanda segitiga terbalik untuk menampilkan pilihan
10. Format pada sel A2 bisa disalin ke sel dibawahnya dengan
proses Copy-Paste