misammisem

Menambahkan Facebook Like Button

2011-08-17T10:17:00.014+07:00

Facebook adalah salah satu jejaring sosial yang paling terkenal dan banyak dipakai oleh sebagian besar orang. Entah itu untuk diri pribadi ataupun untuk organisasi atau kelompok. Banyak fitur dan aplikasi yang bisa kita manfaatkan dari jejaring sosial facebook. Dan salah satu fitur facebook yang bisa kita manfaatkan untuk mempromosikan blog kita adalah button like atau tombol suka.
Berikut beberapa tipe kode untuk tombol suka yang bisa kita letakkan di blog kita.

Tombol facebook standart

Langkah pertama masuk ke layout (design) > Edit Html dan centang "Expand Widget Templates". Langkah kedua cari

<data:post.body>

dan masukkan kode dibawah ini setelah kode diatas

<b:if cond='data:blog.pageType != "static_page"'><br><iframe allowTransparency='true' expr:src='"http://www.facebook.com/plugins/like.php?href=" + data:post.url + "&send=false&layout=standard&show_faces=false&width=450&action=like&font=arial&colorscheme=light&height=35"' frameborder='0' scrolling='no' style='border:none; overflow:hidden; width:450px; height:35px;'/><br></b:if>

Tombol Like dengan Box Count

Ikuti langkah diatas kemudian salin kode dibawah ini

<b:if cond='data:blog.pageType != "static_page"'><br><iframe allowTransparency='true' expr:src='"http://www.facebook.com/plugins/like.php?href=" + data:post.url + "&send=false&layout=box_count&show_faces=false&width=55&action=like&font=arial&colorscheme=light&height=65"' frameborder='0' scrolling='no' style='border:none; overflow:hidden; width:55px; height:65px;'/><br></b:if>

Tombol Like dengan Button Count

Ikuti langkah diatas kemudian salin kode dibawah ini

<b:if cond='data:blog.pageType != "static_page"'><br><iframe allowTransparency='true' expr:src='"http://www.facebook.com/plugins/like.php?href=" + data:post.url + "&send=false&layout=button_count&show_faces=false&width=90&action=like&font=arial&colorscheme=light&height=21"' frameborder='0' scrolling='no' style='border:none; overflow:hidden; width:90px; height:21px;'/><br></b:if>

Menambahkan Tombol Jejaring Sosial di Blogger

2011-08-16T19:58:00.019+07:00

Sekarang banyak sekali artikel atau posting di blog yang menggunakan tombol sharing yang disediakan oleh para jejaring sosial.Misalnya seperti tombol tweet dari twitter, tombol like dari facebook, dan satu lagi yang sedang populer adalah tombol plus satu (+1) dari google yang merupakan saingan dari tombol like facebook. Tombol +1 ini memungkinkan orang-orang yang menyukai konten atau artikel kita untuk merekomendasikannya di Google penelusuran. Dengan menambahkan tombol tersebut secara tidak langsung juga bisa mempromosikan blog atau website kita di jejaring sosial tersebut. Berikut beberapa kode yang mungkin bisa temen-temen gunakan udi postingan blog atau website temen-temen.

Tombol Tweet dari twitter

untuk memasang tombol ini kamu harus masuk ke halaman http://twitter.com/about/resources/tweetbutton.
Kemudian pilih tombol tweet yag cocok dengan selera kamu.Pada bagian ini kita dapat merekomendasikan sampai dua akun Twitter untuk mengikuti setelah mereka berbagi konten dari blog kita. Akun ini dapat mencakup kamu sendiri, atau kontributor atau pasangan.
Copy kode Tweet button
setelah itu masuklah ke akun blogger kamu..
klik rancangan > edit html dan jangan lupa Beri tanda centang pada Expand Template Widget. Cari kode

<data:post.body>

Tekan tombol Ctrl + F untuk memudahkan pencarian.
Paste kode Tweet button di bawah kode ini

<data:post.body>

Agar tombol Tweet hanya muncul di halaman posting letakkan kode Tweet button diantara kode berikut

<b:if cond='data:blog.pageType == "item"'> letakkan tombol tweet disini </b:if>

serta tambahkan kode style agar letaknya di kiri sehingga secara keseluruhan kode yang diletakkan di bawah kode

<data:post.body>

menjadi seperti ini:

<b:if cond='data:blog.pageType == "item"'><div style='float:left; margin-top:10px;'><KODE TWEET BUTTON></font></div></b:if>

setelah itu Simpan Template.

Tombol +1 dari google

Untuk menambahkan +1 ini pertama-tama Cari kode </head>. Gunakan fasilitas pencarian browser dengan menekan tombol Ctrl + F lalu ketikkan kode yang dicari.
Copy script di bawah ini dan paste di atas kode tersebut.

Script di atas untuk yang berbahasa Indonesia. Untuk bahasa yang lain, silakan kunjungi http://www.google.com/intl/id/webmasters/+1/button/index.html

Tentukan ukuran tombol yang ingin kamu pasang. Berikut kode tombol untuk masing-masing ukuran:

- Kecil:

<g:plusone size='small' expr:href='data:post.url'></g:plusone>

- Sedang:

<g:plusone size='medium' expr:href='data:post.url'></g:plusone>

- Standar:

<g:plusone expr:href='data:post.url'></g:plusone>

- Tinggi:

<g:plusone size='tall' expr:href='data:post.url'></g:plusone>

Untuk meletakkan kode tombol plus satu di bawah posting, silakan copy dan paste kode tombol di bawah ini

<b:if cond='data:blog.pageType == "item"'><div style='float:left;margin-top:10px;'><g:plusone size="medium"></g:plusone></div></b:if>

Letakkan kode di atas di bawah kode

<data:post.body>

Kemudian Simpan Template

Tombol like dari facebook

Dan untuk tombol like facebook berikut kodenya

<b:if cond='data:blog.pageType == "item"'><div style='float:left; margin-top:10px;'><iframe allowTransparency='true' expr:src='"http://www.facebook.com/plugins/like.php?href=" + data:post.url + "&action=like&layout=standard&show_faces=false&width=450&font=arial&colorscheme=light"' frameborder='0' scrolling='no' style='border:none; overflow:hidden; width:450px; height:25px;'/></div></b:if>

langkahnya sama seperti diatas, kita tinggal meng-copy kode tersebut dibawah kode berikut untuk meletakkannya dibawah postingan blog kita...

<data:post.body>

Modem GSM dengan menggunakan m3

2011-08-14T16:15:00.006+07:00

Mau cerita-cerita dulu dikit ya,, he.. he..

Kemarin pas asyik-asyik internetan aku didatangi temenku,,trus dia minta tolong buat diajari cara menggunakan modem gsm produk huawei yang bundling sama operator gsm three (3). Waduh,,bingung juga pas waktu itu soalnya aku gak pernah nyentuh apalagi make modem gsm,, ^___^. Dengan modal nekat aku memberanikan diri buat nyoba make itu modem. Alhasil,,ternyata gak berhasil… he..he..

Udah tak utak-atik tetap gak bisa-bisa,, mungkin aku yang super duper goublok ya… hihihi… ^^..

Akhirnya gak ada jalan lain lagi selain nyari-nyari info diinternet (kan kemarin ceritanya aku lagi internetan,,ya sekalian juga nyari info cara menggunakan modem gsm dengan kartu m3…). Akhirnya aku dapet juga cara buat mengatasi problematika yang kuhadapi (ciiiaaahh,,problematika katanya…)… cihuiiy…

Ternyata gampang sekali solusinya cuy,,cukup nambahin satu baris kode atau command di modem device manager. Commandnya kayak gini nih AT+CGDCONT=1, “IP”, “indosatgprs”. Caranya yaitu :

Klik kanan di my computer trus pilih manage.
Nanti keluar yang namanya computer management,, yaitu tempat device manager.
Klik device manager trus pilih modem.
Klik kanan di modem gsm yang telah kita install dan pilih properties.
Setelah itu masuk ke tab advance.
Masukin AT+CGDCONT=1, “IP”, “indosatgprs” ke extra initialization commands
Kemudian klik Ok
Jika sudah,,kita tinggal buat koneksi baru di network connection.
Caranya pilih start > connect to > show all connections.
Buat koneksi baru dengan mengklik create a new connection di sebelah kiri paling atas.
Setelah keluar new connection wizard klik next
Trus pilih connect to the internet klik next.
Pilih set up my connection manually klik next
Setelah itu pilih connect using a dial up modem klik next
Isikan ISP name dengan indosat gprs kemudian klik next.
Phone number isikan dengan *99***1# ato *99***2# klik next lagi.
Kalo kamu menggunakan pulsa atau voucher gprs isikan
Kalo menggunakan pulsa biasa isikan
Jika sudah klik next kemudian klik finish.

Sekarang coba dulu yuk,,caranya masuk ke connect to trus pilih indosatgprs lalu klik dial. insyaAllah berhasil…
selamat mencoba kawan…. ^^..

Tips Meningkatkan Kinerja Internet

2011-08-14T16:12:00.002+07:00

ini saya dapat dari thread di suatu forum,, tapi saya lupa namanya…hehehe….
maaf buat yang threadnya aku culik. katanya bisa buat meningkatkan kinerja internet. udah saya coba untuk warnet temen saya. kayaknya sih ada efeknya tapi cuma sedikit… saranku kalo mau coba lebih baik registry-nya di back up dulu…

mengatur bandhwith di komputer jaringan :

Klik Start
Klik Run
Ketik gpedit.msc
Kemudian klik Ok
Setelah masuk klik Administrative Templates
Kemudian Klik Network
Setelah terbuka klik QoS Packet scheduler
Kemudian klik Limit Reservable Bandwidth
Dan setelah terbuka ubah setting menjadi Enable
Kemudian ubah Bandwidth Limitnya menjadi 0
Klik Apply,ok
Kemudian keluar dan Restart computer

Gunakan DNS dari OpenDNS untuk koneksi internet yang lebih cepat dan lebih aman.

Klik Start
Klik Control Panel
Pilih Network & Internet Connection
Klik Network Connection
Klik Kanan Local Area Connection pilih Properties
Pilih Internet Protocol (TCP/IP) kemudian Klik Properties
Klik Use Following DNS Server
Isi Preferred DNS Server dengan angka : 208.67.222.222
Isi Alternate DNS Server dengan angka : 208.67.220.220
Kemudian Klik OK

tambahan sedikit,,temenku pake modem billion BiPAC 5112s dan ternyata DNS dari OPen DNS gak berfungsi. setelah aku ubah dengan DNS standart speedy ternyata hasilnya sangat memuaskan. modem billion dapat bekerja secara optimal…

Tips Mempercepat Koneksi Internet via Mozilla Firefox.

Buka browser Mozilla Firefox
Pada address bar ketik : about:config
Double Klik “network.http.pipelining” dan “network.http.proxy pipelining” menjadi : true
Double Klik “network.http.pipelining.maxrequest” antara : 30 – 100 (makin besar makin cepat)
Terakhir, Klik kanan dimana saja dan pilih New -> Integer, Tuliskan : nglayout.initialpaint.delay lalu isi dengan : 0
Tutup Browser dan jalankan kembali/refersh browser

Cara berikut ini dapat dilakukan untuk mempercepat browsing ketika berada di dalam jaringan komputer….

Hapus Shortcut yang ada di [My Network Places].
Ganti registry untuk share folder di remote computer yang tidak bekerja secara otomatis dengan menambahkan di [My Network Places] ketika membuka dokumen share folder.> Klik [Start] > [Run] > ketika [Regedit]> Buka folder registry HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer> Buat [DWORD] baru dengan nama [NoRecentDocsNetHood] dengan value data 1.
Anda juga harus melihat [UseDesktopIniChace] dengan nilai 1 pada folder registry HKEY_Current_User\Software\Microsost\Windows\CurrentVersion\Policies\Explorer.
Untuk menambahkan jumlah data pada satu waktu untuk dikirim ke client, anda harus merubah registry di computer anda dengan share direktori berikut,> Buka registry folder >> HKEY_Local_Machine\System\CurrentControlSet\Service\LanmanServer\Parameters> Buat [DWORD] baru dengan nama [SizRegBuf] dengan nilai hex [FFFF]

Setting Up HTTP Request

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\
Buat [DWORD] baru “MaxConnectionsPer1_0Server” value :0000000a
Buat [DWORD] baru “MaxConnectionsPerServer” value :0000000a

Kemudian langkah yang terakhir tinggal me-restart komputer anda

Beberapa trik untuk meningkatkan kinerja \ koneksi internet dengan memanipulasi registry

2011-08-14T16:11:00.003+07:00

Browser network lebih cepat
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace

Delete subkeys
{2227A280-3AEA-1069-A2DE-08002B30309D} dan {D6277990-4C6A-11CF-8D87-00AA0060F5BF}

Meningkatkan Global Max TCP Window Size

Hanya bisa diterapkan untuk Cable/DSL dan tidak direkomendasikan untuk Dial Up

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]”GlobalMaxTcpWindowSize” value :0000ffff

Mengubah Open Connection dari 10 menjadi 70000 (SynPacket)

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Tcpip\Parameters\]
“TcpNumConnections” value :00011170

Setting up Provider Priority

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\ServiceProvider.

Ganti value nya dengan dibawah ini:

Class : 1
DnsPriority : 1
HostsPriority : 1
LocalPriority : 1
NetbtPriority : 1

Matikan Negative Cache Time

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters DWORD NegativeCacheTime=0

Configure Internet Download

Start/Run/Regedit
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComp uter\NameSpace

Delete Subkey
{D6277990-4C6A-11CF-8D87-00AA0060F5BF}

Android..??

2011-08-14T16:06:00.006+07:00

Bagi penggemar teknologi handphone pasti sudah mendengar tentang android. hmm,,iya betul android adalah sistem operasi yang dikembangkan oleh google,, dan aplikasi ini bersifat terbuka yang artinya bisa dikembangkan lagi oleh para developer.
hmmm,,disini saya ingin mengenalkan android buat yang ingin tahu lebih tentang android. (soalnya saya juga punya android,, ahaha…)

KELEBIHAN ANDROID

Banyak pilihan

Karena bersifat terbuka,,maka OS ini bisa dipakai oleh vendor manapun yang memenuhi syarat kerjasama. artinya,, kita bisa menemukan HP android dari merk terkenal sampai merk lokal dan dari yang paling mahal sampai yang paling murah.

Cenderung seragam

Meskipun pilihannya banyak,, antara HP android yang satu pasti sama dengan HP android yang lain meskipun dari vendor berbeda.

Memiliki saluran data yang mumpuni

Akses data yang disediakan tergolong lengkap,,seperti HSDPA,, GPRS,, dan 3G karena hal tersebut sangat diperlukan untuk terhubung dengan server google.

dilengkapi Wi-Fi

Keberadaan Wi-Fi bisa digunakan untuk mendownload file beukuran besar yang tidak ditangani oleh saluran data di HP.

Tidak ada batasan data

Jika Blackberry membatasi besaran file yang didownload baik via browser maupun email attachment,, maka android tidak.

Aplikasi yang disediakan kebanyakan gratis

Sebagian besar aplikasi yang disediakan untuk android bersifat gratis dan tidak dipungut biaya,, semuanya bisa didownload di android market.

KEKURANGAN ANDROID

Kemampuan bervariasi

Tiap vendor memiliki spesifikasi berbeda,,misal dari prosesor,, RAM,, dan sebagainya. Jadi tidak menutup kemungkinan akan berpengaruh pada hadir tidaknya fitur-fitur penting seperti flash browser,, multitouch,, dan kompatibilitas game.

Pemakan pulsa

Aplikasi android kebanyakan terkoneksi ke server atau internet. jadi jangan heran jika tiba-tiba pulsa kita habis. Tapi tidak usah takut karena hal tersebut bisa diatasi dengan berlangganan internet unlimited atau melakukan settingan tertentu.

Tidak ada fitur chatting antar pengguna android

Pengguna Blackberry punya Blackberry Messenger yang bisa menghubungkan pemilik Blackberry satu sama lain. Sedangkan Android tidak

Tips untuk melakukan pencarian di google

2011-08-14T16:04:00.004+07:00

banyak orang melakukan pencarian di google sedikit kewalahan karena saat melakukan pencarian mereka menggunakan kata kunci yang mau mereka cari tanpa mengetahui fungsi yang ada di mesin pencari google. sehingga data yang muncul saat melakukan pencarian terlampau banyak. bayangkan saja saat melakukan satu pencarian hasil yang muncul sekitar 20.000.000 lebih,,apakah harus dibuka satu-persatu hasil pencarian sebanyak itu…??

karena itu mesin pencari google menambahkan command atau perintah agar pengguna dapat melakukan pencarian lebih spesifik lagi sehingga dapat mempermudah pengguna dalam melakukan pencarian di mesin pencari google dan juga dapat mempersingkat waktu pencarian kita… ^^

langsung saja…!!
berikut adalah daftar-daftar command atau perintah yang ada di mesin pencari google yang dapat digunakan untuk melakukan pencarian secara spesifik..

gunakan tanda petik ” “
contoh : “tips untuk pencarian”. dengan menambahkan tanda petik tersebut maka google akan menjadikannya suatu kalimat atau satu kesatuab bukan berupa beberapa kata.

n mata_uang1 in mata_uang2 : untuk mengonversi kurs mata uang. Misalnya ketikkan 10 USD in IDR atau 10 US$ in rupiah untuk menghitung nilai kurs 10 dolar Amerika (USD) dalam Rupiah (IDR).

books tema buku : untuk menemukan link situs-situs yang menyajikan informasi buku dengan tema terkait. Misalnya ketikkan books tips tentang komputer untuk mendapatkan info buku tentang tips tentang komputer.

movie:frase_pencarian : untuk mencari resensi film. Misalnya ketikkan movie:perang, maka akan muncul daftar resensi film yang berjudul atau terkait dengan perang (aktor, lokasi, dan sebagainya).

n1+n2 : untuk melakukan operasi perhitungan, n adalah nilai angka perhitungan. Gunakan + untuk penjumlahan, – untuk pengurangan, * untuk perkalian, / untuk pembagian, ^ untuk pemangkatan, dan seterusnya (daftar operator selengkapnya periksa di http://www.google.com/help/calculator.html). Anda juga dapat melakukan perhitungan secara kompleks, misalnya ketikkan 2+4*5, maka Google akan menampilkan 22 sebagai hasilnya.

Intitle= membatasi pencarian sebatas judulnya saja.
masukkan Intitle:”dunia berita” pada google search

Allintitle= mencari tulisan dimana kata kuncinya mendukung judul halaman.
Allintitle:”musik dunia” indonesia

Inurl= membatasi pencarian hanya pada url nya saja. hasilnya:www.nokia.co.id/layanan/musik/nokia-musik
inurl:musik

Allinurl= pencarian melibatkan seluruh kata kuncinya berada didalam url.
allinurl:berita musik

Intext= pencarian hanya pada body text (mengabaikan link text, url, dan judul)
intext:berita atau intext”berita”

Site= melakukan pencarian terhadap domain tertentu misalnya: .com, .org, .co.id, dll. Hasilnya akan muncul hanya .co.id saja.
site:co.id (dunia or musik)

Cache= pencarian untuk sebuah situs berdasar waktu terjadinya perubahan. Langsung masuk ke situs yang dituju.
cache:www.yahoo.com

Filetype= menemukan file berdasarkan tipenya, powerpoint (ppt), excel (xls), word (doc).
rumah filetype:pdf

Related= menghubung satu kategori/halaman dengan kategori/halaman lainnya. misalnya google maka yang berhubungan yaitu yahoo, msn, wikipedia, bing,…
related:google.com

Info= menghubungkan ke spesifik url yang dituju.
info:music.com

Pengetahuan tentang registry (2)

2011-08-14T16:01:00.003+07:00

Mengembalikan Folder Documents Yang Hilang Di My Computer

HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Explorer/DocFolderPaths
Pilih menu Edit > New > String Value dan beri nama sesuai dengan username yang digunakan di Windows (contohnya: Chippers)
Klik ganda pada value tersebut dan masukkan path tempat dimana Documents anda berada (contohnya D:\Documents)

Menyingkirkan File Stored Dari My Computer

HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/MyComputer/NameSpace/DelegateFolders
Hapus subkey {59031a47-3f72-44a7-89c5-5595fe6b30ee} dengan menekan tombol Del.

Menyembunyikan Menu Find

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
Klik menu Edit > New > DWORD Value dan beri nama NoFind.
Kemudian klik ganda pada DWORD Value tersebut dan berikan angka 1 untuk mengaktifkannya. Restart komputer.

Menyembunyikan My Recent Documents

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
Klik menu Edit > New > DWORD Value dan beri nama NoRecentDocsMenu.
Kemudian klik ganda pada DWORD Value tersebut, dan berikan angka 1 untuk mengaktifkannya.

Menyembunyikan Help And Support

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
Buatlah sebuah DWORD Value baru – Menu Edit > New > DWORD Value, dan beri nama NoSMHelp.
Kemudian klik ganda pada NoSMHelp dan isi dengan angka 1 pada Value Data. Restart komputer.

Menyembunyikan Menu Run

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced
Cari value bernama Start_ShowRun, klik ganda dan masukkan angka 0 pada bagian Value Data.

Menyembunyikan Menu Run (2)

HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
Buat sebuah DWORD Value baru dan beri nama NoRun. Klik ganda dan masukkan angka 1 sebagai Value Data.

Memunculkan Rename Pada Recycle Bin

HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/ShellFolder
Klik ganda pada Attributes > Edit Binary Value. Pada Value Data, ganti angka tersebut menjadi 0000 50 01 00 20.

Menambah Isi Shortcut Menu Pada Recycle Bin Dengan Menu Pilihan

HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/Shell
Klik menu Edit > New > Key dan beri nama yang diinginkan (Misalnya: Go To Windows Explorer).
Dibawah key yang baru tersebut, tekan lagi menu Edit > New > Key dan buat sebuah key baru bernama Command.
Klik ganda option (Default), dan pada bagian Value Data, isi dengan path Windows Explorer ( C:\WINDOWS\Explorer.exe).

Menambah Isi Shortcut Menu Pada Recycle Bin

HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/ShellFolder
Klik ganda Attributes dan ganti angka di Value Data dengan angka berikut ini:
0000 50 01 00 20 > Rename
0000 60 01 00 20 > Delete
0000 70 01 00 20 > Rename & Delete
0000 41 01 00 20 > Copy
0000 42 01 00 20 > Cut
0000 43 01 00 20 > Copy & Cut
0000 44 01 00 20 > Paste
0000 45 01 00 20 > Copy & Paste
0000 46 01 00 20 > Cut & Paste
0000 47 01 00 20 > Cut, Copy & Paste

Menyembunyikan Recycle Bin

HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Explorer/Desktop/NameSpace
Hapus subkey {645FF040-5081-101B-9F08-00AA002F954E}, kemudian Restart komputer untuk melihat hasilnya.
Untuk memunculkannya kembali, buat kembali kombinasi angka {645FF040-5081-101B-9F08-00AA002F954E}.

Beberapa tips dalam registry

Beberapa tips dan registry dibawah ini cuma berlaku buat Windows XP.
Sebelum mengutak-atik Registry, ada baiknya melakukan backup terlebih dahulu.

Klik tombol Start > Run.
Ketik regedit dan tekan Enter setelah berada didalam jendela Run.
Didalam Registry Editor, pilih menu File > Export.
Setelah Export Registry File muncul, masukkan nama file ke bagian File Name, misalnya backup-registry dan sebagainya.
tekan tombol Save.

Mengganti Nama Recycle Bin

HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}
Klik ganda pada option (Default value) dan beri nama baru sesuai yang diinginkan pada Value Data.

Pengetahuan tentang registry

2011-08-14T15:00:00.006+07:00

Menyingkirkan Shared Documents Dari My Computer

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoSharedDocuments.
Klik ganda NoSharedDocuments dan masukkan angka 1 pada Value Data.

Fungsi Restore Windows Folder Pada Startup

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Buat sebuah DWORD Value baru jika belum ada, dan beri nama PersistBrowsers.
Klik ganda PersistBrowsers dan masukkan angka 1 pada Value Data.

Menonaktifkan Menu Properties Pada Recycle Bin

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru dan beri nama NoPropertiesRecycleBin.
Klik ganda NoPropertiesRecycleBin dan masukkan angka 1 pada Value Data.

Fungsi Restore Windows Folder Pada Startup

Mengaktifkan Remote Assistance

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server
Buat beberapa DWORD Value dan beri nama masing-masing AllowTSConnections, fDenyTSConnections, dan fAllowToGetHelp.
Klik ganda pada masing-masing value dan masukkan input value sebagai berikut pada Value Data:
AllowTSConnections > 1
fDenyTSConnections > 0
fAllowToGetHelp > 1

Menonaktifkan Peringatan Di Startup

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows
Buat sebuah DWORD Value dan beri nama NoPopUpsOnBoot.
Klik ganda NoPopUpsOnBoot dan masukkan angka 1 pada Value Data.
Buat sebuah DWORD Value lagi dan beri nama Error Mode.
Klik ganda Error Mode dan masukkan input value sebagai berikut:
0 = No Error Suppression
1 = Suppress System Errors
2 = Suppress All Errors

Mengubah Ukuran Icon Cache

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer
Buat sebuah String Value dan beri nama Max Cached Icons.
Klik ganda Max Cached Icons dan masukkan angka 2000 (100 – 4096 = dalam bytes) pada Value Data.

Mengubah Status NumLock

HKEY_USERS\.DEFAULT\Control Panel\Keyboard
Klik ganda InitialKeyboardIndicators dan masukkan input value sebagai berikut pada Value Data:
0 – NumLock is turned off after logon
1 – NumLock is turned on after logon

Mengubah Active Dekstop Background Pada Safe Mode

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\General
Klik ganda Wallpaper dan masukkan path lokasi wallpaper yang diinginkan pada Value Data.

Stepping Mode Pada Windows Update Process

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup
Buat sebuah String Value baru dan beri nama SteppingMode.
Klik ganda SteppingMode dan masukkan input Y pada Value Data.

Konfigurasi Windows Error Reporting

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting
Buat beberapa DWORD Value dan beri nama:
DoReport – Enable error reporting
ShowUI – Show user interface
IncludeKernelFaults – Include kernel errors in the report
IncludeMicrosoftApps – Include Microsoft applications in the report
IncludeWindowsApps – Include Windows components in the report
Klik ganda pada masing-masing value dan masukkan angka 1 (enable) atau 0 (disable) pada Value Data.

Administrative Logon Otomatis Pada Recovery Console

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole
Buat sebuah DWORD Value baru jika belum ada, dan beri nama SecurityLevel.
Klik ganda SecurityLevel dan masukkan angka 1 pada Value Data.

Mengubah Ukuran Paged And Non Paged Pool Memory

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management
Buat beberapa DWORD Value baru jika belum ada, dan beri nama masing-masing PagedPoolSize dan NonPagedPoolSize.
Klik ganda PagedPoolSize dan NonPagedPoolSize dan masukkan input value yang diinginkan (dalam ukuran bytes) pada Value Data.

Pilihan Prioritas Virtual Machine Yang Digunakan

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW
Klik ganda DefaultSeparateVDM dan masukkan value Yes atau No pada Value Data.

Pilihan Untuk Menjalankan Program 16-bit Pada VDM (Virtual DOS Machine)

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Buat sebuah DWORD Value baru jika belum ada, dan beri nama MemCheckBoxInRunDlg.
Klik ganda MemCheckBoxInRunDlg dan masukkan angka 1 pada Value Data.

Menentukan Popup Error Messages Yang Akan Ditampilkan

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows
Klik ganda ErrorMode dan masukkan input value yang diinginkan sebagai berikut pada Value Data:
0 – All Errors Appear In Popups (Default)
1 – System Errors Disabled, Application Errors Still Using Popups
2 – Neither System Or Application Errors Use Popups

Restart dgn Cepat !!

Tambahkan string value EnableQuickReboot

Mengubah Konfigurasi Power Management

HKEY_CURRENT_USER\Control Panel\PowerCfg
HKEY_USERS\.DEFAULT\Control Panel\PowerCfg
Buat sebuah String Value jika belum ada, dan beri nama CurrentPowerPolicy.
Klik ganda CurrentPowerPolicy dan masukkan input value sebagai berikut pada Value Data:
0 – Home/Office Desktop
1 – Portable/Laptop Computer
2 – Monitor On Presentations
3 – Network Computer (No Wake-On-LAN)
4 – Optimized For High Performance
5 – Optimized For Power Saving

Konfigurasi Registry Size Limit

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control
Buat sebuah DWORD Value baru dan beri nama RegistrySizeLimit.
Klik ganda RegistrySizeLimit dan masukkan input 0xffffffff pada Value Data.

Sejarah Prosesor Intel

2008-11-19T08:52:00.011+07:00

Berikut adalah sedikit sejarah perkembangan prosesor Intel dan para clone-nya yang berhasil disarikan

Debut Intel dimulai dengan processor seri MCS4 yang merupakan cikal bakal dari prosesor i4040. Processor 4 bit ini yang direncanakan untuk menjadi otak calculator , pada tahun yang sama (1971), intel membuat revisi ke i440. Awalnya dipesan oleh sebuah perusahaan Jepang untuk pembuatan kalkulator , ternyata prosesor ini jauh lebih hebat dari yang diharapkan sehingga Intel membeli hak guna dari perusahaan Jepang tersebut untuk perkembangan dan penelitian lebih lanjut. Di sinilah cikal bakal untuk perkembangan ke arah prosesor komputer.

Berikutnya muncul processor 8 bit pertama i8008 (1972), tapi agak kurang disukai karena multivoltage.. lalu baru muncul processor i8080, disini ada perubahan yaitu jadi triple voltage, pake teknologi NMOS (tidak PMOS lagi), dan mengenalkan pertama kali sistem clock generator (pake chip tambahan), dikemas dalam bentuk DIP Array 40 pins. Kemudian muncul juga processor2 : MC6800 dari Motorola -1974, Z80 dari Zilog -1976 (merupakan dua rival berat), dan prosessor2 lain seri 6500 buatan MOST, Rockwell, Hyundai, WDC, NCR dst. Z80 full compatible dengan i8008 hanya sampai level bahasa mesin. Level bahasa rakitannya berbeda (tidak kompatibel level software). Prosesor i8080 adalah prosesor dengan register internal 8-bit, bus eksternal 8-bit, dan memori addressing 20-bit (dapat mengakses 1 MB memori total), dan modus operasi REAL.

Thn 77 muncul 8085, clock generatornya onprocessor, cikal bakalnya penggunaan single voltage +5V (implementasi s/d 486DX2, pd DX4 mulai +3.3V dst).

i8086, prosesor dengan register 16-bit, bus data eksternal 16-bit, dan memori addressing 20-bit. Direlease thn 78 menggunakan teknologi HMOS, komponen pendukung bus 16 bit sangat langka , sehingga harganya menjadi sangat mahal.

Maka utk menjawab tuntutan pasar muncul i8088 16bit bus internal, 8bit bus external. Sehingga i8088 dapat memakai komponen peripheral 8bit bekas i8008. IBM memilih chip ini untuk pebuatan IBM PC karena lebih murah daripada i8086. Kalau saja CEO IBM waktu itu tidak menyatakan PC hanyalah impian sampingan belaka, tentu saja IBM akan menguasai pasar PC secara total saat ini. IBM PC first release Agustus 1981 memiliki 3 versi IBM PC, IBM PC-Jr dan IBM PC-XT (extended technology). Chip i8088 ini sangat populer, sampai NEC meluncurkan sebuah chip yang dibangun berdasarkan spesifikasi pin chip ini, yang diberi nama V20 dan V30. NEC V20 dan V30 adalah processor yang compatible dengan intel sampai level bahasa assembly (software).

Chip 8088 dan 8086 kompatibel penuh dengan program yang dibuat untuk chip 8080, walaupun mungkin ada beberapa program yang dibuat untuk 8086 tidak berfungsi pada chip 8088 (perbedaan lebar bus)

Lalu muncul 80186 dan i80188.. sejak i80186, prosessor mulai dikemas dalam bentuk PLCC, LCC dan PGA 68 kaki.. i80186 secara fisik berbentuk bujursangkar dengan 17 kaki persisi (PLCC/LCC) atau 2 deret kaki persisi (PGA) dan mulai dari i80186 inilah chip DMA dan interrupt controller disatukan ke dalam processor. semenjak menggunakan 286, komputer IBM menggunakan istilah IBM PC-AT (Advanced Technology)dan mulai dikenal pengunaan istilah PersonalSystem (PS/1). Dan juga mulai dikenal penggunaan slot ISA 16 bit yang dikembangkan dari slot ISA 8 bit , para cloner mulai ramai bermunculan. Ada AMD, Harris & MOS yang compatible penuh dengan intel. Di 286 ini mulai dikenal penggunaan Protected Virtual Adress Mode yang memungkinkan dilakukannya multitasking secara time sharing (via hardware resetting).

Tahun 86 IBM membuat processor dengan arsitektur RISC 32bit pertama untuk kelas PC. Namun karena kelangkaan software, IBM RT PC ini “melempem” untuk kelas enterprise, RISC ini berkembang lebih pesat, setidaknya ada banyak vendor yang saling tidak kompatibel.

Lalu untuk meraih momentum yang hilang dari chip i8086, Intel membuat i80286, prosesor dengan register 16-bit, bus eksternal 16-bit, mode protected terbatas yang dikenal dengan mode STANDARD yang menggunakan memori addressing 24-bit yang mampu mengakses maksimal 16 MB memori. Chip 80286 ini tentu saja kompatibel penuh dengan chip-chip seri 808x sebelumnya, dengan tambahan beberapa set instruksi baru. Sayangnya chip ini memiliki beberapa bug pada desain hardware-nya, sehingga gagal mengumpulkan pengikut.

Pada tahun 1985, Intel meluncurkan desain prosesor yang sama sekali baru: i80386. Sebuah prosesor 32-bit , dalam arti memiliki register 32-bit, bus data eksternal 32-bit, dan mempertahankan kompatibilitas dengan prosesor generasi sebelumnya, dengan tambahan diperkenalkannya mode PROTECTED 32-BIT untuk memori addressing 32-bit, mampu mengakses maksimum 4 GB , dan tidak lupa tambahan beberapa instruksi baru. Chip ini mulai dikemas dalam bentuk PGA (pin Grid Array)

Prosesor Intel sampai titik ini belum menggunakan unit FPU secara
internal . Untuk dukungan FPU, Intel meluncurkan seri 80×87. Sejak 386 ini mulai muncul processor cloner : AMD, Cyrix, NGen, TI, IIT, IBM (Blue Lightning) dst, macam-macamnya :

i80386 DX (full 32 bit)
i80386 SX (murah karena 16bit external)
i80486 DX (int 487)
i80486 SX (487 disabled)
Cx486 DLC (menggunakan MB 386DX, juga yang lain)
Cx486 SLC (menggunakan MB 386SX)
i80486DX2
i80486DX2 ODP
Cx486DLC2 (arsitektur MB 386)
Cx486SLC2 (arsitektur MB 386)
i80486DX4
i80486DX4 ODP
i80486SX2
Pentium
Pentium ODP

* Sekitar tahun 1989 Intel meluncurkan i80486DX. Seri yang tentunya sangat populer, peningkatan seri ini terhadap seri 80386 adalah kecepatan dan dukungan FPU internal dan skema clock multiplier (seri i486DX2 dan iDX4), tanpa tambahan instruksi baru. Karena permintaan publik untuk prosesor murah, maka Intel meluncurkan seri i80486SX yang tak lain adalah prosesor i80486DX yang sirkuit FPU-nya telah disabled . Seperti yang seharusnya, seri i80486DX memiliki kompatibilitas penuh dengan set instruksi chip-chip seri sebelumnya.
* AMD dan Cyrix kemudian membeli rancangan prosesor i80386 dan i80486DX untuk membuat prosesor Intel-compatible, dan mereka terbukti sangat berhasil. Pendapat saya inilah yang disebut proses ‘cloning’, sama seperti cerita NEC V20 dan V30. AMD dan Cyrix tidak melakukan proses perancangan vertikal (berdasarkan sebuah chip seri sebelumnya), melainkan berdasarkan rancangan chip yang sudah ada untuk membuat chip yang sekelas.
* Tahun 1993, dan Intel meluncurkan prosesor Pentium. Peningkatannya terhadap i80486: struktur PGA yang lebih besar (kecepatan yang lebih tinggi , dan pipelining, TANPA instruksi baru. Tidak ada yang spesial dari chip ini, hanya fakta bahwa standar VLB yang dibuat untuk i80486 tidak cocok (bukan tidak kompatibel) sehingga para pembuat chipset terpaksa melakukan rancang ulang untuk mendukung PCI. Intel menggunakan istilah Pentium untuk meng”hambat” saingannya. Sejak Pentium ini para cloner mulai “rontok” tinggal AMD, Cyrix . Intel menggunakan istilah Pentium karena Intel kalah di pengadilan paten. alasannya angka tidak bisa dijadikan paten, karena itu intel mengeluarkan Pentium menggunakan TM. AMD + Cyrix tidak ingin tertinggal, mereka mengeluarkan standar Pentium Rating (PR) sebelumnya ditahun 92 intel sempat berkolaborasi degan Sun, namun gagal dan Intel sempat dituntut oleh Sun karena dituduh menjiplak rancangan Sun. Sejak Pentium, Intel telah menerapkan kemampuan Pipelining yang biasanya cuman ada diprocessor RISC (RISC spt SunSparc). Vesa Local Bus yang 32bit adalah pengembangan dari arsitektur ISA 16bit menggunakan clock yang tetap karena memiliki clock generator sendiri (biasanya >33Mhz) sedangkan arsitektur PCI adalah arsitektur baru yang kecepatan clocknya mengikuti kecepatan clock Processor (biasanya kecepatannya separuh kecepatan processor).. jadi Card VGA PCI kecepatannya relatif tidak akan sama di frekuensi MHz processor yang berbeda alias makin cepat MHz processor, makin cepat PCI-nya
* Tahun 1995, kemunculan Pentium Pro. Inovasi disatukannya cache memori ke dalam prosesor menuntut dibuatnya socket 8 . Pin-pin prosesor ini terbagi 2 grup: 1 grup untuk cache memori, dan 1 grup lagi untuk prosesornya sendiri, yang tak lebih dari pin-pin Pentium yang diubah susunannya . Desain prosesor ini memungkinkan keefisienan yang lebih tinggi saat menangani instruksi 32-bit, namun jika ada instruksi 16-bit muncul dalam siklus instruksi 32-bit, maka prosesor akan melakukan pengosongan cache sehingga proses eksekusi berjalan lambat. Cuma ada 1 instruksi yang ditambahkan: CMOV (Conditional MOVe) .
* Tahun 1996, prosesor Pentium MMX. Sebenarnya tidak lebih dari sebuah Pentium dengan unit tambahan dan set instruksi tambahan, yaitu MMX. Intel sampai sekarang masih belum memberikan definisi yang jelas mengenai istilah MMX. Multi Media eXtension adalah istilah yang digunakan AMD . Ada suatu keterbatasan desain pada chip ini: karena modul MMX hanya ditambahkan begitu saja ke dalam rancangan Pentium tanpa rancang ulang, Intel terpaksa membuat unit MMX dan FPU melakukan sharing, dalam arti saat FPU aktif MMX non-aktif, dan sebaliknya. Sehingga Pentium MMX dalam mode MMX tidak kompatibel dengan Pentium.

Bagaimana dengan AMD K5? AMD K5-PR75 sebenarnya adalah sebuah ‘clone’ i80486DX dengan kecepatan internal 133MHz dan clock bus 33MHz . Spesifikasi Pentium yang didapat AMD saat merancang K5 versi-versi selanjutnya dan Cyrix saat merancang 6×86 hanyalah terbatas pada spesifikasi pin-pin Pentium. Mereka tidak diberi akses ke desain aslinya. Bahkan IBM tidak mampu membuat Intel bergeming (Cyrix, mempunyai kontrak terikat dengan IBM sampai tahun 2005)

Mengenai rancangan AMD K6, tahukah anda bahwa K6 sebenarnya adalah rancangan milik NexGen ? Sewaktu Intel menyatakan membuat unit MMX, AMD mencari rancangan MMX dan menambahkannya ke K6. Sayangnya spesifikasi MMX yang didapat AMD sepertinya bukan yang digunakan Intel, sebab terbukti K6 memiliki banyak ketidakkompatibilitas instruksi MMX dengan Pentium MMX.

* Tahun 1997, Intel meluncurkan Pentium II, Pentium Pro dengan teknologi MMX yang memiliki 2 inovasi: cache memori tidak menjadi 1 dengan inti prosesor seperti Pentium Pro , namun berada di luar inti namun berfungsi dengan kecepatan processor. Inovasi inilah yang menyebabkan hilangnya kekurangan Pentium Pro (masalah pengosongan cache) Inovasi kedua, yaitu SEC (Single Edge Cartidge), Kenapa? Karena kita dapat memasang prosesor Pentium Pro di slot SEC dengan bantuan adapter khusus. Tambahan : karena cache L2 onprocessor, maka kecepatan cache = kecepatan processor, sedangkan karena PII cachenya di”luar” (menggunakan processor module), maka kecepatannya setengah dari kecepatan processor. Disebutkan juga penggunaan Slot 1 pada PII karena beberapa alasan :

Pertama, memperlebar jalur data (kaki banyak - Juga jadi alasan Socket 8), pemrosesan pada PPro dan PII dapat paralel. Karena itu sebetulnya Slot 1 lebih punya kekuatan di Multithreading / Multiple Processor. ( sayangnya O/S belum banyak mendukung, benchmark PII dual processorpun oleh ZDBench lebih banyak dilakukan via Win95 ketimbang via NT)

Kedua, memungkinkan upgrader Slot 1 tanpa memakan banyak space di Motherboard sebab bila tidak ZIF socket 9 , bisa seluas Form Factor(MB)nya sendiri konsep hemat space ini sejak 8088 juga sudah ada .Mengapa keluar juga spesifikasi SIMM di 286? beberapa diantaranya adalah efisiensi tempat dan penyederhanaan bentuk.

Ketiga, memungkinkan penggunaan cache module yang lebih efisien dan dengan speed tinggi seimbang dengan speed processor dan lagi-lagi tanpa banyak makan tempat, tidak seperti AMD / Cyrix yang “terpaksa” mendobel L1 cachenya untuk menyaingi speed PII (karena L2-nya lambat) sehingga kesimpulannya AMD K6 dan Cyrix 6×86 bukan cepat di processor melainkan cepat di hit cache! Sebab dengan spec Socket7 kecepatan L2 cache akan terbatas hanya secepat bus data / makin lambat bila bus datanya sedang sibuk, padahal PII thn depan direncanakan beroperasi pada 100MHz (bukan 66MHz lagi). Point inilah salah satu alasan kenapa intel mengganti chipset dari 430 ke 440 yang berarti juga harus mengganti Motherboard.

10 Tips Hemat Energi Pada PC Dan Laptop

2008-11-19T08:43:00.007+07:00

Di bawah ini adalah sepuluh tips yang dapat Anda gunakan untuk menghemat pemakaian energi pada pc dan laptop.

1. Atur pencahayaan dan kontras monitor
Mungkin bagi orang yang awam atau pemula dalam menggunakan komputer, mereka jarang sekali memperhatikan pengaturan monitor mereka. Yang dimaksud dalam hal ini adalah tingkat pencahayaan dan kontras yang diatur terlalu tinggi akan bisa menghabiskan banyak energi. Maka untuk itu anda harus bisa mengatur pencahayaan dan kontras tersebut, untuk mengatur pencahayaan dan kontras monitor tersebut gunakan tombol yang berada di bawah monitor.

2. Matikan monitor
Tips yang ke-dua adalah dengan mematikan monitor, terutama monitor yang jenisnya adalah jenis CRT (Cathode Ray Tubel), karena monitor jenis tersebut lebih banyak mengkonsumsi tenaga listrik. Jadi, jika anda ingin meninggalkan PC tersebut dalam waktu yang lama, sebaiknya matikan monitor anda.
Anda juga dapat menyetting Windows agar secara otomatis langsung mati dalam beberapa waktu tertentu, itu bisa dilakukan dengan cara, klik “Control Panel-Options”. Dalam “Power Options Properties” klik tab “Power Schemes”. Lalu klik tanda panah di bagian “Power Schemes” lalu pilih “Home/Office desk”. Lalu pilih waktu yang diinginkan pada “Turn Off Monitor” dan klik “Apply” dan “OK”.

3. Matikan Hard disk
Meskipun kita tidak sedang melakukan apa pun pada komputer kita, tapi data anda akan selalu dibaca dari hard disk (oleh sistem operasi dan beberapa aplikasi). Karena alasan ini, hard disk hard disk akan terus menerus berputar dan tentu saja ini akan menghabiskan energi. Jika anda ingin meninggalkan PC anda dalam waktu yang lama, maka sebaiknya matikan hard disk PC anda. Pada “Power Options Properties” lalu klik tab “Power Schmes”. Klik tanda panah di bagian “Power Schemes” dan pilih “Home/Off desk”. Kemudian klik “Turn off hard disk” dan pilih waktunya. Lalu klik “Apply” dan “Ok”.

4. Matikan peralatan lainnya
Matikanlah peralatan lainnya seperti, speaker, modem eksternal, scanner, Zip drive dan printer. Karena peralatan itu sangat menghabiskan banyak energi. Seringkali orang meninggalkan peralatan tersebut dalam keadaan aktif, bahkan saat kita sedang keluar dalam waktu yang lama.

5. Mode Hibernate
Mode hibernate ini adalah fasilitas untuk melakukan shut down, tapi tidak menutup atau mematikan aplikasi yang sedang kita buka tadi. Hal ini dapat dilakukan dengan cara Mode “Hibernate”. Dengan mode ini, isi memory utama (RAM) akan tersimpan dalam hard disk. Cara melakukan mode hibernate adalah sebagai berikut, pada “Power Options” kliklah tab “Hibernate”. Lalu klik kotak dekat “Enable Hibernation”. Klik juga pada tab “Advanced”. Dalam bagian “When I Press the power button” lalu klik tanda panahnya kemudian klik “Hibernate”. Klik “Apply” dan “Ok”. Setelah itu tekan tombol “Power” pada komputer anda. Mode hibernate sudah berfungsi, tekan tombol “Power” sekali lagi, komputer anda akan menyala dan akan otomatis membuka aplikasi yang telah anda buka tadi.

6. Mode Standby
Agar bisa menghemat energi, sebaiknya pengaturan monitor dan hard disk berada di bagian yang paling rendah pada mode standby. Jika anda ingin meninggalkan PC sebentar, sebaiknya aktifkan mode standby. Namun yang harus anda ketahui adalah, saat mode standby aktif data-data yang belum anda simpan dapat rusak atau hilang kalau PC anda mengalami kerusakan. Sebaiknya simpan dahulu data atau dokumen anda sebelum anda mengaktifkan mode standby ini. Mode standby dapat dilakukan dengan cara, klik “Start-Turn Off computer” lalu klik “Stanby”.

7. Gunakanlah UPS
Gunakanlah selalu alat UPS, karena alat ini bisa membantu penyelamatan data atau shut down saat terjadi mati listrik. Untuk mengatur peralatan UPS dan mengkonfigurasikan alat tersebut “Power Option Properties” lalu pilih tab UPS. Bagian status dalam tab UPS menampilkan perkiraan jumlah menit yang dapat didukung UPS terhadap PC anda. Sebenarnya banyak cara untuk mengkonfigurasikan UPS, namun hal ini tergantung dari model dan kapasitas UPS yang digunakan.

8. Baterai Laptop
Jika anda men-charge baterai laptop, pastikan proses charge-nya selesai. Karena proses charge yang dilakukan setengah-setengah lalu dilanjutkan kembali, itu malah akan menghabiskan banyak energi. Jika anda ingin berpergian, sebaiknya bawa selalu baterai tambaha. Untuk menghemat pemakaian baterai. Anda bisa memanfaatkan feature Hibernate/Suspended atau gunakan soket listrik yang dihubungkan ke stopkontak.

9. Port USB
Jika saat anda menggunaka laptop dan saat itu anda memasukkan salah satu ke port USB di laptop, sebaiknya kalau sudah selesai langsung dilepaskan saja. Karena peralatan yang masih tertancap di port USB, itu juga dapat menghabiskan tenaga pada PC atau laptop anda. Sebaiknya lepaskan alat tersebut bila pemakainnya dirasa sudah cukup.

10. Skema Pemakaian Energi Laptop
Biasanya produsen-produsen laptop juga menyertakan feature dan software power management. Software ini sangat berguna sekali bagi para konsumen laptop, karena software ini mampu mengatur pemakaian baterai dan daya listrik yang sedang digunakan. Di software ini ada beberapa pilihan yang dapat digunakan untuk mengetahui beban hard disk dan energi lain yang sedang digunakan oleh laptop. Di antaranya mengetahui kecepatan prosessor atau pencahayaan monitor yang tepat untuk dapat menghemat baterai. Software ini sekaligus dapat menjadi pengawas bagi kita dalam menggunakan laptop.

Robot Mikro yang Mampu Bekerja Dalam Tubuh

2008-11-19T08:25:00.008+07:00

Ilmuwan di Korea telah membuat robot-robot yang cukup kecil untuk bisa menjelajahi tubuh manusia dan digerakkan oleh otot jantung.

Sukho Park di Chonnam National University, Korea, dan rekan-rekannya telah merancang sebuah robot-mikro yang digerakkan oleh sel. Tim Park membuat robot tersebut dengan menumbuhkan jaringan otot jantung dari sebuah tikus pada kerangka-kerangka robot kecil yang dibuat dari polidimetilsiloksana (PDMS). PDMS merupakan polimer biokompatibel sehingga membuat robot tersebut cocok digunakan dalam pengaplikasian biomedik.

Yang istimewa pada robot-robot ini, kata Park, adalah mereka tidak memerlukan suplai energi eksternal. Tetapi sel-sel otot jantung yang berelaksasi dan berkontraksi yang memberikan energi. Sel-sel otot jantung sendiri mendapatkan energinya dari sebuah medium kultur glukosa. Sel-sel yang berdenyut sendiri ini memungkinkan robot tersebut menggerakkan keenam kakinya.

Robot ini memiliki tiga kaki depan yang pendek (panjang 400 mikrometer) dan tiga kaki belakang yang lebih panjang (panjang 1200 mikrometer), semuanya terpasang pada sebuah badan segiempat. Pada saat sel-sel jantung berkontraksi, kaki belakang yang lebih panjang menekuk ke dalam. Ini menghasilkan perbedaan gesekan antara kaki depan dan kaki belakang, yang menekan robot bergerak maju. Para peneliti mengukur kecepatan rata-rata robot ini sekitar 100 mikrometer per detik.

Park mengatakan robot-robot yang mirip kepiting ini bisa digunakan di dalam tubuh untuk membersihkan rongga atau pembuluh yang tersumbat, dengan melepaskan sebuah agen pelarut untuk membersihkan penyumbatan yang mereka lalui.

Bermuda Triangle

2008-11-18T22:58:00.008+07:00

Segitiga Bermuda (bahasa Inggris: Bermuda Triangle), terkadang disebut juga Segitiga Setan adalah sebuah wilayah lautan di Samudra Atlantik seluas 1,5 juta mil2 atau 4 juta km2 yang membentuk garis segitiga antara Bermuda, wilayah teritorial Britania Raya sebagai titik di sebelah utara, Puerto Riko, teritorial Amerika Serikat sebagai titik di sebelah selatan dan Miami, negara bagian Florida, Amerika Serikat sebagai titik di sebelah barat.

Segitiga bermuda sangat misterius. Sering ada isu paranormal di daerah tersebut yang menyatakan alasan dari peristiwa hilangnya kapal yang melintas. Ada pula yang mengatakan bahwa sudah menjadi gejala alam bahwa tidak boleh melintasi wilayah tersebut. Bahkan ada pula yang mengatakan bahwa itu semua akibat ulah makhluk luar angkasa

Sejarah awal

Pada masa pelayaran Christopher Colombus, ketika melintasi area segitiga Bermuda, salah satu awak kapalnya mengatakan melihat “cahaya aneh berkemilau di cakrawala”. Beberapa orang mengatakan telah mengamati sesuatu seperti meteor. Dalam catatannya ia menulis bahwa peralatan navigasi tidak berfungsi dengan baik selama berada di area.

Berbagai peristiwa kehilangan di area tersebut pertama kali didokumentasikan pada tahun 1951 oleh E.V.W. Jones dari majalah Associated Press. Jones menulis artikel mengenai peristiwa kehilangan misterius yang menimpa kapal terbang dan laut di area tersebut dan menyebutnya ‘Segitiga Setan’. Hal tersebut diungit kembali pada tahun berikutnya oleh Fate Magazine dengan artikel yang dibuat George X. Tahun 1964, Vincent Geddis menyebut area tersebut sebagai ‘Segitiga Bermuda yang mematikan’ , setelah istilah ‘Segitiga Bermuda’ menjadi istilah yang biasa disebut.

Tanggapan beberapa orang
Peta tempat-tempat yang mengandung gas methana

Perusahaan asuransi laut Lloyd's of London menyatakan bahwa segitiga bermuda bukanlah lautan yang berbahaya dan sama seperti lautan biasa di seluruh dunia, asalkan tidak membawa angkutan melebihi ketentuan ketika melalui wilayah tersebut. Penjaga pantai mengkonfirmasi keputusan tersebut. Penjelasan tersebut dianggap masuk akal, ditambah dengan sejumlah pengamatan dan penyelidikan kasus.

Gas Methana

Penjelasan lain dari beberapa peristiwa lenyapnya pesawat terbang dan kapal laut secara misterius adalah adanya gas methana di wilayah perairan tersebut. Teori ini dipublikasikan untuk pertama kali tahun 1981 oleh Badan Penyelidikan Geologi Amerika Serikat. Teori ini berhasil diuji coba di laboratorium dan hasilnya memuaskan beberapa orang tentang penjelasan yang masuk akal seputar misteri lenyapnya pesawat-pesawat dan kapal laut yang melintas di wilayah tersebut.

Penjelasan lain

Ada yang mengatakan Segitiga Bermuda disebabkan karena tempat tersebut merupakan pangkalan UFO sekelompok mahkluk luar angkasa/alien yang tidak mau diusik oleh manusia,sehingga kendaraan apapun yang melewati teritorial tersebut akan terhisap dan diculik. Ada yang mengatakan bahwa penyebabnya dikarenakan oleh adanya sumber magnet terbesar di bumi yang tertanam di bawah Segitiga Bermuda,sehingga logam berton-tonpun dapat tertarik ke dalam. Dan bahkan ada yang mengatakan Segitiga Bermuda merupakan pusat bertemunya antara arus air dingin dengan arus air panas,sehingga akan mengakibatkan pusaran air yang besar/dasyat.

Meskipun beberapa teori dilontarkan, namun tidak ada yang memuaskan sebab munculnya tambahan seperti benda asing bersinar yang mengelilingi pesawat sebelum kontak dengan menara pengawas terputus dan pesawat lenyap.

Kronologi dari beberapa peristiwa terkenal

* 1840: HMS Rosalie
* 1872: The Mary Celeste, salah satu misteri terbesar lenyapnya beberapa kapal di segitiga bermuda
* 1909: The Spray
* 1917: SS Timandra
* 1918: USS Cyclops (AC-4) lenyap di laut berbadai, namun sebelum berangkat menara pengawas mengatakan bahwa lautan tenang sekali, tidak mungkin terjadi badai, sangat baik untuk pelayaran
* 1926: SS Suduffco hilang dalam cuaca buruk
* 1938: HMS Anglo Australian menghilang. Padahal laporan mengatakan cuaca hari itu sangat tenang
* 1945: Penerbangan 19 menghilang
* 1952: Pesawat British York transport lenyap dengan 33 penumpang
* 1962: US Air Force KB-50, sebuah kapal tanker, lenyap
* 1970: Kapal barang Perancis, Milton Latrides lenyap; berlayar dari New Orleans menuju Cape Town.
* 1972: Kapal Jerman, Anita (20.000 ton), menghilang dengan 32 kru
* 1976: SS Sylvia L. Ossa lenyap dalam laut 140 mil sebelah barat Bermuda.
* 1978: Douglas DC-3 Argosy Airlines Flight 902, menghilang setelah lepas landas dan kontak radio terputus
* 1980: SS Poet; berlayar menuju Mesir, lenyap dalam badai
* 1995: Kapal Jamanic K (dibuat tahun 1943) dilaporkan menghilang setelah melalui Cap Haitien
* 1997: Para pelayar menghilang dari kapal pesiar Jerman
* 1999: Freighter Genesis hilang setelah berlayar dari Port of Spain menuju St Vincent.

Troubleshooting Sederhana

2008-07-08T21:20:00.004+07:00

Troubleshooting merupakan penyelesaian permasalahan yang terjadi di windows. Dengan troubleshooting ini kita dapat memperbaiki beberapa kejadian error yang terjadi di windows kita. Dibawah ini beberapa troubleshooting untuk permasalahan error pada windows :

1. Jika saat defrag tiba-tiba komputer berhenti, restart dan masuk dalam Safe Mode dengan menekan tombol F8 sesaat sebelum Windows mulai berjalan. Defrag lagi harddisk Anda dari mode ini.

2. Cari tahu apakah drive Anda FAT atau NTFS dengan mengklik kanan drive tersebut dan memilih Properties kemudian masuk ke tab General. Baca detail file system pada kotak dialog yang muncul.

3. Ubah sebuah drive dalam format FAT menjadi NTFS melalui DOS dengan perintah convert c:/FS:NTFS. Masuklah dalam registry editor dan buka direktori HKEY_USERS\DEFAULT\Control Panel\Desktop dan buat value dalam AutoEndTask dengan nilai 1.

4. Jika saat menginstal sebuah driver baru komputer hang, restore komputer ke konfigurasi sebelumnya. Caranya, restart komputer dan tekan F8 untuk masuk ke Safe Mode dan pilih option Last Known Good Configuration.

5. Gunakan Event Viewer untuk melacak aplikasi yang error. Caranya, klik kanan My Computer, pilih Manage dan klik event Viewer. Klik ganda setiap aplikasi atau system yang menunjukkan error untuk melihat informasi kesalahan.

Ada cara paling tepat untuk mengatur ketepatan jam di komputer. Klik ganda jam di sebelah kanan bawah layar atau di system tray, pilih tab Internet Time. Aktifkan option Automatically synchronize with an Internet time server. Pilih server yang tersedia dan klik Update Now!

Memperbaiki Kinerja Komputer

2008-07-08T21:19:00.005+07:00

Mau meningkatkan kinerja komputer kamu ????
nih ada beberapa tips untuk meningkatkan kinerja komputer kamu... ikuti aja langkah-langkah berikut ini...

1. Tambah kecepatan komputer Anda dengan menghilangkan penampakan yang bagus namun memakan banyak waktu, yakni animasi. Caranya, buka Control Panel, dan klik ganda System. Klik tab Advanced dan tekan tombol Performance Settings. Kemudian enable option Adjust for the best performance.

2. Untuk mengurangi waktu booting yang terasa lama, atur di BIOS agar booting dimulai dari harddisk baru kemudian CD atau floppy drive pada pilihan berikutnya.

3. Atur supaya Windows hanya akan me-load program yang dibutuhkan saja saat mulai berjalan supaya waktu loading lebih cepat dan kerja komputer lebih ringan. Ketikkan “msconfig” tanpa tanda petik di kotak dialog Run dan tekan Enter. Pada tab General, pilih option Selective Startup, kemudian buka tab Startup dan nonaktifkan semua program yang tidak perlu.

4. Anda bisa memonitor penggunaan processor dengan menekan tombol Ctrl+Alt+Del untuk membuka Task Manager. Kemudian minimize window tersebut, Anda akan melihat grafik penggunaan kapasitas processor di system tray.

5. Untuk meningkatkan kecepatan menyimpan data di USB ZIP drive, buka My Computer dan klik kanan drive ZIP tersebut. Pilih Properties, buka tab Hardware klik Properties, kemudian buka tab Policies dan aktifkan option Optimize for Performance.

6. Untuk mempercepat tampilan Start Menu, buka Registry Editor (ketikkan “regedit” tanpa tanda petik di kotak dialog Run). Masuk dalam direktori HKEY_CURRENT_USER\Control Panel\Desktop. Klik ganda value yang bernama MenuShowDelay, ganti angka yang ada menjadi 100. Dengan cara ini, maka delay tampilan Start Menu semakin singkat.

7. Ada cara cepat mematikan komputer. Tekan tombol Ctrl+Alt+Del, pada windows Task Manager yang muncul, tekan menu Shut Down dan tahan tombol Ctrl saat mengklik Turn Off. Pastikan dulu semua dokumen telah di-save.

8. Anda bisa melihat grafis yang menampilkan performance komputer berdasarkan beberapa indikator. Misalnya penggunaan processor, memory, dan lain sebagainya. Caranya, buka Control Panel dan klik ganda Administrative Tools. Buka fitur Performance.

9. Anda juga bisa menambahkan beberapa indikator lain dalam fitur Performance (di nomer 13) dengan mengklik icon + dan memilih indikator baru apa saja yang hendak ditampilkan.

10. Anda bisa menggabungkan sebuah file registry atau .reg ke dalam registry Windows Anda, dengan mengklik ganda file tersebut. Untuk mengetahui fungsinya, buka dengan notepad.

11. Jika Anda menggunakan RAM sebesar 512 MB, atur agar Windows tidak membuat paging ke disk agar performance komputer semakin meningkat. Caranya, buka Registry Editor dan masuk dalam direktory HKEY_LOCAL_MACHINE\SYSTEM|Current ControlSet\Control\SessionManager\MemoryManagement. Ubah value DisablePagingExecutive menjadi 1.

12. Gunakan Bootcfg.exe untuk mengedit boot.ini Windows XP. Caranya, ketikkan “cmd” tanpa tanda petik dalam kotak dialog Run untuk masuk dalam DOS Prompt, dan ketikkan bootcfg: /? setelah muncul prompt untuk memperoleh informasi mengenai fitur dalam program ini.

13. Untuk memilih operating system dalam yang digunakan dalam sebuah komputer yang memiliki partisi drive, buka Control Panel, masuk dalam System kemudian buka tab Advanced. Klik tombol Startup and Recovery Setting kemudian Edit.

14. Gunakan utility klasik chkdsk untuk men-scan harddisk dan memperbaiki error yang ditemui. Caranya, klik Start |Run dan ketikkan “chkdsk c:/f” tanpa tanda petik untuk men-scan dan memperbaiki drive C. Jika Anda ingin tahu lebih banyak tentang fitur dalam chkdsk, ketikkan “chkdsk /?”.

15. Anda bisa melewati Scanner and Camera Wizard saat memasang kamera digital. Untuk mengaksesnya, gunakan Windows Explorer atau My Computer. Kamera digital Anda akan tampil sebagai drive.

16. Ada utility dalam Windows XP Pro Edition yang jarang digunakan, yakni gpedit. Jalankan utility ini dengan mengetikkan “gpedit.msc” tanpa tanda petik di kotak dialog Run dan tekan Enter. Utility ini bisa digunakan untuk setiap tool dan komponen yang ada di Windows. Coba satu per satu setting yang Anda inginkan kemudian perhatikan hasilnya.

17. Mengatur Jadwal Perawatan

Daripada bersusah payah membersihkan sampah di Windows, atur agar Windows membersihkan dirinya sendiri secara berkala dengan Schedule Task.

1. Untuk mengatur jadwal perawatan Windows secara berkala, buka Control Panel, klik ganda Scheduled Tasks. Tambahkan Scheduled Task melalui wizard. Klik Next untuk masuk dalam list berisi program yang bisa dijadwalkan.

2. Jika tool yang hendak Anda jadwalkan tidak tertera pada list, klik Browse dan arahkan ke folder tempat tool yang Anda maksud berada. Kebanyakan tool Windows berada dalam folder Windows\system32. Pilih salah satu dan klik Open.

3. Ketik nama task tersebut dan tentukan tingkat keseringan atau frekuensi jadwal program tersebut. Klik Next, atur setting lain yang diperlukan dan tambahkan username beserta password untuk mengamankan Schedule Task.

18. Gunakan utility gratis PowerToys dari www.microsoft.com/windowsxp/home/downloads/powertoys.asp yang sangat berguna. PowerToys sendiri terdiri dari beberapa program, di antaranya Open Command Window Here, Alt-Tab Replacement, Tweak UI, Power Calculator, Image Resizer, CD Slide Show Generator, Virtual Desktop Manager,Taskbar Magnifier, HTML Slide Show Wizard, dan Webcam Timershot.

19. Windows Anda bisa memperoleh tambahan kecepatan jika Indexing Service dinonaktifkan. Caranya mudah, buka Administrative Tools di Control Panel, pilih Services dan disable Indexing Service.

20. Kembangkan kapasitas harddisk dengan menggunakan Disk Cleanup. Buka My Computer, klik kanan drive yang ada dan pilih Properties. Buka tab General dan klik tombol Disk Cleanup. Bersihkan semua file sampah tersebut, termasuk mengosongkan isi Recycle Bin dari semua data yang sudah tidak digunakan lagi.

21. Hilangkan semua shortcut di folder Startup dalam Start Menu. Sebab, program yang memiliki shortcut dalam folder ini secara otomatis akan dieksekusi saat kali pertama Windows dijalankan.

22. Periksa setting messenger yang ada dalam komputer Anda, karena hampir setiap messenger akan me-load dirinya sendiri secara otomatis setiap kali Windows dijalankan. Usahakan agar option Automatically Login atau Load at Windows Start tidak aktif.

Anda bisa mengakses setiap program secara langsung dengan mengetikkan nama programnya di kotak dialog Run. Misalnya calc untuk kalkulator, winword untuk Microsoft Word, dan lain sebagainya.

Properties

2008-07-08T21:13:00.004+07:00

1. Anda bisa meng-enable atau disable grouping beberapa file dalam satu program. Caranya, klik kanan taskbar dan pilih Properties. Beri atau hilangkan tanda centang pada option Groups similar taskbar button.

2. Anda bisa menghilangkan atau menampilkan icon di desktop dengan mengklik kanan desktop dan memilih Arrange Icons By|Show Desktop Icons.

3. Anda bisa membuat custom toolbar dengan mengklik kanan taskbar, memilih Toolbars|New Toolbar. Atur sesuai dengan keinginan Anda, misalnya menjadikan My Documents sebagai toolbar di taskbar supaya mudah dan cepat diakses.

4. Klik kanan Start Menu, pilih Properties, jika tidak menggunakan Classic Start Menu, klik Customize dan buka tab Advanced. Ada beberapa munu yang bisa diaktifkan dengan memberi tanda centang pada option yang ada. Mulai dari Scroll Programs hingga memunculkan penampakan beberapa fitur dalam Start Menu.

5. Anda bisa membuka sebuah situs tanpa membuka browser terlebih dahulu. Caranya, ketikkan alamat lengkap situs yang hendak dibuka di kotak dialog Start|Run. Misalnya www.pcmedia.co.id. Kemudian tekan Enter.

6. Di setiap menu dalam Windows terdapat huruf yang bergaris bawah sebagai patokan penggunaan navigasi keyboard. Misalnya menu File bisa dibuka dengan menekan tombol Alt+F. Anda bisa menonaktifkan atau mengaktifkan fitur yang ditandai dengan garis bawah ini. Caranya, klik kanan area kosong di desktop. Kemudian buka tab Appereance, dan klik tombol effects. Atur tanda centang pada option Hide underlined letter for keyboard navigation until I press the [Alt] key.

7. Atur supaya komputer mengeluarkan suara peringatan saat tombol Caps Lock, Num Lock atau Scroll Lock diaktifkan. Caranya, Buka Control Panel, masuk dalam Accessibility Option. Buka tab Keyboard dan enable option Use Toggle-Keys.

8. Untuk meng-enable Hibernate dalam Windows XP saat menekan Turn Off di Start Menu, tahan tombol Shift. Maka tombol Stand by pada kotak dialog Shut Down akan berubah menjadi Hibernate.

9. Jika hardware Anda support Hibernate, aktifkan segera fitur ini. Caranya, buka Control Panel dan buka Power Options. Klik tab Hibernate dan beri tanda centang pada option Enable Hibernate. Jika hardware Anda tidak support Hibernate, tab ini tidak bisa ditemui.

Daftar Shortcut

2008-07-08T21:12:00.006+07:00

Berikut ini beberapa shortcut yang paling banyak digunakan saat bekerja sehari-hari menggunakan Windows.

[Windows] + [L] Lock komputer

[Windows] + [U] Menampilkan Utility Manager

[Windows] + [R] Menampilkan Run

[Windows] + [F] Menampilkan window pencarian

[Windows] + [E] Membuka My Computer

[Windows] + [D] Mematikan atau mengaktifkan Toggle

Desktop

[Windows] + [M] Minimize semua window

[Windows] + [Shift] + [M] Restore semua window yang di-minimize

[Windows] + [Ctrl] + [F] Mencari komputer dalam jaringan

[Windows] + [F1] Menampilkan halaman Help

[Windows] + [Break] Memunculkan window System

[Windows] + [Tab] Scroll tombol di Taskbar

Jika Anda menggunakan keyboard lama yang tidak dilengkapi dengan tombol Windows, gunakan paduan tombol Ctrl + Esc.

Menghias Desktop

2008-07-08T21:09:00.004+07:00

1. Anda bisa mengatur pointer mouse sesuai keinginan dengan membuka tab Pointer dalam menu Mouse di Control Panel. Klik Browse untuk mencari pointer yang sesuai keinginan Anda.

2. Untuk menampilkan daftar dokumen yang terakhir diakses di Start Menu pada Windows XP Home Edition, klik kanan pada tombol Start dan pilih Properties. Klik Customize, buka tab Advanced dan enable option List my most recently opened documents.

3. Jika Anda ingin agar tampilan Windows Explorer terbuka penuh hingga menutupi taskbar, tekan tombol F11.

4. Anda bisa membuat shortcut key atau penekanan tombol tertentu untuk mengakses sebuah program. Caranya, klik kanan icon program tersebut dan pilih Properties. Buka tab Shortcut dan tentukan tombol mana yang Anda gunakan untuk mengakses program tersebut. Secara otomatis Windows akan menambahkan tombol Ctrl+Alt+ pilihan Anda sebagai shortcut key.

5. Urutkan secara alfabet, semua program yang ada di Start Menu untuk memudahkan pengaksesan. Caranya, klik Start|All Programs, klik kanan salah satu program yang ada dan pilih Sort by Name.

6. Munculkan penampakan icon indikator koneksi broadband atau dial-up pada system tray untuk mempermudah kontrol. Caranya, buka My Network Places, pilih View Networks Connections, klik kanan koneksi yang Anda gunakan dan pilih Properties. Ubah option Show icon in notofication area when connected menjadi enable.

7. Anda bisa mengedit Start Menu sesuai dengan kebutuhan. Baik menambah, mengurangi, atau bahkan mengubah namanya. Caranya, klik kanan Start dan pilih Open atau Open All Users. Atur setiap shortcut yang tersedia sesuai kebutuhan.

8. Anda bisa membuka beberapa program secara bersamaan dengan menekan tombol Shift, sementara mengklik program yang ada dalam Start Menu.

9. Untuk menghilangkan nama icon pada desktop, klik kanan icon tersebut, dan pilih Rename. Tekan tombol Alt dan numeric key 255. Kemudan tekan Enter.

10. Anda bisa menghilangkan tanda panah pada icon shortcut di desktop. Caranya, masuk ke registry editor dengan mengetik “regedit” tanpa tanda petik di kotak dialog Start|Run. Masuk ke dalam direktori HKEY_CLASSES_ROOT\Lnkfile. Hapus value IsShortcut. 85

Mengatur Kualitas Cetak

2008-07-08T21:08:00.006+07:00

Anda bisa mencetak beberapa foto bersamaan, sekaligus mengatur layout serta option lainnya dengan cara mudah. Pertama, buka file-file foto dalam folder My Pictures, kemudian pilih menu File |Print. Akan muncul Photo Printing Wizard. Atur printer yang hendak digunakan dan layout yang akan dipakai. Beberapa printer memungkinkan mencetak beberapa foto dalam satu kertas.
Daripada harus mengatur setting printer setiap kali menggunakannya, buatlah copy printer Anda. Atur masing-masing dengan option berbeda sesuai yang Anda butuhkan.
Anda bisa menggunakan karakter yang tidak ada di keyboard, namun bisa digunakan dalam Windows dengan fitur Character Map. Untuk membukanya, Anda bisa menemukan di Start|All Programs|Accessories|System Toolss|Character Map. Atau ketik “charmap” tanpa tanda petik di Start|Run.
Untuk meng-capture sebuah adegan di file movie menjadi sebuah image, putarlah film tersebut dan tekan tombol Stop saat adegan yang diinginkan. Klik Take Picture, simpan di folder Anda dan beri nama.

Memunculkan Penampakan Fitur Tersembunyi

1. Anda tertarik dengan musik pembuka Windows yang orisinal? Temukan file-nya di \windows\oobe\system32\images\tittle.wma.

2. Ada dua edisi Windows Plus! yang beredar, yakni Microsoft Plus! for Windows dan Digital Media Edition (DME). Simak www.microsoft.com/windows/plus/PlusHome.asp dan coba versi trial DME.

3. Ketikkan “iexpress” tanpa tanda petik pada kotak dialog Start|Run. Anda akan menemukan sebuah utility untuk mengompres dan membuat file self extraction.

4. Anda akan menemukan beberapa tool yang kurang populer, namun punya kelebihan luar biasa. Tool-tool tersebut bisa ditemui di folder support\tools dalam CD instalasi Windows XP. Gunakan program suptools.msi untuk menginstalasi tool-tool tersebut dalam komputer Anda.

5. Ada banyak wizard atau stepby-step di Windows. Untuk mengetahui wizard apa saja, buka Help and Support dan ketikkan “Wizard” tanpa tanda petik pada kolom pencarian. Windows akan memunculkan daftar wizard yang tersedia. Anda tinggal memilihnya.

6. Untuk membuat karakter sendiri, klik Start|Run dan ketikkan Eudcedit. Buat sesuai keinginan Anda, asalakan masih dalam ukuran 64x64 grid. Simpan dengan memilih menu Edit|Save Character.

Untuk meletakkan karakter dalam Character Map ke dalam dokumen, Anda cukup membuka Character Map dan memilih karakter tersebut. Kemudian Anda tinggal mengcopy dan paste-nya ke dalam dokumen Anda.

Pengaturan File dan Folder

2008-07-08T21:05:00.004+07:00

Buat sebuah compressed folder dengan cara mengklik kanan area kosong pada desktop, dan pilih New|Compressed (zipped) Folder. Beri nama dan drag and drop file yang hendak dikompres dalam folder tersebut.
Sebuah compressed folder bisa dilindungi dengan password. Caranya, buka menu File|Add a Password. Isikan password Anda dan isi sekali lagi untuk konfirmasi.
Sebuah compressed folder tetap bisa ditambah isinya dengan cara drag and drop file yang hendak dikompres ke dalamnya.
Saat menjalankan Disk Cleanup, pilih option Compress old files untuk mengompresi file-file yang sudah tidak dibutuhkan, sehingga kapasitas harddisk bisa dihemat.
Enkrip atau acak file bisa dilakukan di Windows XP Pro Edition dengan mengklik kanan My Computer, pilih Properties. Buka tab General dan klik Advanced. Aktifkan option Encrypt contents to secure data.
Cara termudah mengubah nama file atau folder adalah dengan memilihnya, kemudian menekan tombol F2.
Supaya Anda bisa berpindah antar folder dengan cepat, terutama pada folder-folder yang sering dibuka, buatlah shortcut untuk setiap folder yang sering diakses.
Reset file association dengan cara menhakan tombol Shift saat mengklik kanan sebuah file. Pilih Open With… Pilih program yang hendak Anda gunakan untuk membuka file tersebut dan enable option Open use the selected program to open this kind of file. Kemudian klik OK.
Sesuaikan kapasitas penyimpanan file musik dengan cara membuka Windows Media Player dan memilih menu Tools|Options. Buka tab Copy Music dan sesuaikan ukuran kapasitas dengan menggeser slider.
Jika Anda menyimpan semua dokumen dalam folder My Documents, maka semua file tersebut lebih mudah di-back-up serta tidak terpengaruh system restore.
Jika sebuah file hasil copy dari CD tidak dapat diakses, maka hilangkan atribut Read only. Caranya, klik kanan file tersebut dan pilih Properties. Hilangkan tanda centang pada option Read only.
Aturlah tampilan setiap folder dengan mengklik kanan folder tersebut pada My Computer. Pilih Properties dan klik Customize. Pilih template yang tersedia atau pilih gambar sesuai dengan keinginan Anda. Klik OK untuk menyimpan hasil setting.
Anda bisa me-rename beberapa file sekaligus yang memiliki karakter sama dalam folder yang sama juga. Misalnya kumpulan foto atau image. Caranya, pilih semua file yang hendak di-rename, klik kanan file pertama dan klik Rename. Beri nama,misalnya Koleksi.JPG, maka semua file yang lain akan berubah namanya menjadi Koleksi (1).JPG, Koleksi (2).JPG, dan seterusnya.
Mengirim Faks

Tahukah Anda, bahwa Windows XP memiliki tool untuk mengirim dan menerima faks?

Buka Control Panel, pilih Add/Remove Program dan klik Add/Remove Windows Component. Enable Fax Services dan klik Next.
Klik Start|All Programs|Accessories|Communication|Fax|Fax Console untuk menjalankan Fax Configuration Wizard. Atur semua setting, termasuk nomor faks dan modem yang digunakan serta pengaturan incoming fax.
Buat semua faks dari Fax Console. Periksa semua isi sebelum dikirim, termasuk setting dan sebagainya.

Pengaturan Multiple User

2008-07-08T21:02:00.004+07:00

Untuk berpindah antar user account, tekan tombol Ctrl+Alt+Del, kemudian pada window Task Manager yang terbuka, pilih tab Users. Klik kanan nama user yang hendak dipakai dan klik tombol Connect.
Tambahkan account Guest supaya orang lain bisa menggunakan komputer Anda. Caranya, buka User Accounts di Control Panel, klik Guest|Turn On the Guest Account.
Ingatlah untuk selalu login sebagai System Administrator sebelum melakukan perubahan yang berimbas pada performa komputer.
Untuk meng-copy user profile, masuk dalam Control Panel|System. Masuk dalam tab Advance dan klik tombol Setting di User Profiles. Sorot profile yang hendak dicopy, kemudian klik Copy to dan tentukan lokasi penyimpanan profile. Untuk mengubah permission, klik tombol Change.
Ganti Welcome screen dengan login dialog untuk menambah tingkat keamanan. Caranya, masuk dalam User Accounts di Control Panel, pilih option Change the way user log on or off serta disable Welcome screen.
Gunakan folder Shared Documents untuk menyimpan filefile yang bisa dibuka orang lain dalam jaringan. Folder ini bisa ditemui di My Documents\Other Places area.
Pada Windows XP Pro Edition, password bisa kadaluarsa jika lama tidak digunakan login. Untuk menghindarinya, atur supaya Windows tidak melakukan hal tersebut. Caranya, klik Start|Run, ketikkan userpasswords2 dan Enter. Buka tab Advanced dan pilih Advanced user management, klik tombol Advanced dan pilih Local Users and Groups. Klik kanan nama user dan pilih Properties. Buka tab General dan enable option Password never expires.
Beri nama setiap partisi atau drive yang ada dengan nama yang berbeda. Hal ini penting untuk mempermudah pencarian file.
Buat sebuah password reset disk sebagai disket darurat saat kehilangan password. Caranya, masuk ke Control Panel dan buka User Account. Pilih account Anda dan pilih Prevent a forgotten password untuk memulai wizard.

Peningkatan Performa Internet dan Jaringan

2008-07-08T21:00:00.005+07:00

1. Untuk men-share sebuah folder di komputer Anda ke jaringan, klik kanan folder tersebut dan pilih Properties. Klik tab Sharing dan enable option Share this folder on the network. Beri nama dan klik OK.

2. Buat sebuah icon My Network Places di desktop dengan mengklik kanan area kosong di dekstop dan klik Properties. Pilih tab Desktop|Customize Desktop. Kemudian buka tab General dan enable option My Network Places.

3. Ada cara mudah mengirim pesan ke komputer lain di jaringan, yakni menggunakan Console Message. Buka Control Panel|AdministrativeTools|Computer Management|Action|All Task|Send Console Message. Ketik teks yang hendak dikirim, tambahkan nama komputer yang hendak dituju dan klik Send.

4. Untuk mengatur Internet Connection Firewall (ICF), buka Network Connection di Control Panel, klik kanan koneksi yang ada dan klik Properties. Buka tab Advanced dan enable option Protect my computer and network by limitting or preventing access to this computer from Internet.

5. Atur Internet Connection Firewall (ICF) untuk setiap koneksi yang ada. Baik dial-up maupun broadband. Jika komputer Anda merupakan bagian dari jaringan yang terhubung ke Internet, pasang ICF hanya di komputer server.

6. Untuk mengetahui alamat IP Anda, masuk dalam DOS dengan mengetikkan command di Run. Kemudian ketikkan ipconfig /all.

7. Jika Anda menerima pesan dari Internet melalui Messenger, segera matikan. Caranya, masuk ke Contol Panel|Administrative Tools|Services, dan klik ganda Messenger kemudian Stop. Untuk mencegah supaya tidak terulang, atur supaya Messenger menjadi Disabled di bagian Startup.

8. Matikan Windows Messenger dengan melalui regedit. Buka HKEY_LOCAL_MACHINE\Software\Policies\Microsoft, kemudian pilih menu Edit|New|Key, dan beri nama Messenger. Kemudian buat key lagi dengan cara ini di dalam direktori Messenger dengan nama key-nya Client. Setelah itu, klik menu Edit|New|DWORD Value, dan beri nama Prevent-Run. Klik kanan value PreventRun, pilih Modify, isi angka 1 pada Value data, dan klik OK.

9. Untuk mengetahui informasi mengenai koneksi di komputer Anda, klik Start|All Programs|Accessories|System Tools|System Information. Pilih menu Tools|Net Diagnostics. Pada window yang terbuka kemudian pilih option Scan your system. Tunggu hingga proses selesai untuk melihat hasilnya.

10. Lindungi privasi dengan mencegah aplikasi Windows Media Player mengirim data mengenai komputer dan kebiasaan Anda menggunakan komputer melalui Internet ke alamat-alamat tertentu. Caranya mudah, Pada Windows Media Player, pilih menu Tools|Option. Buka tab Player dan disable option Aloww internet sites to uniquely your player.

11. Untuk mengunci komputer yang berada dalam sebuah network domain, tekan tombol Ctrl + Alt + Del bersamaan dan klik option Lock Computer. Untuk membuka kembali, tekan tombol Ctrl + Alt + Deldan masukkan password. Konfigurasi Windows yang Mudah dan Cepat.

12. Untuk men-disable fitur autorun, klik kanan pada icon drive CD, pilih Properties dan masuk dalam tab AutoPlay. Kemudian disable autoplay untuk setiap jenis file yang tertera pada daftar.

13. Gunakan program Microsoft Clear Type Tuning Control dari http://www.microsoft.com/typography/cleartype/ untuk mengatur Clear Type pada komputer.

14. Untuk melihat system file yang secara default di-hidden oleh Windows XP, pilih tab View dalam menu Tool|Folder Option dalam Windows Explorer. Enable Display the content of system folder.

15. Untuk meletakkan icon volume control di taskbar, masuk dalam Control Panel|Sound and Audio dan klik tab Volume. Enable Place volume control in the Taskbar dan klik OK.

16. Atur tombol Power di keyboard melalui Control Panel|Power Option di tab Advanced. Tentukan pengaturan tombol Power ini dengan memilih option yang tersedia.

17. Atur supaya Windows membersihkan Pagefile saat shut down demi keamanan. Caranya, buka registry dan masuk dalam direktori HKEY_LOCALMACHINE\SYSTEM\CurrentControlSet\Control|Session Manager. Edit value pada key Clear-PageFileAtShutdown menjadi 1. Konsekuensinya, proses shut down akan berlangsung sedikit lebih lama.

18. Atur supaya Windows menampilkan ekstensi setiap file. Caranya, di Windows Explorer, pilih menu Tool|Folder Option dan tab View. Hilangkan tanda centang di option Hide file extentions for known file types.

19. Menghapus Komponen yang Terinstal
Banyak komponen Windows yang tidak muncul di Add/Remove Windows Component sehingga tidak bisa di-uninstall.

a. Buka Notepad dan pilih menu File|Open. Arahkan ke folder Windows\inf. Isi nama file sysoc.inf. Klik Open untuk membuka file ini.

b. Pilih menu Edit|Replace. Ketik Hide pada kolom Find, namun kosongkan kolom Replace With, klik Replace All. Tujuannya untuk menghapus semua kata Hide dalam file ini. Setelah selesai, tutup dan simpan file.

c. Buka Control Panel dan pilih Add/Remove Programs. Kemudian pilih Add/Remove Windows Component, pada windows yang keluar kemudian akan tampak beberapa komponen yang sebelumnya tersembunyi.

20. Ubah gambar pada welcome screen dengan cara masuk ke User Account di Control Panel. Buka account Anda dan klik Change my picture. Tentukan gambar pilihan Anda dengan mengklik Browse untuk gambar di harddisk atau memilih di antara gambar yang sudah tersedia.

21. Jika lebih menyukai tampilan Start Menu versi lama, Anda bisa mengubahnya dengan mengklik kanan tombol Start, pilih Properties. Pilih Classic Start Menu dan klik Customize untuk mengatur isinya.

22. Untuk menyempurnakan tampilan klasik pada Start Menu, klik kanan desktop dan pilih Properties. Buka tab Themes, dan pilih Windows Classic dari Theme list.

23. Tambahkan image pada sebuah folder, sehingga image tersebut yang akan tampak saat Windows Explorer dalam tampilan thumbnails. Caranya, klik kanan folder yang hendak diolah, pilih Properties. Klik tab Customize dan klik Choose Picture. Pilih sebuah gambar dan klik Open|OK.

24. Sesuaikan kapasitas Recycle Bin dengan mengklik kanan icon Recycle Bin dan memilih
Properties. Isi kapasitas yang Anda inginkan dan klik OK.

25. Pada saat View di-set Details di Windows Explorer, klik kanan header salah satu kolom untukmengatur kolom apa saja yang ditampilkan. Klik More bila perlu mengatur setting lainnya.

26. Untuk menambahkan program yang paling sering Anda gunakan dalam Quick Launch, drag icon program tersebut dalam Quick Launch.

27. Tambahkan address bar pada taskbar, sehingga mempercepat akses ke sebuah alamat di Internet. Caranya, klik kanan taskbar, pilih Toolbar|Address. Klik ganda untuk membuka dan menutupnya.

28. Jadikan tampilan Windows Explorer seperti tampilan pada window My Computer. Caranya, klik kanan icon Window Explorer dan pilih Properties. Pada Target area, setelah %SystemRoot%\explorer.exe tambahkan /n, /e, /select, C:\ dan klik OK.

29. Untuk menambahkan sebuah shortcut program di baris paling atas Start Menu, klik kanan icon-nya di Start Menu kemudian klik Pin to Start Menu.

30. Supaya sebuah drive atau folder dapat masuk dalam menu Send To, drag shortcut-nya ke folder \Documen Anda Setting\\SendTo.

31. Mencari folder SendTo? Klik saja Start|Run dan ketik SendTo kemudian klik OK.

32. Untuk mengosongkan daftar dokumen dalam folder My Recent Document di Start Menu, klik kanan Start, pilih Properties. Klik Customize dan buka tab Advanced kemudian klik tombol Clear list. Supaya tidak ada lagi yang muncul di My Recent Documents, disable option List my most recently opened documents.

33. Fast User Switching

Dengan Fast User Switching, seorang user tidak perlu logoff sementara user lain login.
Untuk meng-enable Fast User Switching, masuk dalam Control Panel dan pilih User Accounts. Klik option Change the way user log on or off, dan enable Use Fast User Switching.
Supaya koneksi dial-up tetap berjalan meski Fast User Switching di-enable, masuk ke registry di direktori HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon.
Klik kanan pada panel sebelah kanan dan pilih New |String Value. Beri nama KeepRasConnections dan beri nilai 1. Restart komputer.

Untuk melihat isi sesungguhnya folder My Recent Documents, klik Start|Run, kemudian ketikkan %UserProfile%\Recent.

Instalasi Windows yang Mudah dan Menyenangkan

2008-07-08T20:55:00.003+07:00

1. Back-up dahulu registry sebelum diedit. Caranya, klik Start|Run, ketik regedit. Setelah muncul window registry, pilih menu File|Export. Pada bagian Export range, pilih All dan tentukan nama file, akhiri dengan klik tombol Save.

2. Banyak program yang sebenarnya terinstalasi dalam Windows, namun tidak aktif. Untuk mengaktifkannya, masuk ke Control Panel|Add/Remove Windows Component dan beri tanda centang pada program yang belum aktif.

3. Sebelum menginstalasi program baru atau melakukan perubahan setting Windows secara keseluruhan, lebih baik buat Restore Point secara manual dahulu. Caranya, Klik Start|All Programs|Accessories|System Tool|System Restore dan klik Create a restore point.

4. Jika Anda memutuskan untuk menginstalasi Windows Update yang sebelumnya sudah didecline, masuk ke Control Panel|System, pilih tab Automatic Updates dan klik Restore Declined Updates.

5. Untuk mengatur Windows update berjalan sesuai dengan kebutuhan Anda, atur dulu Windows Update. Caranya, buka System di Control Panel dan klik tab Automatic Updates. Atur enable atau disable option Keep my computer up to date.

6. Bila Anda tidak memiliki CD bootable, jangan khawatir. Microsoft sudah menyediakan tool gratis untuk membuat disket booting di http://support.microsoft.com/?kbid=310994.

7. Jika saat instalasi Windows tiba-tiba terhenti, matikan komputer dan lepas card tambahan. Misalnya sound card. Instal ulang dan pasang kembali card setelah instalasi selesai.

8. Untuk menambahkan System Administration Tools ada Start Menu, klik kanan Start|Properties. Masuk dalam tab Start Menu dan klik Customize kemudian masuk dalam tab Advanced. Geser ke bawah dan beri tanda centang pada option Display on the All Programs and the Start Menu.

9. Untuk menginstal Back up Utility pada Windows XP Home Edition carilah file ntbackup.msi di direktori\valudeadd\msft\ntbackup\ di CD instalasi Windows XP. Jalankan file tersebut dan ikuti langkahlangkahnya.

10. Windows XP secara otomatis akan me-highlight setiap program baru yang ter-install. Cara menghilangkannya, klik kanan Start|Properties. Masuk ke tab Start Menu|Customize, kemudian klik tab Advanced dan hilangkan tanda centang pada opsi Highlight newly installed program.

11. Untuk tampilan film atau game terbaik pada komputer, pastikan bahwa DirextX terbaru sudah terinstalasi dengan baik. Lihat versi terbarunya di www.microsoft.com/windows/directx.

12. Ada kalanya hardware yang akan dipasang belum support Plug-and-Play. Untuk itu, gunakan Add Hardware Wizard yang ada di Control Panel|System|Hardware untuk mendeteksinya.

13. Sebenarnya hanya dibutuhkan waktu tidak lebih dari 2 menit saja untuk masuk ke Windows sejak komputer dihidupkan. Namun, kadang terasa sangat lama. Untuk mempercepat loading Windows, ada beberapa hal yang bisa dilakukan. Misalnya, mengurangi icon di desktop serta tidak menggunakan wallpaper yang memakan banyak memory. Ganti wallpaper dengan background berwarna, serta gunakan Desktop Cleanup Wizard yang ada bisa ditemui dengan klik kanan pada desktop untuk membersihkan icon. Jangan lupa juga, jalankan defrag secara berkala.

Jika Anda sering menambah atau mengurangi program di komputer, bersihkan registry secara rutin. Gunakan software bantu seperti Registry Mechanic dari situs www.winguides.com. Sayangnya, versi trial program ini hanya bisa digunakan memperbaiki sebanyak 6 sections saja.

Langkah lain yang perlu dilakukan adalah me-remove program yang di-load secara otomatis saat memulai Windows. Tentu saja, hanya program-program yang tidak dibutuhkan. Caranya, dengan menghapus semua isi folder startup dan membuka msconfig melalui Start|Run.

14. Gunakan fitur File and Transfer Setting Wizard untuk memindahkan file dan setting ke komputer baru. Caranya, klik Start|AllPrograms|Accessories|System Tools, kemudian jalankan File and Transfer Setting Wizard.

15. Gunakan pengecualian pada security setting di Internet Explorer, agar proses update melalui halaman Windows Update berjalan lancar. Caranya, buka Internet Option di menu Tools pada Internet Explorer. Klik tab Security, pilih Trusted Site dan klik tombol Sites. Isikan nama situs Windows Update, hilangkan tanda centang pada option Require server verification… dan klik OK.

16. Jika Anda kehilangan serial number Windows XP, gunakan freeware Magical Jelly Bean Keyfinder dari http://www.magicaljellybean.com/keyfinder.shtml.

Jika nama yang teregister dalam Windows XP Anda tidak sesuai, perbaiki melalui registry. Caranya, buka registry dan pilih MY Computer. Klik menu Edit|Find dan ketik RegOwner. Jika sudah ditemukan, klik kanan, pilih Modify dan isikan nama yang sesuai. Perubahan ini bisa juga dilakukan di key RegCompany.

Tips & Trik Ampuh Untuk Windows Anda

2008-07-08T20:53:00.006+07:00

Setelah menginstalasi Windows dan aplikasi-aplikasi lain yang dibutuhkan ke dalam komputer, ada beberapa hal yang seharusnya Anda lakukan. Di antaranya adalah melakukan beberapa hal untuk mempercepat serta mempermudah kinerja komputer. Misalnya, mengatur agar komputer bisa restart lebih cepat, atau memunculkan menu tersembunyi, menggunakan shortcut untuk akses lebih cepat dan lain sebagainya.

Semua hal di atas adalah sebagian kecil dari tip dan trik dasar Windows yang kami sampaikan berikut ini. Semua tip dan trik di sini kami padukan menjadi 150 langkah mudah dan aman untuk dilakukan. 150 tip dan trik, termasuk beberapa panduan langkah demi langkah yang mudah berikut ini, akan menjadikan komputer Anda lebih nyaman bekerja. Tentu saja, akhirnya, produktivitas Anda di depan komputer kian berkembang.

Sebuah komputer yang nyaman saja belum cukup tanpa dibarengi peningkatan sisi keamanan. Hal ini penting, sebab koneksi ke jaringan, Internet maupun ke komputer lain, sedikit banyak pasti berisiko. Mulai dari penyebaran virus hingga pengambilan data kita oleh orang yang tidak berhak. Untuk itu, kami sertakan pula beberapa tip dasar untuk memperbaiki keamanan pada Windows.

Beberapa tip dan trik maupun panduan langkah demi langkah dalam tulisan ini menggunakan bantuan program tertentu yang bisa di-download dari beberapa situs di Internet. Namun untuk memudahkan Anda, seperti biasa semua program yang disebutkan dalam tulisan berikut ini disertakan dalam CD PC Media. Tentu saja, semua program sudah diuji di labs PC Media.

Instalasi program yang ada dalam tulisan ini kebanyakan berasal dari situs resmi Microsoft. Sehingga kecil kemungkinannya program-program ini menyebabkan error di PC. Jadi jangan ragu, ikuti terus tip dan trik dasar pada Windows yang jarang terungkap!

Tips mempercepat Windows XP

2008-07-08T20:52:00.004+07:00

mematikan semua fitur grafik dan efek di WinXP. Caranya anda klik kanan di My Computer, terus pilih My properties, setelah itu tekan tombol Performance Setting, matikan semua fitur yang anda rasa tidak perlu atau anda bisa memilih adjust for better performance.

Kalau untuk browsing dan memori anda pas-pasan (256 MB-512 MB), anda bisa memilih Mozilla FireFox. Untuk membuka 25 situs dalam 1 windows memakai tab, FireFox cuma butuh memori 55 MB, kalau Internet Explorer hampir 2-3 kali lipat memakai memori lebih besar.

Selain itu untuk mempercepat akses kedua Windows di atas dan menjaga kestabilan serta gangguan sistem keamanan akibat trojan, virus, maupun spyware, anda bisa memakai program speed up yang ada di

http://click2clean.e-games.com.my/Speedup/speedup.asp

Matikan semua startup anda yang tidak perlu di windows, caranya pilih "run" di "start" menu terus ketik "msconfig" terus pilih "startup" di pojok kanan, lalu matikan semua startup yang anda anggap tidak berguna.

satu hal lagi untuk kedua windows, anda bisa memakai program Tweak buat Windows, penulis sudah mencoba beberapa program yang ada seperti PC Wizard, Tweak UI... Akan penulis kabarkan lebih lanjut mana program yang terbaik dan akan di cari program yang kategori FREEWARE alias gratis untuk anda. Hal ini akan dibahas lebih lanjut di bagian forum ini.

Pembuatan Program DOS dengan Visual Basic

2008-06-24T21:30:00.004+07:00

Program ini sama saja dengan Command Prompt yang sering kita gunain, untuk membuatnya komponen yang kita butuhin cuman :

2 Label :
Label1 : Captionnya ->Perintah
Label2 : Captionnya ->Hasil

2 Text box :
Text box 1 : Name -> txtCommand
Text box 2 : Name -> txtOutputs,
MultiLine ->True,
ScrollBars ->3Both

1 button : Namenya -> cmdExecute

1 ClassModules : Namenya -> DOSOutputs

Form :

Option Explicit
Private WithEvents objDOS As DOSOutputs

Private Sub cmdExecute_Click()
On Error GoTo errore
objDOS.CommandLine = txtCommand.Text
objDOS.ExecuteCommand
Exit Sub
errore:
MsgBox (Err.Description & " - " & Err.Source & " - " & CStr(Err.Number))
End Sub

Private Sub Form_Load()
Set objDOS = New DOSOutputs
End Sub

Private Sub objDOS_ReceiveOutputs(CommandOutputs As String)
txtOutputs.Text = txtOutputs.Text & CommandOutputs
End Sub

Private Sub txtOutputs_Change()
txtOutputs.SelStart = Len(txtOutputs.Text)
End Sub

Module:

Option Explicit
Private Declare Function CreatePipe Lib "kernel32" ( _
phReadPipe As Long, _
phWritePipe As Long, _
lpPipeAttributes As Any, _
ByVal nSize As Long) As Long

Private Declare Function ReadFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As String, _
ByVal nNumberOfBytesToRead As Long, _
lpNumberOfBytesRead As Long, _
ByVal lpOverlapped As Any) As Long

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Private Type STARTUPINFO
cb As Long
lpReserved As Long
lpDesktop As Long
lpTitle As Long
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type

Private Declare Function CreateProcessA Lib "kernel32" ( _
ByVal lpApplicationName As Long, _
ByVal lpCommandLine As String, _
lpProcessAttributes As SECURITY_ATTRIBUTES, _
lpThreadAttributes As SECURITY_ATTRIBUTES, _
ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, _
ByVal lpEnvironment As Long, _
ByVal lpCurrentDirectory As Long, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long

Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const STARTF_USESTDHANDLES = &H100&
Private Const STARTF_USESHOWWINDOW = &H1

Private mCommand As String
Private mOutputs As String

Public Event ReceiveOutputs(CommandOutputs As String)

Public Property Let CommandLine(DOSCommand As String)
mCommand = DOSCommand
End Property

Public Property Get CommandLine() As String
CommandLine = mCommand
End Property

Public Property Get Outputs()
Outputs = mOutputs
End Property

Public Function ExecuteCommand(Optional CommandLine As String) As String
Dim proc As PROCESS_INFORMATION
Dim ret As Long

Dim start As STARTUPINFO

Dim sa As SECURITY_ATTRIBUTES

Dim hReadPipe As Long
Dim hWritePipe As Long
Dim lngBytesread As Long
Dim strBuff As String * 256

If Len(CommandLine) > 0 Then
mCommand = CommandLine
End If

If Len(mCommand) = 0 Then
MsgBox "Tidak ada Command yang dijalankan", vbCritical
Exit Function
End If

sa.nLength = Len(sa)
sa.bInheritHandle = 1&
sa.lpSecurityDescriptor = 0&
ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)

If ret = 0 Then
MsgBox "Gagal. Error: " & Err.LastDllError, vbCritical
Exit Function
End If

start.cb = Len(start)
start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
start.hStdOutput = hWritePipe
start.hStdError = hWritePipe
ret& = CreateProcessA(0&, mCommand, sa, sa, 1&, _
NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)

If ret <> 1 Then
MsgBox "File atau perintah tidak ditemukan", vbCritical
Exit Function
End If

ret = CloseHandle(hWritePipe)
mOutputs = ""

Do
ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
mOutputs = mOutputs & Left(strBuff, lngBytesread)
RaiseEvent ReceiveOutputs(Left(strBuff, lngBytesread))
Loop While ret <> 0

ret = CloseHandle(proc.hProcess)
ret = CloseHandle(proc.hThread)
ret = CloseHandle(hReadPipe)
ExecuteCommand = mOutputs
End Function

Menampilkan Status Pengambilan Data di ADO

2008-06-24T21:27:00.004+07:00

Menampilkan status kemajuan pengambilan data dari database
dengan menggunakan event FetchProgress milik ADO (Microsoft
ActiveX Data Objects 2.0 Library).

Persiapan:
1. Buat 1 Project baru dengan 1 Form.
2. Tambahkan 1 DataGrid, 1 Commandbutton, 1 Label, dan 1
Progressbar. Progressbar dapat Anda ambil dari Add
Component: Microsoft Windows Common Controls 5.0 (SP2).
3. Tambahkan reference Microsoft ActiveX Data Objects 2.0 Library
dari menu Project->References.
4. Ketik coding berikut ke dalam editor form yang bertalian.
Ketik Coding berikut ini pada Form.

Option Explicit
'Setiap variabel yg digunakan harus dideklarasikan ‘karena
dipakai di beberapa prosedur, deklarasikan di ‘atas
Private WithEvents objRst As ADODB.Recordset
Private rsTotal As ADODB.Recordset
Private maks As Integer
Private Sub Command1_Click()
Dim strConn As String
Dim strSQL As String
'Karena proses ini memakan waktu, ganti pointer
'mouse menjadi bentuk Hourglass (jam pasir)
Screen.MousePointer = vbHourglass
DoEvents
'Sesuaikan lokasi database di PC Anda
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path &
"\mahasiswa.mdb;" & _
"Persist Security Info=False"
'Buat recordset baru untuk menampung jumlah record
Set rsTotal = New ADODB.Recordset
rsTotal.CursorLocation = adUseClient
rsTotal.Open "SELECT COUNT('NIM') AS Jlh FROM t_mhs",
strConn
'Tampung jumlah record seluruhnya dari rsTotal
maks = Val(rsTotal.Fields(0))
'Ambil data dari tabel t_mhs
strSQL = "SELECT * FROM t_mhs"
'Buat recordset baru untuk melihat proses kemajuan
Set objRst = New ADODB.Recordset
objRst.CursorLocation = adUseClient
objRst.Properties("Initial Fetch Size") = 0
objRst.Properties("Background Fetch Size") = 1
DoEvents
'Inisialisasi jumlah record ke progressbar
ProgressBar1.Max = maks
ProgressBar1.Value = 0
'Buka tabel... di sini mulai proses pengambilan...
objRst.Open strSQL, strConn, adOpenKeyset,
adLockOptimistic, adAsyncFetch
DoEvents
End Sub
Private Sub objRst_FetchProgress(ByVal Progress As _
Long, ByVal MaxProgress As Long, adStatus As _
ADODB.EventStatusEnum, ByVal pRecordset As _ ADODB.Recordset)
Me.Caption = Progress 'Tampilkan kemajuan di judul
‘atas form
ProgressBar1.Value = Progress
'Tampilkan persentase kemajuan di Label1
Label1.Caption = Format((Progress / maks) * 100, _
"###") & "%"
'Jika seluruh record sudah berhasil diambil...
If ProgressBar1.Value = MaxProgress Then
'Tampilkan ke DataGrid
ProgressBar1.Value = 0
Label1.Caption = ""
Set DataGrid1.DataSource = objRst
'Normalkan pointer Mouse kembali
Screen.MousePointer = vbDefault
End If
End Sub

Sumber : www.yogyafree.net

Mengubah Password Database

2008-06-24T21:27:00.003+07:00

Mengubah password suatu database.
Persiapan:
1. Buat 1 project baru dengan 1 form, 1 commandbutton
2. Tambahkan reference Microsoft DAO 3.5 Object Library atau
yang lebih tinggi lagi, dari menu Project->References.
3. Ketik coding berikut ke dalam editor form yang bersangkutan.
Ketik coding berikut ini pada Form.

'Jika Anda mendapat pesan "Unrecognized Database ‘format",
kemungkinan Anda menggunakan Access 2000 dan ‘Anda tidak
mempunyai Microsoft DAO 3.6 Object Library
'pilih file C:\Program Files\Common Files\Microsoft
‘Shared\Dao\dao360.dll
'Jika di komputer Anda terinstall Access 2000, Anda ‘mempunyai
file ini.
Private Sub ChangeAccessPassword(OldPass As String, _ NewPass
As String)
Dim Db As Database
'Buka dataase, menggunakan password yang lama.
'Ganti "C:\MyDir\Mydb1.mdb" dengan nama file
‘database Anda
Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False,
";pwd=" & OldPass)
'Ganti menjadi password baru
Db.NewPassword OldPass, NewPass
'Tutup database
Db.Close
End Sub
Private Sub Command1_Click()
'Ganti "oldPassword" dengan password database, dan
'"newPassword" dengan password baru yang Anda inginkan.
Call ChangeAccessPassword("oldPassword", _
"newPassword")
End Sub

Sumber : www.yogyafree.net

Memproteksi Database Access dengan Password

2008-06-24T21:26:00.002+07:00

Memproteksi suatu file database Access dengan password baru jika
file tersebut belum di-password. Jika file sudah di-password
sebelumnya, akan muncul pesan peringatan.
Coding ini menggunakan reference "Microsoft DAO 3.51 Object
Library" dari menu Project->References.

Persiapan:
1. Buat 1 Project baru dengan 1 Form, dan 2 Commandbutton.
2. Ketik coding berikut ke dalam editor form yang bertalian.
Ketikkan coding berikut ini pada form.

'Tombol Command1 untuk memprotect dengan password baru,
‘sedangkan tombol Command2 untuk menghapus password ‘yang ada,
dengan syarat harus memasukkan password ‘lamanya terlebih
dahulu...
Public Sub SetDatabasePassword(DBFile As String, _
NewPassword$)
On Error GoTo salah
Dim db As Database
'Buka file database
Set db = OpenDatabase(DBFile, True)
'Set password baru
db.NewPassword "", NewPassword$
'db.NewPassword "", ""
'Tutup file database
db.Close
Exit Sub
salah:
Select Case Err.Number
Case 3024
MsgBox "File tidak ditemukan atau path file
salah!", vbCritical, "File Tidak Ditemukan"
End
Case 3031
MsgBox "File sudah dipassword!", _
vbCritical, "File sudah dipassword"
End
Case 3044
MsgBox "Nama direktori/path salah!", _
vbCritical, "Direktori Salah"
End
Case Else
MsgBox Err.Number & vbCrLf & _
Err.Description & vbCrLf & _
"Hubungi programmer Anda !", _
vbInformation, "Peringatan"
End
End Select
End Sub
Private Sub Command1_Click()
NewPassword$ = InputBox("Masukkan password: ", "Set
Password Baru")
If NewPassword$ = "" Then Exit Sub
Call SetDatabasePassword(App.Path & "\Akademik.mdb",
NewPassword$)
MsgBox "File berhasil dipassword!", _
vbInformation, "Sukses Password"
End Sub
Public Sub ClearDatabasePassword(DBFile As String,
OldPassword$)
On Error GoTo salah
Dim db As Database
'Buka file database
Set db = OpenDatabase(DBFile, True, False, ";pwd=" &
OldPassword$)
'Hapus password jika berhasil membuka file tsb
‘db.NewPassword OldPassword$, ""
'Tutup database
db.Close
Exit Sub
salah:
Select Case Err.Number
Case 3024
MsgBox "File tidak ditemukan atau path file
salah!", vbCritical, "File Tidak Ditemukan"
End
Case 3031
MsgBox "Password salah!", vbCritical, _
"Password Salah"
End
Case 3044
MsgBox "Nama direktori/path salah!", _
vbCritical, "Direktori Salah"
End
Case Else 'Kasus lainnya, silahkan
‘diterjemahkan sendiri
MsgBox Err.Number & vbCrLf & _
Err.Description & vbCrLf & _
"Hubungi programmer Anda !", _
vbInformation, "Peringatan"
End
End Select
End Sub
Private Sub Command2_Click()
OldPassword$ = InputBox("Masukkan password lama: ", "Hapus
Password")
Call ClearDatabasePassword(App.Path & "\Akademik.mdb",
OldPassword$)
MsgBox "Password berhasil dihapus!", _
vbInformation, "Sukses Hapus Password"
End Sub

Sumber : www.yogyafree.net

Memeriksa Tabel di Suatu Database

2008-06-24T21:25:00.002+07:00

Memeriksa tabel di dalam suatu database menggunakan reference
DAO.

Persiapan:
1. Buat 1 Project baru dengan 1 Form dan 1 Commanbutton.
2. Tambahkan reference Microsoft DAO 3.51 Object Library.
3. Ketik coding berikut ke editor form yang bertalian.
Ketik Coding berikut ini pada Form.

Public Function TableExists(DatabaseName$, _
TableName$) As Boolean
'DataBaseName adalah nama file database yang akan ‘diperiksa
apakah TableName ada di dalamnya
Dim oDB As Database, td As TableDef
On Error GoTo ErrorHandler
'Sesuaikan dengan cara membuka file database yang ‘dipassword
jika file database tersebut dipassword...
Set oDB = Workspaces(0).OpenDatabase(DatabaseName)
On Error Resume Next
Set td = oDB.TableDefs(TableName)
TableExists = Err.Number = 0
oDB.Close
Exit Function
ErrorHandler:
Select Case Err.Number
Case 3024
MsgBox "Database tidak ada!", _
vbCritical, "Database Error"
End
Case Else
MsgBox Err.Number & " - " & _
Err.Description
End Select
Exit Function
End Function
Private Sub Command1_Click()
'Ganti "Akademik.mdb" di bawah dengan nama database ‘Anda
dengan catatan masih terdapat dalam direktori ‘yang sama
dengan program ini berada.
DatabaseName$ = App.Path & "\Akademik.mdb"
'Ganti "Mahasiswa" dengan nama tabel yang ingin Anda ‘periksa.
TableName$ = "Mahasiswa"
Call TableExists(DatabaseName$, TableName$)
If TableExists(DatabaseName$, TableName$) = True Then
MsgBox "Tabel " & TableName$ & " ada!", _
vbInformation, "Tabel Ada"
Else
MsgBox "Tabel " & TableName$ & " tidak ada!", _
vbCritical, "Tidak Ada"
End If
End Sub

Sumber : www.yogyafree.net

Meng-compact/compress Database

2008-06-24T21:23:00.001+07:00

Melakukan proses compact/compress database Access. Jika Anda
sering menambah atau menghapus data pada database MS Access,
ukuran file database semakin besar dan terus membengkak. Untuk
mengkompressnya, kita dapat melakukan proses compact database
dari program setelah file database tidak digunakan.

Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 Module, 2
Commandbutton, dan 1 Label.
2. Tambahkan component "Microsoft Common Dialog Control 6.0
(SP3)" dari menu Project->Components.
3. Ketik coding berikut ke dalam editor form dan module yang
bersangkutan.
Ketik coding berikut ini pada Module

Public Declare Function GetTempPath Lib "kernel32" _ Alias
"GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer
As String) As Long
Public Const MAX_PATH = 260
Public Sub CompactJetDatabase(Location As String, _
Optional BackupOriginal As Boolean = True)
On Error GoTo CompactErr
Dim strBackupFile As String
Dim strTempFile As String
'Periksa apakah database ada...
If Len(Dir(Location)) Then
'Jika diperlukan utk membackup, lakukan!
If BackupOriginal = True Then
strBackupFile = GetTemporaryPath & "backup.mdb"
If Len(Dir(strBackupFile)) Then
Kill strBackupFile
FileCopy Location, strBackupFile
End If
'Buat nama file temporal (sementara)
strTempFile = GetTemporaryPath & "temp.mdb"
If Len(Dir(strTempFile)) Then Kill strTempFile
'Lakukan compact database menggunakan DBEngine
DBEngine.CompactDatabase Location, strTempFile
'Untuk repair database, Anda menggunakan cara
‘berikut:
'Sesuaikan kebutuhan lainnya di prosedur ini...
'DBEngine.RepairDatabase "NamaDatabaseAnda.mdb"
'Jika database Anda dipassword, gunakan cari
‘berikut:
'DBEngine.CompactDatabase Location, strTempFile, ,
‘, ";pwd=passwordanda;"
'Hapus file database yang asli
Kill Location
'Copy yang file sementara dan telah dicompact
'menjadi file database yang asli kembali...
FileCopy strTempFile, Location
'Hapus file database temporal (sementara)
Kill strTempFile
MsgBox "Sukses meng-compact database!", _
vbInformation, "Sukses"
End If
Exit Sub
CompactErr: 'Jika terjadi error, tampilkan pesan
'kemungkinan berikut ini...
Select Case Err.Number
Case 70 'Sedang digunakan
MsgBox "Database sedang digunakan!" & _
vbCrLf & _
"Tutup dulu file tersebut!", _
vbCritical, _
"Sedang Digunakan"
Case 75 'Path/file belum ada
MsgBox "Database belum dipilih." & _
vbCrLf & _
"Pilih dulu databasenya!", _
vbCritical, _
"Database Belum Ada"
Case 3031 'Diprotect password
MsgBox "Database dipassword," & vbCrLf & _
"lakukan langsung dari filenya!", _
vbCritical, _
"File Terprotect Password"
Case 3343 'Database tidak dikenali
MsgBox "Databaes bukan Access 97" & _
vbCrLf & _
"atau file bukan database!", _
vbCritical, _
"Database Tidak Dikenali"
Case Else
MsgBox Err.Number & " - " & Err.Description
Exit Sub
End Select
End Sub
'Fungsi ini untuk mengambil nama direktori tempat file
'database temporal (sementara) dicopy...
Public Function GetTemporaryPath()
Dim strFolder As String
Dim lngResult As Long
strFolder = String(MAX_PATH, 0)
lngResult = GetTempPath(MAX_PATH, strFolder)
If lngResult <> 0 Then
GetTemporaryPath = Left(strFolder, _
InStr(strFolder, Chr(0)) - 1)
Else
GetTemporaryPath = ""
End If
End Function
Ketik Coding berikut ini pada Form.
Private Sub Command1_Click()
With CommonDialog1
.Filter = "*.mdb"
.ShowOpen
Label1.Caption = .FileName
End With
End Sub
Private Sub Command2_Click()
Call CompactJetDatabase(Label1.Caption)
End Sub

Sumber : www.yogyafree.net

Menampilkan Tabel Database dengan ADO

2008-06-24T21:22:00.001+07:00

Menampilkan daftar tabel yang terdapat di suatu database menggunakan
ADO (Microsoft ActiveX Data Objects 2.0 Library).

Persiapan:
1. Buat 1 Project baru dengan 1 Form.
2. Tambahkan 1 Combobox, beri nama cboRecordsource, dan 1
Commandbutton (Command1).
3. Tambahkan reference Microsoft ActiveX Data Objects 2.0
Library dari menu Project->References.
4. Ketik coding berikut ke dalam editor form yang bertalian.
Ketik coding berikut ini pada form.

Private Sub DaftarTabel(Daftar As ComboBox)
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
On Error GoTo Pesan
'Inisialisasi variabel Connection
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
'Sesuaikan lokasi database di PC Anda
cnn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\Samples\Visual
Basic\MyOCX\ADOKontrol2\ADOKontrol\mahasiswa.mdb;" & _
"Jet OLEDB:Database Password=;"
cnn.Open
'Buka skema tabel dengan OpenSchema
Set rs = cnn.OpenSchema(adSchemaTables)
'Bersihkan daftar tempat menampungnya dulu
Daftar.Clear
While rs.EOF <> True
'MSys untuk tabel sistem di MS Access
'sys biasanya tabel sistem di MS SQL Server
'Jadi, tabel sistem tidak perlu ditampilkan...
If Left(rs.Fields("Table_Name").Value, 4) <>
"MSys" And _
Left(rs.Fields("Table_Name").Value, 3) <> _
"sys" Then
Daftar.AddItem rs.Fields("Table_Name")
End If
rs.MoveNext
Wend
Daftar.Text = Daftar.List(0)
'Tutup semua variabel recordset dan connection
rs.Close
cnn.Close
'Bersihkan memory yang telah digunakan
Set rs = Nothing
Set cnn = Nothing
Exit Sub
Pesan: 'Jika ada error, tampilkan nomor dan
‘deskripsinya
MsgBox Err.Number & " - " & _
Err.Description, vbCritical, "Error"
End Sub
Private Sub Command1_Click()
Call DaftarTabel(cboRecordsource)
End Sub

Sumber : www.yogyafree.net

Menampilkan Daftar Tabel di Database (DAO)

2008-06-24T21:21:00.002+07:00

Menampilkan daftar tabel yang terdapat di dalam file database MS
Access (*.mdb) menggunakan reference DAO.

Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 Listbox.
2. Tambahkan reference Microsoft DAO 3.X Object Library dari
menu Project->References.
3. Ketik coding berikut ke dalam editor form yang bertalian.
Ketik coding berikut ini pada Form.

Option Explicit 'Setiap variabel yang digunakan
‘harus dideklarasikan dulu...
Private Sub Form_Load()
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef
Dim dbname As String
'Buka database. Ganti "c:\DBfile.mdb" dengan nama
‘file database Anda
'Jika database di password, sesuaikan dengan metoda
‘pembukaan file database
'yang diprotect dengan password... Pada contoh ini,
’kita anggap file *.mdb
'ybt tidak dipassword.
Set db = OpenDatabase("c:\DBfile.mdb")
'Tampilkan nama tabel yang ada.
For Each td In db.TableDefs
'Jika Anda ingin menampilkan juga tabel sistem,
‘ganti baris coding di bawah dengan: List1.AddItem
td.Name, jadi tanpa pengecekan If...
If td.Attributes = 0 Then List1.AddItem td.Name
Next td
db.Close
End Sub

Sumber : www.yogyafree.net

Mengetahui Daftar Field di Tabel Database(ADO)

2008-06-24T21:19:00.001+07:00

Mengetahui daftar nama field beserta tipe dan ukuran field di suatu
tabel database menggunakan reference ADO. Ketika Anda mengklik
nama tabel di daftar List1, maka seluruh field yang terdapat di tabel
tersebut akan ditampilkan di List2. Jika nama field di List2 diklik,
akan ditampilkan tipe dan ukuran field tersebut.

Persiapan:
1. Buat 1 Project baru dengan 1 Form.
2. Tambahkan 2 ListBox, 1 Commandbutton, dan 2 Label.
3. Tambahkan reference Microsoft ActiveX Data Objects 2.0 Library
dari menu Project-References.
4. Ketik coding berikut ke editor form yang bertalian.
Ketik coding berikut ini pada Form.

'Variabel Connection dan Recordset ADO
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'Buat tipe data untuk menampung data tipe dan ukuran
Private Type arrTipe
Tipe As String
Ukuran As Integer
End Type
'Buat array dinamis bertipe arrTipe di atas
Dim tabTipe() As arrTipe
Private Sub DaftarTabel(Daftar As ListBox)
On Error GoTo Pesan
'Inisialisasi variabel Connection
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
'Sesuaikan lokasi database di PC Anda
cnn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ADOKontrol\mahasiswa.mdb;" & _
"Jet OLEDB:Database Password=;"
cnn.Open
'Buka skema tabel dengan OpenSchema
Set rs = cnn.OpenSchema(adSchemaTables)
'Bersihkan daftar tempat menampungnya dulu
Daftar.Clear
While rs.EOF <> True
'MSys untuk tabel sistem di MS Access
'sys biasanya tabel sistem di MS SQL Server
'Jadi, tabel sistem tidak perlu ditampilkan...
If Left(rs.Fields("Table_Name").Value, 4) <> _
"MSys" And _
Left(rs.Fields("Table_Name").Value, 3) <> _
"sys" Then
'Tambahkan ke daftar...
Daftar.AddItem rs.Fields("Table_Name")
End If
rs.MoveNext
Wend
'Jika sudah selesai, sorot item paling atas
Daftar.Text = Daftar.List(0)
Exit Sub
Pesan: 'Jika ada error, tampilkan nomor dan deskripsinya
MsgBox Err.Number & " - " & _
Err.Description, vbCritical, "Error"
End Sub
Private Sub Command1_Click()
'Tampilkan daftar tabel ke List1
Call DaftarTabel(List1)
End Sub
Private Sub DaftarField(NamaTabel As String, Daftar _
As ListBox)
Dim Adofl As ADODB.Field, i As Integer
'Gunakan kembali variabel rs, tapi bersihkan dulu.
Set rs = New ADODB.Recordset
'Buka tabel dari parameter
rs.Open NamaTabel, cnn, adOpenKeyset, _
adLockOptimistic, adCmdTable
'Alokasi ulang array dinamis untuk menampung jumlah
‘field
ReDim tabTipe(rs.Fields.Count)
'Bersihkan daftar tempat menampungnya dulu
Daftar.Clear
'Untuk setiap Field di Recordset rs
For Each Adofl In rs.Fields
'Tambahkan satu per satu ke daftar
Daftar.AddItem Adofl.Name
'Tampung ke array tipe dan ukurannya
tabTipe(i).Tipe = TipeField(Adofl.Type)
tabTipe(i).Ukuran = Adofl.DefinedSize
i = i + 1 'Counter untuk maju ke berikutnya
Next
'Setelah selesai, sorot item yang teratas
Daftar.Text = Daftar.List(0)
End Sub
Private Sub Form_Load()
'Kosongkan label mula-mula
Label1.Caption = ""
Label2.Caption = ""
End Sub
Private Sub List1_Click()
'Jika item (namatabel) di List1 diklik, maka tampilkan
'daftar field dari tabel ybt di List2
Call DaftarField(List1.Text, List2)
End Sub
Private Sub List2_Click()
'Jika item di List2 diklik, maka tampilkan tipe dan ‘ukuran
field-nya
If List2.ListIndex <> -1 And _
tabTipe(List2.ListIndex).Tipe <> "" Then
'Tampilkan tipe dan ukurannya masing-masing
'ke Label1 dan Label2
Label1.Visible = True
Label2.Visible = True
Label1.Caption = "Tipe Field: " & _
tabTipe(List2.ListIndex).Tipe
Label2.Caption = "Ukuran Field: " & _
tabTipe(List2.ListIndex).Ukuran
Else
'Jika record tidak ada...
Label1.Visible = False
Label2.Visible = False
End If
End Sub
Public Function TipeField(intType As Integer) As String
'Fungsi berikut untuk menentukan tipe suatu field
Select Case intType
Case adEmpty
TipeField = "adEmpty"
Case adTinyInt
TipeField = "adTinyInt"
Case adSmallInt
TipeField = "adSmallInt"
Case adInteger
TipeField = "adInteger"
Case adBigInt
TipeField = "adBigInt"
Case adUnsignedTinyInt
TipeField = "adUnsignedTinyInt"
Case adUnsignedSmallInt
TipeField = "adUnsignedSmallInt"
Case adUnsignedInt
TipeField = "adUnsignedInt"
Case adUnsignedBigInt
TipeField = "adUnsignedBigInt"
Case adSingle
TipeField = "adSingle"
Case adDouble
TipeField = "adDouble"
Case adCurrency
TipeField = "adCurrency"
Case adDecimal
TipeField = "adDecimal"
Case adNumeric
TipeField = "adNumeric"
Case adBoolean
TipeField = "adBoolean"
Case adError
TipeField = "adError"
Case adUserDefined
TipeField = "adUserDefined"
Case adVariant
TipeField = "adVariant"
Case adIDispatch
TipeField = "adIDispatch"
Case adIUnknown
TipeField = "adIUnknown"
Case adGUID
TipeField = "adGUID"
Case adDate
TipeField = "adDate"
Case adDBDate
TipeField = "adDBDate"
Case adDBTime
TipeField = "adDBTime"
Case adDBTimeStamp
TipeField = "adDBTimeStamp"
Case adBSTR
TipeField = "adBSTR"
Case adChar
TipeField = "adChar"
Case adVarChar
TipeField = "adVarChar"
Case adLongVarChar
TipeField = "adLongVarChar"
Case adWChar
TipeField = "adWChar"
Case adVarWChar
TipeField = "adVarWChar"
Case adLongVarWChar
TipeField = "adLongVarWChar"
Case adBinary
TipeField = "adBinary"
Case adVarBinary
TipeField = "adVarBinary"
Case adLongVarBinary
TipeField = "adLongVarBinary"
Case adChapter
TipeField = "adChapter"
Case dbBoolean
TipeField = "dbBoolean"
Case dbByte
TipeField = "dbByte"
Case dbInteger
TipeField = "dbInteger"
Case dbLong
TipeField = "dbLong"
Case dbCurrency
TipeField = "dbCurrency"
Case dbSingle
TipeField = "dbSingle"
Case dbDouble
TipeField = "dbDouble"
Case dbDate
TipeField = "dbDate"
Case dbText
TipeField = "dbText"
Case dbLongBinary
TipeField = "dbLongBinary"
Case dbMemo
TipeField = "dbMemo"
Case dbGUID
TipeField = "dbGUID"
End Select
End Function
Private Sub Form_QueryUnload(Cancel As Integer, _ UnloadMode
As Integer)
'Tutup semua variabel recordset dan connection
rs.Close
cnn.Close
'Bersihkan memory yang telah digunakan
Set rs = Nothing
Set cnn = Nothing
End Sub

Sumber : www.yogyafree.net

Mengetahui Daftar Field di Tabel Database(DAO)

2008-06-24T21:18:00.002+07:00

Mengetahui daftar nama field di suatu tabel database MS Access.
Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 ListBox, dan 1
Commandbutton.
2. Tambahkan reference Microsoft DAO 3.51 Object Library.
3. Ketik coding berikut ke editor form yang bertalian.
Ketik Coding berikut pada Form.

Public Function FieldNames(dbPath As String, _
TableName As String) As Collection
'Input:
'dbPath: Path lengkap file database MS Access
'TableName: Nama tabel di dalam database
Dim oCol As Collection
Dim db As DAO.Database
Dim oTD As DAO.TableDef
Dim lCount As Long, lCtr As Long
Dim f As DAO.Field
On Error GoTo errorhandler
Set db = Workspaces(0).OpenDatabase(dbPath)
Set oTD = db.TableDefs(TableName)
Set oCol = New Collection
With oTD
lCount = .Fields.Count
For lCtr = 0 To lCount - 1
oCol.Add .Fields(lCtr).Name
List1.AddItem .Fields(lCtr).Name
Next
End With
MsgBox FieldNames
db.Close
Set FieldNames = oCol
Exit Function
errorhandler:
On Error Resume Next
If Not db Is Nothing Then db.Close
Set FieldNames = Nothing
Exit Function
End Function
Private Sub Command1_Click()
Call FieldNames(App.Path & "\Akademik.mdb", _
"Mahasiswa")
End Sub

Sumber : www.yogyafree.net

Membuat Database dengan DAO

2008-06-24T21:14:00.001+07:00

Contoh pembuatan database pada Microsoft Access dengan
menambahkan tabel dan field (beserta type dan ukuran field) di
dalamnya.

Persiapan:
1. Buat satu proyek baru dengan satu form dan satu
commandbutton.
2. Tambahkan preference Microsoft DAO 3.5 Object Library dari
menu Project->References.
3. Ketikkan coding berikut ke dalam editor form yang bertalian.
Ketikkan Coding berikut ini pada form.

Private Sub Command1_Click()
Dim db As Database
Dim td1 As TableDef
Dim td2 As TableDef
Dim td3 As TableDef
Dim strSQL1, strSQL2, strSQL3 As String
'Jika sudah ada sebelumnya, hapus database! hati-hati
If Dir(App.Path & "\Penjadwalan Produksi.mdb") _
<> "" Then
Kill App.Path & "\Penjadwalan Produksi.mdb"
'Buat database
Set db = CreateDatabase(App.Path & _
"\Penjadwalan Produksi", dbLangGeneral)
'Buat tabel bernama Part
Set td1 = db.CreateTableDef("Part")
'Definisikan field utk tabel Part
With td1
.Fields.Append .CreateField("PartID", dbText, 10)
.Fields.Append .CreateField("PartName", dbText, _
25)
.Fields.Append .CreateField("Specification", _
dbText, 100)
.Fields.Append .CreateField("PartGroupID", _
dbText, 5)
End With
'Tambahkan field yg ada di tabel Part ke database
db.TableDefs.Append td1
'Buat tabel bernama Part
Set td2 = db.CreateTableDef("PartGroup")
'Definisikan field utk tabel PartGroup
With td2
.Fields.Append .CreateField("PartGroupID", _
dbText, 5)
.Fields.Append .CreateField("PartGroup", _
dbText, 15)
End With
'Tambahkan field yg ada di tabel Part ke database
db.TableDefs.Append td2
'Buat tabel bernama Resource
Set td3 = db.CreateTableDef("Resource")
'Definisikan field utk tabel Resource
With td3
.Fields.Append .CreateField("ResourceID", _
dbText, 5)
.Fields.Append .CreateField("ResourceName", _
dbText, 20)
.Fields.Append .CreateField("Speed", dbInteger)
.Fields.Append .CreateField("Scrap", dbInteger)
.Fields.Append .CreateField("Operator", dbByte)
End With
'Tambahkan field yg ada di tabel Part ke database
db.TableDefs.Append td3
'Buat index/primary key untuk setiap table
strSQL1 = "CREATE INDEX PartID On Part (PartID) WITH
PRIMARY"
db.Execute strSQL1
strSQL2 = "CREATE INDEX PartGroupID On PartGroup
(PartGroupID) WITH PRIMARY"
db.Execute strSQL2
strSQL3 = "CREATE INDEX ResourceID On Resource
(ResourceID) WITH PRIMARY"
db.Execute strSQL3
'jika berhasil, tampilkan pesan...
MsgBox "Database berhasil dibuat!", vbInformation, _
"Sukses Buat Database"
End Sub

Sumber : www.yogyafree.net

Visualisasi Mengklik Tombol dari Coding

2008-06-24T21:12:00.001+07:00

Membuat suatu tombol kelihatan diklik/ditekan melalui coding.
Persiapan:

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 3
Commandbutton.
2. Ketik coding berikut ke dalam editor form dan module yang
bersangkutan.
Ketika Anda mengklik Command2, Command1 akan kelihatan
ditekan (masuk ke dalam).
Ketika Anda mengklik Command3, Command1 akan kelihatan
normal kembali.
Ketikkan coding berikut ini pada Modul.

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal
wParam As Long, lParam As Any) As Long
Public Const BM_SETSTATE = &HF3
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Ketikkan Coding berikut ini pada Form.
Private Sub Command2_Click() 'Command1 kelihatan masuk
‘ke dalam (ditekan)
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, _
ByVal 0&)
End Sub
Private Sub Command3_Click() 'Command1 normal kembali.
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, _
ByVal 0&)
End Sub

Sumber : www.yogyafree.net

Mengatur Property Alignment Caption Button

2008-06-24T21:10:00.001+07:00

Mengatur alignment (perataan) tulisan (caption) di commandbutton.
Anda dapat mengatur agar tulisan di tombol kelihatan rata kiri, rata
kanan, rapat ke atas, atau rapat ke bawah.

Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 Module, 4
Commandbutton,
2. Ketik coding berikut ke dalam editor form dan module yang
bertalian.
Ketik coding berikut ini pada Module.

Public Const A_CENTER = &H300&
Public Const A_TOP = &H400&
Public Const A_TOPLEFT = &H500&
Public Const A_TOPRIGHT = &H600&
Public Const A_BOTTOM = &H800&
Public Const A_BOTTOMLEFT = &H900&
Public Const A_BOTTOMRIGHT = &HA00&
Public Const A_LEFT = &H100&
Public Const A_RIGHT = &H200&
Public Const GWL_STYLE& = (-16)
Declare Function GetWindowLong& Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long)
Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As _ Long,
ByVal dwNewLong As Long)
Ketik coding berikut ini pada Form.
Private Sub Command1_Click()
Dim tmpValue&
Dim Align&
Dim ret&
'Contoh berikut akan membuat tulisan di Command1
‘menjadi rapat ke atas ketika Anda mengklik tombol
‘tersebut.
fAlignment& = A_TOP
tmpValue& = GetWindowLong&(Command1.hwnd, _
GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, _
tmpValue& Or fAlignment&)
Command1.Refresh
End Sub
Private Sub Command2_Click()
Dim tmpValue&
Dim Align&
Dim ret&
'Contoh berikut akan membuat tulisan di Command2
‘menjadi rapat ke bawah ketika Anda mengklik tombol
‘tersebut.
fAlignment& = A_BOTTOM
tmpValue& = GetWindowLong&(Command2.hwnd, _
GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command2.hwnd, GWL_STYLE, _
tmpValue& Or fAlignment&)
Command2.Refresh
End Sub
Private Sub Command3_Click()
Dim tmpValue&
Dim Align&
Dim ret&
'Contoh berikut akan membuat tulisan di Command3
‘menjadi rapat ke kiri ketika Anda mengklik tombol
‘tersebut.
fAlignment& = A_LEFT
tmpValue& = GetWindowLong&(Command3.hwnd, _
GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command3.hwnd, GWL_STYLE, _
tmpValue& Or fAlignment&)
Command3.Refresh
End Sub
Private Sub Command4_Click()
Dim tmpValue&
Dim Align&
Dim ret&
'Contoh berikut membuat tulisan di Command4 menjadi
‘rapat ke kanan ketika Anda mengklik tombol tersebut.
fAlignment& = A_RIGHT
tmpValue& = GetWindowLong&(Command4.hwnd, _
GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command4.hwnd, GWL_STYLE, _
tmpValue& Or fAlignment&)
Command4.Refresh
End Sub

Sumber : www.yogyafree.net

Menekan Tombol di Form Lain

Menekan tombol yang terdapat di dalam form lainnya. Jika tombol di
Form1 ditekan, maka tombol di Form2 juga akan bereaksi, dengan
memunculkan suatu pesan.

Persiapan:
1. Buat 1 Project baru dengan 2 Form.
2. Pada Form1 dan Form2 masing-masing buat 1 Commandbutton.
3. Ketik coding berikut ke dalam editor form yang bertalian.
Ketikkan coding berikut ini pada form.

‘Coding di form1
Private Sub Command1_Click()
Form2.Command1.Value = True
End Sub
‘Coding di Form2
Private Sub Command1_Click()
MsgBox "Tombol di Form2 diklik juga...", vbInformation,
"Konfirmasi"
End Sub

Sumber : www.yogyafree.net

VB save file

2008-06-24T21:08:00.004+07:00

Private Sub cmdSave_Click()
Open App.Path & "\" & "documment" + ".txt" For Output As #1
Print #1, "hai Shadow"
Close #1
End Sub

Sumber : www.yogyafree.net

Menampilkan Isi ComboBox Tanpa Mengkliknya

2008-06-24T21:08:00.003+07:00

Menampilkan isi dari suatu combobox menggunakan coding, tanpa
harus melakukan klik pada combobox yang bertalian.

Persiapan:
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 ComboBox.
2. Ketik coding berikut ke editor form dan module yang
bersangkutan.
Ketika form di-load, secara otomatis combobox akan menampilkan
isinya (sama seperti jika Anda mengklik panah bawahnya).
Ketik coding berikut ini pada Module.

Public Declare Function SendMessageLong Lib "user32" _ Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long
Public Const CB_SHOWDROPDOWN = &H14F
Ketik coding berikut ini pada form.
Private Sub Form_Load()
r = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, _
True, 0)
End Sub

Sumber : www.yogyafree.net

VB Auto StartUp

2008-06-24T21:06:00.002+07:00

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Const REGKEY = "Software\Microsoft\Windows\CurrentVersion\Run"
Const KEY_WRITE = &H20006
Dim Path As Long

Private Sub Command1_Click()
If RegOpenKeyEx(HKEY_CURRENT_USER, REGKEY, 0, KEY_WRITE, Path) Then Exit Sub
RegSetValueEx Path, App.Title, 0, REG_SZ, ByVal App.Path & "\" & "Shadow Angel" & ".exe", Len(App.Path & "\" & App.EXEName & ".exe")
End Sub

Private Sub Command2_Click()
If RegOpenKeyEx(HKEY_CURRENT_USER, REGKEY, 0, KEY_WRITE, Path) Then Exit Sub
RegDeleteValue Path, App.Title
End Sub

Sumber : www.yogyafree.net

VB random char (Program pengacak Huruf)

2008-06-24T21:03:00.001+07:00

Option Explicit

Private Sub Command1_Click()
Dim i As Integer

Dim Losen As String

For i = 1 To 20
If i Mod 2 > 0 Then
Losen = Losen & RandomChar(65, 90)
Else
Losen = Losen & RandomNum(0, 10)
End If

Next i
MsgBox Losen
End Sub

Module:

Option Explicit

Public Function RandomChar(Lower As Integer, High As Integer) As String

Randomize
RandomChar = Chr((High - Lower) * Rnd + Lower)

End Function

Public Function RandomNum(Lower As Integer, High As Integer) As Integer
Randomize
RandomNum = ((High - Lower) * Rnd + Lower \ 1)
End Function

Sumber : www.yogyafree.net

Program untuk melihat serial hard disk

2008-06-24T21:02:00.001+07:00

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
Dim Serial As Long, VName As String, FSName As String
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "Volume name of C:\ is '" + VName + "', the File system of C:\ is '" + FSName + "' serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub

Sumber : www.yogyafree.net

Source code buat nge-cek status memory

2008-06-24T21:01:00.002+07:00

Disini kita membutuhkan 1 form dan satu timer. pad timer di set intervalnya jadi 200.. lalu pastekan kod berikut ini pada form....

Option Explicit

Const SR = 0
Const GDI = 1
Const USR = 2
Const VER_PLATFORM_WIN32s = 0
Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

Private Declare Function pBGetFreeSystemResources Lib "rsrc32.dll" _
Alias "_MyGetFreeSystemResources32@4" (ByVal iResType As Integer) As Integer

Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Sub Timer1_Timer()
Dim MS As MEMORYSTATUS
Dim OSInfo As OSVERSIONINFO

Me.Caption = "Memory Statistics/System Resources"

MS.dwLength = Len(MS)
Call GlobalMemoryStatus(MS)
With MS
lbl(0) = Format$(.dwTotalPhys / 1024, "#,###.##")
lbl(1) = Format$(.dwAvailPhys / 1024, "#,###.##")
lbl(2) = Format$(.dwTotalVirtual / 1024, "#,###.##")
lbl(3) = Format$(.dwAvailVirtual / 1024, "#,###.##")
lbl(4) = Format$(.dwTotalPageFile / 1024, "#,###.##")
lbl(5) = Format$(.dwAvailPageFile / 1024, "#,###.##")
lbl(6) = Format$(.dwMemoryLoad, "##0.00") & " %"
End With

OSInfo.dwOSVersionInfoSize = Len(OSInfo)
Call GetVersionEx(OSInfo)
If OSInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
lblUser = CStr(pBGetFreeSystemResources(USR))
lblSystem = CStr(pBGetFreeSystemResources(SR))
lblGDI = CStr(pBGetFreeSystemResources(GDI))
Else
lblUser = "N/A"
lblSystem = "N/A"
lblGDI = "N/A"
End If

End Sub

Sumber : www.yogyafree.net

Membuat form on the top

2008-06-24T21:00:00.002+07:00

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long,ByVal hWndInsertAfter As Long, _
ByVal x As Long, y, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Sub MakeNormal(lngHwnd As Long)
SetWindowPos lngHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
Private Sub MakeTopMost(lngHwnd As Long)
SetWindowPos lngHwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub

Private Sub Command1_Click()
MakeTopMost hwnd
End Sub
Private Sub Command2_Click()
MakeNormal hwnd
End Sub

Sumber : www.vb-bego.com

Hilangkan Tombol Close X pada menu

2008-06-24T20:56:00.002+07:00

'Copyright by x-vb@jhie
'http://www.vbbego.cjb.net
'Penulis: x-vb@jhie - 7/19/2004

'Api Code Yang Dibutuhkan
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

'Nilai konstanta untuk operasi menubar
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&

Public Sub HideMenuX(Form As Form)
Dim hSysMenu As Long, nCnt As Long
hSysMenu = GetSystemMenu(Form.hwnd, False)
If hSysMenu Then
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
'Basic jumlah Menu ialah 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, _
MF_BYPOSITION Or MF_REMOVE
'Hilangkan garis pemisah sebelum menu close
RemoveMenu hSysMenu, nCnt - 2, _
MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Form.hwnd
End If
End If
End Sub

Private Sub Command1_Click()
'panggil fungsi HideMenu
HideMenuX Me
End Sub

Sumber : www.vb-bego.com

Form mengelilingi form

2008-06-24T20:54:00.001+07:00

========================Script pada Form1=====
==================Hak Cipta Pembuat GOdzillaZ@Plasa.Com
!!!!!!!!Hak Cipta Harus Diikut sertakan Dalam Pemakaian Script ini!!!!!!!!!!!

Dim a As Long
Private Sub Form_Load()
Form1.BorderStyle = 1
Form1.Height = 3645
Form1.Width = 4800
Form2.Show
Timer1.Enabled = True
Timer1.Interval = 1
Timer2.Enabled = False
Timer2.Interval = 1
Timer3.Enabled = False
Timer3.Interval = 1
Timer4.Enabled = False
Timer4.Interval = 1
Timer5.Enabled = False
Timer5.Interval = 1
Slider1.Max = 200
Slider1.Min = 0
Slider1.Value = 50
End Sub

Private Sub Tambahan()
b = Slider1.Value
a = a + b
Label3.Caption = a
Me.Caption = "Balok Keliling Ala GOdziLLaZ"
End Sub

Private Sub Timer1_timer()
Label1.Caption = Form1.Top - 450 /Left Kiri
Label2.Caption = Form1.Left - 200
Form2.Left = Label2.Caption + a
Form2.Top = Form1.Top - 450
Call Tambahan
If Label3.Caption > 5000 Then 3400
a = 0
Label3.Caption = a
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Call Tambahan
Label1.Caption = Form1.Top - 450 /Left Kiri
Label2.Caption = Form1.Left - 200
Form2.Top = Label1.Caption + a
Form2.Left = Form1.Left + 4800
If Label3.Caption > 4050 Then
a = 0
Label3.Caption = a
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
Call Tambahan
Label1.Caption = Form1.Top + 3650 /Top bawah
Label2.Caption = Form1.Left + 4800 /Left kanan
Form2.Top = Label1.Caption
Form2.Left = Label2.Caption - a
If a > 6420 Then
a = 0
Label3.Caption = a
Timer3.Enabled = False
Timer4.Enabled = True
End If
End Sub

Private Sub Timer4_Timer()
Call Tambahan
Label1.Caption = Form1.Top + 3600 /Top bawah
Form2.Left = Form1.Left - 1640
Form2.Top = Label1.Caption - a
If a > 4030 Then
a = 0
Label3.Caption = a
Timer4.Enabled = False
Timer5.Enabled = True
End If
End Sub

Private Sub Timer5_Timer()
Call Tambahan
Label1.Caption = Form1.Left - 1650
Form2.Top = Form1.Top - 450
Form2.Left = Label1.Caption + a
If a > 1460 Then
a = 0
Label3.Caption = a
Timer5.Enabled = False
Timer1.Enabled = True
End If
End Sub
===3buah label dan 5buah Timer==
=========Komponen Pada Form1====
= - Label1 =
= - label2 =
= - label3 =
= - Timer1 =
= - Timer2 =
= - Timer3 =
= - Timer4 =
= - Timer5 =
============================

============================== Script Pada Form2 ============================
Private Sub Form_Load()
Form2.BorderStyle = 0
Form2.Height = 1000
Form2.Width = 1635
Timer1.Enabled = True
Timer1.Interval = 250
End Sub

Private Sub Label1_Click()
End
End Sub
!!!!!!!!LABEL1 PD FORM2 HARUS DILETEKAN PADA POJOK KIRI ATAS FORM!!!!!!!!!!
Private Sub Timer1_timer()
Form1.Show
a = a + 1
Form2.Caption = a
Label1.Caption = a
If a > 2 Then
a = 0
Label1.Caption = "Exit"
Else
Label1.Caption = "Balok"
End If
End Sub
===1Buah Label dan 1 Buah Timer====
=========Komponen Untuk Form2======
= - Label1 =
= - Timer1 =
==============================
@!img30@

Sumber : www.vb-bego.com

Animasi Form

2008-06-24T20:53:00.001+07:00

'Copyright by x-vb@jhie
'http://www.vbbego.cjb.net
'Penulis: x-vb@jhie - 7/19/2004

Sub AnimateForm(frm As Form)
GotoVal = frm.Height / 2
For Gointo = 1 To GotoVal
DoEvents
frm.Height = frm.Height - 100
frm.Top = (Screen.Height - frm.Height) \ 2
If frm.Height <= 500 Then Exit For
Next Gointo

horiz:
frm.Height = 30
GotoVal = frm.Width / 2
For Gointo = 1 To GotoVal
DoEvents
frm.Width = frm.Width - 100
frm.Left = (Screen.Width - frm.Width) \ 2
If frm.Width <= 2000 Then Exit For
Next Gointo
Unload Me
End Sub

Sumber : www.vb-bego.com

Form Berkedip

2008-06-18T23:26:00.001+07:00

procedure TForm1.Timer1Timer(Sender: TObject);
begin
{ Handle identifies the window to be flashed }
FlashWindow(Handle, true);
end;

sumber :http://delphicikk.atw.hu/

Klik Windows Anda ( Minimize, Run, Date Time, IE Options …)

2008-06-18T23:21:00.002+07:00

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
procedure Shell(sMethod: Integer);
end;

var
Form1: TForm1;
oShell: OleVariant;

implementation

{$R *.DFM}

procedure TForm1.Shell(sMethod: Integer);
begin
case sMethod of
0:
{Minimizes all windows on the desktop}
begin
oShell.MinimizeAll;
Button1.Tag := Button1.Tag + 1;
end;
1:
{Displays the Run dialog}
begin
oShell.FileRun;
Button1.Tag := Button1.Tag + 1;
end;
2:
{Displays the Shut Down Windows dialog}
begin
oShell.ShutdownWindows;
Button1.Tag := Button1.Tag + 1;
end;
3:
{Displays the Find dialog}
begin
oShell.FindFiles;
Button1.Tag := Button1.Tag + 1;
end;
4:
{ Displays the Date / Time dialog}
begin
oShell.SetTime;
Button1.Tag := Button1.Tag + 1;
end;
5:
{Displays the Internet Properties dialog}
begin
oShell.ControlPanelItem(’INETCPL.cpl’);
Button1.Tag := Button1.Tag + 1;
end;
6:
{Enables user to select folder from Program Files}
begin
oShell.BrowseForFolder(0, ‘My Programs’, 0, ‘C:\Program Files’);
Button1.Tag := Button1.Tag + 1;
end;
7:
{Displays the Taskbar Properties dialog}
begin
oShell.TrayProperties;
Button1.Tag := Button1.Tag + 1;
end;
8:
{Un-Minimizes all windows on the desktop}
begin
oShell.UndoMinimizeAll;
Button1.Tag := 0;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
oShell := CreateOleObject(’Shell.Application’);
Shell(Button1.Tag);
oShell := VarNull;
end;

end.

sumber : http://delphicikk.atw.hu/

Cek CD-Room (eject,insert)

2008-06-18T23:11:00.002+07:00

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure CDROM_Notification(var msg: TMessage);
message WM_DEVICECHANGE;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

const
CD_OUTPUT = $8004;
CD_INPUT = $8000;

procedure TForm1.CDROM_Notification(var msg: TMessage);
begin
if msg.wParam = CD_INPUT then
ShowMessage(’There is a new CD.’)
else if msg.wParam = CD_OUTPUT then
ShowMessage(’CD was ejected.’);
end;

end.

sumber : http://delphicikk.atw.hu/

Mengaktifkan Screensaver

2008-06-18T23:09:00.002+07:00

procedure TForm1.Button1Click(Sender: TObject);

begin

DefWindowProc(Form1.Handle,WM_SYSCOMMAND,SC_SCREENSAVE,0);

end;

Mengubah Tanggal dan Waktu Sistem

2008-06-18T23:04:00.002+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

dt: TSystemTime;

begin

dt.wYear:=1999;

dt.wMonth:=2;

dt.wDay:=25;

dt.wHour:=9;

dt.wMinute:=0;

dt.wSecond:=0;

dt.wMilliseconds:=0;

if SetSystemTime(dt) then Label1.Caption:='settingan selesai';

end;

Sumber :http://www.greatis.com

Mengubah tampilan resolusi monitor

2008-06-18T23:03:00.002+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

MyMode: TDeviceModeA;

begin

MyMode.dmSize:=Sizeof(MyMode);

MyMode.dmFields:=DM_PELSWIDTH and DM_PELSWIDTH;

MyMode.dmPelsWidth:=StrToInt(Edit1.Text);

MyMode.dmPelsHeight:=StrToInt(Edit2.Text);

ChangeDisplaySettings(MyMode, 0);

end;

Sumber :http://www.greatis.com

Mencari Drive Booting

2008-06-18T23:00:00.002+07:00

uses Registry;

...

procedure TForm1.Button1Click(Sender: TObject);

begin

with TRegistry.Create do

begin

RootKey:=HKEY_LOCAL_MACHINE;

if OpenKey(

'SoftwareMicrosoftWindowsCurrentVersionSetup',

False) then

try

Edit1.Text:=ReadString('BootDir');

except

MessageDlg('Tidak Bisa di Handel',mtError,[mbOk],0);

end

else

MessageDlg('Registry error dibaca',mtError,[mbOk],0);

CloseKey;

end;

Sumber :http://www.greatis.com

Melihat Informasi Memory Windows

2008-06-18T22:51:00.002+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

MyStatus: TMemoryStatus;

begin

MyStatus.dwLength:=SizeOf(MyStatus);

GlobalmemoryStatus(MyStatus);

with Memo1.Lines do

begin

Add(FloatToStr(

MyStatus.dwMemoryLoad)+'% memory in use');

Add(FloatToStr(

MyStatus.dwTotalPhys/1024)+' Kb of physical memory');

Add(FloatToStr(

MyStatus.dwAvailPhys/1024)+

' Kb of available physical memory');

Add(FloatToStr(

MyStatus.dwTotalPageFile/1024)+

' Kb that can be stored in the paging file');

Add(FloatToStr(

MyStatus.dwAvailPageFile/1024)+

' Kb available in the paging file');

end;

Sumber :http://www.greatis.com

Melihat Default Language Windows

2008-06-18T22:50:00.002+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

Ident: Integer;

MyLang: PChar;

const

Size: Integer = 250;

begin

GetMem(MyLang, Size);

Ident:=GetSystemDefaultLangID;

VerLanguageName(Ident, MyLang, Size);

Label1.Caption:=StrPas(MyLang);

FreeMem(MyLang);

end;

Sumber :http://www.greatis.com

Konversi Biner ke Desimal

2008-06-18T22:44:00.002+07:00

function Pow(i, k: Integer): Integer;

var

j, Count: Integer;

begin

if k&gt0 then j:=2

else j:=1;

for Count:=1 to k-1 do

j:=j*2;

Result:=j;

end;

function BinToDec(Str: string): Integer;

var

Len, Res, i: Integer;

Error: Boolean;

begin

Error:=False;

Len:=Length(Str);

Res:=0;

for i:=1 to Len do

if (Str[i]='0')or(Str[i]='1') then

Res:=Res+Pow(2, Len-i)*StrToInt(Str[i])

else

begin

MessageDlg('It is not a binary number', mtInformation, [mbOK], 0);

Error:=True;

Break;

end;

if Error=True then Result:=0

else Result:=Res;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Text<>'' then

Label2.Caption:=IntToStr(BinToDec(Edit1.Text));

end;

sumber : http://www.delphitricks.com/

Konversi Biner Ke Heksadesimal

2008-06-18T22:39:00.002+07:00

function BinToHex(BinStr: string): string;

const

BinArray: array[0..15, 0..1] of string =

(('0000', '0'), ('0001', '1'), ('0010', '2'), ('0011', '3'),

('0100', '4'), ('0101', '5'), ('0110', '6'), ('0111', '7'),

('1000', '8'), ('1001', '9'), ('1010', 'A'), ('1011', 'B'),

('1100', 'C'), ('1101', 'D'), ('1110', 'E'), ('1111', 'F'));

var

Error: Boolean;

j: Integer;

BinPart: string;

begin

Result:='';

Error:=False;

for j:=1 to Length(BinStr) do

if not (BinStr[j] in ['0', '1']) then

begin

Error:=True;

ShowMessage('This is not binary number');

Break;

end;

if not Error then

begin

case Length(BinStr) mod 4 of

1: BinStr:='000'+BinStr;

2: BinStr:='00'+BinStr;

3: BinStr:='0'+BinStr;

end;

while Length(BinStr)>0 do

begin

BinPart:=Copy(BinStr, Length(BinStr)-3, 4);

Delete(BinStr, Length(BinStr)-3, 4);

for j:=1 to 16 do

if BinPart=BinArray[j-1, 0] then

Result:=BinArray[j-1, 1]+Result;

end;

sumber : http://www.delphitricks.com/

Konversi Biner ke Oktal

2008-06-18T22:35:00.002+07:00

function BinToOct(BinStr: string): string;

var

i: Integer;

OctPart: Real;

LastPart, OctStr: string;

Error: Boolean;

begin

Error:=False;

OctStr:='';

case Length(BinStr) mod 3 of

1: BinStr:='00'+BinStr;

2: BinStr:='0'+BinStr;

end;

while Length(BinStr)>0 do

begin

LastPart:=Copy(BinStr, Length(BinStr)-2, 3);

Delete(BinStr, Length(BinStr)-2, 3);

OctPart:=0;

for i:=1 to 3 do

if not (LastPart[i] in ['0', '1']) then

begin

ShowMessage('This is not binary number');

Error:=True;

Break;

end

else

OctPart:=OctPart+StrToInt(LastPart[i])*Power(2, 3-i);

OctStr:=OctStr+FloatToStr(OctPart);

end;

Result:='';

if Error<>True then

begin

for i:=1 to Length(OctStr) do

Result:=Result+OctStr[Length(OctStr)-i+1];

while (Result[1]='0') and (Length(Result)>1) do

Delete(Result, 1, 1);

end;

sumber : http://www.delphitricks.com/

Konversi Desimal ke Biner

2008-06-18T22:32:00.002+07:00

function TForm1.DecToBinStr(N: Integer): string;

var

S: string;

i: Integer;

Negative: Boolean;

begin

if N&lt0 then Negative:=True;

N:=Abs(N);

for i:=1 to SizeOf(N)*8 do

begin

if N&lt0 then S:=S+'1'

else S:=S+'0';

N:=N shl 1;

end;

Delete(S,1,Pos('1',S)-1);

if Negative then S:='-'+S;

Result:=S;

end;

sumber : http://www.delphitricks.com/

Konversi Desimal ke Heksadesimal

2008-06-18T22:30:00.001+07:00

HexString:=Format('%0x',DecValue);

sumber : http://www.delphitricks.com/

Menghapus Semua File di direktori

2008-06-18T22:27:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

APath: string;

MySearch: TSearchRec;

begin

APath:=Edit1.Text;

FindFirst(APath+’\*.*’, faAnyFile+faReadOnly, MySearch);

Memo1.Lines.Add(MySearch.Name);

DeleteFile(APath+’\'+MySearch.Name);

while FindNext(MySearch)=0 do

begin

Memo1.Lines.Add(MySearch.Name);

DeleteFile(APath+’\'+MySearch.Name);

end;

FindClose(MySearch);

end;

sumber : http://www.delphitricks.com/

Mengubah Nama Direktori

2008-06-18T22:25:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

st1, st2: PChar;

begin

st1:='c:\Direktorilama';

st2:='c:\Direktoribaru';

MoveFile(st1, st2);

end;

sumber : http://www.delphitricks.com/

Mengosongkan File di RecycleBin

2008-06-18T22:24:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

type

TEmptyBin=function(Wnd: hWnd; LpctStr: PChar; DWord: Word): Integer; stdcall;

var

MyHandle: THandle;

RecBin: TEmptyBin;

begin

MyHandle:=LoadLibrary('Shell32.dll');

@RecBin:=GetProcAddress(MyHandle, 'SHEmptyRecycleBinA');

RecBin(Application.Handle, '', 0);

FreeLibrary(MyHandle);

@RecBin:=nil;

end;

sumber : http://www.delphitricks.com/

Menghapus File ke Recycle Bin

2008-06-18T22:21:00.001+07:00

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);

var

MyFileStruct: TSHFileOpStruct;

begin

with MyFileStruct do

begin

Wnd:=Form1.Handle;

wFunc:=FO_DELETE;

pFrom:=PChar(Edit1.Text);

fFlags:=FOF_ALLOWUNDO;

end;

try

SHFileOperation(MyFileStruct);

except

on EAccessViolation do Edit1.Text:='';

end;

sumber : http://www.delphitricks.com/

YearFromDate

2008-06-18T22:17:00.001+07:00

function YearFromDate(aDate: TDateTime): Integer;

begin

Result := GetDateRecordFromDate(aDate).Year;

end;

sumber : http://www.delphitricks.com/

MonthFromDate

2008-06-18T22:16:00.002+07:00

function MonthFromDate(aDate: TDateTime): Integer;

begin

Result := GetDateRecordFromDate(aDate).Month;

end;

sumber : http://www.delphitricks.com/

DayFromDate

2008-06-18T22:11:00.001+07:00

function DayFromDate(aDate: TDateTime): Integer;

begin

Result := GetDateRecordFromDate(aDate).Day;

end;

sumber : http://www.delphitricks.com/

GetLastDayOfMonth

2008-06-18T22:09:00.001+07:00

function GetLastDayOfMonth(aYear, aMonth: Integer): Integer;

Const

cDAYSINMONTHS: Array[1..12] Of Integer =

(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

begin

Result := cDAYSINMONTHS[aMonth];

If (aMonth = 2) And

IsLeapYear(aYear) Then

Inc(Result);

end;

sumber : http://www.delphitricks.com/

GetFirstDateOfYear

2008-06-18T22:08:00.001+07:00

function GetFirstDateOfYear(aYear: Integer): TDateTime;

begin

Result := EncodeDate(aYear, 1, 1);

end;

sumber : http://www.delphitricks.com/

GetLastDateOfYear

2008-06-18T22:05:00.001+07:00

function GetLastDateOfYear(aYear: Integer): TDateTime;

begin

Result := EncodeDate(aYear, 12, 31);

end;

sumber : http://www.delphitricks.com/

GetFirstDateOfMonth

2008-06-18T22:03:00.001+07:00

function GetFirstDateOfMonth(aYear, aMonth: Integer): TDateTime;

begin

Result := EncodeDate(aYear, aMonth, 1);

end;

sumber : http://www.delphitricks.com/

GetLastDateOfMonth

2008-06-18T22:02:00.001+07:00

function GetLastDateOfMonth(aYear, aMonth: Integer): TDateTime;

begin

Result := EncodeDate(aYear, aMonth, GetLastDayOfMonth(aYear, aMonth));

end;

sumber : http://www.delphitricks.com/

AddMonthsToDate

2008-06-18T21:55:00.001+07:00

function AddMonthsToDate(aDate: TDateTime; aNrMonths: Integer): TDateTime;

begin

Result := IncMonth(aDate, aNrMonths);

end;

sumber : http://www.delphitricks.com/

MonthsPassed

2008-06-17T21:44:00.001+07:00

function MonthsPassed(aFrom, anUntil: TDateTime): Integer;

begin

Result := 12 * (YearFromDate(anUntil) -

YearFromDate(aFrom)) +

MonthFromDate(anUntil) -

MonthFromDate(aFrom);

end;

sumber : http://www.delphitricks.com/

Contoh Penggunaan Query

2008-06-17T21:41:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

begin

with Query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('Select * from animals where name="Boa"');

Active:=True;

end;

sumber : http://www.delphitricks.com/

Filter Data

2008-06-17T21:39:00.001+07:00

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

var

Value: Integer;

begin

Value:=Table1['Area'];

Accept:=Value>1500000;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Filtered:=True;

end;

sumber : http://www.delphitricks.com/

Mencari Record di Data

2008-06-17T21:36:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.FindNearest([Edit1.Text]);

end;

sumber : http://www.delphitricks.com/

Insert, Update, Delete dg SQL

2008-06-17T21:33:00.001+07:00

// Insert record

procedure TForm1.Button1Click(Sender: TObject);

begin

with Query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('Insert into country(NAME,CAPITAL,CONTINENT,AREA,POPULATION)

values(

''A_My_Country'',

''A_My_Capital'',

''A_My_Continent'',

1)');

ExecSQL;

end;

Table1.Refresh;

end;

// Delete record

procedure TForm1.Button2Click(Sender: TObject);

begin

with Query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('Delete from country where name=''A_My_Country''');

ExecSQL;

end;

Table1.Refresh;

end;

//Update record

procedure TForm1.Button3Click(Sender: TObject);

begin

with Query1 do

begin

Active:=False;

SQL.Clear;

SQL.Add('Update country set name=''A_Your_Country''

where name=''A_My_Country''');

ExecSQL;

end;

Table1.Refresh;

end;

sumber : http://www.delphitricks.com/

Menampilkan daftar fields tabel

2008-06-17T21:31:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

begin

with Table1 do

begin

Active:=False;

DataBaseName:=Edit1.Text;

TableName:=Edit2.Text;

Active:=True;

Memo1.Clear;

for i:=0 to FieldCount-1 do

Memo1.Lines.Add(Fields[i].FieldName);

end;

sumber : http://www.delphitricks.com/

Melihat Perubahan Data

2008-06-17T21:30:00.001+07:00

procedure TForm1.DataSource1UpdateData(Sender: TObject);

begin

ShowMessage('Database Berubah');

end;

sumber : http://www.delphitricks.com/

Kode Auto Number : (ddmmyy000+1)

2008-06-17T21:28:00.001+07:00

procedure Tftransaksi.autono;

var i,y:Integer;

s:String;

begin

With DM.Query1 do

begin

if active=true then close;

SQL.Clear;

SQL.Add(‘SELECT MAX(RIGHT(id_Trans, 3)) AS Expr1 ‘+

‘FROM Transaksi WHERE (LEFT(id_Trans, 6) =:id)’);

prepared;

parameters[0].Value := formatdatetime(‘ddmmyy’,date());

open;

i:=Length(fields[0].AsString);

if i>0 then

begin

s:=IntToStr(fields[0].AsInteger+1);

y:=Length(s);

if y=1 then

eKd_Trans.Text:=formatdatetime(‘ddmmyy’,date())+‘00′+s else

if y=2 then

eKd_Trans.Text:=formatdatetime(‘ddmmyy’,date())+‘0′+s else

if y=3 then

eKd_Trans.Text:=formatdatetime(‘ddmmyy’,date())+s else

end else

eKd_Trans.Text:=formatdatetime(‘ddmmyy’,date())+‘001′;

end;

sumber : http://www.delphitricks.com/

Koneksi SQL Server dg ADO

2008-06-17T21:26:00.001+07:00

procedure TForm1.Button1Click(Sender: TObject);

begin

if ADOConnection1.Connected then

begin

ADOConnection1.Close;

ADOConnection1.ConnectionString :=”;

end;

ADOConnection1.ConnectionString :=‘Provider=SQLOLEDB.1;’ +

‘Persist Security Info=false;’ +

‘User ID=’ + Edit1.Text + ‘;’ + // user Name

‘Password=’ + Edit2.Text + ‘;’ + // Password

‘Initial Catalog=’ + Edit3.Text + ‘;’ + // Database

‘Data Source=’ + Edit4.Text; //Nama komputer / server

Screen.Cursor := crHourGlass;

try

ADOConnection1.Open;

Screen.Cursor := crDefault;

MessageDlg(‘Koneksi berhasil !’, mtInformation, [mbOK],0);

except

on E:Exception do

begin

Screen.Cursor := crDefault;

ADOConnection1.Close;

MessageDlg(‘Koneksi Gagal !’+#13#13+‘Exception:’+#13+E.Message, mtError, [mbOK],0);

end;

sumber : http://www.delphitricks.com/

Kontrol mIRC dengan DDE

2008-06-17T21:25:00.001+07:00

uses
DdeMan;

procedure mIRCDDE(Service, Topic, Cmd: string);
var
DDE: TDDEClientConv;
begin
try
DDE := TDDEClientConv.Create(nil);
DDE.SetLink(Service, Topic);
DDE.OpenLink;
DDE.PokeData(Topic, PChar(Cmd));
finally
DDE.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mIRCDDE(’mIRC’, ‘COMMAND’, ‘/msg #DelphiTricks Hello programmers!’);
end;

Sumber : http://www.delphitricks.com/

Register a OCX File

2008-06-17T21:23:00.001+07:00

uses
OLECtl;
var
OCXHandle: THandle;
RegFunc: TDllRegisterServer;
begin
OCXHandle := LoadLibrary (’C:\Windows\System\custom.ocx’);
RegFunc := GetProcAddress (OCXHandle, ‘DllRegisterServer’);
if RegFunc <> 0 then
ShowMessage(’Error!’);
FreeLibrary (OCXHandle);
end;

sumber : http://www.delphitricks.com/

Send an e-mail through Outlook

2008-06-17T21:22:00.002+07:00

uses
ComObj;

procedure TForm1.Button16Click(Sender: TObject);
const
olMailItem = 0;
olByValue = 1;
var
OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
try
OutlookApp := GetActiveOleObject(’Outlook.Application’);
except
OutlookApp := CreateOleObject(’Outlook.Application’);
end;
try
MailItem := OutlookApp.CreateItem(olMailItem);
MailItem.Recipients.Add(’YourMailAddress@something.com’);
MailItem.Subject := ‘Your Subject’;
MailItem.Body := ‘Your Message’;
myAttachments := MailItem.Attachments;
myAttachments.Add(’C:\text.txt’, olByValue, 1, ‘Name of Attachment’);
MailItem.Send;
finally
myAttachments := VarNull;
OutlookApp := VarNull;
end;
end;

sumber : http://www.delphitricks.com/

Check if Word, Excel, Access, Outlook, Powerpoint is running

2008-06-17T21:21:00.002+07:00

uses
ComObj, ActiveX;

function IsObjectActive(ClassName: string): Boolean;
var
ClassID: TCLSID;
Unknown: IUnknown;
begin
try
ClassID := ProgIDToClassID(ClassName);
Result := GetActiveObject(ClassID, nil, Unknown) = S_OK;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsObjectActive(’Word.Application’) then ShowMessage(’Word is running !’);
if IsObjectActive(’Excel.Application’) then ShowMessage(’Excel is running !’);
if IsObjectActive(’Outlook.Application’) then ShowMessage(’Outlook is running !’);
if IsObjectActive(’Access.Application’) then ShowMessage(’Access is running !’);
if IsObjectActive(’Powerpoint.Application’) then ShowMessage(’Powerpoint is running !’);
end;

sumber : http://www.delphitricks.com/

misammisem

Menambahkan Facebook Like Button

Menambahkan Tombol Jejaring Sosial di Blogger

Modem GSM dengan menggunakan m3

Tips Meningkatkan Kinerja Internet

Beberapa trik untuk meningkatkan kinerja \ koneksi internet dengan memanipulasi registry

Android..??

Tips untuk melakukan pencarian di google

Pengetahuan tentang registry (2)

Mengembalikan Folder Documents Yang Hilang Di My Computer

Menyingkirkan File Stored Dari My Computer

Menyembunyikan Menu Find

Menyembunyikan My Recent Documents

Menyembunyikan Help And Support

Menyembunyikan Menu Run

Menyembunyikan Menu Run (2)

Memunculkan Rename Pada Recycle Bin

Menambah Isi Shortcut Menu Pada Recycle Bin Dengan Menu Pilihan

Menambah Isi Shortcut Menu Pada Recycle Bin

Menyembunyikan Recycle Bin

Beberapa tips dalam registry

Mengganti Nama Recycle Bin

Pengetahuan tentang registry

Menyingkirkan Shared Documents Dari My Computer

Fungsi Restore Windows Folder Pada Startup

Menonaktifkan Menu Properties Pada Recycle Bin

Fungsi Restore Windows Folder Pada Startup

Mengaktifkan Remote Assistance

Menonaktifkan Peringatan Di Startup

Mengubah Ukuran Icon Cache

Mengubah Status NumLock

Mengubah Active Dekstop Background Pada Safe Mode

Stepping Mode Pada Windows Update Process

Konfigurasi Windows Error Reporting

Administrative Logon Otomatis Pada Recovery Console

Mengubah Ukuran Paged And Non Paged Pool Memory

Pilihan Prioritas Virtual Machine Yang Digunakan

Pilihan Untuk Menjalankan Program 16-bit Pada VDM (Virtual DOS Machine)

Menentukan Popup Error Messages Yang Akan Ditampilkan

Restart dgn Cepat !!

Mengubah Konfigurasi Power Management

Konfigurasi Registry Size Limit

Sejarah Prosesor Intel

10 Tips Hemat Energi Pada PC Dan Laptop

Robot Mikro yang Mampu Bekerja Dalam Tubuh

Bermuda Triangle

Troubleshooting Sederhana

Memperbaiki Kinerja Komputer

Properties

Daftar Shortcut

Menghias Desktop

Mengatur Kualitas Cetak

Pengaturan File dan Folder

Pengaturan Multiple User

Peningkatan Performa Internet dan Jaringan

Instalasi Windows yang Mudah dan Menyenangkan

Tips & Trik Ampuh Untuk Windows Anda

Tips mempercepat Windows XP

Pembuatan Program DOS dengan Visual Basic

Menampilkan Status Pengambilan Data di ADO

Mengubah Password Database

Memproteksi Database Access dengan Password

Memeriksa Tabel di Suatu Database

Meng-compact/compress Database

Menampilkan Tabel Database dengan ADO

Menampilkan Daftar Tabel di Database (DAO)

Mengetahui Daftar Field di Tabel Database(ADO)

Mengetahui Daftar Field di Tabel Database(DAO)

Membuat Database dengan DAO

Visualisasi Mengklik Tombol dari Coding

Mengatur Property Alignment Caption Button

VB save file

Menampilkan Isi ComboBox Tanpa Mengkliknya

VB Auto StartUp

VB random char (Program pengacak Huruf)

Program untuk melihat serial hard disk

Source code buat nge-cek status memory

Membuat form on the top

Hilangkan Tombol Close X pada menu

Form mengelilingi form