Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Поиск по форуму

Показано с 1 по 25 из 299.
На поиск затрачено 0.03 сек.
Поиск: Сообщения от: abcdef
Раздел: Основной форум 04.04.2011, 14:59
Ответов: 10
Просмотров: 5,137
Автор abcdef
Ответ: Сложение вещественных чисел произвольной длины.

вот пример, но только для сложения положительных чисел:

var
idTxt : integer;
cmdExit : command;
a,b : string;


function sum(a,b : string) : string;
var
Раздел: Проекты на MidletPascal 22.09.2010, 13:54
Ответов: 10
Просмотров: 4,156
Автор abcdef
Ответ: Работа с wave

Lib_snd компилированная в MPC011 (050810) и выше.
Раздел: Проекты на MidletPascal 21.09.2010, 16:19
Ответов: 10
Просмотров: 4,156
Автор abcdef
Ответ: Работа с wave

неплохая программка, хорошо б еще миксер сделать..
вот немного переработал:
(компилировать в последней версии MPC)

function openplayerfromstr(s, mimetype : string) : boolean;
begin
inline(
...
Раздел: Основной форум 13.09.2010, 14:08
Ответов: 8
Просмотров: 2,796
Автор abcdef
Ответ: MP и математика

ну да, невнимательность.. тогда n=a^b, чтоб найти целочисленное b:
b:=0; while n>a do begin n:=n-a; b:=b+1; end;
Раздел: Основной форум 13.09.2010, 12:24
Ответов: 8
Просмотров: 2,796
Автор abcdef
Ответ: MP и математика

MP Help: function Pow(a, b: real):real;
__
a^b целыми числами быстрее циклом:
sum:=0; for i:=1 to b do sum:=sum+a;
Раздел: Проекты на MidletPascal 12.09.2010, 10:56
Ответов: 23
Просмотров: 7,186
Автор abcdef
Ответ: Человек Синяк квест по мотивам известного шоу

опера при загрузке страницу проверяет доступный объем памяти. А в квесте может не успевать сработывать сборщик мусора.
В данной ситуации по дизассемблерному листингу мало чем помогу, т.к. нет времени...
Раздел: Проекты на MidletPascal 10.09.2010, 20:18
Ответов: 23
Просмотров: 7,186
Автор abcdef
Ответ: Человек Синяк квест по мотивам известного шоу

просто добавь в код свои функции (глянь как сделаны операторы Write, Read и др).

как я смотрел у тебя скрипт выполняется в некоторых точках. А если сделать чтоб весь квест выполняелся поверх...
Раздел: Проекты на MidletPascal 10.09.2010, 17:22
Ответов: 23
Просмотров: 7,186
Автор abcdef
Ответ: Человек Синяк квест по мотивам известного шоу

В качестве скрипта для квеста могу предложить мой первый простейший интерпретатор.

В принципе, можно всю логику программы и квеста реализовать в виде скриптов: загрузку картинок, заставки, меню и...
Раздел: Проекты на MidletPascal 09.09.2010, 12:52
Ответов: 23
Просмотров: 7,186
Автор abcdef
Ответ: Человек Синяк квест по мотивам известного шоу

Громкость звука. Можно сменить без библиотек http://forum.boolean.name/showthread.php?t=9079 компилируя в mpc011_simple_050810
__
для компиляции распаковать содержимое примера в каталог mpc011 и...
Раздел: Проекты на MidletPascal 08.09.2010, 13:06
Ответов: 23
Просмотров: 7,186
Автор abcdef
Ответ: Человек Синяк квест по мотивам известного шоу

жаль, но пока квест не запускается на простых моторолах.

пара предложений:

заменить тип Real, напр: real(1.0063)=1.0063*10000=integer(10063), т.е. все вычислительные операции проводить
с такими...
Раздел: Проекты на MidletPascal 06.09.2010, 10:27
Ответов: 8
Просмотров: 4,429
Автор abcdef
Ответ: Пищевые добавки "Е" или чем мы травим себя.

Хорошая программка, правил код для экономии памяти и запуска в motorola, должно работать везде.
Раздел: Проекты на MidletPascal 06.09.2010, 09:58
Ответов: 23
Просмотров: 7,186
Автор abcdef
Ответ: Человек Синяк квест по мотивам известного шоу

Респект автору - выдержана атмосфера и стиль!
Посмотрел пару комнат, но квест уже понравился.
Если нужно - обращайся, подскажу с кодом.
Раздел: Проекты на MidletPascal 26.08.2010, 17:03
Ответов: 21
Просмотров: 5,442
Автор abcdef
Ответ: PhysicsEngine

из старой pascal'евской игрушки:

function DistToBar(x1, y1, x2, y2, x0, y0 : Integer) : Boolean;
{находится ли точка (x0,y0) в прямоугольнике (x1,y1)-(x2,y2)}
Var
dx, dy : Integer;
Begin
dx :=...
Раздел: Алгоритмика 12.08.2010, 14:29
Ответов: 2
Просмотров: 2,539
Автор abcdef
Ответ: Деление 8bit на 8bit

MIDletPascal:

var
sum,ost,a,b : integer;
begin
a:=250;
b:=230;
/// a div b ///
sum:=0;
ost:=a;
Раздел: Основной форум 12.08.2010, 08:40
Ответов: 33
Просмотров: 6,161
Автор abcdef
Ответ: Есть пару вопросов

if fps>18 then pause:=pause+10;
if fps<18 then if pause>10 then pause:=pause-10;
delay(pause);
_____
если скорости не хватает, то целесообразно сделать как в эмуляторах - отрисовывать на экран с...
Раздел: MidletPascal 10.08.2010, 10:08
Ответов: 6
Просмотров: 8,953
Автор abcdef
Ответ: Help...Lib or function to replace String

function repls(str, s1, s2 : string) : string;
var
p,len1 : integer;
begin
len1 := length(s1);
repeat
p := pos(str,s1);
if (p<0) then break;
str := copy(str,0,p) + s2 +...
Раздел: Разработка MIDlet Pascal 05.08.2010, 16:07
Ответов: 141
Просмотров: 74,148
Автор abcdef
Ответ: Исходники MP получены!

MPC011 - дополненная java-asm версия.
JD013 - дизассемблирование кода class-файла в формат asm-листинга для MPC.
файлы cldcapi11; midpapi20; брать в сообщении #135
___
в ассемблер добавлены числовые...
Раздел: Основной форум 29.07.2010, 14:09
Ответов: 6
Просмотров: 2,788
Автор abcdef
Ответ: Аналог chr() для utf8

для оптимизиции конвертировки обычно находят одинаковые последовательности кодов в таблицах и проверяют по ним: if (c>=192) and (c<=...) then c:=c+(1040-192)

прим: при получении символа cp1251 или...
Раздел: Разработка MIDlet Pascal 28.07.2010, 15:55
Ответов: 141
Просмотров: 74,148
Автор abcdef
Ответ: Исходники MP получены!

название версии выводится при компиляции каждого файла ;)

(а вообще-то планировалось что это будут дополнения версии 2.02, но т.к. уже дали гордое название 3...., поэтому чтобы не вводить в...
Раздел: MidletPascal 27.07.2010, 10:17
Ответов: 42
Просмотров: 30,176
Автор abcdef
Ответ: Библиотека идей

неплохо было бы в этом разделе выкладывать исходники или готовые программы MIDletPascal, найденные на других сайтах, т.е. как примеры, которые возможно написать на MP
Раздел: Библиотеки 26.07.2010, 20:40
Ответов: 7
Просмотров: 4,587
Автор abcdef
Ответ: Lib_bezier - Рисование кривой Безье

Интересная либа, решил переписать на MP:

procedure drawBezier(x1,y1,x2,y2,x3,y3,count : integer);
var
i,j,x,y,xx,yy : integer;
begin
x := x1;
y := y1;
for i := 0 to count do
begin
Раздел: Разработка MIDlet Pascal 26.07.2010, 19:01
Ответов: 141
Просмотров: 74,148
Автор abcdef
Ответ: Исходники MP получены!

обновление MPC
Убрано ограничение длины массивов
Добавлена директива canvas
Частично исправлено выделение памяти. Исправлен вылет при неправильном обращении к массивам, а также ошибка при повторном...
Раздел: FAQ 03.07.2010, 17:42
Ответов: 7
Просмотров: 6,584
Автор abcdef
Ответ: Техника отладки программ средствами MIDletPascal

если я что-то не то написал, то кто подскажет как в java среде телефона выполнять чужую программу покомадно с просмотром / изменением произвольных переменных, как в компьютерном дебагере - пусть...
Раздел: Разработка MIDlet Pascal 01.07.2010, 17:46
Ответов: 141
Просмотров: 74,148
Автор abcdef
Ответ: Исходники MP получены!

к WTK-preverify1.1 добавил cldcapi11; midpapi20;
в конструкции "if then ; else" исключена ";"
исправлено несколько потенциально - возможных зацикливаний кода
Раздел: FAQ 30.06.2010, 15:01
Ответов: 7
Просмотров: 6,584
Автор abcdef
Ответ: Техника отладки программ средствами MIDletPascal

Исключение кода подходит, если не влияет на работоспособность.
Написал эту статью, т.к. разбирался с чужой программой более чем 2500 строк, которая висла в произвольных местах, как выяснилось из-за...
Показано с 1 по 25 из 299.

 

Часовой пояс GMT +4, время: 18:31.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com