Trik VB menutup semua Program

Hallo Kawan Semua masih Bersama rizki ada sedikit Trik Buat Kawan kawan semua trik yang kali ini rizki Bagikan adalah Bagaimana kita menutup semua Program dengan hanya satu kali klik dengan pemrograman vb nah trik nie cukup berguna karna Instant kita gak perlu menuup satu persatu program yang kita jalankan tapi cukup dengan hanya satu tombol saja.

nah kewan eeh salah maksd aku kawan sebelum memulai alangkah baiknya membuat dulu sebuah form dan tambahkanlah 1 command button gunkan lah nama "Tutup Semua Program"

From Declaration

Private Declare Function BroadcastSystemMessage _

Lib "user32" (ByVal dw As Long, pdw As Long, _

ByVal un As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long

Pendeklarasian variabel yang diperlukan

Const BSF_POSTMESSAGE = &H10

Const BSM_APPLICATIONS = &H8

Const WM_SYSCOMMAnd = &H112

Menutup aplikasi ketika Command1 di klik

Private Sub Command1_Click()

BroadcastSystemMessage BSF_POSTMESSAGE, _

BSM_APPLICATIONS, WM_SYSCOMMAnd, &HF060&, ByVal 0&

End Sub

nah kalo belajar kawan tinggal copy paste sintak siatas semoga trik dari bejo kali ini bermanfaat 

(Peringatan Bila terjadi Debug Hubungi Rumah sakit Terdekat) heheehe

Fungsi-Fungsi Angka VB

Mas rizki-Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya khusus untuk VB .NET, ketikkan kode berikut dibagian paling atas dari jendela kode dari Form.

• Abs(n), digunakan untuk mencari nilai absolut dari n. Contoh :
  a = Abs(5) , nilai a adalah 5
  a = Abs(-5) , nilai a adalah 5


• CInt(n) dan Int(n), digunakan untuk mengubah nilai n menjadi nilai bertipe integer / bulat. Perbedaannya adalah jika CInt bila desimalnya bernilai lebih besar dari 0,5 , maka nilai akan dibulatkan 1 ke atas. Sedangkan Int tidak. Contoh :
  a = CInt(3.4) , nilai a adalah 3
  a = CInt(3.6) , nilai a adalah 4
  a = Int(3.4) , nilai a adalah 3
  a = Int(3.6) , nilai a adalah 3


• CDbl(n) dan Val(n), digunakan untuk menkonversi nilai n yang bertipe string ke nilai bertipe double / angka. Perbedaannya adalah jika Val nilai n harus berformat Inggris (karakter desimal adalah tanda titik), sehingga muncul permasalahan jika settingan komputer menggunakan format Indonesia (karakter desimal adalah tanda koma) yang akan menghasilkan nilai berbeda. Sedangkan bila CDbl mampu menyesuaikan nilai sesuai dengan setting format komputer.
  Berikut contoh yang diterapkan di komputer dengan setting format Indonesia.
  a = Val("2,5") , nilai a adalah 2
  a = CDbl("2,5") , nilai a adalah 2,5


• Randomize dan Rnd() * n, kedua fungsi ini sering dikombinasikan untuk mencari angka acak antara 0 sampai dengan n. Contoh :
  
  Randomize
  a = Rnd() * 4
  nilai a bisa bernilai antara 0 sampai dengan 4
  
  Namun jika Anda ingin angka bertipe bulat saja, berikut contohnya :
  
  Randomize
  a = CInt(Rnd() * 4)
  
  Dan jika Anda menginginkan acak dalam tipe boolean (True atau False),
  berikut contohnya :
  
  Randomize
  a = CBool(CInt(Rnd() * 1))
  nilai a bisa bernilai True atau False


• Log(n), digunakan untuk mencari nilai logaritma natural dari n. Contoh :
  a = Log(5) , nilai a adalah 1,60943791243
  Jika Anda ingin mencari nilai logaritma standar dari n gunakan fungsi berikut :
  VB 6.0 a = Log(n) / Log(10)
  VB .NET a = Log10(n)


• Exp(n), merupakan fungsi kebalikan dari Log(n). Contoh :
  a = Exp(1,60943791243) , nilai a adalah 5


• Round(n, x), digunakan untuk menyesuaikan jumlah angka desimal dari n sebanyak x. Contoh :
  a = Round(5.3784, 2) , nilai a adalah 5,38


• Sgn(n), digunakan untuk mencari tanda angka dari n. Fungsi ini menghasilkan nilai 1 jika n adalah positif, nilai -1 jika n adalah negatif, dan nilai 0 jika n adalah nol. Contoh:
  VB 6.0 a = Sgn(-9)
  VB .NET a = Sign(-9)
  nilai a adalah -1


• Sqr(n), digunakan untuk mencari akar kuadrat dari n. Contoh :
  VB 6.0 a = Sqr(9)
  VB .NET a = Sqrt(9)
  nilai a adalah 3


• Sin, Cos, Tan
  VB 6.0

  Nama	Fungsi
  Sin	a = Sin(n * Angle)
  Cosin	a = Cos(n * Angle)
  Tangen	a = Tan(n * Angle)
  Inv. Sin	a = Atn(n / Sqr(-n * n + 1)) / Angle
  Inv. Cosin	a = (Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)) / Angle
  Inv. Tangen	a = Atn(n) / Angle
  Sin Hyp.	a = (Exp(n) - Exp(-n)) / 2
  Cosin Hyp.	a = (Exp(n) + Exp(-n)) / 2
  Tangen Hyp.	a = (Exp(n) - Exp(-n)) / (Exp(n) + Exp(-n))
  Inv. Sin Hyp.	a = Log(n + Sqr(n * n + 1))
  Inv. Cosin Hyp.	a = Log(n + Sqr(n * n - 1))
  Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

  
  VB NET

  Nama	Fungsi
  Sin	a = Sin(n * Angle)
  Cosin	a = Cos(n * Angle)
  Tangen	a = Tan(n * Angle)
  Inv. Sin	a = Asin(n) / Angle
  Inv. Cosin	a = Acos(n) / Angle
  Inv. Tangen	a = Atan(n) / Angle
  Sin Hyp.	a = Sinh(n)
  Cosin Hyp.	a = Cosh(n)
  Tangen Hyp.	a = Tanh(n)
  Inv. Sin Hyp.	a = Log(n + Sqrt(n * n + 1))
  Inv. Cosin Hyp.	a = Log(n + Sqrt(n * n - 1))
  Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

  
  Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :
  Degress (DEG), gantikan dengan (3.14159265358979 / 180)
  Radians (RAD), gantikan dengan 1
  Grads (GRAD), gantikan dengan (3.14159265358979 / 200)
  Contoh menghitung Sin dari 5 dengan ukuran DEG :
  a = Sin(5 * (3.14159265358979 / 180))

Contoh program absen sederhana

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb
Nama Tabel       : Absen

Field	Data Type	Size
NRP	Text	10
Nama	Text	35
Jurusan	Text	50
Matkul	Text	50
Masuk	Byte
Sakit	Byte
Izin	Byte
Alpa	Byte
Total	Byte

Setelah membuat database selesai, lalu buat desain form absen seperti ini :
Componen tambahan pada Toolbox :
Adodc dan DataGrid

 

 Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :

Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset


Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form

Private Sub Form_Activate()


Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
Adodc1.RecordSource = "absen"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub


Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Sistem Informasi"
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akuntansi"
Combo2.AddItem "Pemprograman Visual I"
Combo2.AddItem "Pemprograman Visual II"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

Function CariData()
    Call koneksi
    RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function


Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub






Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
        If Not RsAbsen.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            MsgBox "NRP Sudah Ada"
            Command1.Enabled = False
        End If
End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :

Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub


Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub


Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :

Private Sub Command1_Click()   'Kode Perintah Untuk tombol Simpan
Dim SQLSimpan As String
            SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
            ConN.Execute SQLSimpan
            Form_Activate
            Call kosong
End Sub




Private Sub Command2_Click()     ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
Command2.Caption = "Edit"
Else


Dim SQLAbsen As String
            SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
            Command2.Caption = "Edit Data"
            End If
End Sub


Private Sub Command3_Click()   'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
            SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
End Sub


Private Sub Command4_Click()    'KOde Perintah Untuk Tombol Hapus
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub


Private Sub Command5_Click()    'Kode Perintah Untuk Tombol Selesai
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub


Private Sub Command6_Click()   'Kode Perintah Untuk Tombol Isi Data
Text1.Enabled = True
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            Text1.SetFocus
End Sub

Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,

Selamat Mencoba ^_^

Cara Memperpendek Url

  - Cara Memperpendek URL Agar URL Lebih Singkat. Mungkin sebagian dari kita sudah tidak asing lagi dengan istilah URL Shortener, yaitu layanan untuk mempersingkat URL. Tujuannya? Youpz, jelas tujuannya untuk mempersingkat/memperpendek URL/alamat web maupun blog yang dirasa harus dipersingkat, mungkin dikarekan terlalu panjang atau sukar diingat. Di internet kita bisa mendapatkan layanan tersebut secara cuma-cuma, selain gratis - layanan seperti ini memang benar-benar sudah banyak bermunculan di internet, namun sesuai dengan judul postingan kali ini kita akan membahas tentang layanan Google URL Shortener, Goo.gl


Goo.gl adalah layanan gratis yang telah disediakan oleh mbah google buat mempersingkat URL atau alamat web/blognya agan-agan. Jadi bagi yang suka dengan yang pendek2 alias singkat-singkat, maka tak ada salahnya untuk mencoba layanan yang satu ini.

Cara menggunakan layanan ini cukup mudah, gampang, dan tidak sulit. Silahkan sobat-sobat berkunjung ke situs Google URL shortener, goo.gl
1. Nah, setelah ngeklik link di atas nantikan yang tampil seperti berikut ini

Sekarang silahkan untuk mengisi pada kolom yang ada tulisan merah dengan URL panjang atau URL yang memang dirasa perlu tuk disingkat, lalu kliklah tombol "Shorten".

2. Sekarang, URL goo.gl-nya pasti sudah jadi. Cobalah untuk menengok ke sebelah kanan tombol "shortner", nah...itulah hasilnya. Ini contohnya => goo.gl/foAE6 (diklik ya, biar tahu hasilnya) => maka akan mengarah ke alamat blog ini (chyberart.blogspot)

BERHASIL!!!

Sekarang bagi teman-teman yang ingin mengetahui jumlah klik dari setiap link/URL yang telah dipersingkat. Sejujurnya, ini bagus juga bagi sobat-sobat yang memang ingin tahu jumlah klik link-nya, mungkin untuk keperluan data peningkatan trafik maupun bisnis online agan2 (singkatnya bisa mengetahui statistik jumlah klik link). Caranya gampang sekali:

1. Loginlah ke akun blogger maupun akun Google lainnya (termasuk Gmail), lalu kunjungi situs Google URL shortener, goo.gl

2. Silahkan untuk mempersingkat URL mana saja yang anda inginkan (caranya sama seperti tadi), maka otomatis data-data untuk URL tadi telah tersimpan dalam akun anda. Untuk mengecek statistik jumlah klik link, maka bisa login ke akun Goo.gl anda seperti biasa, gampang kan? Hahai...

Inilah contohnya: nanti teman2 bisa melihat statistik URL yang telah disingkat

Dah, itu aja dulu buat pembahasan Goo.gl-nya. Tapi nih buat sekedar tambahan aja ya, Kumpulan situs-situs yang menyediakan layanan mempersingkat URL agar URL panjang jadi pendek:

1. Pendek.in "Nih kelihatannya asli karya anak bangsa euy!!!", jadi bangga^
2. Tinyurl.com, kalau ini sudah nggak asing lagi...banyak digunakan oleh para iklaners di situs iklan baries graties
3. Lalu Bit.ly, hehe pandek sekali ya
4. Lalu yang ini lebih pendek lagi Is.gd, keliatannya singkatan dari IS GOOD yak? Benarkah ini yang paling pendek? Tunggu dulu...!!!
5. Ini nih yang lebih pendek lagi J.mp, waduh-waduh bisa-bisa aja ya...pendek skali!!!
6. Adf.ly, kalau yang ini cocok buat teman-teman yang punya hobi mengumpulkan receh dollar dari internet, hehe...(seperti saya)

Cara Membersihkan RAM tanpa restart windows

Tips membersihkan RAM atau mempercepat RAM komputer tanpa restart windows.

Mungkin bagi para master merupakan hal yang biasa, jadi tips ini buat yang belum biasa aja dech he..he..

Terkadang, komputer kita bakal menjadi lambat setelah beberapa lama dipakai. Apalagi kalo kita banyak menggunakan software yang berat2 seperti Adobe Photoshop, Corel Draw, Sony Soundforge dsb.

Biasanya setelah kita pakai aplikasi tersebut, komputer kita terasa lambat. Kemungkinan itu terjadi karena masih ada bekas data yang tersimpan dalam RAM, sehingga komputer kita pun jadi lambat. Salah satu cara untuk membersihkan RAM adalah dengan merestart komputer terlebih dahulu. Tapi kayanya ribet banget ya?

Gue punya cara yang lebih simpel yang bisa dilakuin oleh semua kalangan, awam maupun mahir. Perhatikan caranya di bawah ini:
1. Klik kanan mouse di desktop, pilih New - Shortcut.

2. Ketik %windir%\system32\rundll32.exe advapi32.dll,ProcessIdleTasks pada kolom isian yang muncul.

3. Klik Next.

4. Beri nama shortcut tadi, nama yang dapat diberikan bebas sesuai keinginan kamu, atau kamu lewat aja, namanya otomatis jadi rundll32.exe.

5. Klik Finish.
Kapan aja komputer kamu terasa lambat, klik shortcut yang udah kamu buat tadi untuk membersihkan RAM. Sebetulnya prinsip kerjanya mungkin sama aja kaya RAM Booster atau aplikasi sejenisnya, tapi ga kalah ko seperti software2 lainnya. Selamat mencoba, semoga bermanfaat.

maap kalo repost gan...

jangan lupa kasih CENDOL ya... hehehehe...

Melacak laptop yang dicuri maling

     Di jaman yang modern dan seba mahal ini banyak sekali maling-maling berkeliyaran karena terdesak kebutuhan ekonomi. dan tak jarang laptop pun menjadi target pencurian para maling-maling tersebut. jika laptop atau komputer anda telah beralih tangan ke pencuri/maling, akan sangat sulit untuk melacaknya.

Disini sangat sulit bukan berarti mustahil, karena ada sebuah software yang berfungsi untuk melacak laptop yang sudah dicuri tersebut, namanya adalah adeona. tetapi hanya komputer yang terinstal aplikasi ini saja yang bisa terlacak olehnya.

Setelah aplikasi ini terinstal di komputer maka akan secara bekerja secara otomatis disaat laptop dijalankan oleh pencuri. Jika laptop hanya dipakai di rumah pribadi yang tidak terkoneksi ke jaringan  lan/wifi /internet maka komputer tersebut tidak akan terdeteksi. namun jika pencuri ternyata orang yang senang mengakses internet maka disaat melakukan koneksi internet software anti maling akan mengirimkan data IP ke server Adeona , sehingga membantu menentukan lokasi pencuri berada.

Features:

• New Service Tracks Missing Laptops for Free
• Open Source Adeona Tracks Lost & Stolen Laptops
  • Private: Adeona uses state-of-the-art cryptographic mechanisms to ensure that the owner is the only party that can use the system to reveal the locations visited by a device.
  • Reliable: Adeona uses a community-based remote storage facility, ensuring retrievability of recent location updates.
  • Open source and free: Adeona's software is licensed under GPLv2. While your locations are secret, the tracking system's design is not.

Untuk cara penggunaan software ini, silahkan klik disini

Click here to download this software

 

Membuat folder tidak bisa ditembus

  - Membuat Folder Rahasia Bila, anda memiliki folder pribadi yang rahasia. Tentu, anda tidak ingin folder rahasia anda itu, di buka atau dilihat orang lain. Mungkin, selama ini anda menyimpan folder rahasia anda itu di dalam folder-folder anda yang lain, sehingga tidak mudah ditemukan orang lain.

Atau, anda menghidden file anda sehingga tidak bisa dilihat orang lain.

Tapi, bagaimana kalau orang yang mencari folder rahasia anda itu adalah orang yang rajin? tentu dia akan menemukannya. Dan, Menghidden file juga bukan merupakan hal yang sulit lagi, Sudah hampir semua pengguna komputer tahu, cara untuk menghidden, dan menampilkannya lagi.

Kini, anda tidak perlu khawatir lagi! Karena, disini anda akan belajar bahasa pemograman yang bisa mengubah file anda menjadi yang tidak bisa dibuka oleh orang lain.

Let`s begin!

Langkah-langkah:
1. buka notepad.

2. copy + paste bahasa pemograman (yang berhuruf tebal) di bawah ini ke notepad anda:
ren movies movies.{21EC2020-3AEA-1069-A2DD-08002B30309D}
(ganti movies movies dengan nama folder anda: misal, folder anda bernama “virus”
Hasilnya adalah)
ren virus virus.{21EC2020-3AEA-1069-A2DD-08002B30309D}
save notepad dengan nama loc.bat. sebelum disave, pastikan “save as type”
diubah ke “all files”

Cara Cepat Mengembalikan File / Data Yang Terlanjur Terhapus

Cara Cepat Mengembalikan File / Data Yang Terlanjur Terhapus - Kalau kita memiliki data atau file yang sangat penting sekali dan tak kita duga kita hapus file tersebut padahal data tersebut harus dikumpulkan. Nah pastinya anda pernah mengalami kejadian seperti itu dan tidak sengaja juga file terhapus dari flashdisk ataupun memory card anda sendiri.


Nah saya akan membagikan cara cepat mengembalikan file / data yang terlanjur terhapus oleh anda sendiri. Tips ini menggunaan software yang bernama WinUtilities Undelete dan tenang saja software ini bisa didapat secara gratis kok.




Berikut cara cepat mengembalikan file atau data yang terlanjur terhapus :

1. Download software WinUtilities Undelete http://www.ylcomputing.com/content/view/350/153/
2. Install WinUtilities untuk mengembalikan file atau data anda yang terhapus
3. Buka aplikasi WinUtilities Undelete
4. Nah tinggal anda pilih drive mana yang menyimpan file atau data yang anda hapus tadi bisa juga file di flashdisk ataupun di memory card
5. Klik folder atau data atau file yang mau anda recovery
6. Klik kanan >> Undelete >> Pilih drive dan folder mana yang mau di recovery
7. Tunggu hingga proses undelete selesai dan OK

Nah 7 langkah itu bisa mengembalikan file atau data yang terlanjur terhapus oleh anda sendiri tapi tergantung kondisi dari file atau folder tersebut apakah memungkinkan untuk terrecovery atau tidak.

Tips : mempercepat running Windows

Dalam running kadangkala windows kita berjalan begitu lambat, membuat kita jengkel akan hal ini. banyak hal yang menyebabkan mengapa running windows berjalan begitu lama. salah satunya adalah registry yang tidak tertata rapi. untuk mengatasi hal ini ada beberapa tips yang harus anda lakukan :

1. Untuk menurunkan waktu booting dan meningkatkan performa, tidak usah
menggunakan software defrag pihak ketiga, gunakan saja perangkat Defragmenter yang buatan (built-in) Windows, tidak akan jauh beda. Dan juga, sebaiknya menggunakan Harddisk dengan tipe Ultra-133 atau Serial ATA (SATA) dengan buffer 8-MB.

 
2. Jika RAM PC kurang dari 512 MB, maka sebaiknya ditambah kapasitas memorinya.
Hal ini relatif tidak mahal dan akan membantu meningkatkan performa sistem Anda secara dramatis.

 
3. Pastikan file system yang digunakan Windows XP adalah NTFS. Cara memeriksanya:
a. Buka Windows Explorer (My Computer)
b. Klik kanan pada drive C:
c. Klik Properties.
Kalau ternyata file system Anda menggunakan FAT32, maka untuk mengubahnya
adalah dengan cara sebagai berikut:
- Backup data-data penting dulu ya.
- Klik Start > Run > ketik CMD
- Setelah muncul jendela Command Prompt, ketik:
Code:
CONVERT C: /FS:NTFS
Catatan: Komputer jangan disela ketika melakukan konversi ini, dan juga dalam keadaan bebas dari virus. File system yang digunakan oleh drive bootable (biasanya C:) bisa FAT32 atau NTFS. Saya sangat merekomendasikan untuk menggunakan NTFS demi keamanan superior, ketahanan dan efisiensi ruang yang lebih besar.

 
4. Non aktifkan File Indexing. Layanan File Indexing mengekstraksi informasi dari dokumen-dokumen dan file-file lainnya yang ada pada harddisk dan membuat sebuah "searchable keyword index" (index keyword pencarian). Bisa dibayangkan proses ini sangat memberatkan sistem.
Caranya Mendisfungsikannya:
a. Buka Windows Explorer (My Computer)
b. Klik kanan pada drive C:
c. Pilih Properties
d. Hilangkan tanda centang (checklist) "Allow Indexing Service to index this disk for
fast file searching."
e. Klik tombol Apply, muncul: apply changes to "C: subfolders and files"
f. Klik tombol OK.
Jika ada pesan peringatan atau error muncul (seperti "Access is denied"), klik tombol Ignore All.

 
5. Update driver VGA dan chipset motherboard, termasuk update BIOS dan konfigurasinya. Carilah info-info tentang konfigurasi BIOS secara tepat di internet.

 
6. Kosongkan folder Prefetch windows setiap 3 bulan atau lebih.
Windows XP merekam sebagian dari data atau aplikasi yang sering digunakan agar membuat proses load kelihatan lebih cepat ketika dipanggil oleh user. Hal ini bagus, tetapi untuk waktu yang lama, folder prefetch bisa jadi kelebihan muatan referensi file dan aplikasi yang tidak lagi digunakan. Jika hal itu terjadi, Windows XP akan membuang-buang waktu dan memperlambat performa sistem, ketika melakukan load aplikasi atau file. Tidak ada yang penting dalam folder tersebut, dan seluruh isinya aman untuk dihapus.
Folder tersebut terletak di: C:¥WINDOWS¥Prefetch¥

 
7. Sekali sebulan jalankan disk cleanup.
Caranya:
a. Buka Windows Explorer (My Computer)
b. Klik kanan pada drive C:
c. Pilih Properties
d. Klik tombol Disk Cleanup dan delete semua file temporer.

 
8. Pada Device Manager, klik ganda pada IDE ATA/ATAPI Controllers device, dan pastikan DMA di-enable (diaktifkan) untuk tiap drive yang terhubung ke Primary Controller dan atau Secondary controller.
Lakukan hal ini dengan cara:
a. Klik ganda pada Primary IDE Channel. kemudian klik tab Advance Settings.
b. Pastikan Transfer Mode -nya diset pada "DMA if Available" untuk kedua Device 0
dan Device 1.
c. Lakukan hal serupa pada Secondary IDE Channel.

 
9. Upgrade Pengkabelan.
Untuk peningkatan teknologi harddisk, dibutuhkan pengakabelan yang akan mendorong performa lebih baik. Pastikan untuk menggunakan kabel 80-wire Ultra-133 untuk semua device IDE dan gunakan konektor yang cocok dengan socket Master/Slave/Motherboard. Kalo Device-nya cuma satu, harus dihubungkan pada konektor yang paling ujung dari kabel pita (kabel data), jangan pada konektor yang di tengah kabel pita, jika tidak, maka akan terjadi masalah sinyal. Pada harddisk ultra DMA, masalah sinyal ini bisa mencegah harddisk memaksimalkan potensinya.

 
10. Buang semua spyware dari komputer.
Gunakan program gratisan seperti AdAware buatan Lavasoft atau SpyBot Search & Destroy. Setelah program ini terinstal, pastikan untuk melakukan cek update dan mendownloadnya jika ada, sebelum melakukan pencarian spyware di komputer. Apapun program yang ditemukan bisa dihapus secara aman. Semua program gratisan yang meminta spyware untuk dijalankan tidak akan berfungsi lagi. Jika program-program gratisan itu masih dibutuhkan tinggal instal lagi saja.

 
11. Buang semua program atau item yang tidak perlu dari rutin (routin) Windows Startup dengan menggunakan utilitas MSCONFIG.
Caranya:
a. Klik Start > Run > ketik MSCONFIG > klik OK
b. Klik tab StartUp ?> kemudian hilangkan checklist (tanda centang) dari program yang tidak diinginkan.
Tidak paham dengan item-item tersebut? Kunjungi WinTasks Process Library. Situs itu memuat proses sistem, aplikasi yang diketahui dan juga tentang referensi spyware dan penjelsannya. Atau bisa diidentifikasi nama item-item tersebut secara langsung dengan menggunakan google.

 
12. Buang semua program yang tidak digunakan dari Add/Remove Programs di Control Panel.

 
13. Matikan beberapa atau semua animasi yang tidak dibutuhkan dan nonaktifkan
(disable) active desktop. Pada kenyataannya, untuk optimasi performa, matikan semua animasi. Windows Xp menawarkan banyak setting-setting yang berbeda pada bagian ini.
Caranya:
a. Klik System Icon di Control Panel
b. Klik tab Advance
c. Klik tombol Settings pada kotak Performance.
d. Hilangkan checklist (tanda centang) opsi apa saja yang tidak ingin dijalankan.
Atau bisa langsung klik pada Radio Button: Adjust for best performance.

 
14. Kalo bisa mengedit Registry Windows XP, lakukan untuk meningkatkan performa
XP. Bisa menggunakan software tweak atau manual mengedit registry. Di internet sudah
banyak tersebar.

 
15. Kunjungi situs update Microsoft Windows secara rutin dan download semua update yang berlabel Critical. Download juga Optional update yang dibutuhkan. (ingat, kalau software OS windows XP -nya bajakan, jangan coba-coba untuk mengupdate, bisa dikasih "stempel" tanda bajakan sama Microsoft yang justru akan memperlambat sistem ketika booting dan running).

 
16. Update anti virus dalam sepekan sekali atau bahkan harian. Pastikan hanya satu software yang terinstal. Menggabungkan lebih dari satu antivirus hanya akan mengundang penyakit bagi performa dan kahandalan komputer. 

17. Pastikan font yang terinstal kurang dari 500 jenis saja pada komputer. Makin banyak font, makin lambatlah sistem. Walaupun windows XP lebih efisien dalam menangani font dari pada versi sebelumnya, tapi kelebihan font akan berdampak pada melemahnya sistem.

 
18. Jangan partisi harddisk. (Opsional saja)
NTFS File System Windows XP berjalan lebih efisien pada satu partisi yang besar. Data tidak lebih aman pada partisi terpisah, dan format ulang tidak dibutuhkan untuk instal ulang Sistem Operasi (OS). Satu partisi ini berfungsi agar tidak ada pembatasan oleh partisi akan tetapi akan dibatasi oleh ukuran kapasitas harddisk itu sendiri. Sehingga tidak perlu melakukan resize partisi yang meghabiskan waktu dan resiko kehilangan data.

 
19. Lakukan pengecekan terhadap sistem RAM untuk memastikan beroperasi dengan baik.
Saya merekomendasikan untuk menggunakan program gratisan MemTest86. Setelah didownload, bisa membuat bootable CD atau disket (sesuai pilihan) yang akan melakukan 10 macam tes pada memory PC secara otomatis setelah malakukan boot dengan CD atau disket yang dibuat. Biarkan semua tes berjalan sampai paling tidak melewati 3 tes selesai dari 10 tes. Jika program mendapati error, matikan dan cabut listrik komputer, cabut RAM memory, ganti dengan yang lain dan lakukan tes lagi. Ingat, memory yang rusak tidak bisa diperbaiki, dan hanya bisa diganti.

 
20. Jika terdapat CD atau DVD recorder / writer, carilah update firmware dari pabriknya. Pada beberapa kasus, upgrade terbukti bisa mempercepat recorder tersebut dan biasanya gratis.

 
21. Non aktifkan (disable) service (layanan) yang tidak penting. Windows XP memasang banyak service yang tidak dibutuhkan. Untuk menentukan service apa saja yang tidak dibutuhkan, buka situs Black Viper untuk konfigurasi Windows XP.

 
22. Jika tampilan tunggal Windows Explorer mengalami masalah ketika menampilkan file dan menghambat sistem operasi, lakukan langkah berikut:
a. Buka My Computer
b. Klik Tools
c. Klik Folder Options?
d. Klik tab View
e. Geser / gulung ke bawah menuju "Launch folder windows in a separate process",
aktifkan opsi ini. Setelah komputer di-restart, opsi ini akan berjalan.

 
23. Setidaknya sekali setahun, buka casing komputer dan bersihkan semua debu dan "puing-puingnya". Sementara itu cek juga kipasnya, apakah putarannya masih proporsional.