![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#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; |
![]() |
![]() |
![]() |
#2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]()
Заключайте код в теги CODE ("#" на панели в окне редактирования).
Где код основной программы? Собственно, у меня выводятся 3 кнопки. Что именно не получается?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
![]()
а у меня не выводится три кнопки=(
|
![]() |
![]() |
![]() |
#4 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]() Цитата:
Я у себя вот так сделал: Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
![]()
Слушай как в меню вложить игру?
|
![]() |
![]() |
![]() |
#6 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]() Цитата:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
![]()
я накатал меню...Теперь мне нужно чтобы при нажатие например новая игра у меня открывалась новая игра,чтобы когда я нажимал выход,она выходила
|
![]() |
![]() |
![]() |
#8 | |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]() Цитата:
То есть при выборе пунктов меню изменяйте еще некоторую переменную, которая будет говорить, какой пункт выбран. И при нажатии, например, ентера, проверяйте значение этой переменной и вызывайте соответствующую процедуру.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 19.04.2009
Сообщений: 82
|
![]()
ём=(сложновато
|
![]() |
![]() |
![]() |
#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 |