|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.05.2009, 20:01 | #1 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
меню
У меня тут не получаеться сделать меню...Может что-то поможите?
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; |
19.05.2009, 20:05 | #2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Заключайте код в теги CODE ("#" на панели в окне редактирования).
Где код основной программы? Собственно, у меня выводятся 3 кнопки. Что именно не получается?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
19.05.2009, 20:11 | #3 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
а у меня не выводится три кнопки=(
|
19.05.2009, 20:13 | #4 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Я у себя вот так сделал: Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
20.05.2009, 02:30 | #5 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
Слушай как в меню вложить игру?
|
20.05.2009, 02:34 | #6 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
20.05.2009, 02:39 | #7 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
я накатал меню...Теперь мне нужно чтобы при нажатие например новая игра у меня открывалась новая игра,чтобы когда я нажимал выход,она выходила
|
20.05.2009, 02:43 | #8 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Цитата:
То есть при выборе пунктов меню изменяйте еще некоторую переменную, которая будет говорить, какой пункт выбран. И при нажатии, например, ентера, проверяйте значение этой переменной и вызывайте соответствующую процедуру.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
20.05.2009, 02:59 | #9 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
ём=(сложновато
|
20.05.2009, 03:05 | #10 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
А что сложного? Ну навскидку будет выглядеть как-то так:
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Меню | Dem6 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 10.04.2009 16:43 |
Для доступа к пунктам главного меню клавиши ALT + подчеркнутая буква меню в офис 2007? | Окоча Юра | Microsoft Office Word | 1 | 24.02.2009 12:29 |
Меню с Items в виде набора Bitmap (как меню редактирования в Word'е) | chandrasecar | Мультимедиа в Delphi | 7 | 14.01.2009 09:20 |
Меню | Witaliy | Общие вопросы Delphi | 4 | 27.04.2008 22:45 |
МЕНЮ | Delpher | HTML и CSS | 4 | 25.12.2007 15:37 |