Примеры простейших программ

[ARV]

Сообщение от alien

Оказалось что с реальными числами у мр вообще не лады
корень из 121 почему то 10.9997 ? Вообще кто нибудь может пример привести работы сними.Думал я там почастям с ними работать с целой и дробной отдельно ,однако до этого не доходит или мидлет зависает или еще чего.

Это нормально для чисел с фиксированной точкой Переключи в Properties своего мидлета Real Numbers на FloatingPoint - и точность резко возрастет (так же резко упадет производительность)

Сообщение от alien

Ну че там с музой на мидп1 ? Есть ли вообще библиотеки для мр на работу с файловой системой сименсов мидп 1 ?Если да то где можно достать и где ознакомится ?

По-моему, MIDP1 вообще не работает со звуком...

[alien]

Глубоко заблуждаетесь.Очень даже работают,однако только с мид.Ну да ладно ,что с фс ?

Вопрос : можно ли организовать выход из цикла(точнее завершение) при работе с формой по средствам нажатия кнопки(геткейпрессед) ?
Что то у меня не выходит.Работает только в канвасе

[Piligrim]

форма не регистрирует keyPressed. она только на команды реагирует

[alien]

Да я уже и сам понял,однако в сименсах все таки можно выйти из
формы или меню(завершить цикл) методом короткого нажатия красной
трубки.Описания как это реализовать найти ни где не могу.Может чем
поможете ?

ДА видимо с фс на мидп 1 *опа ! Наверное придется прощаться с
Мидлет паскаль и все таки учить ява.

[ViNT]

Здравствуйте!
Есть вопрос: можно ли в MP2.02 реализовать
доступ к байтам строки(как в Delphi,Pascal-s[i]:=ch)?
или нужно перебирать всю строку ф-й COPY, меняя нужный байт?
и еще: есть ли у кого нибудь LIB для просмотра картинок из
ФС Motorola?(по байту читать неохта)

[Bruteo]

Сообщение от ViNT

доступ к байтам строки(как в Delphi,Pascal-s[i]:=ch)?

Можно с помощью стандартной функции getChar(строка,позиция)

[Kurdt]

Сообщение от alien

По поводу очитски экрана придумал, но это не то конечно
*
**** setColor(255, 255, 255);
**** fillRect(0, 0, 101, 80);
repaint;
*
рисует на мнгновение белый прямоугольник на весь экран.
*
А вот с предупреждением чегото не разбирусь..

Попробуй с предупреждением так:
procedure Showmessage(body:string);
var cm,cm1,click : command;
begin
showAlert('Информация',body,loadImage('/dollar.png'),ALERT_INFO);

cm1 := createCommand('', CM_STOP, 1);
addCommand(cm1);
cm := createCommand('Ок', CM_STOP, 1);
addCommand(cm);
repeat
delay(100);
click:=getClickedCommand;
until (click = cm) or (click = cm);
end;

Пример исполования
Showmessage('Пожалуйста настройте все пункты меню "НАСТРОЙКИ" !!!');

[ARV]

при очистке экрана надо:
1. убрать repaint после fillrect
2. прямоугольник заливать цветом фона (он ведь не обязательно белый)

а в ShowMessage я бы перед выходом еще удалил бы команды, которые создаются - cm и cm1 - от греха подальше

[ViNT]

Сообщение от Bruteo

Можно с помощью стандартной функции getChar(строка,позиция)

с getchar понятно, а как записать байт ( s[x]:='f')?

[ARV]

Сообщение от ViNT

с getchar понятно, а как записать байт ( s[x]:='f')?

Ну, вы, блин даете! Каждому get наверняка найдется свой set - и он-таки есть: функция SetChar выполняет нужную операцию, хотя ее применение и не такое удобное, как в обычном паскале:

МидлетПаскаль:

str := SetChar(str,'E',11)

Обычный паскаль:

str[12] := 'E'

Обратить внимание на то, что для Мидлетпаскаля 11-й символ строки, то в обычном - 12-й! (нумерация идет с 0).

[ViNT]

А можно ли как нибудь запустить класс, выдранный из другого приложения(например главный класс Оперы и т.д.) (нужно не просто вызвать функцию из класса, а запустить приложение)?

[ejjj]

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

program Bloknot;
var itemId, stringID: integer;
cmdNext : command;
cmdQuit : command;
name : string;
rs: recordStore;
index: integer;
j, Count, c : integer;
CurrRec: string;

begin
// Считываем данные
rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs);
// переход в режим формы со стандартного режима холста(для рисования)
ShowForm;

//добавляем текстовое поле на форму
itemId := FormAddTextField('Текст', '' +name+ '', 9999, TF_ANY);


// Создаем кнопку
cmdNext := CreateCommand('Сохранить', CM_OK, 50);
AddCommand(cmdNext);
// ждать пока не будет нажата кнопка OK
repeat until GetClickedCommand = cmdNext;
// Получаем введенное имя
name := FormGetText(itemId);
// Записываем некие данные в хранилище
rs := openRecordStore('names');
index := addRecordStoreEntry(rs, name );
closeRecordStore(rs);
// переключаемся обратно в режим холста и прорисовываем текст с именем
ShowCanvas;

rs := openRecordStore('names');
name := readRecordStoreEntry(rs, index);

DrawText('Текст: ' + name + '', 0, 0);
Repaint;
// создаем команду выхода
cmdQuit := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(cmdQuit);
repeat until GetClickedCommand = cmdQuit;
end.
не получается считывание записаной инфы! не поддерживается руский(пишет-????? вместо текста) и если ещё обясните как в тхт это сохронять а не в index.dat! за ранее спосибо!

[ViNT]

на счет RecordStore не скажу, а для записи в файл скачай нужную
библиотеку у Piligrim`a (для моторов-Lib_mfs, для Siemens и некот. других-Lib_jsr75-короче, всё зависит от мобилы)
а вообще, некоторые мобилы с русским не дружат,
так что лучше качай библиотеку и пиши в файл-там ASCII(mfs во всяком случае)