Назад
3 мар 2013 (OFF) DARKSIDER1996 : Азы MIDletPascal. Урок 2.
Всем привет,продолжаем углубляться в мир паскаля,так сказать

-=Основные команды и их использование. Часть1.=-
Вообще,список команд вы можете скачать в моих файлах,в папке "Всё для MP",я же вам буду разъяснять на практике,как с ними работать.

Рассмотрим одно из самых простых по моему мнению-рисование.

Когда вы создаете новый проект,то в рабочей зоне высвечивается следующий код:

program NewProject;
begin
drawText('Hello world!', 0, 0);
repaint;
delay(2000);
end.


Объясняю:

program NewProject;/////Название вашей программы.

begin //////начало главной программы.
drawText('Hello world!', 0, 0); /////Пишем фразу "Hello World" в координатах (x=0;y=0),то бишь в левом верхнем углу.
repaint;//////с помощью этой команды рисуем всё,что было задано до неё.
delay(2000); //////устанавливаем задержку прорисовки в 2 секунды,после чего произойдет выход из программы.
end.////заканчиваем программу.

Давайте усложним эту программу,сделав вывод текста красным цветом на чёрном фоне и чтобы программа никогда не отключилась.

Ниже я предоставил полный листинг полученной программы(новые пункты помечены красным):

Program Text;
begin

repeat//////начинаем цикл
setcolor(0,0,0);//////устанавливаем чёрный цвет (таблица rgb в помощь)
fillrect(0,0,getwidth,getheight);////////заливаем весь экран установленным цветом (команда getwidth определяет ширину экрана,а getheight-высоту экрана в пикселях)
setcolor(250,0,0);////устанавливаем красный цвет
drawText('Hello world!', 0, 0);
repaint;
delay(20);

until false;//////устанавливаем условие,с помощью которого заканчивается цикл (в данном случае-false,т.е. цикл никогда не закончится)
end.

В самом начале статьи выложил скриншот того,что должно получится.

На этом всё,комментируйте и экспериментируйте с паскалем,пока
429 0 1 0

Комментарии (26)

В общем я заметил что разница между pascal и basic небольшая. Многие комманды орфографически похожы, только синтаксис разный, и среда разработки сильно отличается. А вот со структурой кода у меня вообще проблемы. Просто привык к basic.
В этом коде ошибка с заливкой экрана
ага,я особенно,когда переходил с бейсика на паскаль,очень долго отвыкал от таких команд,как
20 goto 10
какая еще ошибка?
скрин,что получилось в доказательство
Ну пишет "функция или переменная getwidth не найдена на строке 5"
сейчас позже напишу исходник этого безобразия и выложу сюда,чтоб со своим сравнил
З.Ы.:напиши пока полный листинг того,что ты написал
Блин, у меня вообще после сборки пишет ошибка приложения.
ну ты с телефона пишешь,а ведь MOBpascal не такой же,как компьютерная версия,в ней пока много недочетов.
мой тебе совет: ремонтируй свой комп и пиши на нем,на телефонной версии далеко не уедешь.
Проверено.
Показать комментарий
Скрыть комментарий
Назад 1 из 3 Вперёд
1 2 3
Для добавления комментариев необходимо авторизоваться
Назад
Удивительный колхоз
Удивительный колхоз - это новая многопользовател
Версия: Mobile | Lite | Touch | Доступно в Google Play