IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Написание J2me приложений для телефонов., Midlet Pascal
сообщение
Сообщение #1


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Вступление
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/


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Цитата
function GetKeyPressed: integer;
Returns the code of the key that is currently pressed, or KE_NONE if no key is pressed. The standard key codes have predefined constant values:
· KE_KEY0
· KE_KEY1
· KE_KEY2
· KE_KEY3
· KE_KEY4
· KE_KEY5
· KE_KEY6
· KE_KEY7
· KE_KEY8
· KE_KEY9
· KE_STAR
· KE_POUND


Example
Код
begin
  while GetKeyPressed <> KE_STAR do
    begin
      Delay(100);
    end;
end.


Сообщение отредактировано: GoodWind -


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Altair   Написание J2me приложений для телефонов.   5.01.2006 0:49
FreeMan   Хм. надо глянуть. если что открыть подфорум …   6.01.2006 15:18
Gothic_Snake   Дофольно интересно... Лезу смотреть :)   10.01.2006 20:20
hardcase   Хто тут сказал НЕ ВЕРЬТЕ!!! Например…   13.01.2006 23:53
Altair   Да полная. Почитай стандарт языка. там нет объект…   14.01.2006 0:19
hardcase   Да полная. Почитай стандарт языка. там нет объек…   14.01.2006 0:31
Altair   ты все сказал ? ты на телефоне фундаментальные за…   14.01.2006 0:37
hardcase   Я просто подумывал, как написать инженерный кальку…   14.01.2006 0:43
Altair   Сам по себе, да. согалсен. Но там же вроде можно …   14.01.2006 0:48
hardcase   Сам по себе, да. согалсен. Но там же вроде можно…   14.01.2006 0:53
virt   А если я смог обойтись без вызова этих процедур ,…   14.01.2006 2:11
hardcase   А если я смог обойтись без вызова этих процедур …   14.01.2006 22:34
xds   Тезисы - по делу и просто так: 1) Язык Java, в нек…   14.01.2006 20:29
GoodWind   товарищи, никто не нашел в MIDletPascal аналог Get…   14.01.2006 21:08
xds   товарищи, никто не нашел в MIDletPascal аналог Ge…   14.01.2006 22:46
GoodWind   дык дему писать =)))   14.01.2006 23:17
xds   Дык зачем в деме GetPixel? Что конкретно ты сделат…   16.01.2006 4:51
GoodWind   хотел эффект motion-blur к картинке добавить =)   16.01.2006 5:02
xds   В MIDP 1.0 с большой вероятностью невозможно. В MI…   16.01.2006 11:49
virt   GoodWind а ты дополнительный массив заведи ,и там…   16.01.2006 16:23
GoodWind   Virt, медленно, пробовал   16.01.2006 23:34
xds   Быстро будет с drawRGB() - она получает весь масси…   17.01.2006 8:46
GoodWind   т.е. хелп в MIDletPascal неполный ? или ты имеешь …   19.01.2006 22:46
xds   Я имею в виду стандартную библиотеку Java, которая…   20.01.2006 9:49
Altair   Полноэкранный режим:   20.01.2006 16:00
GoodWind   Altair: уже нашел.. да, я чайник..... не увидел xd…   20.01.2006 23:15
Bill Gates   Подскажите, где скачать Windows-эмулятор J2ME? На …   11.02.2006 19:29
GoodWind   на www.allnokia.ru (или на его форуме) есть Nokia …   12.02.2006 21:31
Bill Gates   Как проигрывать звуки?! Если делать, как в хел…   22.02.2006 21:46
Bill Gates   Есть ли в мидлет паскале аналог keypressed (именно…   22.02.2006 23:45
GoodWind   Example begin while GetKeyPressed <…   23.02.2006 1:52
Bill Gates   А как быть с миди?   24.02.2006 17:37
GoodWind   не смог заставить миди работать =(   24.02.2006 23:18
GoodWind   www.mobilab.ru - доки по программированию под моби…   2.03.2006 21:05
Dr.Bugy   Почитай стандарт языка А где его можно почитать?   2.03.2006 23:32
Altair   Статья "Пишем игры на MIDletPascal" Опи…   9.12.2007 4:21
validol   Кто знает как можно позвонить? Есть к примеру номе…   29.06.2008 15:32


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 6:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name