|
Прочие вопросы Вопросы не касающиеся программирования (установка, настройка...) |
24.02.2011, 22:17
|
#1
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Что ж тут не то? Занимался HTML и забыл паскаль =(
С картинками всё норм...виснет после цикла
program Mp11;
var bgmx:integer;
bgm,pgb,prg:image;
begin
bgmx:=-240;
setColor(0,0,0);
fillRect(0,0,240,400);
setcolor(255,255,255);
drawText('Загрузка библиотеки...',10,10);
repaint;
{загрузка первого файла музыки}
delay(1000);
drawText('Загрузка среды...',10,30);
repaint;
bgm:=loadImage('/bgm.png');
pgb:=loadImage('/progback.png');
prg:=loadImage('/progress.png');
{загрузка всей графики}
delay(1000);
repeat
begin
bgmx:=bgmx+5;
drawImage(bgm,bgmx,0);
repaint;
end;
until true;
repaint;
drawImage(pgb,0,300);
repaint;
delay(100000);
end.
__________________
G502, GT S5230w user!
|
(Offline)
|
|
24.02.2011, 22:50
|
#2
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: Что ж тут не то? Занимался HTML и забыл паскаль =(
Пауза 100 сек - это зачем?
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|
(Offline)
|
|
24.02.2011, 22:51
|
#3
|
ПроЭктировщик
Регистрация: 19.02.2011
Сообщений: 134
Написано 81 полезных сообщений (для 219 пользователей)
|
Ответ: Что ж тут не то? Занимался HTML и забыл паскаль =(
Все же можно предположить, что мидлет вылетает изза ресурсов. Посмотрите в консоль - там будет написана ошибка, вызывающая зависание.
Так же можно использовать процедуру debug(string) для пошаговой проверки - можно узнать, что и когда случается, и почему программа перестает работать.
Тестировал с следующим кодом, работает, возращает информацию о стадиях в консоль (Log).
program Mp11; var bgmx:integer; bgm,pgb,prg:image; begin bgmx:=-240; setColor(0,0,0); fillRect(0,0,240,400); setcolor(255,255,255); drawText('Загрузка библиотеки...',10,10); repaint; {загрузка первого файла музыки} delay(1000); drawText('Загрузка среды...',10,30); repaint; debug('Loading images...'); bgm:=loadImage('/icon.png'); pgb:=loadImage('/icon.png'); prg:=loadImage('/icon.png'); debug('Images loaded.'); {загрузка всей графики} delay(1000); repeat bgmx:=bgmx+5; drawImage(bgm,bgmx,0); repaint; until bgmx > GetWidth; debug('Loop done.'); repaint; debug('Drawing pgb...'); drawImage(pgb,0,300); repaint; debug('Done.'); delay(100000); end.
__________________
Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
24.02.2011, 22:59
|
#4
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Что ж тут не то? Занимался HTML и забыл паскаль =(
bgm должна выехать на экран! слева. А она не двигается..и в эмуле пишет в логе только 2 картинки загрузилось
Progress(null)!! вот в чём прикол. Что ж делать?
надо было не PNG а png писать)) нашел
__________________
G502, GT S5230w user!
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 14:56.
|