Cara Praktis Ganti Warna Folder dengan iColorFolder

iColorFolder
Mungkin anda pernah merasa kesulitan
mencari sebuah folder di hard disk komputer anda terutama bila folder
yang dicari itu berada di antara sekian banyak folder lainnya. Hal itu karena memang folder-folder tersebut tampilannya seragam, dan akibatnya terkadang butuh sedikit kejelian hanya untuk mencari sebuah folder.
Untuk memudahkan kita mengenali folder-folder yang ada, berikut ini ada sebuah software utility sederhana bernama iColorFolder yang bisa mengganti warna folder-folder yang kita inginkan. Dengan begitu, kita lebih mudah untuk mencari folder karena sudah diberi warna khusus.
Program freeware iColorFolder untuk Windows XP ini penggunaannya sangat praktis,
karena kita cukup mengganti warna sebuah folder yang kita inginkan
dengan cara klik kanan folder tersebut di Windows Explorer lalu tinggal
kita pilih warna yang kita mau.

Kita bisa juga menambah tema icon folder pada program iColorFolder ini dengan cara install aplikasi tambahannya berupa skin pack, sehingga kita punya lebih banyak pilihan tampilan folder.

• iCF_142.exe (ukuran 1,4 MB) – download di sini.
• iCF_skinpack_121.exe (ukuran 7.0 MB) – download di sini.

Membulatkan Angka Ke Dalam Kelipatan Seratus Berikutnya

Pernahkah Anda kesulitan ketika ingin membulatkan sebuah angka ke dalam kelipatan seratus ke atas berikutnya? Contoh: Anda memiliki angka 729, dan Anda ingin membulatkan angka tersebut ke kelipatan seratus ke atas sehingga menjadi 800. Sedangkan jika angkanya tepat kelipatan seratus, proses pembulatan akan diabaikan. Untuk mengatasi hal ini, Anda bisa menggunakan fungsi khusus yang saya buat. Fungsi ini bahkan bisa juga Anda gunakan melalui fitur Macro di Microsoft Excel. Berikut ini code selengkapnya.

Deskripsi:

Membulatkan angka ke dalam kelipatan seratus berikutnya
Contoh:
Anda memiliki angka 101, maka jika dibulatkan
ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.

Persiapan:

1. Buat sebuah project standard exe dengan satu form.
2. Tambahkan satu CommandButton ke atas form.
3. Copy-paste code berikut ke editor form yang bertalian.

Public Function BulatkanAngka(lngAngka As Long) As Long
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function

Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub

Membuat Tabel Baru Saat Run-Time dengan ADO

Berikut ini source code yang bisa Anda gunakan untuk membuat tabel saat run-time di program Anda dengan menggunakan ADO dan database Microsoft Access 2000. Untuk mencoba code ini, jangan lupa agar Anda membuat terlebih dulu satu buah database Access kosong (blank database, tanpa tabel) lalu simpan di C:\ dengan nama NewDB.mdb. Anda juga harus menambahkan dua item dari menu Project -> References... punya Visual Basic 6, masing-masing: "Microsoft ActiveX Data Objects 2.x Library" dan "Microsoft ADO Ext. 2.x for DDL and Security".

Deskripsi:

Membuat tabel saat run-time dengan reference ADO menggunakan
database Microsoft Access 2000. Dalam code ini, Anda harus
menambahkan dua item sebagai reference untuk code, yaitu:
"Microsoft ActiveX Data Objects 2.x Library" dan
"Microsoft ADO Ext. 2.x for DDL and Security".
MDAC versi terakhir yang terinstall di PC saya adalah versi 8
sehingga 2.x itu menjadi 2.8. Sesuaikan di PC Anda.

Persiapan:

1. Buat satu project standard exe dengan satu Form dan
satu control CommandButton di atas form.
2. Buat sebuah database baru Access 2000 kosong tanpa tabel
dan simpan di drive "C:\" dengan nama "NewDB.mdb".
3. Klik menu Project -> References... lalu beri tanda
centang pada "Microsoft ActiveX Data Objects 2.x Library"
di mana x = versi dari MDAC yang terinstall di PC Anda
4. Beri tanda centang juga di "Microsoft ADO Ext. 2.x for
DDL and Security".
5. Copy-kan code berikut ke editor form yang bertalian.

Kode::

'--- Copy Code Dibawah Ini Pada Kolom Form Code Editor , Deskripsi General ---'

Private Sub InsertInitialData()
Dim rsTabelBaru As ADODB.Recordset
Set rsTabelBaru = New ADODB.Recordset
'Optimalkan variable ADODB.Recordset
With rsTabelBaru
.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='C:\NewDB.mdb';"
.CursorLocation = adUseClient '<-- jangan pernah lupa ini .CursorType = adOpenKeyset '<-- biasa .LockType = adLockPessimistic '<-- biasa .Source = "SELECT * FROM TabelBaru" .Open 'Tambah record baru jika tabel sudah ada .AddNew .Fields("KodeData").Value = 1 .Fields("DeskripsiData").Value = "Deskripsi Satu" .Update MsgBox "Sukses tambah 1 record baru", vbInformation End With End Sub Private Function CreateTable() As Boolean Dim catDatabase As ADOX.Catalog Dim oTable As ADOX.Table Dim bCreateTable As Boolean On Error GoTo KeluarErr 'Di sini tabel belum terbentuk bCreateTable = False 'Variable untuk membuat tabel baru Set catDatabase = New ADOX.Catalog With catDatabase .ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _ "Data Source='C:\NewDB.mdb';" 'Tentukan nama tabel baru yang akan dibuat Set oTable = .Tables("TabelBaru") End With KeluarProsedur: If (bCreateTable) Then Set oTable = New ADOX.Table With oTable .Name = "TabelBaru" 'Tambahkan 2 field baru Call .Columns.Append("KodeData", adInteger) Call .Columns.Append("DeskripsiData", adVarWChar, 20) End With 'Tambahkan tabel baru ke database Call catDatabase.Tables.Append(oTable) End If 'Bersihkan memory If (Not catDatabase Is Nothing) Then Set catDatabase = Nothing End If 'Tabel sudah terbentuk CreateTable = bCreateTable KeluarErr: Select Case Err.Number Case 3265 'Table belum ada bCreateTable = True Err.Clear Resume KeluarProsedur Case Is <> 0
MsgBox Err.Description, vbCritical
bCreateTable = False
Err.Clear
Resume KeluarProsedur
End Select
End Function

Private Sub Command1_Click()
On Error GoTo ErrHandler
Dim bTableCreated As Boolean
bTableCreated = CreateTable
If (bTableCreated) Then
Call InsertInitialData
End If
MsgBox "Sukses membuat tabel baru di database C:\NewDB.mdb!", vbInformation
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub

Membuat folder tanpa nama

Udah Malam, dikit Lagi Mau Tidur, Sebelm Tidur, Berbagi ilmu dulu ah,,
Bgini Bro, Folder kan biasanya menggunakan Nama untuk lebih mudah dikenali pemilikya,Tapi ada Juga Folder Buntung tanpa Nama,,
Mau Tau bagaimana Cara Membuatnya??

Caranya :
1. Buat Folder Baru
2. Namai Folder Tersebut dengan menekan tombol : Alt+0160
[Gunakan Bagian Numerik pada keyboard yang ada di keyboard bagian kanan]
3. Tekan Enter

Bisa gak, Terlalu Simple ia??
sesimple bikin Mie instant kan?
Malah Lebih simple bikin Folder Tanpa Nama!!
Wokeh Bro, Aq Mau Tidur!!

Membuat file ISO dari CD/DVD

File ISO memang banyak manfaatnya. Untuk kepentingan backup data, keamanan data atau hal-hal yang kita butuhkan dalam bentuk file ISO. Kalau boleh dikatakan file ISO ini mirip dengan file .rar, .zip dll. Kalau file.rar, zip untuk membuka dan membacanya perlu diekstract, namun file dengan extensi .iso ini dilakukan dengan cara burning. Untuk membacanya tanpa burning dapat dilakukan dengan menggunakan virtual CD/DVD ROM. Banyak sekali software untuk membuat file ISO, termasuk software yang gratis atau free, sebut saja salah satunya adalah free iso creator. Bisa membuat file ISO dari folder maupun file. Bisa di download disini. Namun kalau untuk membuat file ISO dari CD atau DVD masih kesulitan. File ISO dari CD dan DVD ini sangat berguna sekali untuk membackup data cd/dvd dengan aman. Terutama CD / DVD Windows atau Operating system yang lain akan lebih aman kalau disimpan dalam bentuk ISO file. Suatu saat kita perlukan bisa diburn lagi ke cd/dvd.

Untuk membuat file ISO dari CD / DVD ini kita membutuhkan sebuah software. Salah satunya adalah Software Magic ISO Maker. Dengan software ini kita bisa membuat file iso dari cd/dvd dan sebaliknya yaitu membakar atau burning iso file. Selain itu software ini bisa digunakan mengkonversi atau convert file iso menjadi BIN dan Nero image atau sebaliknya. Ditambah lagi dengan fasilitas windows explorer sangat memudahkan pengguna dalam memanfaatkan software ini. Sayangnya software ini tidak gratis alias berbayar. Sahabat bisa download langsung ke websitenya di www.magiciso.com. Namun sahabat tidak usah khawatir, shobat bisa mendapatkannya sudah disertai serial number dengan download pada link dibawah ini.

DOWNLOAD SEKARANG

Untuk menjalankannya ( membuat file ISO dari CD/DVD) dapat dibuka melalui menu tools pada program Magic Iso. Pada menu tools tersebut terdapat perintah make ISO from CD/DVD, Burn CD/DVD with ISO, virtual cd/dvd rom, compress dan decompress CD/DVD image, make multi boot image dan lain-lain.

Membuat CommandButton Seperti Stop Kontak Lampu

Deskripsi: Membuat sebuah tombol kelihatan ditekan ke dalam saat ditekan

sama seperti jika Anda menekan tombol stop-kontak lampu di rumah;
maka tombol akan kelihatan masuk ke dalam, kemudian ketika Anda
menekan sekali lagi, maka tombol akan kembali normal kembali...
demikian seterusnya secara bergantian untuk penekanan berikutnya.

Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form & module tsb.

'--- Copy Code berikut di kolom Modul ---'

Public 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

'--- Copy'a Sampai Disini...

'--- Copy Code berikut di Form , Deskripsi'a General ---'

Dim blnTekan As Boolean

Private Sub Command1_Click()
If blnTekan = False Then
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)
blnTekan = True
Exit Sub
ElseIf blnTekan = True Then
blnTekan = False
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)
End If
End Sub

'--- Copy'a Sampai sini ...

Keterangan :

'Ketika Anda mengklik Command1 pertama kali, maka tombol kelihatan masuk ke dalam.
'Ketika Anda mengklik Command1 selanjutnya, tombol akan kelihatan normal kembali.
'Demikian seterusnya bergantian... :-)
'Pengertian "klik" di atas tidak hanya event Click saja, tapi bisa dengan
'menekan Enter atau tombol Spasi di keyboard saat tombol dalam keadaan focus.