Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7

Selamat malam agan-agan.Langsung aja deh , tutorial kali ini akan membahas mengenai Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7.Aplikasi sederhana ini nantinya akan menampilkan sisa space pada hard disk , total space terpakai dan persentase memori yang terpakai dari total keseluruhan partisi.Kalau sudah gak sabar , langsung saja buka borland delphi 7 anda.Tambahkan 4 buah component TLabel , 1

buah TComboBox , isi itemnya dengan C , D , E , F.Lalu set item indexnya menjadi 0.Dan terakhir sebuah TButton.Susun component tersebut sesuai gambar berikut

Okay , setelah itu double klik TButton lalu ketikan kode berikut

procedure TForm1.Button1Click(Sender: TObject);
var
  sisaMemori, kapasitasMemori: Double;
  sisa: Char;
begin
  case ComboBox1.ItemIndex of
    0:sisa:='C';
    1:sisa:='D';
    2:sisa:='E';
    3:sisa:='F';
  end;

  sisaMemori := DiskFree(Ord(sisa) - 64);
  kapasitasMemori := DiskSize(Ord(sisa) - 64);

  label1.Caption := Format('Sisa Memori: %12.0n', [sisaMemori]);
  Label2.Caption := Format('Kapasitas: %12.0n', [kapasitasMemori]);
  Label3.Caption := IntToStr(Round((kapasitasMemori - sisaMemori) / kapasitasMemori * 100)) +' Persen Terpakai.';
end;

Selesai !! jalankan program anda lalu pilih drive mana yang akan di cek.Setelah itu tekan tombol hitung.Maka akan tampil tuh keterangan mengenai kapasitas dari partisi drive yang agan pilih.Sekian tutorial kali ini semoga bermanfaat.

Simak Juga Tutorial Lainnya:

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Procedure

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Mengenal Procedure dan Function Pada Delphi 7

Proggraming

• Cara Membuat Integer to Binary Konverter dan Sebaliknya di Delphi
• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Cara Membuat Aplikasi Client-Server Di Delphi XE Dengan Datasnap
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Greeting Blogger Template Dengan JQuery
• Flip Blogger Template Dengan JQuery
• Mozaik Photo Blogger Template Dengan JQuery
• Template JQuery Image Editing Untuk Blogger