forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)
-   -   Help (http://forum.boolean.name/showthread.php?t=18496)

Volumka 26.08.2013 13:37

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

}

Буду рад если кому то пригодиться этот код

RblSb 26.08.2013 15:24

Ответ: Help
 
омг, учи учебники, это кошмар, а не код, ошибки перечислять устанешь >_<

Volumka 26.08.2013 17:55

Ответ: Help
 
Цитата:

Сообщение от RblSb (Сообщение 265933)
омг, учи учебники, это кошмар, а не код, ошибки перечислять устанешь >_<

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

Mr_F_ 26.08.2013 21:11

Ответ: Help
 
Тебе компилятор указал на ошибку. И вместо того чтобы это написать, лучше бы включил мозг.

Amigo888 27.08.2013 11:51

Ответ: 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

....

Вот исправил ошибки, т.к ты дал кусок кода, работаспособность не гарантирую. Но этот кусочек я исправил, и он компилируется ))

Volumka 28.08.2013 13:11

Ответ: Help
 
Спасибо, но я уже сам переписал


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

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot