Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 15 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Morgen

PLEASE, как создать бегущую страку на Paskal, очень надо.
Реклама

Партнер
  Mike-L

Member
Статус: Не в сети
Регистрация: 20.11.2003
Как это бегущую?
Если просто чтобы по мере добавления символов они появлялись справа от последнего, то Просто в конец строки из пробелов добавляешь нужный текст - очищаешь экран и выводишь строку. Можно в цикле по 1-у символу с задержкой (для красоты)
  Morgen

Бегущая - значит, чтоб она перемещалась по экрану.
То есть текст появляется и плавно идёт по экрану.
  vor

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
Это лучше делать в графическом режиме. По хорошему - со сменой экранных страниц. :)

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.

  Mike-L

Member
Статус: Не в сети
Регистрация: 20.11.2003
Тогда чем тебе не подходит предидущий способ?
  Morgen

vor, раскажи по подробнее, как это делается
  RuS_XT

Member
Статус: Не в сети
Регистрация: 10.04.2004
Откуда: Стоять, бояться
Morgen
Цитата:
бегущую страку

Это ты о чём ???
Задавай вопрос подробней и без таких глупых ошибок ;)
  vor

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
Morgen
С какого места начинать? :)

Используется OutTextXY в графическом режиме. См. справку по этой процедуре, там есть пример.

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.

  Peter_P

Member
Статус: Не в сети
Регистрация: 04.02.2004
Откуда: Москва|СВАО
Morgen
Если, Вам все еще нужна программа реализующая бегущую строку на паскале могу прислать пример.

_________________
Счастье - это когда тебя понимают.
Разыскиваю (куплю) оригинальный USB-kit для Chaintech 5AGM2 (подробности в Л.С.).

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Уточни что именно надо сделать :)
  Матвеев Иван Владимирович

Member
Статус: Не в сети
Регистрация: 15.03.2004
Откуда: Moscu.Moscow
Morgen А если ты хочешь в текстовом режиме, то юзай gogoxy (x,y) и write () ... а если просто вывод,
то лучше использовать строки и по индексу выводить
eg:
Код:
... initialization ...
for i:= from_here to to_here do begin
gotoxy (i,y_coordinate);
write ('stroka? yeah!!! ;-) ');
delay (жди_вот_столько);
textColor (цвет_текста);
gotoxy (i,y);
write ('stroka? yeah!!! ;-) ');
end;

вот такая фишка... ну, конечно я может и напутал где - runtime 4ever!!!
ну и для полноты картины:
Код:
... initialization ...
for i:=1 to length (s) do begin
write (s[i]);
delay (жди_здесь_пока_я_на_оверах_сижу ;-) );
end;

хотя это я наверное слегка перебощил... :oops:
но вот с "плавно" - это на графе надо делать...
а так вообще зачем тебе нужна эта строчка?
ведь красиво для компа много на чем можно сделать... :D
например, на Flash'е... :roll:

_________________
http://www.blog.webjustnow.com/;
TSC! Russia {Beastriker at Folding@Home}

Последний раз редактировалось Матвеев Иван Владимирович 22.05.2004 16:07, всего редактировалось 1 раз.

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Эт надо на делфи под винду делать, а на паскале плавно не получается.
Я прогу тут набросал - строчка бежит, но как-то глючновато :(
Матвеев Иван Владимирович
Цитата:
textColor (цвет_фона);

Это цвет текста! :wink:

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  Матвеев Иван Владимирович

Member
Статус: Не в сети
Регистрация: 15.03.2004
Откуда: Moscu.Moscow
Lord_of_Darkness :beer:
ща попробую сам... только что сам BP себе поставил...

Добавлено спустя 14 минут, 11 секунд:
Код:
uses Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'D:\BP\BGI');
for i:=1 to length (s) do begin
write (s[i]);
delay (жди_здесь_пока_я_на_оверах_сижу ;-) );
end;
Readln;
end.

Это вроде как нормально...

Код:
uses crt;
var i:integer;
begin
for i:= 2 to 40 do begin
gotoxy (i,10);
textColor (blue);
write ('stroka? yeah!!! ;-) ');
delay (10000);
gotoxy (i,10);
textcolor (black);
write ('stroka? yeah!!! ;-) ');
end;
readkey;
end.

А!! ну вот оно что! здесь я просто textcolor (blue) не там поставил!
все проверил, теперь работает, а то у меня Паскаля небыло,
вот и провериить негде было..

_________________
http://www.blog.webjustnow.com/;
TSC! Russia {Beastriker at Folding@Home}

  Bloodpriest

Еще вопрос. Как создать числовую матрицу все элементы которой различны?
Наброски:
Цитата:
for i:=1 to n do
for j:=1 to m do
for a:=1 to n do
for b:=1 to m do
if (i<>a) and (j<>b) then if y[i,j]=y[a,b] then
Begin
repeat
y[i,j]:=random(10)-10;
until y[i,j]<>y[a,b];
  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Bloodpriest А это какой имеет отношение к бегущей строке? Создай отдельную ветку.
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 15 
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  

Лаборатория

Ретроклокинг: влияние поколений интерфейсов SSD на производительность


Обзор ноутбука ASUS Zenbook DUO (UX8406)


Обзор и тестирование модульного блока питания MSI MAG A850GL PCIE5


Обзор и тестирование процессорного кулера APNX AP1-V


Обзор и тестирование материнской платы MSI Z790 Gaming Plus WIFI





Новости
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan