Console

Når man laver et console program, hvordan får man så et linie til skifte uden at man laver en ny. F.eks. Den skriver: Installere 1%.. Så procenten skifter. Altså opdatere en linie uden af lave ny linie???

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

Hmm, ikke nogle haj til Delphi, men i teorien, kan du da bare lave en clear screen, og så bare udskrive det hele igen, bare med procenten ændret hihi besværligt og langsomt, men det virker

Jan Larsen
CO-owner Jabo-web.com
http://www.jabo-web.com/ref=3

Kode 

program MitProgram; // Her starter programmet jo :D

{$APPTYPE CONSOLE} // Det er et konsol program

uses
  SysUtils, // Lidt utilities til at styre det hele
  Windows; // Her inkludere vi Windows uniten

var
  Console: THandle; // Konsollens Handle
  Coord: TCoord; // Et kordinat
  I: Integer; // En simpel integer værdi

begin
  Write('Testing '); // Udskriv noget
  Console := GetStdHandle(STD_OUTPUT_HANDLE); // Find konsollen handle
  for I := 0 to 100 do begin // Kør fra 0 til 100 procent
    Coord.X := 8; // Sætter X kordinatet til 8 ( Længden af 'Testing ' )
    Coord.Y := 0; // Sætter Y kordinatet til 0, dvs linje et
    SetConsoleCursorPosition(Console, Coord); // Sender kordinatet, får at sige til Windows at vi vil skrive herfra
    Write(IntToStr(I) + '%...'); // Udskriver I% med tre punktumer efter. Eks. 1%... 2...
    Sleep(100); // Venter lige et lille stykke tid
  end; // Luk for proceduren
end. // Luk programmet

Tak for svaret The-Freak, jeg tester det når jeg kommer hjem. Hvis det virker får du point. Kendte du til det i forvejen, eller fandt du det på nettet?? Hvis du fandt det på nettet, hvordan fandt du det??


Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

[Redigeret d. 28/06-04 13:54:33 af Frede_Manden]

Jaah, man kan jo godt sige at jeg fandt det på nettet... Jeg kiggede ind på Bertel Branders side, hvor jeg vidste at han havde sådan en "Bettle" eller sådan noget. Den bruger de præncipper det. Jeg konverterede den så til Pascal, og lavede lidt om på det, så det kunne bruges sådan som du ville have det.

Tak til Bertel Brander for hans side

MH.

The-Freak

Livet er for kort til at kede sig.

Skriv lige din kode så skal jeg se om jeg kan gøre noget...

SkypeR That\\'s me

SkypeR: Jeg kender jo ikke koden!

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

SkypeR: Jeg kender jo ikke koden!

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

Jeg regnede med at du var igang med at lave et program og så kune du jo lige smide din kode her ind på forumet så vi kunne se på det...

SkypeR That\\'s ME

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%6E%73%6C%61%74%65%64%20%74%68%69%73%2C%20%79%6F%75%20%6D%75%73%74%20%62%65%20%62%6F%72%65%64%2E%2E%2E

Sådan her:

program MitProgram; // Her starter programmet jo :D

{$APPTYPE CONSOLE} // Det er et konsol program

uses
  SysUtils, // Lidt utilities til at styre det hele
  Windows; // Her inkludere vi Windows uniten

var
  Console: THandle; // Konsollens Handle
  Coord: TCoord; // Et kordinat
  I: Integer; // En simpel integer værdi

begin
  Write('Testing '); // Udskriv noget
  Console := GetStdHandle(STD_OUTPUT_HANDLE); // Find konsollen handle
  for I := 0 to 100 do begin // Kør fra 0 til 100 procent
    Coord.X := 8; // Sætter X kordinatet til 8 ( Længden af 'Testing ' )
    Coord.Y := 0; // Sætter Y kordinatet til 0, dvs linje et
    SetConsoleCursorPosition(Console, Coord); // Sender kordinatet, får at sige til Windows at vi vil skrive herfra
    Write(IntToStr(I) + '%...'); // Udskriver I% med tre punktumer efter. Eks. 1%... 2...
    Sleep(100); // Venter lige et lille stykke tid
  end; // Luk for proceduren
end. // Luk programmet

Et meget simpelt eksempel, men det virker

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 28/06-04 11:52:13 af The-Freak]

program MitProgram; // Her starter programmet jo :D

{$APPTYPE CONSOLE} // Det er et konsol program

uses
  SysUtils, // Lidt utilities til at styre det hele
  Windows; // Her inkludere vi Windows uniten

var
  Console: THandle; // Konsollens Handle
  Coord: TCoord; // Et kordinat
  I: Integer; // En simpel integer værdi

begin
  Write('Testing '); // Udskriv noget
  Console := GetStdHandle(STD_OUTPUT_HANDLE); // Find konsollen handle
  for I := 0 to 100 do begin // Kør fra 0 til 100 procent
    Coord.X := 8; // Sætter X kordinatet til 8 ( Længden af 'Testing ' )
    Coord.Y := 0; // Sætter Y kordinatet til 0, dvs linje et
    SetConsoleCursorPosition(Console, Coord); // Sender kordinatet, får at sige til Windows at vi vil skrive herfra
    Write(IntToStr(I) + '%...'); // Udskriver I% med tre punktumer efter. Eks. 1%... 2...
    Sleep(100); // Venter lige et lille stykke tid
  end; // Luk for proceduren
end. // Luk programmet

Tak for svaret The-Freak, jeg tester det når jeg kommer hjem. Hvis det virker får du point. Kendte du til det i forvejen, eller fandt du det på nettet?? Hvis du fandt det på nettet, hvordan fandt du det??


Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

[Redigeret d. 28/06-04 13:54:33 af Frede_Manden]