меню

[Linker88]

У меня тут не получаеться сделать меню...Может что-то поможите?


program menuuu;
uses crt,graph;
const
kolvo_punkt=3;
name_punkt:array [1..kolvo_punkt]of string=('novaya igra','uroven','vihod');
var
KEY:CHAR;
ST,ST1:STRING;
punkt:integer;
driver,mode,detect:integer;
Procedure Print_menu(numb_punkt:integer);
const
h_punkt=30;
h_prom=20;
w_punkt=100;
x_beg=320-round(w_punkt/2);
h_menu=h_punkt*kolvo_punkt+h_prom*( kolvo_punkt-1);
y_beg=240-round(h_menu/2);
var
i,x2,y1,y2:integer;
begin
CLEARDEVICE;
FOR i:=1 to kolvo_punkt do
begin
if i=numb_punkt then setfillstyle(6,4) else setfillstyle(1,2);
y1:=y_beg+(h_punkt+h_prom)*(i-1);
y2:=y1+h_punkt;
x2:=x_beg+w_punkt;
bar3D(x_beg,y1,x2,y2,5,TOPON);
setTextjustify(1,1);
outtextxy(320,y1+ROUND(h_PUNKT/2),name_punkt[i]);
end;
end;
PROCEDURE Print_win(x,y,color:INTEGER);
begin
window(x,y,x+29,y+9);
texTbackground(color);
clrscr;
end;

[Sazary]

Заключайте код в теги CODE ("#" на панели в окне редактирования).

Где код основной программы?

Собственно, у меня выводятся 3 кнопки. Что именно не получается?

[Linker88]

а у меня не выводится три кнопки=(

[Sazary]

а у меня не выводится три кнопки=(

Так вы покажите код главной функции. Вы выложили только процедуры.

Я у себя вот так сделал:

initgraph(driver,mode,'');

print_menu(1);
repeat
KEY := readkey;
case KEY of
 '1' : print_menu(1);
 '2' : print_menu(2);
 '3' : print_menu(3);
 end;
until KEY = #27;

readln;
closegraph;

Кнопками 1-3 выбираем пункт. Можно сделать счетчик и увеличивать или уменьшать его при нажатии на стрелки. Это уж как хотите.

[Linker88]

Слушай как в меню вложить игру?

[Sazary]

Сообщение от Linker88

Слушай как в меню вложить игру?

Что бы это могло значить? Игру вложить в меню?

[Linker88]

я накатал меню...Теперь мне нужно чтобы при нажатие например новая игра у меня открывалась новая игра,чтобы когда я нажимал выход,она выходила

[Sazary]

Сообщение от Linker88

Теперь мне нужно чтобы при нажатие например новая игра у меня открывалась новая игра,чтобы когда я нажимал выход,она выходила

Ну так сделайте игру в процедуре и вызывайте ее при выборе первого пункта.
То есть при выборе пунктов меню изменяйте еще некоторую переменную, которая будет говорить, какой пункт выбран. И при нажатии, например, ентера, проверяйте значение этой переменной и вызывайте соответствующую процедуру.

[Linker88]

ём=(сложновато

[Sazary]

А что сложного? Ну навскидку будет выглядеть как-то так:

print_menu(1);
current := 1;
repeat
KEY := readkey;
case KEY of
 '1' : begin print_menu(1); current := 1; end;
 '2' : begin print_menu(2); current := 2; end;
 '3' : begin print_menu(3); current := 3; end;
 #13 : case current of
          1 : new_game;
          2 : change_level;
          3 : exit;
          end;
 end;
until KEY = #27;