Cara Menampilkan Ruang Kosong Disk di Form Visual Basic

Cara Menampilkan Ruang Kosong Disk di Form Visual Basic - tip berikut ini adalah Cara Menampilkan Ruang Kosong Disk di Form Visual Basic, dimana kapasitas Hardisk Anda akan terlihat di form visual basic, untuk membuat tip ini memang perlu ketelitian yang tinggi dari segi pengetikan kode program.

Visual Basic menyediakan sebuah fungsi yang bernama GetDiskSpaceEx yang bisa di gunakan untuk mengetahui kapasitas total dan jumlah ruang yang tersisa pada Disk. Dengan tip berikut ini Anda dapat menampilkan kapasitas total dan jumlah ruang yang tersisa pada Disket, Hardisk maupun CD/DVD-ROM melalui form yang Anda buat dengan VB.

Selain menampilkan kapasitas total dan ruang sisa, form tersebut juga menampilkan persentase ruang sisa dan diagram untuk memudahkan pengguna dalam membacanya, dalam gambar diatas program ditampilkan secara sederhana dengan warna putih dan hitam Anda juga dapat mempercantik tampilan sesuai dengan warna yang di inginkan

Cara Menampilkan Ruang Kosong Disk di Form Visual Basic

Berikut dibawah ini adalah langkah-langkah pembuatannya sebagai beikut :

1. Letakan Sebuah DriveListBox, 6 buah Label dan 3 buah Picturebox pada Form Yang perlu Anda perhatikan,Anda harus meletakan Picturebox pertama (Picture1) tepat diatas Label4 dengan ukuran yang sama, hasilnya seperti tampak gambar dibawah ini :

Tampilan form setelah diatur properties

Catatan: Label4 tidak terlihat karena ditindih atau diletakan dibelakang picturebox

2. Setelah itu atur properti masing-masing seperti tabel dibawah ini :

KONTROL	PROPERTI
Label4	BackColor:&H80000015&
Picture1	BackColor:&H80000005& Border Style :0-None
Picture2	BackColor:&H80000005& Border Style:1-Fixed Single
Picture3	BackColor:&H80000015& Border Style:1-Fixed Single

Catatan: Jika Anda kesulitan dalam mengatur properti dari label4 Anda dapat menggeser Picturebox1 yang menutupi label4

3. Setelah propertinya diatur maka hasilnya kurang lebih seperti gambar diatas. Setelah itu buka jendela kode, lalu ketikan kode dibawah ini:

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Public Sub GetDiskInfo()
DriveLetter = Drive1.Drive
spaceInt = InStr(DriveLetter, " ")
If spaceInt > 0 Then
DriveLetter = Left$(DriveLetter, spaceInt - 1)
End If

If Right$(DriveLetter, 1) <> "\" Then
DriveLetter = DriveLetter & "\"
DLetter = Left(UCase(DriveLetter), 1)
End If

Call GetDiskFreeSpaceEx(DriveLetter, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
TNB = TotalBytes * 10000
TFB = (TotalBytes - TotalFreeBytes) * 10000
Label1.Caption = "KAPASITAS TOTAL :" & Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"
Label2.Caption = "RUANG SISA :" & Format$(BytesFreeToCalller * 10000, "###,###,###,###0") & " bytes"
Label3.Caption = "PRESENTASE RUANG SISA :" & Format(100 - TFB / TNB * 100, "###.#0") & " %"
Picture1.Width = Format(100 - TFB / TNB * 100, "###.#0") * 50
End Sub

Private Sub Drive1_Change()
On Error GoTo errHandler
DriveLetter = Drive1.Drive & "\"
GetDiskInfo
Exit Sub
errHandler:
MsgBox "PERIKSA DULU DRIVE TUJUAN!", vbCritical, Error
End Sub

Private Sub Form_Load()
Label5.Caption = "Ruang Yang Kosong"
Label6.Caption = "Ruang Yang Terpakai"
GetDiskInfo
End Sub

5. Simpanlah hasil pekerjaan Anda Jalankan Program, hasilnya akan tampak seperti gambar pertama diatas,jika suatu saat Anda lupa belum memasukan disket maka akan tampil peringatan "Periksa dulu Drive Tujuan!!

Demikian tip Cara Menampilkan Ruang Kosong Disk di Form Visual Basic.Selamat mencoba semoga sukses.....

Related Post: Windows