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

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

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

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 14.05.2010, 08:37   #1
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Печаль Помогите с boolean!!!

Прошу помочь! Я знаю что более нормальная программа работает при использовании булеанов. Тоесть
procedure Init;
begin
...
end;

procedure h;
begin
init:=true;
end;


В чём вопрос? У меня подобное компилит без проблем, но на эмуляторе и телефоне тупо вылетает. Я буду очень благодарен если мне обьяснят как осуществить:
1) Прорисовка картинки)
2) При нажатии на обьект (к примеру) иконку, init=true;
3) Init "живёт", пока не нажмут на что-то другое. Заранее спасибо.
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 09:54   #2
Жека
Дэвелопер
 
Регистрация: 04.09.2005
Адрес: Красноярск
Сообщений: 1,376
Написано 491 полезных сообщений
(для 886 пользователей)
Ответ: Помогите с boolean!!!

Пиши на j2me, тогда подскажу.:p
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 10:02   #3
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: Помогите с boolean!!!

эм, компилиться???
инит - процедура, ты ей присваиваешь тру и оно компилится???
полный бред...

var init:boolean;

т.е. просто переменную создаем, процедуре нельзя ниче присвоить
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 22:08   #4
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Ответ: Помогите с boolean!!!

Нет, это не то. Вот код:

Program test;
Var intro, paint:boolean;

procedure intro;
begin
прорисовка картинки;
ожидание нажатия на координаты;
{при нажатии на нужные координаты paint=true};


procedure paint;
begin
прорисовка картинок;
delay(-1);
end;

Procedure data;
begin
intro:=true;
paint:=false;
end;

Procedure intro;
Begin
data;
end.


Что тут неправильно???
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 22:40   #5
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: Помогите с boolean!!!

delay(-1); Улыбнуло
__________________
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 22:55   #6
jimon
 
Сообщений: n/a
Ответ: Помогите с boolean!!!


хм, кто-то откроет для себя что у программ есть главный цикл ?
 
Ответить с цитированием
Старый 14.05.2010, 23:06   #7
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Ответ: Помогите с boolean!!!

люди...мне кто-то поможет???
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 23:07   #8
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: Помогите с boolean!!!

Во первых ты куда-то дел главный цикл + у тебя 2 раза повторяется процедура intro + количество end-ов не совпадает с количеством begin-ов + delay (-1) уже само собой должно насторожить, ты пытаешься сказать программе чтобы она ждала -1 секунду (вообщем эта строчка чоть и откомпилится но будет запорывать твою программу)
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (14.05.2010)
Старый 14.05.2010, 23:09   #9
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Ответ: Помогите с boolean!!!

но прога компилится...а в приложении белый экран..=(
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 23:10   #10
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: Помогите с boolean!!!

нет она не компилится
__________________
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 23:14   #11
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Ответ: Помогите с boolean!!!

Я 1 энд тут не дописал. Но у меня в исходнике есть. Что за цикл? И ещё...ты почем на свой сайт не заходишь?
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 23:17   #12
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: Помогите с boolean!!!

Захожу, смотрю кто что написал, ты первый кто что-то написал вообще
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (14.05.2010)
Старый 14.05.2010, 23:19   #13
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: Помогите с boolean!!!

Program test;
Var intro, paint:boolean;

procedure p_intro;
begin
прорисовка картинки;
ожидание нажатия на координаты;
{при нажатии на нужные координаты paint=true};
end;
procedure p_paint;
begin
прорисовка картинок;
delay(1000);
end;

Procedure data;
begin
intro:=true;
paint:=false;
end;

Begin
data;
end.
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (14.05.2010)
Старый 14.05.2010, 23:26   #14
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Ответ: Помогите с boolean!!!

Слушай! Огромное спасибо! Я тебя не забуду хД Я хочу тебе помочь с сайтом и прогой! Если есть время давай займемся серьёзно этим! Ещё рас спасибо!
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием
Старый 14.05.2010, 23:44   #15
_Nox_
ПроЭктировщик
 
Регистрация: 21.06.2009
Адрес: Беларусь, Столбцы
Сообщений: 148
Написано 32 полезных сообщений
(для 57 пользователей)
Ответ: Помогите с boolean!!!

Пиши в личку
__________________
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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