Midletpascal только ТУТ в этой теме !, Пишем на Паскале - запускаем на телефоне Поделиться Опции

[FMC]

grafmoto,
Я понимаю, что может звучит глупо, но мне просто самому реально не понятно почему возникает такой глюк, а debuger'а в MIDlet Pascal'e я не нашел... так что за любую помощь буду очень благодарен... :)

[belpilgrim]

Могу помочь.
Хотя если судить по запущенности форума МР авторы бросили, лучше учи Яву.

[~WiseFox~]

Пишем на MidletPaskal
Тема создана для тех кто решил научиться писать приложения на MidletPaskal. Для тех раньше писал или имел представление о языке, будет гораздо легче.
Если есть люди которые давно пишут на этом языке, то прошу выкладывать исходники и примеры приложений. За это конечно будут ++++++.

Скоро выложу ссылку на скачивание.
Рууский хелп ищю сам (Был, но после форматрования не стало )

Лично сам написал приложение "Расписание по средстваи графики", тоже выложу обезательно.
Жду ваших ответов и исходников.

[error222]

Давай выкладывай буду ждать с нетерпением !
Давно хочу научится но тока нефига не получается!

[Street Racer]

Все, кто парится насчет русского хелпа, у меня он есть!! Прикрепляю!!

Сообщение отредактировал Street Racer - 9.4.2007, 15:56

[aziz]

Ну тогда я первый и выложу свой исходник.
Исходник симулятор WinMobile (смотрите в подписи) 165.36 килобайтСкачать

PS хотелось бы все в 1 тему " ИСХОДНИКИ ДЛЯ MP" , на сайте Boolean уже есть такие "рубрики", но хотелось бы всеж на мотофвне создать. надеюсь что Piligrim не против этого.

[Street Racer]

Ну тогда я первый и выложу свой исходник.
Исходник симулятор WinMobile (смотрите в подписи) 165.36 килобайтСкачать

PS хотелось бы все в 1 тему " ИСХОДНИКИ ДЛЯ MP" , на сайте Boolean уже есть такие "рубрики", но хотелось бы всеж на мотофвне создать. надеюсь что Piligrim не против этого.

Блин я стал учиться программировать и застрял: у меня 2 ошибки в коде, не могу понять почему так происходит!

[Don Omar(TenderFog)]

Не плохо знаю программирование на делфи и паскале, сейчас буду разбератся с этой прогой . Хочу очень помочь aziz ...Я его мидлет вполне представляю корелетом.... И в планах ему так помочь что бы вместо загрузки привычного нам меню тела вкл его работа Тобиш и патч нада создать!

[DmT]

Эта тема целиком посвящена MIDletPascal(далее MP) и всему что с ним связанно.
Предлагаю сдесь обмениватся полезными библиотеками для MP.
Просба, если выкладываете самописную библиотеку то прикладывайте к ней хотя бы описание функций(НА РУССКОМ ЯЗЫКЕ).
Вот для примера моя:

MyLib.rar   ( 1.63 килобайт ) Кол-во скачиваний: 485

Код

int square(int val) - возвращает квадрат val  
int count_numbers(String text) - возвращает кол-во цифр в строке  
vibrate(int duration) - Включает вибрацию на duration милисекунд
flash_backlight(int duration) - ф-я подсветки  
playtone(int tone, int time, int volum) - играет ноту tone, time милисекунд, с громкостью volum(нота расчитывается по формуле ln(fr/8.176)*17.31234049066755, где fr - частота в герцах)

Официальный сайт(сдесь можно скачать MP).

[om2804]

Свои я выкладывал здесь http://www.boolean.name/showthread.php?p=43799#post43799

[BASSON XVI]

Здрасе я очень плохо знаю паскаль да и вообще языки программирования!
Вот появилась идея написания простенького мидлета так сказать TXT EDITOR-a
Почитал справку от МидлетПаскаля немного не понял да там и всего толком не написано!
Вообщем решился написать вот 2 часа бездарной работы и я заглох на этом !!!

ВОТ КОД В ФОРМАТЕ TXT ВСТАВЛЯЕМ ЕГО В ПАСКАЛЬ И ПРОВЕРЯЕМ!!!

Скомпилировать не получилось оно и понятно написано не бох весть что!(да еще и в первы раз, так сказать первы блин комом!) Выдола 2 ошибки и 9 игноров! Что делать Помогите Плиз!!!
Везде писал коды клавиш такие CM_EXIT и так далее потому что не знаю как назначить на софт клавиши для Моторолы функции! Так же не знаю как сделать что бы из мидлета выходило и сохраняло файл под своим названием где по желаешь!
Можете подсказать как органезовать на правую софт клавишу удаление одной буквы ну типа BacSpace! Так же как организовать открытие файла txt! Так же не знаю как сделать что бы менялся текст то есть итап обычный рус., англ. у меня картинки их есть так что мне надо только код для этого!

Вот что требовалось от мидлета!
Зайти =>пописать(выйти без сохр. по надобности! )=>Сохранить =>Выйти!
Зайти =>Открыть сохр txt =>Пописать по редактировать =>Сохранить =>Выйти!

Не предлагать мне приложение Microsoft Word оно у меня не идет да и не нравиться оно мне! Хотя принципе сделано на высшем уровне просто не для меня!

Очь прошу сильно не пинайте и не ругайте только начинаю делать Ява на паскале лучше помогите чем могите! Заранее спасибо!

[BASSON XVI]

Вот обновил исходник в посту № теперь там 2 ошибки и один Варинг! Почему Мидлет Паскаль не понимает русский? Объясните как заделать что бы понимал! Есть у кого ни будь готовые исходники файл менеджера мне они нужны для открытия и сохранения файла! Пожайлуста помогите я хочу научиться делать простенькие явки!


Сообщение отредактировал Osta - 4.7.2007, 5:56

[Serg c650]

BASSON XVI,
юзая исходники программировать не научишься

Пожайлуста помогите я хочу научиться делать простенькие явки!

Файл-менеджер - это простенькая явка?

[BASSON XVI]

Serg c650,
Какие исходники я говорю что вот сам написал но незнаю как добавить фаил менеджер что бы моно было открывать и созранять в папках телефона и что бы помогли исправить 2 ошибки !

[BASSON XVI]

Снова здрасте! У меня тут такое дело! Пишу на Мидлет Паскале недавно! Куча вопросов! Подскажите пожайлуста!
Короче я прописываю булеаны!
Пишу procedure!
Но как мне назначить на софт клавиши переход с одной процедуры на другую? И как назначить выход тоже не знаю! Подскажите!
Пример:

Код

program BASSON XVI;
var
ok,exit,menu : command;

Bulmenu:bolean;

procedure menu;
  begin
  {  }  
    ok := createCommand('OK', CM_OK, 1);
    showForm;
    addCommand(ok);
    nameField := formAddTextField('Введите ваше имя', '', 20, TF_ANY);
end;
begin
    {  }  
    menu := createCommand('MENU', CM_OK, 1);
    exit := createCommand(‘EXIT’, CM_EXET, 0);
    showForm;
    addCommand(menu);
    addCommand(exit);
    repaint;
      while getClickedCommand <> exit do //Это правлино из проги выйдет?
  begin end;  
//---- А как назначит на MENU переход на болеан Bulmenu не знаю!------

Спасибо заранее! И кто скажет поставлю +!

[Serg c650]

Bulmenu:boоlean;

разве не так пишется?

[miha-il2]

А зачем тебе переход на булеан? Хотя.. Если хочешь чтоб по софт клавише в menu, то добавь в цикл:
if getClickedCommand=menu then bulmenu:=true;
if bulmenu then menu;

Не называй переменные также как процедуры.
Не используй while... do ,т.к. много будет глюков . Лучше:
repeat
//код
until //уловие выхода
И кому не трудно ответье на мое сообщение в теме Плагины для MV. Ну плиззз!! Я же щас без компа всё-таки...

Добавлено позже (5.7.2007, 16:21):
Для выхода из мидлета:
if getClickedCommand=exit then halt;
И лучше будет использовать доп. переменную:
var
comm: command;

А потом только один раз в цикле:
comm:=GetClickedCommand;
А дальше if comm=... then ...

[miha-il2]

И ещё я как-то полгода назад начинал файл менеджер на мид паскале писать немного для другой проги. Но так его и не доделал. (можно только по папкам шагать,без дороги назад) Но щас не выложу исходники т.к. я щас без компа и они в другом городе...

Сообщение отредактировал miha-il2 - 5.7.2007, 16:08

[rotor155]

Вот либы, которыми пользовался. Есть дельные. В архиве есть описания.

Сделали бы закрепленное сообщение кто-нть, вложили бы в него весь матерериал с темы, чтоб не искатся.

ps а так boolean.name оч хороший форум по этой тематике...

Сообщение отредактировал rotor155 - 6.7.2007, 14:37

[BASSON XVI]

rotor155,
Я про болеан знаю! я там тоже пишу там люди активней помогают чем здесь!
miha-il2,
Когда домой прибудеш! очь хочеться побыстрей исходники ФМ на паскале!

И ещё скажите на l6 что motoFS или JSR75 ?

[BASSON XVI]

Мне ктонить поможет! Обьяснит как открыть текстовый документ с диска телефона и записать обратно!

[rotor155]

BASSON XVI,ну зачем так нервничать


записываем текст(text:string):

jsr75i.write_file('/b/blabla.txt', text);

считываем текст:

text:=jsr75i.read_file('/b/blabla.txt');

(jsr75i можно не писать)
motoFS нет либы под рукой, но полюбовно там аналогично

[BASSON XVI]

rotor155,
Вот в том и прикол что не открываеться фаил ! и не сохраняеться ни при motofs не при jsr75!

[miha-il2]

А ты библиотеку jsr75 на МП поставил?

Добавлено позже (7.7.2007, 17:11):
Хотя я думаю поставил.
Жалко я без компа а то помог бы. А исходники не раньше чем через месяц выложу (т.е. как приеду)

Добавлено позже (7.7.2007, 17:19):
Может из-за кодировки не открывать, т.е переменная 'текст' будет пустой. Попробуй созать текст мобилой в jKeyNote, MV, pm, MiniCommander'ре или др. А потом этот файл открывать пробуй...

[rotor155]

не могет быть. Наверняка какой-нть мелкий косяк точка или запятая

[miha-il2]

Кстати, а не кто не знает как избавиться от вылета программы, при компиляции с доп. библиотеками?

Добавлено позже (8.7.2007, 0:00):
А разве на jsr75i нужно указывать в пути слеш перед буквой диска? Я знаю два вида этой библиотеки и в одном из них первый слеш не нужен...

[rotor155]

Кстати, а не кто не знает как избавиться от вылета программы, при компиляции с доп. библиотеками?

Поставь в свойствах MP.exe совместимость с windows 98/me не будет вылетать

Сообщение отредактировал rotor155 - 8.7.2007, 5:22

[BASSON XVI]

miha-il2,
Ты был прав не надо было ставить перед буквой диска /! Я бы тебе ещё плюсанул но не могу!

[miha-il2]

rotor155, спасибо, как приеду проверю, а то меня задолбала просьба отправить отчет мелкософт.

[BASSON XVI]

Люди как мне это до ума довести мне надо чтобы на трипроцедуры разбит!

Код

program text;
uses jrs75;

var

buf,fname:string;
efile:integer;
ok,cancel,clicked:command;

Bultextopen,Bultextedit,Bultextsave : boolean;

procedure textedit; forward;

procedure textsave; forward;

procedure textopen;
begin
showform;
ok:=createcommand('OK',cm_ok,0);
cancel:=createcommand('Отмена',cm_cancel,0);
addcommand(ok);
addcommand(cancel);
efile:=formaddtextfield('Файл:','c/mobile/text.txt',128,tf_any);
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
fname:=formgettext(efile);
buf:=jrs75.read_file(fname);
end;

prosedure textedit;
showtextbox('Редактирование',buf,2000,tf_any);

addcommand(ok);
addcommand(cancel);


repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(200);
until clicked=ok;

procedure textsave;
showform;

buf:=gettextboxstring;

repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(200);
until clicked=ok;
fname:=formgettext(efile);


if jrs75.file_exists(fname)=1 then
jrs75.delete_file(fname);//иначе просто допишет текст в конец файла


jrs75.write_file(fname,buf);
end;

begin
textopen;
end.

[miha-il2]

Мне на мобиле код твой править не удобно. Ты для начала поставь все begin и end в процедурах.
И вообще Halt ПОЛНОСТЬЮ вырубает мидлет!!!
Как расставишь, выложи в txt...(не на мотофане). Я потом что смогу поправлю...

Добавлено позже (12.7.2007, 10:47):
Ты только в рар не пакуй, либо просто тхт либо zip... Мож там же на народе выложить...

[BASSON XVI]

miha-il2,
Всё я сделал свой мидлет смотрите в теме Новый ява для телефонов Л6\Л6и\Л2!!!

[miha-il2]

'Планируется номальный ФМ'... Если ты дождёшся моих исходников, то там многое надо будет нарабатывать. Да и я обычно нормальные коментарии не оставляю в листингах... Мож попробуешь сам пока ФМ написать?

Добавлено позже (12.7.2007, 18:25):
Если что, я подскажу с чем сталкивался при работе с файловой системой.
Кстати при получении списка файлов/папок они разделяются знаком вертикальной черты...

[om2804]

А я от либы Lib_jrs75 отказался, не видит она файлы в некоторых папках и системные по-моему тоже в упор не видит. Т.ч. не лучший вариант для написания ФМ

[miha-il2]

lib_jsr75 хоть какой-то вариант. Я не знаю, может у кого-то уже руки дотянулись, не видел. Я вобщем хочу в библиотеку lib_jsr75 добавить для вызова стандартные функции типа FirstFile, NextFile и др. Просто разбивать полученный список приходится в циклах и др. Лишние затраты только на это...

[MOTOCoder]

lib_jsr75 хоть какой-то вариант. Я не знаю, может у кого-то уже руки дотянулись, не видел. Я вобщем хочу в библиотеку lib_jsr75 добавить для вызова стандартные функции типа FirstFile, NextFile и др. Просто разбивать полученный список приходится в циклах и др. Лишние затраты только на это...

А если объявить в FW массив строк и передавать полученный список файлов в него?

[miha-il2]

Сам массивом делал. Просто не во всех случаях нужен весь список. А разбивать строку в массив не всегда удобно...

[MOTOCoder]

А java разьве список файлов не в виде массива возвращает?

[miha-il2]

Я знаю что возвращает значение типа string. A вот просто присвоить полученное массиву не пробовал. А что работает?

[MOTOCoder]

Видимо я ошибся - если строка, то массиву не присвоишь.