Cara Mengganti Huruf pada Partisi HardDisk

Mengganti huruf partisi, Misal Disk(E:) di ganti Hurufnya menjadi Disk(D:) , Atau huruf lainya, asal tidak sama dengan huruf di partisi lain...

1. Start - pada Search ketik "Computer Management" , tanpa tanda petik - klik Enter
2. Klik Computer Management (Local) - klik "Storage" - klik lagi "Disk Management (Local)"
3. Cari partisi yang inggin di ubah Huruf-nya (di kotak2 bawah warna biru)- Klik kanan, Misal pada Disk (E:) 
4. Lalu pilih "Change Drive Latter and Paths..."
5. Dan akan keluar Kotak Dialog "Change Drive Latter and Paths'' - Pilih :E - Klik Change
6. Akan terbuka lagi Kotak Dialog  "Change Drive Latter or Paths" 
7. Di sebelah kanan Dialog, Pilih Huruf yang di Kehendaki - Dan Klik OK
8. Buka My Computer, Maka Huruf di partisi sobat sudah berubah

Semoga Bermanfaat

Memasukan Berbagai File di Resource VB.net

Langkah Memasukan File Resources

1. Buka VB.NET, Buat Project baru

2. Pada Solution Explorer, Letak (pojok kanan atas)

3. Double Klik My Project

4. Klik/Pilih TAB Resources

5. Pilih kategori yang diinginkan (Strings, Images, Icons, Audio, Files, Other)

6. Klik Add Resource untuk membuat resource sendiri
   dan Klik tanda panah di Add Resource, Pilih Add Existing File, Untuk menambah Resource dari          File/Folder Lain

Mengganti Nama pada Aplikasi yang terbuka

Kali ini saya akan posting sedikit kode jail dengan VB.net, Kode ini berfungsi mengganti nama Semua File yang terbuka pada komputer sobat, dengan nama yang sudah di tentukan...

Asset : Timer

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As IntegerPrivate Declare Function GetDesktopWindow Lib "user32" () As IntegerPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String) As Integer
 Dim i As Integer


'ketik pada tombol atau timer
        i = GetWindow(GetDesktopWindow(), 5)
        Do While i <> 0
        SetWindowText(i, "TULIS NAMA DI SINI")
        i = GetWindow(i, 2)
        Loop

Sumber : PutraVB

Mengetahui Ukuran Suatu File

Asset : 4 Button


'KETIK PADA MASING2 TOMBOL UNTUK MENCOBA


'Cek ukuran file dengan satuan Byte
 Dim l As Long
 l = FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\FLV VIDEO.flv")
 MsgBox(l)


'Cek ukuran file dengan satuan Kilo Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\SWF VIDEO.swf") / 1024))
 MsgBox(l & " KB")


'Cek ukuran file dengan satuan Mega Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\WMV VIDEO.wmv") / 1024) / 1024)
 MsgBox(l & " MB")


'Cek ukuran file dengan satuan Giga Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\SWR\OFFICE_PRG_SOFTWARE\OFFICE 2010.rar") / 1024) / 1024 / 1024)
 MsgBox(l & " GB")

Meload File Text tanpa membuka Aplikasi

Fungsi ini sangat penting untuk membuat aplikasi pada VB.net.
Yaitu dimana saat Sobat, misalkan membuat Aplikasi Notepad, Sobat tidak perlu membuka Aplikasi Notepad Sobat dan Klik Open File untuk membaca File Text.
Cukup dengan Klik 2x atau Double Klik pada file Text, Dan otomatis Aplikasi Notepad sobat akan terbuka dan membaca File text yang sobat Klik tadi...mudah-mudahan sobat gak pusing...he..he


Asset : 2 TextBox

'Masukan Kode di bawah di Form Load
      
Try

            If Microsoft.VisualBasic.Command <> "" Then

Membuat BackColor Gradient pada Form

Asset : Form & Module

'Buat modul baru, Dan isikan kode di bawah ini
Dim a As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(0, 0, Frm.Width, Frm.Height), StartColor, EndColor, Mode)
        Dim g As Graphics = Frm.CreateGraphics
        g.FillRectangle(a, New RectangleF(0, 0, Frm.Width, Frm.Height))
        g.Dispose()


'Ketik di form resize atau tombol juga bisa

GradientForm(Me, Color.Red, Color.Blue, 0)

'Ketik di area kosong pada Form
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        GradientForm(Me, Color.Red, Color.Blue, 0)
    End Sub

Ket : Modul berfungsi untuk membuat warna Bacground dan mengatur bentuk Gradient
        Form ReSize, Menentukan warna yang akan di buat dan mengatur ukuran Gradient sesuai skala pada    Form
        Fungsi kode terakhir, yaitu untuk menentukan warna yang akan dijadikan BackColor pada form (bisa di ganti)

Form Berlatar Gambar Background

Mungkin judul di atas cukup membingungkan sobat, Judul di atas maksudnya adalah Latarbelakang atau Background image Form aplikasi sobat akan sama dengan Wallpaper yang sobat pasang di komputer sobat.
Kalau masih pusing , Langsung di coba aja biar ngerti..he..he

Asset : Form

'Tempatkan kode berikut di atas Form Class
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Integer) As IntegerPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer

'Masukan kode di bawah di Timer
PaintDesktop(GetDC(Me.Handle.ToInt32))

Sekarang coba RUN aplikasi sobat , Gimana..Udah ngerti-kan

 Sumber : PutraVB

Drag Drop File Text ke TextBox

Fungsi code ini yaitu, Membaca isi File TXT ke TextBox dengan cara Drag Drop

Asset : 1 TextBox

'Masukan kode ini di Form

Private _DraggingFileName As String

'Masukan Kode ini di TextBox dengan Event DragDrop
 Me.TextBox1.Text = My.Computer.FileSystem.ReadAllText(_DraggingFileName)

'Masukan Kode ini di TextBox dengan Event DragLeave
 _DraggingFileName = String.Empty

MenDisable atau Mematikan Fungsi Key Alt + F4

Fungsi dari kode di bawah adalah, Supaya aplikasi yang sobat buat tidak bisa dimatikan memakai Fungsi tombol Alt + F4.
Fungsi bisa di rubah sesuai keinginan sobat

Aseet : Form

'Masukan kode berikut ke dalam Form (bukan form load)
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = (Keys.Alt Or Keys.F4) Then
            Return True
        Else
            Return MyBase.ProcessCmdKey(msg, keyData)
        End If
    End Function

Sekarang RUN aplikasi sobat, Lalu tekan Alt + F4 , Fungsi ini berhasil Jika aplikasi tidak tertutup

Copy File VB.net

Menyalin/MengCopy file dalam satu folder ke folder lain :

Asset : 1 Button

'Masukan code di bawah ini ke Button1

Dim Fs, Fd As String
        Fs = "C:\Users\user\Desktop\FolderA"
        Fd = "D:\FolderB"
        My.Computer.FileSystem.CopyDirectory(Fs, Fd, False)

Ket : Fs : Adalah lokasi dimana tempat/lokasi folder yang ingin di Copy (FolderA)
               File2 di dalam folderA, akan di Copy ke Fd : yaitu di Drive D (FolderB)

Menghapus URL/Situs

Bila sobat ingin menghapus Halaman/Situs yang tidak di sukai pada komputer Sobat,
Mungkin karena situs tersebut berbau Porno atau mengandung unsur SARA, Jadi layak di bersihkan...
Pembersihan/Penghapusan ini tidak menyeluruh, Artinya jika sobat memakai komputer dengan
Jaringan yang berbeda, Halaman tersebut masih bisa di Akses.
Untuk menghapus Situs, Sobat bisa klik link di bawah ini :

https://www.google.com/webmasters/tools/removals










0. Syarat, sobat harus punya Akun Google dulu
1. Klik Create a new  removal request
2. Isikan pada kolom, Situs yang ingin di hapus
3. Klik Continue
4. Masukan situsnya kembali/ pilih URL halamanya
5. Klik Removal


Sekian Terimakasih, Semoga Bermanfaat

CAP Manifest File

Untuk membuat Visual Styles pada Visual Basic 6.0
Supaya Sesuai dengan Visual Styles yang ada pada Komputer
 
   
     1. Pada VB6.0, Pilih menu Project - Properties (paling bawah)
     2. Pilih TAB Make, Pada Version Information - Type
     3. Cari File Description dan isikan selera anda (Misal FD)
     4. Pada Type cari Product Name dan isikan       (Misal PN)
     5. Lalu Ok
                                                      
     >> Pada Aplikasi CAP Manifest File :
      - Isikan PN pada Kolom Product Name"
      - Dan Isikan FD pada Kolom File Description
      - Lalu Save, Dan Nama sesuai nama Aplikasi anda
      - Dan letakan/simpan di satu folder dengan Aplikasi anda

ScreenShot :

Download di sini

CAP Gif Viewer

Aplikasi saya yang satu ini berfungsi untuk menjalankan file yang berExtension (*.gif), Atau file Animasi
Aplikasi ini di khususkan untuk win Vista n Seven karena ke 2 OS tersebut tidak bisa menjalankan File Gif dengan baik,
Alias gambarnya diam tidak bergerak.
Mungkin bisa file Gif di jalankan di OS tersebut, Tapi menggunakan Internet Explorer, Kalau komputernya Cepet tidak apa2, Tapi kalau lambat, Membuka satu file Gif akan makan waktu.
Aplikasi ini hanya berukuran 51 KB , Sangat kecil sekali, Jadi saat meload File juga Cepat.
Tidak usah menginstal, Karena file-nya cuma satu.

Download di sini

Cara Penggunaan :

SERIAL NUMBER WINDOWS SEVEN

Windows 7 Ultimate x86/x64

FJGCP-4DFJD-GJY49-VJBQ7-HYRR2 (ACER/GATEWAY/PACKARD BELL)
2Y4WT-DHTBF-Q6MMK-KYK6X-VKM6G (ASUS)
342DG-6YJR8-X92GV-V7DCV-P4K27 (DELL)
22TKD-F8XX6-YG69F-9M66D-PMJBM (IBM-LENOVO / OLD)
6K2KY-BFH24-PJW6W-9GK29-TMPWP (IBM-LENOVO / NEW)
49PB6-6BJ6Y-KHGCQ-7DDY6-TF7CD (SAMSUNG)
VQ3PY-VRX6D-CBG4J-8C6R2-TCVBD (Alienware)


Windows 7 Professional x86/x64

Sound Pada Komputer

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question)

Membuat Folder dengan nama Angka Acak

Imports System
Imports System.IO

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FN As Object 'FN adalah File Name
        FN = RGB(Int(256 * Rnd()), Int(256 * Rnd()), Int(256 * Rnd()))
        Directory.CreateDirectory(("C:\") & FN) 'Folder di buat di C
    End Sub

End Class

Desktop Refresh

  Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Int32, ByVal uFlags As Int32, ByVal dwItem1 As Int32, ByVal dwItem2 As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Refresh
        SHChangeNotify(&H8000000, &H0, 0, 0)
    End Sub

Menghapus File dan Folder

ASSET : 2 Button

'Menghapus File
Imports System
Imports System.IO

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Delete("C:\COBA.txt")
    End Sub



'Menghapus Folder

Imports System
Imports System.IO

      Directory.Delete("C:\COBA")

6 Cara Agar Otak Makin Pintar

Menurut penelitian di University of Virginia, gangguan memori bisa muncul sejak usia 20-an. Setelah mengevaluasi lebih dari 2.000 pria dan wanita berusia antara 18-60 tahun selama tujuh tahun, para peneliti menemukan bahwa pada usia 27, kecepatan otak dalam memecahkan teka-teki, dan penalaran mulai menurun.
Namun Anda tidak perlu panik. Otak masih memiliki kemampuan untuk menyimpan memori. Hanya saja pemanggilan memori tersebut sedikit tersendat. Ini menunjukkan bahwa otak harus dijaga kesehatannya agar tetap fokus dan berfungsi optimal.
Berikut 6 langkah sehat yang bisa Anda lakukan untuk menjaga kesehatan dan fungsi otak agar tetap berfungsi optimal.

Tetap Aktif

Kebugaran fisik dapat meningkatkan ukuran hippocampus (bagian otak yang terhubung dengan ingatan jangka panjang). Lakukan jenis latihan apa pun agar darah Anda mengalir dengan baik. Jogging dan renang bisa menjadi pilihan yang tepat untuk meningkatkan fungsi otak Anda.

Misteri Video Wanita Berponsel di Tahun 1938 Terkuak

London - Pengakses YouTube sempat dihebohkan oleh kemunculan video tahun 1938 yang menampilkan seorang wanita menggunakan ponsel. Padahal kala itu, teknologi komunikasi wireless belum ada. Muncul spekulasi sang wanita adalah penjelajah waktu dari masa depan. Benarkah?

Video wanita itu membuat heboh di kalangan pengguna internet sejak lama. Yang jadi pertanyaan, bagaimana mungkin ada orang yang menggunakan ponsel plus handset tanpa kabel. Ada 300 ribu orang yang menonton video yang dibuat di sebuah pabrik di Amerika Serikat pada tahun 1930-an itu.

Mereka yang percaya teori konspirasi menduga, wanita itu adalah penjelajah waktu dari masa depan. Dia membawa teknologi kini ke masa lalu, hingga terekam kamera.

Foto awan berdoa di atas makam UJE, Ternyata Palsu

Beberapa hari ini beredar foto di internet yang menggambarkan sebuah awan yang berbentuk orang berdoa di atas makam Uje. Menurut berita yang menyertai peredaran foto itu, Pipik Dian Irawati istri Uje sendiri yang menunjukkan foto itu kepada wartawan di rumahnya.

"Dia orangnya baik. Saking baiknya dia, waktu habis pemakaman ada yang ambil foto awannya, bentuknya begini, orang sedang berdoa. Luar biasa, ini bukti bahwa suami saya nggak pernah pilih kasih, dia selalu mendoakan siapa pun yang ketemu sama dia," Begitu kata Pipik ketika itu. 

Tidak dipungkiri bahwa Uje memang orang baik, melihat begitu membanjirnya para pelayat yang mengiringi pemakaman beliau. Tapi jika kemudian kepopuleran Uje dimanfaatkan orang yang tidak bertanggungjawab, tentu sangat disayangkan.

Begitulah yang yang terjadi pada ‘foto awan berdoa’ di atas makam Uje. Ternyata foto dan berita itu adalah palsu. Benar bahwa ada foto awan seperti itu, namun moment nya tidak pada hari pemakaman Uje.

Planet Baru di Luar Tata Surya

Para ahli ilmu astronomi Eropa menemukan 32 planet baru di luar sistem tata surya. Penemuan itu memperkuat bukti dari teori bahwa jagat semesta sebenarnya memiliki banyak tempat yang bisa membangun kehidupan.

Menggunakan teleskop dari European Southern Observatory, para peneliti mengungkapkan bahwa planet-planet yang mereka temukan berukuran tidak sama dengan bumi. Mereka menduga apakah planet-planet itu layak huni. Namun, hasil penelitian itu menambah jumlah planet yang ditemukan di luar tata surya, yaitu sebanyak lebih dari 400 buah.  

Enam dari planet-planet yang baru ditemukan berukuran beberapa kali lebih besar dari Bumi, yang diyakini bisa menampung habitat lebih dari 30 persen dari kapasitas Bumi. Sebagian besar planet yang ditemukan ada yang berukuran sama besar dari Planet Jupiter.

NASA Menutupi Fakta Kebenaran Lailatul Qadar

 

Kepala Lembaga Mukjizat Ilmiah Al-Quran dan Sunnah di Mesir, Dr. Abdul Basith As-Sayyid menegaskan, Badan Nasional Antariksa Amerika (NASA) telah menyembunyikan kepada

dunia bukti empiris ilmiah tentang (malam) Lailatul Qadar. Ia menyayangkan kelompok jutawan Arab yang kurang perhatian dengan masalah ini sehingga dunia tidak mengetahuinya. Menurutnya, sesuai dengan hadits Nabi bahwa malam Lailatul Qadar adalah “baljah” (بَلْجَة); tingkat suhunya sedang), tidak ada bintang atau meteor jatuh ke (atmosfer) bumi, dan pagi harinya matahari keluar dengan tanpa radiasi cahaya.” 

 

Sayyid menegaskan, terbukti secara ilmiah bahwa setiap hari (hari-hari biasa) ada 10 bintang dan 20 ribu meteor yang jatuh ke atmosfer bumi, kecuali malam Lailatul Qadar dimana tidak ada radiasi cahaya sekalipun. Hal ini sudah pernah ditemukan Badan Antariksa NASA 10 tahun lalu. Namun mereka enggan mempublikasikannya dengan alasan agar non Muslim tidak tertarik masuk Islam. Statemen ini mengutip ucapan seorang pakar di NASA Carner, seperti yang dikutip oleh harian Al-Wafd Mesir.

 

Peristiwa Bintang Jatuh Menurut Islam

Ada teori yang menyebutkan bahwa apa yang banyak disebut orang-orang saat ini sebagai bintang jatuh adalah sebuah fenomena langit biasa, dimana ada sebuah meteorit-meteor ataupun batu-batuan angkasa yang kebetulan saat itu jatuh menuju ke arah bumi. Dan seperti yang diketahui bahwa bumi memiliki lapisan Atmosfer yang melindunginya dari serbuan benda-benda langit yang setiap saat menghujaninya. Dan dengan sabuk pelindung (atmosfer) ini, para penghuni bumi dapat sedikit merasa lega karena saat ada benda-benda langit yang jatuh ke arah bumi, maka benda-benda itu akan bergesekan terlebih dahulu dengan atmosfer bumi yang perlahan dapat mereduksi tingkat bahaya yang akan ditimbulkan benda-benda angkasa luar yang jatuh ke bumi tersebut. Nah, saat melewati atmosfer inilah terjadi gesekan antara benda-benda langit itu (batuan dan sampah-sampah angkasa) dengan atmosfer bumi kita sehingga menimbulkan cahaya berpijar yang indah yang kemudian dikenal sebagai meteor dan juga bintang jatuh.

Mengganti bahasa pada Bloger

Biasanya ada kesalahan bahasa saat kita membuat blog baru, Mungkin kita kurang memperhatikan saat memilih Bahasa apa yang kita gunakan pada Blog yang akan kita buat.
Tapi itu tidak jadi masalah, Bila Sobat mengalami hal seperti itu, Ikuti aja Langkah di bawah ini, Simple dan Gak Pake Repot :

1. Buka Bloger Sobat
2. Terus sobat Klik Link berikut : http://www.blogger.com/language.g
3. Setelah terbuka , Klik kotak bahasa , Lalu pilih bahasa yang sobat kehendaki
4. Selanjutnya, Klik kotak warna Oranye di bawahnya (biasanya bertuliskan "simpan setelan")
5. Setelah sobat klik, Sobat akan di arahkan pada Dasbor Bloger sobat yang Bahasanya sudah di ganti dengan Bahasa pilihan sobat tadi

Demikian sedikit tutorial dari saya
♠ Semoga Bermanfaat ♠

Cara Mempercepat Proses Booting Windows 7

Cara agar proses booting windows 7 Anda lebih cepat dari biasanya. Tentu Anda tidak ingin kan booting komputer Anda secepat siput?

Syarat yang harus terpenuhi yaitu prosesor yang Anda gunakan adalah prosesor multi inti atau yang lebih kita kenal dengan dual core (2 inti prosesor) dan quad core (4 inti prosesor).

Namun, jika persyaratan ini belum Anda penuhi tidak apa-apa, ini bukanlah menjadi persoalan karena anda dapat referensikan tips ini kepada teman-teman Anda.

Langkah :

1. Klik Start program

2. Ketikkan msconfig pada kolom search kemudian enter

3. Pilihlah tab boot

4. Klik Advanced

5. Centang Number of proccessors dan pilih “2″ jika prosesor Anda dual qore atau “4″ jika prosesor Anda Quad Core pada menu dropdown.

Sumber :  http://tips-komputer.com