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


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. var  
  3.   sisaMemori, kapasitasMemori: Double;  
  4.   sisa: Char;  
  5. begin  
  6.   case ComboBox1.ItemIndex of  
  7.     0:sisa:='C';  
  8.     1:sisa:='D';  
  9.     2:sisa:='E';  
  10.     3:sisa:='F';  
  11.   end;  
  12.   
  13.   sisaMemori := DiskFree(Ord(sisa) - 64);  
  14.   kapasitasMemori := DiskSize(Ord(sisa) - 64);  
  15.   
  16.   label1.Caption := Format('Sisa Memori: %12.0n', [sisaMemori]);  
  17.   Label2.Caption := Format('Kapasitas: %12.0n', [kapasitasMemori]);  
  18.   Label3.Caption := IntToStr(Round((kapasitasMemori - sisaMemori) / kapasitasMemori * 100)) +' Persen Terpakai.';  
  19. 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.

0 Response to " Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!