support@adelavida.com  
Клипарт · Вернисаж · Конференции · Downloads · Досуг · Сайты · Чат

FAQ (Frequently Asked Questions)
<< Вернуться в конференцию Turbo Pascal
 FAQ из конференций:  3D графика Delphi Игры Политика PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
Все вопросы
<<    Turbo Pascal FAQ    >>
SomeOne [2002-05-19 21:29:08]
Скроллинг
Как сделать плавный скроллинг текста в TP-7?
SomeOne [2002-07-23 14:38:26]
Uses crt;
var i : integer;
begin
 for i:=0 to 70 do write('That''s what you are asking for? ');
 port[$3D4]:=8;
 port[$3D5]:=0;
 i:=0;
 repeat
   Delay(1000);
   port[$3D4]:=8;
   port[$3D5]:=8+round(7*sin(pi*i/32));
   repeatw until not boolean(port[$03DA] and 8);
   repeat until (port[$03DA] and 8)=8;
   inc(i);
 until keypressed;
end.


Всего просмотров: 656. За последние 24 часа: 1


Rambler's Top100       Рейтинг@Mail.ru