Бегущая строка.

@lanc3r · Регистрация: 17.12.2009

Author24 — интернет-сервис помощи студентам

Нужно эмитировать на экране бегущую строку, размер любой,чтобы четко проходила строку вот так :
vgd abvgd-> ... abvgd->... ab

@WolfCF · 24.12.2009, 20:02

наберите в поиске бегущая строка. решалось уже.

@lanc3r · 25.12.2009, 00:15 **[ТС]**

ни одной проги такой нет. мне нужно чтобы она шла и шла до keypresed

@Inadequate · 25.12.2009, 00:32

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses
  crt;
var
  i:integer;
  s:string;
  temp:char;
begin
  s:='Íàó÷èòåñü äóìàòü ñàìîñòîÿòåëüíî!!!';
  repeat
    temp:=s[Length(s)];
    for i:=Length(s) downto 2 do
      s[i]:=s[i-1];
    s[1]:=temp;
    delay(50);
    clrscr;
    writeln(s);
  until
    keypressed
end.

@WolfCF · 25.12.2009, 04:31

бежит и моргает

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
VAr s:string; K:integer;
begin
clrscr;
textcolor (lightgreen+blink);
s:=('она бежит');
k:=80;
repeat
gotoxy(k,1);
write(s);
delay(100);
clrscr;
k:=k-1;
if k=1 then k:=80
until keypressed;
end.

@lanc3r · 25.12.2009, 11:15 **[ТС]**

да нет же...показал же,чтобы она шла по всей строке и переходила по буквам...

@Inadequate · 25.12.2009, 11:22

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

да нет же...показал же,чтобы она шла по всей строке и переходила по буквам...

Вы сами то поняли что написали? Я нет.

@Puporev · 25.12.2009, 11:25

Inadequate, Нужно чтобы текст заполнял с повторениями всю строку и двигался, как на рекламных постерах.

@lanc3r · 25.12.2009, 11:28 **[ТС]**

ну как бегущая строка обычная...то есть она просто бежит по строке...и переходит на эту же строку только уже опять слева...и чтобы переходила она посимвольно,то есть если в ней 3 символа, то постеппено доходя до конца, сначала бы два символа осталось ,а один(последний) уже бы перенесся на строчку эту же, следующий этап - остается один символ в конце строки,а два уже в начале...и вот так чтобы бегала) у меня просто проблема в том,что она доходит до 80-length(stroka) а дальше я ее заполняю пробелами...но это не правильно

@Inadequate · 25.12.2009, 12:32

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

Inadequate, Нужно чтобы текст заполнял с повторениями всю строку и двигался, как на рекламных постерах

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

ну как бегущая строка обычная...то есть она просто бежит по строке...и переходит на эту же строку только уже опять слева...и чтобы переходила она посимвольно,то есть если в ней 3 символа, то постеппено доходя до конца, сначала бы два символа осталось ,а один(последний) уже бы перенесся на строчку эту же, следующий этап - остается один символ в конце строки,а два уже в начале...и вот так чтобы бегала) у меня просто проблема в том,что она доходит до 80-length(stroka) а дальше я ее заполняю пробелами...но это не правильно

хм... пойду в телеке на бегущую строку посмотрю... я чо та ни черта не понял, что нужно... видимо еще не проснулся...

Добавлено через 51 минуту
Посмотрел... Там она во-первых в другую сторону движется... Но это уже сами если нужно сделаете

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses
  crt;
var
  i,j:integer;
  s,temp:string;
begin
  s:='Íàó÷èòåñü äóìàòü ñàìîñòîÿòåëüíî!!!';
  temp:=s;
  HideCursor;
  i:=0;
  repeat
    inc(i);
    clrscr;
    GotoXY(i,1);
    writeln(s);
    if i=80-Length(s) then
      delete(s,Length(s),1);
    delay(40);
    if i=80+Length(temp) then
      for j:=Length(temp) downto 1 do
      begin
        insert(temp[j],s,1);
        GotoXY(i,1);
        clrscr;
        writeln(s);
        delay(40);
        i:=0
      end;
  until
    keypressed
end.

Новые блоги и статьи Все статьи Все блоги /
Динамические массивы в C++ - создание и использование NullReferenced 27.04.2025 Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .	Асинхронный JavaScript: Промисы, Async/Await и Fetch API Reangularity 27.04.2025 Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .	Management on GitLab and repository management in Visual Studio code jigi33 27.04.2025 - repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)	Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .

@lanc3r 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 104

	Бегущая строка. 24.12.2009, 19:54. Показов 2528. Ответов 9 Метки нет (Все метки) Нужно эмитировать на экране бегущую строку, размер любой,чтобы четко проходила строку вот так : vgd abvgd-> ... abvgd->... ab 0

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	24.12.2009, 20:02
	наберите в поиске бегущая строка. решалось уже. 0

@lanc3r 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 104
	25.12.2009, 00:15 [ТС]
	ни одной проги такой нет. мне нужно чтобы она шла и шла до keypresed 0

@lanc3r 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 104
	25.12.2009, 11:15 [ТС]
	да нет же...показал же,чтобы она шла по всей строке и переходила по буквам... 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	25.12.2009, 11:25
	Inadequate, Нужно чтобы текст заполнял с повторениями всю строку и двигался, как на рекламных постерах. 0

@lanc3r 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 104
	25.12.2009, 11:28 [ТС]
	ну как бегущая строка обычная...то есть она просто бежит по строке...и переходит на эту же строку только уже опять слева...и чтобы переходила она посимвольно,то есть если в ней 3 символа, то постеппено доходя до конца, сначала бы два символа осталось ,а один(последний) уже бы перенесся на строчку эту же, следующий этап - остается один символ в конце строки,а два уже в начале...и вот так чтобы бегала) у меня просто проблема в том,что она доходит до 80-length(stroka) а дальше я ее заполняю пробелами...но это не правильно 0

Опции темы