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

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

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 11.01.2011, 19:45   #1
FighteR
Оператор ЭВМ
 
Аватар для FighteR
 
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений
(для 0 пользователей)
модули

можете выложить сюда модули которые есть у вас. мне только crt удалось найти.
(Offline)
 
Ответить с цитированием
Старый 11.01.2011, 20:58   #2
GRAY_WOLF
Разработчик
 
Аватар для GRAY_WOLF
 
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений
(для 93 пользователей)
Ответ: модули

Сообщение от FighteR Посмотреть сообщение
можете выложить сюда модули которые есть у вас. мне только crt удалось найти.
Вообще-то модули пишутся самостоятельно для каждой программы свои.
Если ты имеешь ввиду библиотеки то они тут
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
(Offline)
 
Ответить с цитированием
Старый 13.01.2011, 02:04   #3
FighteR
Оператор ЭВМ
 
Аватар для FighteR
 
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: модули

не библиотеки а модули . мож просто кто то писал себе то почему бы и не выложить. может какието интересные реализации можно будет уивидеть
(Offline)
 
Ответить с цитированием
Старый 14.01.2011, 19:31   #4
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: модули

Был модуль из одной функции, которая выдавала фпс. Нужен?
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Старый 15.01.2011, 16:54   #5
kizup
Нуждающийся
 
Аватар для kizup
 
Регистрация: 12.12.2010
Адрес: SaratoF
Сообщений: 85
Написано 5 полезных сообщений
(для 5 пользователей)
Ответ: модули

Да, выкладывайте всё что не жалко) Будем тестить)
__________________
(Offline)
 
Ответить с цитированием
Старый 15.01.2011, 18:52   #6
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: модули

Я не нашёл, поэтому пишу по памяти

unit aa;

interface
var t:integer;
function fps:integer;

implementation

function fps:integer;
var dt:integer;
begin
dt:=GetRelativeTimeMs-t;
//время с предыдущего вызова функции
t:=t+dt;
fps:=1000 div dt;
end;

initialization
t:=GetRelativeTimeMs;
end.

P.S. простой, неточный, недоработанный))
P.P.S. Можно хранить предыдущее значение функции в ещё одной переменной, и если оно меньше чем 1000/dt, то увеличить на единицу, иначе уменьшить. Результат получится более стабильным
P.P.P.S. но мне лень))
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Старый 16.01.2011, 18:14   #7
GRAY_WOLF
Разработчик
 
Аватар для GRAY_WOLF
 
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений
(для 93 пользователей)
Ответ: модули

Сообщение от Igor Посмотреть сообщение
P.P.P.S. но мне лень))

+1

не только ты один такой...
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
(Offline)
 
Ответить с цитированием
Старый 27.01.2011, 21:09   #8
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: модули

В какую папку модули сохранять надо?
(Offline)
 
Ответить с цитированием
Старый 27.01.2011, 23:14   #9
FighteR
Оператор ЭВМ
 
Аватар для FighteR
 
Регистрация: 02.10.2010
Сообщений: 29
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: модули

наверно туда же куда и библиотеки
(Offline)
 
Ответить с цитированием
Старый 28.01.2011, 19:00   #10
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: модули

Модули надо добавлять в проект.
В МП вверху где-то есть
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
AVL (28.01.2011)
Старый 28.01.2011, 19:30   #11
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: модули

Я уже разобрался
(Offline)
 
Ответить с цитированием
Старый 29.01.2011, 16:43   #12
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: модули

Для удобства отладки.
procedure write(a:string);
var key:integer;
begin
setcolor(255,255,255);
fillrect(0,0,getheight,getwidth);
setcolor(0,0,0);
drawtext(a,0,0);
repaint;
repeat
key:=getkeypressed;
until key=ke_key0;
end;
P.S. Писал по памяти.
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Старый 28.02.2011, 10:05   #13
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: модули

У меня вопрос: как передавать из программы в модуль (как параметр функции) и обратно данные типа, определенного как record? Я так понимаю что надо описать этот тип в разделе implementation, но тогда основная программа его не видит.
(Offline)
 
Ответить с цитированием
Старый 28.02.2011, 12:47   #14
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: модули

Сообщение от AVL Посмотреть сообщение
У меня вопрос: как передавать из программы в модуль (как параметр функции) и обратно данные типа, определенного как record? Я так понимаю что надо описать этот тип в разделе implementation, но тогда основная программа его не видит.
В implementation не увидит, нужно объявлять в interface.
(Offline)
 
Ответить с цитированием
Старый 20.03.2011, 14:15   #15
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 419
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: модули

Немного перепутал. . . Именно в interface я тип и описывал, но основная программа его не видит. Короче, вопрос: как сделать так, чтобы функция из модуля возвращала значение типа record?
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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


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