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/