ВНИМАНИЕ ПЕРЕПЕЧАТКА И КОПИРОВАНИЕ ВСЕЙ ИНФОРМАЦИИ ИЗ ТЕМЫ РАЗРЕШЕНА ТОЛЬКО С СОГЛАСИЯ АДМИНИСТРАТОРА (Sanich)
Скачать мидлет паскаль Скачать
Тут я подробно опишу создание мидлетов (ява игр) в программе Midlet Pascal.
Для начала выбираем file/new/hello_world midlet/ Стираем всё между словами begin и end.
1 ШАГ
Желательно изучить некоторые команды, которые необходимы для создания будущих игр
Нарисовать часть окружности , где последние два числа - градусы( по часовой стрелке);
drawArc(0, 0, getWidth, getHeight, 0, 90);
repaint;
delay(1000);
Окружность
drawEllipse(0, 0, Ширина,высота);
repaint;
delay(1000);
Показать изображение
drawImage(loadImage('/logo.png'), 0, 0);
repaint;
delay(1000);
Где logo.png является именем файла(файл предварительно необходимо загрузить в программу с помощью кнопки с изображенной картинкой (insert resourse) )
Линия
drawLine(10, 15, 25, 35);
repaint;
delay(1000);
Где первые две цифры – координаты первой точки, последние две – координаты последней.
Прямоугольник
drawRect(5, 5, 20, 20);
repaint;
delay(1000);
Где первые две цифры координаты левого верхнего угла, а две последние правого нижнего.
Написать текст
setColor(255, 0, 0);
drawText('Hello world', 0, 0);
repaint;
delay(1000);
Где Hello world сам текст, а 0, 0 координаты первой буквы текста.
ВНИМАНИЕ: repaint очищает экран, следственно после следуещего действия, текст с этой командой сотрёться. Её всегда надо использовать для чистки экрана, и в большинстве случаев оно будет занимать 1\3 всего кода
