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

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

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

Ответ
 
Опции темы
Старый 26.08.2013, 09:37   #1
Volumka
AnyKey`щик
 
Регистрация: 26.08.2013
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Вопрос Help



Programm LiveRPG;
var key, pos, lang: integer;
mn, pro, nv, pri, sd, op, root, fname : string;
begin
mn :Меню;
pro :Пофиль;
nv :=Навыки;
pri :=Привычки;
sd :=Список_дел;
op :Настройки;
pos :=1;
SetColor(255,255,255);
FillRect(0,0,getWidth,getHeight);
DrawText(mn,(getWidth-getStringWidht(mn))/2,15);
DrawText(pro,30,(getHeight-getStringHeight(pro))/2);
DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25);
DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50);
repaint;
key := keyToAction(getKeyClicked);
if key = GA_UP then if pos>1 then
pos := pos-1;
if key = GA_DOWN then if pos<5 then pos := pos+1;
if pos = 1 then
begin
DrawText(mn,(getWidth-getStringWidht(mn))/2,15);
DrawText(pro,30,(getHeight-getStringHeight(pro))/2);
DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25);
DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50);
repaint;
end;
if pos = 2 then
begin
DrawText(mn,(getWidth-getStringWidht(mn))/2,15);
DrawText(pro,20,(getHeight-getStringHeight(pro))/2-25);
DrawText(nv,30,(getHeight-getStringHeight(nv))/2);
DrawText(pri,20,(getHeight-getStringHeight(pri))/2+25);
DrawText(sd,10,(getHeight-getStringHeight(sd))/2+50);
repaint;
end;
if pos = 3 then
begin
DrawText(mn,(getWidth-getStringWidht(mn))/2,15);
DrawText(pro,10,(getHeight-getStringHeight(pro))/2-50)
DrawText(nv,20,(getHeight-getStringHeight(nv))/2-25);
DrawText(pr,30,(getHeight-getStringHeight(pr))/2);
DrawText(sd,20,(getHeight-getStringHeight(sd))/2+25);
DrawText(op,10,(getHeight-getStringHeight(op))/2+50);
repaint;
end;
if pos = 4 then
begin
DrawText(mn,(getWidth-getStringWidht(mn))/2,15);
DrawText(nv,10,(getHeight-getStringHeight(nv))/2-50);
DrawText(pri,20,(getHeight-getStringHeight(pri))/2-25);
DrawText(sd,30,(getHeight-getStringHeight(sd))/2);
DrawText(op,20,(getHeight-getStringHeight(op))/2+25);
repaint;
end;
if pos = 5 then
begin
DrawText(mn,(getWidth-getStringWidht(mn))/2,15);
DrawText(pri,10,(getHeight-getStringHeight(pri))/2-50);
DrawText(sd,20,(getHeight-getStringHeight(sd))/2-25);
DrawText(op,30,(getHeight-getStringHeight(op))/2);
repaint;
end;
if key = GA_FIRE then
begin
{
if pos = 1 then
begin
if pos = 2 then

if pos = 3 then

if pos = 4 then

if pos = 5 then

}

Буду рад если кому то пригодиться этот код
(Offline)
 
Ответить с цитированием
Старый 26.08.2013, 11:24   #2
RblSb
Оператор ЭВМ
 
Аватар для RblSb
 
Регистрация: 25.08.2013
Адрес: Москва
Сообщений: 45
Написано 13 полезных сообщений
(для 28 пользователей)
Ответ: Help

омг, учи учебники, это кошмар, а не код, ошибки перечислять устанешь >_<
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
.:MaSe:. (26.08.2013)
Старый 26.08.2013, 13:55   #3
Volumka
AnyKey`щик
 
Регистрация: 26.08.2013
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Help

Сообщение от RblSb Посмотреть сообщение
омг, учи учебники, это кошмар, а не код, ошибки перечислять устанешь >_<
это мой первый код. И кстати не одного учебника я не нашел, кроме справки и пару статей. И вместо того что бы это написать лучше указал на ошибки и сказал как их исправить

Последний раз редактировалось Volumka, 26.08.2013 в 15:26.
(Offline)
 
Ответить с цитированием
Старый 26.08.2013, 17:11   #4
Mr_F_
Легенда
 
Аватар для Mr_F_
 
Регистрация: 13.09.2008
Сообщений: 3,879
Написано 2,131 полезных сообщений
(для 5,728 пользователей)
Ответ: Help

Тебе компилятор указал на ошибку. И вместо того чтобы это написать, лучше бы включил мозг.
(Offline)
 
Ответить с цитированием
Старый 27.08.2013, 07:51   #5
Amigo888
Нуждающийся
 
Регистрация: 05.08.2011
Сообщений: 83
Написано 16 полезных сообщений
(для 16 пользователей)
Ответ: Help

Program LiveRPG;
 var 
key, pos, lang: integer;
 mn, pro, nv, pri, sd, op, root, fname : string;
 begin
 mn :='Меню';
 pro :='Пофиль';
 nv :='Навыки';
 pri :='Привычки';
 sd :='Список_дел';
 op :='Настройки';
 pos :=1;
 SetColor(255,255,255);
 FillRect(0,0,getWidth,getHeight);
 DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
 DrawText(pro,30,(getHeight-getStringHeight(pro))/2);
 DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25);
 DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50);
 repaint;
 key := keyToAction(getKeyClicked);
 if key = GA_UP then if pos>1 then
 pos := pos-1;
 if key = GA_DOWN then if pos<5 then pos := pos+1;
 if pos = 1 then
 begin
 DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
 DrawText(pro,30,(getHeight-getStringHeight(pro))/2);
 DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25);
 DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50);
 repaint;
 end;
 if pos = 2 then
 begin
 DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
 DrawText(pro,20,(getHeight-getStringHeight(pro))/2-25);
 DrawText(nv,30,(getHeight-getStringHeight(nv))/2);
 DrawText(pri,20,(getHeight-getStringHeight(pri))/2+25);
 DrawText(sd,10,(getHeight-getStringHeight(sd))/2+50);
 repaint;
 end;
 if pos = 3 then
 begin
 DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
 DrawText(pro,10,(getHeight-getStringHeight(pro))/2-50);
 DrawText(nv,20,(getHeight-getStringHeight(nv))/2-25);
 DrawText(pri,30,(getHeight-getStringHeight(pri))/2);
 DrawText(sd,20,(getHeight-getStringHeight(sd))/2+25);
 DrawText(op,10,(getHeight-getStringHeight(op))/2+50);
 repaint;
 end;
 if pos = 4 then
 begin
 DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
 DrawText(nv,10,(getHeight-getStringHeight(nv))/2-50);
 DrawText(pri,20,(getHeight-getStringHeight(pri))/2-25);
 DrawText(sd,30,(getHeight-getStringHeight(sd))/2);
 DrawText(op,20,(getHeight-getStringHeight(op))/2+25);
 repaint;
 end;
 if pos = 5 then
 begin
 DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
 DrawText(pri,10,(getHeight-getStringHeight(pri))/2-50);
 DrawText(sd,20,(getHeight-getStringHeight(sd))/2-25);
 DrawText(op,30,(getHeight-getStringHeight(op))/2);
 repaint;
 end;
 if key = GA_FIRE then 

....
Вот исправил ошибки, т.к ты дал кусок кода, работаспособность не гарантирую. Но этот кусочек я исправил, и он компилируется ))
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Volumka (28.08.2013)
Старый 28.08.2013, 09:11   #6
Volumka
AnyKey`щик
 
Регистрация: 26.08.2013
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Help

Спасибо, но я уже сам переписал
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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