И снова здрасти! Увлекся созданием функции для прокрутки текста, получился... телевизор
РФО это как кисть для художника ) К слову сказать, автор программы программировал еще в 1977 году для Apple, под IBM 360.
http://apple2history.org/tag/paul-laughton/Вобщем вот получившийся телек, и под ним получившаяся функция для прокрутки текста, надо отметить скорость ее работы напрямую зависит от аппаратной возможности устройства. Если девайс слабый, -лучше использовать функцию напрямую, как подпрограмму. Для увеличения скорости работы можно изменить параметр "a" в такой конструкции в конце функции:
sv++
if mod(sv,a)=0 then gr.render
Так как обновление графики в РФО сильно замедляет скорость работы программы, то можно схитрить и обновлять один раз за два, а то и за три такта. Дальнейшее увеличение параметра приведет к сильному подергиванию текста. Так что тестируйте, необходимая документация находится в шапке функции.
1961uvg, я рад что, тебе не безразличен мой код
Да и еще, чтобы наглядно увидеть работу функции, закоментируйте эту строчку:
gr.rect ramka,lt-ss/2,tp-ss/2,rt+ss/2,bt+ss/2
Прикрепленные файлы:
FnTextScrollex.bas (3.94 кб.) Скачано 798 раз
FnTextScroll2ex.bas (5.39 кб.) Скачано 874 раза