delphi - Disk forbrug? - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

<< < 1 2 > >>

Bruger #1387 @ 27.07.03 21:57

Hej

Jeg har brugt denne kode til et meget lille program som skal vise disk forbrug:

Kode


procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

end;

Det virker fint...det er ikke det...

Men hvordan laver jeg så jeg kan vise hvor meget plads der er fri? i %?
Og evt. vise det i en ProgressBar...?

Mvh Kim - FreeSoft
_____________________________
http://thefreeworld.h4f.dk

12 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #1518 @ 28.07.03 00:15

Hej

Jeg har brugt denne kode til et meget lille program som skal vise disk forbrug:

Kode
procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

end;
Det virker fint...det er ikke det...

Men hvordan laver jeg så jeg kan vise hvor meget plads der er fri? i %?
Og evt. vise det i en ProgressBar...?

Mvh Kim - FreeSoft
_____________________________
http://thefreeworld.h4f.dk

Her er lidt utestet materiale. Håber du kan se logikken i det

Kode

  // ex. total = 40, ledig = 25
  // 40 - 25 = 15;
  // 15 / 40 = 0,375
  // 0,375 * 100 = 37,5%
  procent := (total - ledig) / total * 100;


  ProgressBar1.MinValue := 0;
  ProgressBar1.MaxValue := 100;
  
  for i := 0 to procent do
  begin
    ProgressBar1.Progress := i;
    Sleep(10);
    Application.ProcessMessages;
  end;

Hilsen Peter aka XtenS
xtens@beerteam.dk
------------------------
Hvis man blander vand og salt, så bliver det til ILD!

[Redigeret d. 28/07-03 00:17:26 af Peter (XtenS)]

Bruger #208 @ 29.07.03 00:44

236

Hej

Jeg har brugt denne kode til et meget lille program som skal vise disk forbrug:

Kode
procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

end;
Det virker fint...det er ikke det...

Men hvordan laver jeg så jeg kan vise hvor meget plads der er fri? i %?
Og evt. vise det i en ProgressBar...?

Mvh Kim - FreeSoft
_____________________________
http://thefreeworld.h4f.dk

ProgressBar1.Max := Total;
ProgressBar1.Position := Ledig;

// eller

ProgressBar1.Max := Total;
ProgressBar1.Position := Total - Ledig; // (Plads brugt)

Emil Melgaard
emil.melgaard@private.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

Bruger #4108 @ 29.07.03 11:06

Ok...men hvad skal procent være?
osse integer? eller?

Min kode ser sådan ud:

Kode


procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
  i: integer;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;    

end;

/Kim - FreeSoft
_______________________________
http://thefreeworld.h4f.dk

Hej

Er det ikke meget nemmere at sige

// hvis LblDisk3.Caption = 73 så er der 100 - 73 = 27 procent er ledige
LblDisk4.Caption := inttostr(100 - strtoint(LblDisk3.Caption)) + 'Procent er ledige';

men hvis du helere vil bruge den anden skal procent være en integer.

Johnny Rasmussen
-------------------------
Nyd livet mens du kan ;-)

[Redigeret d. 29/07-03 11:07:20 af johnny rasmussen]

Bruger #1162 @ 27.07.03 23:31

lytter med her

Bruger #1387 @ 28.07.03 18:13

jeg har rettet lidt i det...:

Kode


   procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;

men jeg får disse fejl:
[Error] Unit1.pas(67): Undeclared identifier: 'total'
[Error] Unit1.pas(72): Undeclared identifier: 'i'

/Kim
_______________________________
http://thefreeworld.h4f.dk

Bruger #1518 @ 28.07.03 20:26

jeg har rettet lidt i det...:

Kode
   procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;
men jeg får disse fejl:
[Error] Unit1.pas(67): Undeclared identifier: 'total'
[Error] Unit1.pas(72): Undeclared identifier: 'i'

/Kim
_______________________________
http://thefreeworld.h4f.dk

Fordi du lige skal deklarer de variabler.

Kode

procedure Form1.Noget();
var
  i: integer;
begin
  kode her...
end;

total skulle gerne være deklareret, da jeg kan se at du bruger den.
(procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
s : char;
total,ledig : double;
begin)

Hilsen Peter aka xtens
xtens@beerteam.dk
------------------------
Hvis man blander vand og salt, så bliver det til ILD!

Bruger #1387 @ 29.07.03 08:42

jeg har rettet lidt i det...:

Kode
   procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;
men jeg får disse fejl:
[Error] Unit1.pas(67): Undeclared identifier: 'total'
[Error] Unit1.pas(72): Undeclared identifier: 'i'

/Kim
_______________________________
http://thefreeworld.h4f.dk

Fordi du lige skal deklarer de variabler.

Kode
procedure Form1.Noget();
var
  i: integer;
begin
  kode her...
end;
total skulle gerne være deklareret, da jeg kan se at du bruger den.
(procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
s : char;
total,ledig : double;
begin)

Hilsen Peter aka xtens
xtens@beerteam.dk
------------------------
Hvis man blander vand og salt, så bliver det til ILD!

Ok...men hvad skal procent være?
osse integer? eller?

Min kode ser sådan ud:

Kode


procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
  i: integer;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;    

end;

/Kim - FreeSoft
_______________________________
http://thefreeworld.h4f.dk

[Redigeret d. 29/07-03 08:44:18 af Kim Rasmussen]

Bruger #1518 @ 29.07.03 12:16

jeg har rettet lidt i det...:

Kode
   procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;
men jeg får disse fejl:
[Error] Unit1.pas(67): Undeclared identifier: 'total'
[Error] Unit1.pas(72): Undeclared identifier: 'i'

/Kim
_______________________________
http://thefreeworld.h4f.dk

Fordi du lige skal deklarer de variabler.

Kode
procedure Form1.Noget();
var
  i: integer;
begin
  kode her...
end;
total skulle gerne være deklareret, da jeg kan se at du bruger den.
(procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
s : char;
total,ledig : double;
begin)

Hilsen Peter aka xtens
xtens@beerteam.dk
------------------------
Hvis man blander vand og salt, så bliver det til ILD!

Ok...men hvad skal procent være?
osse integer? eller?

Min kode ser sådan ud:
Kode
procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
  i: integer;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;    

end;
/Kim - FreeSoft
_______________________________
http://thefreeworld.h4f.dk

[Redigeret d. 29/07-03 08:44:18 af Kim Rasmussen]

procent skal være float.

Hilsen Peter aka XtenS
xtens@beerteam.dk
------------------------
Hvis man blander vand og salt, så bliver det til ILD!

Bruger #1387 @ 29.07.03 17:12

ok...men jeg får denne fejl:
Undeclared identifier: 'float'

kode:

Kode


procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
  i: integer;
  procent: float;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;

LblDisk4.Caption := inttostr(100 - strtoint(LblDisk3.Caption)) + 'Procent er ledige';

end;

hva skal jeg?

_______________________________
http://thefreeworld.h4f.dk

Bruger #4108 @ 31.07.03 16:19

ok...men jeg får denne fejl:
Undeclared identifier: 'float'

kode:

Kode


procedure TDiskForm.DriveComboBox1Change(Sender: TObject);
var
  s : char;
  total,ledig : double;
  i: integer;
  procent: float;
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
LblDisk1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
LblDisk2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
LblDisk3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';

procent := (total - ledig) / total * 100;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := 100;

  for i := 0 to procent do
  begin
    ProgressBar1.Position := i;
    Sleep(10);
    Application.ProcessMessages;
  end;

LblDisk4.Caption := inttostr(100 - strtoint(LblDisk3.Caption)) + 'Procent er ledige';

end;

hva skal jeg?

_______________________________
http://thefreeworld.h4f.dk

Du skal ikke skrive float men real så burde det virke.

Johnny
_______________________________
SMIL det er det næst bedste du kan med læberne.

<< < 1 2 > >>

Disk forbrug?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler