Posted by : Rhyf Ahmad Saturday, June 02, 2012

Pemrograman Pascal merupakan salah satu bahasa yang paling banyak digunakan untuk mendevelop software. Walaupun tidak banyak mengalami pengembangan layaknya bahasa lain seperti Bahasa C++ atau Visual Basic, namun sebagian besar orang berminat untuk mendalami bahasa pemrograman ini dikarenakan lebih mudah dimengerti daripada bahasa pemrograman lainnya.
Pada postingan ini, akan dibahas bagaimana cara mengetahui kapasitas ruang penyimpanan dengan bahasa ini.

Kode yang pertama, digunakan untuk mengetahui besarnya kapasitas ruang penyimpanan, listing kodenya seperti yang terlihat di bawah ini.

var
   i     : integer;
   space : int64;
begin
   //Menampilkan kapasitas pada drive B sampai D
   for i := 2 to 4 do
   begin
      space := DiskSize(i);

      if space >= 0
      then ShowMessage(Chr64(i+64)+' Drive Size = '+
                          FloatToStrF(space, ffNumber, 20, 0))
      else ShowMessage(Chr64(i+64)+' Drive Tidak Ada ');
    end;
end;

Hasilnya :

B Drive Tidak Ada
C Drive size = 8,558,000
D Drive size = 5,225,556

Setiap drive dilambangkan seperti ini :

Drive A = 1
Drive B = 2
Drive C = 3
Drive D = 4
............

Kode yang kedua, digunakan untuk mengetahui ruang kosong pada ruang penyimpanan, listing kodenya seperti yang terlihat di bawah ini.

var
   i     : integer;
   space : int64;
begin
   //Menampilkan ruang kosong pada drive B sampai D
   for i := 2 to 4 do
   begin
      space := DiskFree(i);


      if space >= 0
      then ShowMessage(Chr64(i+64)+' Drive free space = '+
                          FloatToStrF(space, ffNumber, 20, 0))
      else ShowMessage(Chr64(i+64)+' Drive Tidak Ada ');
    end;
end;


Nah, mudah kan sob, hehehe...

{ 2 comments... read them below or Comment }

  1. ane make delphi 7 dan windows 7 tapi g bisa bang?

    ReplyDelete
  2. Coba agan Jalankan Delphi 7nya dengan hak akses Administrator,,,

    ReplyDelete

You can leave a comment to request any article(s), software(s), ebook(s) or report the dead link.
Then I will reply as soon as I can :)

Welcome to My Blog

Recent Post

Recent Posts Widget
Instagram

- Copyright © Madriva -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -