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.
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 }
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 :)
ane make delphi 7 dan windows 7 tapi g bisa bang?
ReplyDeleteCoba agan Jalankan Delphi 7nya dengan hak akses Administrator,,,
ReplyDelete