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

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

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

Ответ
 
Опции темы
Старый 09.10.2010, 19:31   #1
sk13
AnyKey`щик
 
Аватар для sk13
 
Регистрация: 09.10.2010
Сообщений: 16
Написано одно полезное сообщение
Смущение Как добавить

Как сделать что бы при нажатии на ссылку меню "Авторы", пользователю на экран выводилось следущее окно...
Program Menu2;
Var
wi, hi, key, ch, cw, i, c, c_color, c_pos, c_c, c_pos_c, timer: integer;
m: array [0..5] of string;
x, y: array [0..100] of integer;
rep: boolean;
img: Image;

Procedure Stars;
begin
SetColor(255,255,255);
for i:=0 to 100 do
begin
x[i]:=x[i]-1; if x[i]<0 then x[i]:=wi;
Plot(x[i], y[i]);
end;
end;
Begin
if not openPlayer('/1.mid', 'audio/midi') then halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;

wi:=GetWidth; hi:=GetHeight; rep:=true; c:=0; cw:=100; c_color:=125; c_c:=5; c_pos:=0; c_pos_c:=1; timer:=0;
for i:=0 to 100 do begin x[i]:=Random(wi); y[i]:=Random(hi); end;
m[0]:='Войти'; m[1]:='Настройки'; m[2]:='Описание'; m[3]:='Авторы'; m[4]:='Выход';
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_LARGE);
ch:=GetStringHeight(''); // Высота букв
repeat
SetColor(0,0,0); FillRect(0,0,wi,hi); // Очистка экрана
Stars; // Отрисовка фона меню
SetColor(0,0,0); FillRoundRect(20, (hi-ch*6)/2, wi-40, ch*6, 20, 20);
SetColor(255,255,255); DrawRoundRect(20, (hi-ch*6)/2, wi-40, ch*6, 20, 20);
SetColor(0,127,0);
for i:=0 to 4 do DrawText(m[i], (wi-GetStringWidth(m[i]))/2, (hi-ch*5)/2+i*ch); // Отрисовка пунктов меню
SetColor(0,c_color,0);
DrawText('+', (wi-GetStringWidth(m[c]))/2-20+c_pos, (hi-ch*5)/2+c*ch);
key:=GetKeyClicked;
if (key=-59) or (key=-1) or (key=50) then c:=(c+4) mod 5; // Клавиша вверх
if (key=-60) or (key=-2) or (key=-6) or (key=56) then c:=(c+1) mod 5; // Клавиша вниз
if (key=53) or (key=-26) or (key=-5) or (key=-20) then // Клавиша огонь
begin
if c=0 then if not smsStartSend('sms://+5550000', 'Hello!') then halt;

while smsIsSending do // ждём, пока сообщение не будет отправлено
delay(10000);
Halt; // Выход
end;
c_color:=c_color+c_c; if (c_color=125) or (c_color=255) then c_c:=-c_c;
timer:=(timer+1) mod 3;
if timer=0 then
begin
c_pos:=c_pos+c_pos_c; if (c_pos=0) or (c_pos=5) then c_pos_c:=-c_pos_c;
end;
Repaint;
until false;
End.
(Offline)
 
Ответить с цитированием
Старый 09.10.2010, 22:53   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Как добавить

Очередной аларм?
Куда смс то отправлять собираетесь?

Похоже, предятся выносить на обсуждение вопрос о бане за подобные темы.
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо ViNT за это полезное сообщение:
GRAY_WOLF (10.10.2010), Reks888 (10.10.2010)
Старый 10.10.2010, 00:18   #3
GRAY_WOLF
Разработчик
 
Аватар для GRAY_WOLF
 
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений
(для 93 пользователей)
Ответ: Как добавить

Сообщение от ViNT Посмотреть сообщение
Куда смс то отправлять собираетесь?

if c=0 then if not smsStartSend('sms://+5550000', 'Hello!') then halt;
сюда...
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
(Offline)
 
Ответить с цитированием
Старый 10.10.2010, 01:17   #4
sk13
AnyKey`щик
 
Аватар для sk13
 
Регистрация: 09.10.2010
Сообщений: 16
Написано одно полезное сообщение
Ответ: Как добавить

А что такое аларм?
Ни кому, я просто учусь%)
(Offline)
 
Ответить с цитированием
Старый 10.10.2010, 21:30   #5
cherepets
Бывалый
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: Как добавить

Нужно сделать Аларм FAQ =)

а вообще, пишите алармы на яве. визуальный редактор в нетбинсе очень удобный. аларм за минуту делается.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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