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

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

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

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

Ответ
 
Опции темы
Старый 12.07.2010, 16:38   #1
skagen
AnyKey`щик
 
Аватар для skagen
 
Регистрация: 06.06.2010
Сообщений: 10
Написано 0 полезных сообщений
(для 0 пользователей)
Как сделать автоматический цикл?

Добрый день.вот в мидлете потребовался такой цикл:например,такой текст:
выполнено: 50% нажимайте ОК для продолжения
после нажатия ОК хочу чтобы 50 процентов изменялись на 51,потом на 52 и т.д..скажите,с помощью какого метода сделать это,чтобы вручную не прописывать так до 100%?то есть не вписывать
drawtext ('выполнено: 50%'00);
drawtext ('выполнено: 51%'010); 
а чтобы цифра изменялась автоматически.спасибо
__________________
все будет
(Offline)
 
Ответить с цитированием
Старый 12.07.2010, 16:44   #2
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: Как сделать автоматический цикл?

Юзай свой мозг.
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (19.07.2010)
Старый 12.07.2010, 18:37   #3
Freez
Оператор ЭВМ
 
Аватар для Freez
 
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений
(для 10 пользователей)
Ответ: Как сделать автоматический цикл?

Примерно так

program NewProject;

var
okCommandcommand;
z:integer;
begin
// создаем форму
Okcommand := createcommand('Ok',cm_ok,1);
ShowForm;
addCommand(Okcommand);

while (
getClickedCommand <> OkCommand) do
delay(100);
repeat
z
:= z+1;
showCanvas;
setColor(02550);
drawtext('Выполнено: '+'%',00);
repaint;
delay (1000);
setcolor (255,255,255);
fillRect(00getWidthgetHeight);
repaint;
until (getKeyClicked <> KE_NONE); 
end
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо Freez за это полезное сообщение:
Rock2roll (14.07.2010), skagen (12.07.2010)
Старый 12.07.2010, 19:41   #4
skagen
AnyKey`щик
 
Аватар для skagen
 
Регистрация: 06.06.2010
Сообщений: 10
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Как сделать автоматический цикл?

спасибо большое!доработал и получил то что хотел
__________________
все будет
(Offline)
 
Ответить с цитированием
Старый 12.07.2010, 23:21   #5
Freez
Оператор ЭВМ
 
Аватар для Freez
 
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений
(для 10 пользователей)
Ответ: Как сделать автоматический цикл?

Ну или так

program NewProject;
var
okCommandcommand;
i:integer;
z:integer;
begin
Z
:=0;
repeat
// создаем форму
Okcommand := createcommand('Ok',cm_ok,1);
ShowForm;
addCommand(Okcommand);
i:=FormAddString('Загружено: '+'%'+chr(10));

while (
getClickedCommand <> OkCommand) do
delay(100);
z:=z+1;
showform;
delay(1000);
clearForm;
until (getKeyClicked <> KE_NONE);
end
(Offline)
 
Ответить с цитированием
Старый 12.07.2010, 23:57   #6
Phantom
Элита
 
Аватар для Phantom
 
Регистрация: 14.06.2008
Адрес: Украина, Киев
Сообщений: 2,273
Написано 754 полезных сообщений
(для 1,833 пользователей)
Ответ: Как сделать автоматический цикл?

И он ещё отрицает, что пишет алармы
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (19.07.2010)
Старый 12.07.2010, 23:59   #7
Freez
Оператор ЭВМ
 
Аватар для Freez
 
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений
(для 10 пользователей)
Ответ: Как сделать автоматический цикл?

Сообщение от Phantom Посмотреть сообщение
И он ещё отрицает, что пишет алармы
В смысле?
(Offline)
 
Ответить с цитированием
Старый 13.07.2010, 00:37   #8
Phantom
Элита
 
Аватар для Phantom
 
Регистрация: 14.06.2008
Адрес: Украина, Киев
Сообщений: 2,273
Написано 754 полезных сообщений
(для 1,833 пользователей)
Ответ: Как сделать автоматический цикл?

В смысле?
Я про автора темы. Он пишет программы, которые отправляют дорогие смс с телефонов пользователей, обнуляя их баланс. Такие программы и называют алармами.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (19.07.2010)
Старый 13.07.2010, 00:44   #9
Romanzes
Разработчик
 
Аватар для Romanzes
 
Регистрация: 06.04.2008
Сообщений: 541
Написано 196 полезных сообщений
(для 637 пользователей)
Ответ: Как сделать автоматический цикл?

Алармы - это программы на java для мобильника, которые заставляют пользователя отправить смс на короткий номер. Например, пользователь жмет постоянно на софт-кнопку, чтобы "увеличить процент". Внезапно, всплывает запрос на отправку смс. Пользователь по инерции нажимает кнопку подтверждения и остается без денег. Вот как-то так.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (19.07.2010)
Старый 13.07.2010, 13:16   #10
Freez
Оператор ЭВМ
 
Аватар для Freez
 
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений
(для 10 пользователей)
Ответ: Как сделать автоматический цикл?

Сообщение от Romanzes Посмотреть сообщение
Алармы - это программы на java для мобильника, которые заставляют пользователя отправить смс на короткий номер. Например, пользователь жмет постоянно на софт-кнопку, чтобы "увеличить процент". Внезапно, всплывает запрос на отправку смс. Пользователь по инерции нажимает кнопку подтверждения и остается без денег. Вот как-то так.
А вот на сименсе М 65 у меня ниче не всплывало, оторвать бы руки производителю. И пару раз попадал на деньги.Слава богу телефончик сдох теперь юзаю сонерик.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (19.07.2010)
Ответ


Опции темы

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

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


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


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