TIPS/CARA MERAWAT KOMPUTER

1. Defrag harddisk secara berkala. Fungsi defrag adalah untuk menata dan mengurutkan file-file harddisk berdasarkan jenis file/data sedemikian rupa sehingga akan mempermudah proses read/write sehingga beban kerja akan lebih ringan yg akhirnya dapat memperpanjang umur harddisk. Caranya klik menu Start > Program > Accesories > System Tool > Disk DefragmenterSaat menjalankan fungsi ini tidak boleh ada program lain yg berjalan termasuk screensaver karena akan mengacaukan fungsi defrag ini.
2. Aktifkan screensaver Selain bersifat estetis, screensaver mempunyai fungsi lain yg penting. Monitor CRT juga televisi menggunakan fosfor untuk menampilkan gambar. Kalau monitor menampilkan gambar yg sama untuk beberapa saat maka ada fosfor yang menyala terus menerus. Hal ini dapat mengakibatkan monitor bermasalah yaitu gambar menjadi redup/kurang jelas. Lain halnya jika monitor Anda adalah LCD, LED yg sudah dilengkapi dengan energy saving, maka screensaver tidak terlalu dibutuhkan lagi.Cara+ mengaktifkan screensaver dapat dilakukan dengan banyak cara, salah satunya klik Start > Control Panel > Display > klik tab screensaver, kemudian pilih sesuai selera Anda.
3. Ventilasi yang cukup Tempatkan monitor maupun CPU sedemikian rupa sehingga ventilasi udara dari dan ke monitor / CPU cukup lancar. Ventilasi yg kurang baik akan menyebabkan panas berlebihan sehingga komponen/rangkaian elektronik di dalamnya akan menjadi cepat panas sehingga dapat memperpendek umur komponen tsb. Oleh karena itu usahakan jarak antara monitor/CPU dengan dinding/tembok minimal 30 cm. Kalau perlu pasang kipas angin di dalam ruangan.
4. Pakailah UPS atau stavolt.Pakailah UPS untuk mengantisipasi listrik mati secara tiba-tiba yg dapat mengakibatkan kerusakan pada harddisk. Kalau terpaksa tidak ada UPS, pakailah Stavolt untuk mengantisipasi naik turunnya tegangan listrik.
5. Tutup / close program yg tidak berguna Setiap program yg diload atau dijalankan membutuhkan memory (RAM) sehingga semakin banyak program yg dijalankan semakin banyak memory yg tersita. Hal ini selain dapat menyebabkan komputer berjalan lambat (lelet) juga beban kerja menjadi lebih berat yg akhirnya dapat memperpendek umur komponen/komputer.
6. Install program antivirus dan update secara berkala Untuk dapat mengenali virus/trojan2 baru sebaiknya update program antivirus secara berkala. Virus yg terlanjur menyebar di komputer dapat membuat Anda menginstall ulang komputer. Hal ini selain membutuhkan biaya juga akan menyebabkan harddisk Anda akan lebih cepat rusak dibanding apabila tidak sering diinstall ulang.
7. Bersihkan Recycle Bin secara rutinSebenarnya file/folder yg kita hapus tidak langsung hilang dari harddisk karena akan ditampung dahulu di Recycle Bin ini dengan maksud agar suatu saat apabila Anda masih membutuhkannya dapat mengembalikan lagi. Recycle Bin yg sudah banyak juga akan menyita ruang harddisk yg dapat menyebabkan pembacaan harddisk jadi lelet.Caranya jalankan Windows Explorer > klik Recycle Bin > klik File > klik Empty Recyle BinAtau Anda dapat menjalankan fungsi Disk Cleanup Caranya Klik Start > Program > Accessories > System Tool > Disk Cleanup > kemudian pilih drive yg mau dibersihkan > setelah itu centangilah opsi Recycle Bin kalau perlu centangi juga yg lain (seperti temporary file, temporary internet file), setelah klik OK.
8. Jangan meletakkan Speacker Active terlalu dekat dengan monitorKarena medan magnet yang ada pada speacker tersebut akan mempengaruhi monitor yaitu warna monitor menjadi tidak rata atau belang-belang.
9. Uninstall atau buang program yg tidak bergunaRuang harddisk yg terlalu banyak tersita akan memperlambat proses read/write harddisk sehingga beban kerjanya akan lebih berat sehingga harddisk akan cepat rusak.
10. Bersihkan motherboard & periferal lain dari debu secara berkalaSetidaknya enam bulan sekali hal ini harus dilakukan. Buka casingnya terlebih dahulu kemudian bersihkan motherboard dan periferal lain (RAM, Video Card, Modem, Sound Card, CDR/CDRW/DVRW, TV Tuner) dengan sikat halus. Pada saat komputer tidak digunakan tutuplah komputer (monitor, CPU, keyboard/mouse) dengan cover sehingga debu tidak mudah masuk ke dalam komputer.
11. Pasang kabel ground. Apabila casing nyetrum, ambil kabel dengan panjang seperlunya, ujung satu dihubungkan dengan badan CPU (pada casing) sedangkan ujung yg lain ditanam dalam tanah. Hal ini akan dapat menetralkan arus listrik yg “nyasar” sehingga dapat membuat komponen elektronik lebih awet.(diambil dari berbagai sumber)

SOURCE CODE MEMBUAT KALKULATOR

Silahkan anda buat form seperti gambar di atas dan usahakan untuk membuat nama toolbox sama seperti pada source code di bawah ini.

SOURCE CODE :

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
untuk melihat program seutuhnya anda dapat download langsung disini

FORUM COBRA SMAN 1 MASBAGIK

SOURCE CODE MEMBUAT PENGHITUNGAN SEDERHANA

MENGGUNAKAN VB 6.0

Buatlah 4 label dengan caption diubah menjadi : Aplikasi Penghitungan Sederhana,bil1, bil2, hasil. dan tambahkan juga 4 option button, dimana captionnya diubah menjadi Penjumlahan, pengurangan, pembagian dan perkalian. selain itu tambahkan 3 Command button dan captionnya diubah menjadi proses, bersih data dan keluar. dan berikut listing programnya, dan nama2 properties dari masing toolbox, silahkan anda sesuaikan sendiri serta desainnya anda gunakan kreasi sendiri....
Listing Program untuk Form ketika dibuka :
Private sub form_load
hasil.enabled = false
end sub
listing Program untuk Command Proses (cmdok) :
Private sub cmdok_Click
if jumlah.value=true then
hasil= val(bil1.text) + Val(bil2.text)
hasil.text=hasil
elseif kurang.value= true then
hasil = val(bil1.text) - val(bil2.text)
hasil.text = hasil
elseif bagi.value= true then
hasil = val(bil1.text) / val(bil2.text)
hasil.text = hasil
elseif kali.value= true then
hasil = val(bil1.text) * val(bil2.text)
hasil.text = hasil
end if
end sub
Listing Program untuk Command Bersih :
Private sub cmdbersih_Click
bil1.text = ""
bil2.text = ""
hasil.text = ""
bil1.setfocus
end sub
Listing untuk Program Command Keluar :
Private sub keluar_Click
dim x as integer
x=msgbox("Anda yakin mau keluar???",VbOkCancel,"KONFIRMASI")
if x = vbOk then
end
end if
end sub