Консольное приложение

[JTG]

Не, биос тут никаким боком, это не то окно.

SetConsoleCursorPosition
SetConsoleTextAttribute
SetConsoleCursorInfo и пр. Set/GetConsoleXXXX

[B_N]

Елки, зачем БИОС? зачем gotoxy? я же написал выше - строку не надо переводить и всё, в конце строки ставим "возврат каретки" - "\r" в С или #OD в паскале...

[Stilet]

Я може ступоросил, мне показалось что автор хочет выводить показания таймера в одном и том же месте )

[B_N]

Сообщение от Stilet

Я може ступоросил, мне показалось что автор хочет выводить показания таймера в одном и том же месте )

Ну да. Я тоже так понял. Грубо говоря, от хочет перетирать предыдущую строку, а не переводить.

[eks-s]

всё, нашёл в интернете. http://delphiworld.narod.ru/base/con..._text_out.html

вот состряпал именно то что хотел, копирую exe-шник в Windows\system32 и обращаюсь с любого места

program Timer;

{$APPTYPE CONSOLE}

uses
  windows,SysUtils;
var
  i,t : integer;
  hCon: integer;
  aCoord: TCoord;

function WhereXY: TCoord;
var
  ScrBufInfo: TConsoleScreenBufferInfo;
begin
  GetConsoleScreenBufferInfo(hCon,ScrBufInfo);
  Result := ScrBufInfo.dwCursorPosition;
end;

begin
  writeln;
  writeln('Welcome to Timer v.1 from eks-s ^ii^');

  if paramcount <> 1 then    //если нет параметров - ошибка и инструкции
    begin
      writeln('Parameters Error'); writeln;
      writeln('Template: timer.exe n');
      writeln('n - seconds'); writeln;
      writeln('Press Enter To Exit...');
      readln; Exit;
    end;

  t := StrToInt(paramStr(1));     //сколько секунд для отсчёта
  hCon := GetStdHandle(STD_OUTPUT_HANDLE);
  aCoord := WhereXY;
  for i := t downto 1 do
    begin
      writeln('waiting '+IntToStr(i)+' sec');
      sleep(1000);
      aCoord.x := 0;
      SetConsoleCursorPosition(hCon,aCoord);
    end;
  write('timer off');writeln(' ':20);
  readln;
end.

Елки, зачем БИОС? зачем gotoxy? я же написал выше - строку не надо переводить и всё, в конце строки ставим "возврат каретки" - "\r" в С или #OD в паскале...

Этот вариант у меня на Delphi 2006 не работает... или может я ччё не так делаю

while i < t do begin write(i:8,"#0D"); Sleep(1000); i := i+1; end;  
writeln();

по указанной ссылке кстати говорится как поменять цвет выводимого цвета. У меня не получилось, как сделать?

[B_N]

Сообщение от Алексей eks-s ^ii^

Этот вариант у меня на Delphi 2006 не работает... или может я ччё не так делаю

по указанной ссылке кстати говорится как поменять цвет выводимого цвета. У меня не получилось, как сделать?

Вот этот вариант на С работает, я перед тем как вчера еще постить проверил

#include <stdio.h>
#include <windows.h>

int main()
{
	int i = 0;
	while ( i++ < 10) { 
   		printf("waiting %02d\r", i); 
		Sleep(1000); 
	}  
	printf("\n");  
}

Обращаю внимание на "\r" - "неполный" перевод строки.

Цвет и прочее реализуются десятым прерыванием БИОСа, под Win32 недоступным, а только в эмуляции, для досовых программ.

[B_N]

Но, с другой стороны, если Вам цвет всё-таки нужен, можно сделать его вызовом SetConsoleTextAttribute

[eks-s]

Сообщение от B_N

Но, с другой стороны, если Вам цвет всё-таки нужен, можно сделать его вызовом SetConsoleTextAttribute

Спасибо! Разобрался. Добавил
SetConsoleTextAttribute(hCon,FOREGR OUND_GREEN + FOREGROUND_INTENSITY);

и всё стало красиво