Правила форума
MIDletPascal - язык программирования, предназначенный для создания мобильных приложений.
Компилятор MIDletPascal переводит код Pascal на Java bytecode (J2ME) .
Программы, написанные в MIDletPascal могут быть запущенны на любом мобильном устройстве ( типа мобильных телефонов) с Java - поддержкой.
MIDletPascal - удобное средство разработки, делающее новый шаг в развитии мобильного программирования.
С MIDletPascal, Вы сделаете новый шаг в мир мобильного программирования!
Особенности
- Генерация быстрого и компактного Java™ bytecode.
- Полная поддержка языка Pascal
- Частично код может быть написан прямо на Java
- Удобная работа с SMS.
- Коммуникация по HTTP
- Поддержка пользовательсткого интерфейса (формы).
- Мультимедиа (работа со звуком, картинками)
- легкая в использовании IDE
Программа выводит на экран сообщение которое меняет свой цвет с черного на белый неоднократно.
var color : integer;
begin
color := 0;
setFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_LARGE);
repeat
setColor(color, color, color);
color := color + 8;
if (color > 255) then
color := 0;
drawText('Hello world!', 0, 0);
repaint;
delay(100)
until false
end.
Программа - скринсейвер
program ScreenSaver;
const up = 1; // these constants define the direction
down = 0; // in which the icon moves
left = 1;
right = 0;
var x, y : integer; // the current icon's left upper corner position
img : image; // handle of the image object
direction_x,
direction_y : integer; // the movement direction
begin
img := loadImage('/icon.png');
repeat
// move the icon according to the current direction
if direction_y = up then y := y - 1;
if direction_y = down then y := y + 1;
if direction_x = left then x := x - 1;
if direction_x = right then x := x + 1;
// check if the icon hit the display border
if x = 0 then direction_x := right;
if x = (GetWidth – GetImageWidth(img)) then direction_x := left;
if y = 0 then direction_y := down;
if y = (GetHeight – GetImageHeight(img)) then direction_y := up;
SetColor(255, 255, 255);
FillRect(0, 0, GetWidth, GetHeight);
DrawImage(img, x, y);
Repaint;
Delay(50);
until GetKeyPressed <> KE_NONE;
end.
Пара слов о лицензии
Для персонального использования, без support'a, MIDletPascal распространяется бесплатно. (download)
Для комерческого ипользования
Лицензия на 1 человека - 40$
на <10 - 100$
более 10 - 300$
Этапы создания приложения
Пустое окно:
Создание проекта
Отладка - поиск ошибок
Редактирование ресурсов
Запуск программы. Эмуляция.
Эмуляция
Что бы не проверять каждую программу на телефоне, желательно скачать и установить любой подходящий вам эмулятор мобильного устройства.
Оффициальный сайт:
http://www.midletpascal.com/
