MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Четверг, 15.11.2018, 01.41.53
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №7 - Использование модулей!
Всем привет, сегодня мы научимся использовать модули.

1. Создаем приложение как обычно, в режиме редактирования выбираем
 "Добавить новый модуль"

 2. 

 Вводим название нового модуля. Название может быть разным, как вам удобно, но бес точек запятых и прочих символов. В приложении ваш модуль будет как "название.class" 3. 

 Обратим внимание, что появилась вкладка с модулем, таким образом можно быстро переключатся между модулями и главной программой. 4. 

 { интерфейс } Здесь можно размещать все переменные и объявления процедур. Пишем: Procedure AnimText(s:string); var x,y,sx,sy:integer; { тела функций } Здесь можно размещать подключение модулей, библиотек и размещать тела функций. Размещаем тело функции что мы создавали. Пишем: Procedure AnimText(s:string); Begin if (x<=0) then sx:=3; if (x>=250) then sx:=-3; if (y<=100) then sy:=3; if (y>=150) then sy:=-3; x:=x+sx; y:=y+sy; SetColor(x,y,250); DrawText(s, x,y); End; { инициализация } Здесь можно размещать любые начальные переменные. Пишем: x:=100; y:=100; sx:=3; 5. После того как все напишите переходим к главной программе. 

 Пишем: Uses prosto;{подключаем модуль} Begin Repeat SetColor(0,0,0); FillRect(0,0,getWidth,getHeight); AnimText('vk.com/MIDPascal');{используем функцию модуля} Repaint; Delay(1); Until False; End. 5. Собераем... Если вы все сделали правильно, тогда у вас на экране должен появится плавающий текст, переливающийся разными цветами. 

 Всем Спасибо, мы закончили!
Автор: Андрей Ступницкий:)
Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz