Версия для печати темы

Автор: b0r1and 28.05.2005 17:14

Пмогите пожалуйста написать программу.
Бегущая строка. Прямое и обратное направление. Оформить интерфейс. Диалог выбора.
Вот что есть

uses crt;
var str, str2: string;
i,k:byte;
Begin
clrscr;
str:=' Hello ';
k:=80-length(str);  
for i:=1 to k-1 do
str:=str+' ';
repeat
delete(str,1,1);
gotoxy(1,10); 
write(str);
delay(4000);   
delline;
str2:=copy(str,1,1);
str:=str+str2;
until keypressed;
end.

Автор: volvo 28.05.2005 17:41

Ну, вот тебе набросок... Совершенствуй :D :

uses crt;
var
  str: string;
  i: byte;
  ch: char;
Begin
  clrscr;
  str:='Hello';
  writeln('1: >>> ');
  writeln('2: <<< ');
  readln(ch);
  clrscr;
  case ch of
    '1':
    repeat
      i := 1;
      while (i <= (80 - length(str))) and (not keypressed) do begin
        gotoxy(i, 10); delline;
        write(str);
        delay(7500);
        inc(i);
      end;
      delline;
    until keypressed;
    '2':
    repeat
      i := 80 - length(str);
      while (i > 0) and (not keypressed) do begin
        gotoxy(i, 10); write(str);
        clreol;
        delay(7500);
        dec(i);
      end;
      delline;
    until keypressed;
    else
      writeln('Error...')
  end;
end.

Автор: b0r1and 28.05.2005 22:19

volvo большое спасибо!!!

Автор: dimon1988 11.11.2006 3:12

А как реализовать бег строки сверху вниз, причем не просто слово смещается на строчку вниз, а сперва появляется по букве и т.д. Я что-то зашел в тупик как это сделать (
Заранее благодарен

Автор: volvo 11.11.2006 3:31

В поиск... Тема называлась как-то вроде "Часы" или что-то в этом роде, вторым вопросом в ней было перемещение строки по вертикали, причем еще и между разными окнами...

Автор: dimon1988 11.11.2006 3:49

volvo Огромное спасибо. Я искал, только в неверном направлении)