|
Основной форум Сюда все проблемы связанные с программированием. |
01.03.2007, 23:39
|
#16
|
ПроЭктировщик
Регистрация: 25.12.2006
Сообщений: 163
Написано 7 полезных сообщений (для 12 пользователей)
|
Re: Примеры простейших программ
Сообщение от alien
Оказалось что с реальными числами у мр вообще не лады
корень из 121 почему то 10.9997 ? Вообще кто нибудь может пример привести работы сними.Думал я там почастям с ними работать с целой и дробной отдельно ,однако до этого не доходит или мидлет зависает или еще чего.
|
Это нормально для чисел с фиксированной точкой Переключи в Properties своего мидлета Real Numbers на FloatingPoint - и точность резко возрастет (так же резко упадет производительность)
Сообщение от alien
Ну че там с музой на мидп1 ? Есть ли вообще библиотеки для мр на работу с файловой системой сименсов мидп 1 ?Если да то где можно достать и где ознакомится ?
|
По-моему, MIDP1 вообще не работает со звуком...
|
(Offline)
|
|
04.03.2007, 20:58
|
#17
|
AnyKey`щик
Регистрация: 25.01.2007
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Примеры простейших программ
Глубоко заблуждаетесь.Очень даже работают,однако только с мид.Ну да ладно ,что с фс ?
Вопрос : можно ли организовать выход из цикла(точнее завершение) при работе с формой по средствам нажатия кнопки(геткейпрессед) ?
Что то у меня не выходит.Работает только в канвасе
|
(Offline)
|
|
04.03.2007, 22:47
|
#18
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
Re: Примеры простейших программ
форма не регистрирует keyPressed. она только на команды реагирует
|
(Offline)
|
|
05.03.2007, 00:49
|
#19
|
AnyKey`щик
Регистрация: 25.01.2007
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Примеры простейших программ
Да я уже и сам понял,однако в сименсах все таки можно выйти из
формы или меню(завершить цикл) методом короткого нажатия красной
трубки.Описания как это реализовать найти ни где не могу.Может чем
поможете ?
ДА видимо с фс на мидп 1 *опа ! Наверное придется прощаться с
Мидлет паскаль и все таки учить ява.
|
(Offline)
|
|
04.04.2007, 00:03
|
#20
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Примеры простейших программ
Здравствуйте!
Есть вопрос: можно ли в MP2.02 реализовать
доступ к байтам строки(как в Delphi,Pascal-s[i]:=ch)?
или нужно перебирать всю строку ф-й COPY, меняя нужный байт?
и еще: есть ли у кого нибудь LIB для просмотра картинок из
ФС Motorola?(по байту читать неохта)
|
(Offline)
|
|
04.04.2007, 01:48
|
#21
|
ПроЭктировщик
Регистрация: 31.01.2007
Сообщений: 128
Написано 20 полезных сообщений (для 43 пользователей)
|
Re: Примеры простейших программ
Сообщение от ViNT
доступ к байтам строки(как в Delphi,Pascal-s[i]:=ch)?
|
Можно с помощью стандартной функции getChar(строка,позиция)
|
(Offline)
|
|
07.04.2007, 17:08
|
#22
|
ПроЭктировщик
Регистрация: 28.03.2007
Сообщений: 194
Написано 7 полезных сообщений (для 25 пользователей)
|
Re: Примеры простейших программ
Сообщение от 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('Пожалуйста настройте все пункты меню "НАСТРОЙКИ" !!!');
|
(Offline)
|
|
08.04.2007, 12:16
|
#23
|
ПроЭктировщик
Регистрация: 25.12.2006
Сообщений: 163
Написано 7 полезных сообщений (для 12 пользователей)
|
Re: Примеры простейших программ
при очистке экрана надо:
1. убрать repaint после fillrect
2. прямоугольник заливать цветом фона (он ведь не обязательно белый)
а в ShowMessage я бы перед выходом еще удалил бы команды, которые создаются - cm и cm1 - от греха подальше
|
(Offline)
|
|
08.04.2007, 17:43
|
#24
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Примеры простейших программ
Сообщение от Bruteo
Можно с помощью стандартной функции getChar(строка,позиция)
|
с getchar понятно, а как записать байт ( s[x]:='f')?
|
(Offline)
|
|
08.04.2007, 22:18
|
#25
|
ПроЭктировщик
Регистрация: 25.12.2006
Сообщений: 163
Написано 7 полезных сообщений (для 12 пользователей)
|
Re: Примеры простейших программ
Сообщение от ViNT
с getchar понятно, а как записать байт ( s[x]:='f')?
|
Ну, вы, блин даете! Каждому get наверняка найдется свой set - и он-таки есть: функция SetChar выполняет нужную операцию, хотя ее применение и не такое удобное, как в обычном паскале:
МидлетПаскаль:
str := SetChar(str,'E',11)
Обычный паскаль:
Обратить внимание на то, что для Мидлетпаскаля 11-й символ строки, то в обычном - 12-й! (нумерация идет с 0).
|
(Offline)
|
|
10.04.2007, 15:45
|
#26
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Примеры простейших программ
А можно ли как нибудь запустить класс, выдранный из другого приложения(например главный класс Оперы и т.д.) (нужно не просто вызвать функцию из класса, а запустить приложение)?
|
(Offline)
|
|
14.04.2007, 01:08
|
#27
|
AnyKey`щик
Регистрация: 20.01.2007
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Примеры простейших программ
привет всем! я всё хочу написать простейший блокнот но чёт не как не вьеду помогите! вот код:
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! за ранее спосибо!
|
(Offline)
|
|
16.04.2007, 15:37
|
#28
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Примеры простейших программ
на счет RecordStore не скажу, а для записи в файл скачай нужную
библиотеку у Piligrim`a (для моторов-Lib_mfs, для Siemens и некот. других-Lib_jsr75-короче, всё зависит от мобилы)
а вообще, некоторые мобилы с русским не дружат,
так что лучше качай библиотеку и пиши в файл-там ASCII(mfs во всяком случае)
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 08:59.
|