Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 43, средняя оценка - 4.70
пачкa
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 10
#1

Создать горизонтальное меню - Turbo Pascal

09.02.2010, 13:21. Просмотров 5714. Ответов 3
Метки нет (Все метки)

Помогите написать меню горизонтальное, чтобы по нему можно было перемещаться стрелками и входить по нажатию ентер. я здесь нашел только с модулем граф,а надо с CRT.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2010, 13:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создать горизонтальное меню (Turbo Pascal):

Добавить горизонтальное меню в приложение - Turbo Pascal
товарищи мне срочно нужна помощь! у меня есть прога с буквенным вертикальным выпадающим подменю. мне нужно сделать меню горизонтальное...

Горизонтальное меню на паскале. сделать кнопки из 4 пунктов - Turbo Pascal
Мне надо в готовое меню добавить 4 пункта 1) Ввод массива 2) Вывод массива 3) Обработка массива, заменить отрицательные числа на...

Горизонтальное меню через процедуры и функции модулей CRT и DOS - Turbo Pascal
Доброго времени суток, друзья. Помогите пожалуйста с выполнением лабораторной работы. Разработать алгоритм и программу решения задачи, в...

Сформировать на экране горизонтальное меню при помощи процедур и функций модулей CRT и DOS - Turbo Pascal
Разработать алгоритм и программу решения задачи, в которой необходимо сформировать на экране горизонтальное меню при помощи процедур и...

Необходимо сформировать на экране горизонтальное меню с использованием процедур и функций модулей CRT и DOS - Turbo Pascal
Необходимо сформировать на экране горизонтальное меню при помощи процедур и функций модулей CRT и DOS. Меню должно содержать следующие...

Необходимо создать меню цифровое вертикальное с 'исчезающим" основным меню. - Turbo Pascal
Необходимо создать меню цифровое вертикальное с 'исчезающим" основным меню.

3
Nereus
1 / 1 / 0
Регистрация: 09.02.2010
Сообщений: 7
09.02.2010, 18:09 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
CONST
m:array[1..5] of string=('Имя файла    ',
                         'Создать      ',
                         'Посмотреть   ',
                         'Редактировать',
                         'Выход        ');
VAR
  i,x,y,num:integer;
  c:char;
begin
  ClrScr;
  x:=30; y:=10;
  num:=1;
  repeat
    for i:=1 to 5 do
    begin
      gotoXY(x,y+i);
      if i=num
        then begin textColor(0); textBackGround(15); end
        else begin textColor(15); textBackGround(0); end;
    write(m[i]);
end;
c:=readkey;
case c of
#72: if num=1 then num:=5 else dec(num);
#80: if num=5 then num:=1 else inc(num);
end;
until c=#27;
END.
1
Puporev
Модератор
52392 / 40239 / 13577
Регистрация: 18.05.2008
Сообщений: 93,003
09.02.2010, 18:41 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Горизонтальное меню.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt;
const Kol=9;
type mas = array [1..Kol] of string[20];
const stor: mas = ('  1  ','  2   ','  3  ','  4  ','  5  ','  6  ','  7  ','  8  ','Vyxod');
var i,k : byte;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
K :=1;
repeat
  for i:=1 to Kol do
   begin
     if I=K then
      begin
         textbackground(3);
         textcolor(12);
      end
     else
      begin
         textbackground(0);
         textcolor(15)
      end;
     gotoxy(5*(i-1)+1,1);
     write(stor[i]);
   end;
  repeat
  kod:=readkey;
  until Kod in [#13, #75, #77];
  case Kod of
  #75: begin  K := K-1; if K = 0 then K := Kol;
       end;
  #77: begin K :=K+1;  if K =10 then K := 1; end;
   end;
 until Kod = #13 ;
 
end;
begin
 repeat
   textbackground(0);
   textcolor(15);
   PrintMenu(K);
   clrscr;
   textbackground(0);
   textcolor(15);
   if k<9 then
    begin
     write('vybran variant ',k); readln;
    end
   else exit;
   case K of
   1: {procedure 1};
   2: {procedure 2};
   end;
 until k = 9;
end.
4
пачкa
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 10
10.02.2010, 12:58  [ТС] #4
Puporev, Большое спасибо!! и как Вам это всё так удается?
вот у вас всё в строку сделано через массив. А как еще можно сделать чтобы этот массив был вертикальный? чтобы к примеру под цифрами перемещалось подменю, в которой можно управлять клавишами верх-вниз?
0
10.02.2010, 12:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2010, 12:58
Привет! Вот еще темы с ответами:

Горизонтальное меню в графическом режиме - Pascal
Помогите пожалуйста с задачей! помогите с задачей) Решить задачу с помощью рекурсии. Составить программу вывода на экран...

Создать меню - Turbo Pascal
ребята такая вот проблема. надо сделать меню, с графической заставкой. меню и графическую заставку сделал, появилась идея перед графической...

Создать простое меню - Pascal
пожалуйста, помогите решить Задача Создать простейшее меню для вызова процедур: -создание списка -вывод всего списка -вызов...

Создать комбинированное меню - Turbo Pascal
Создать комбинированное меню Группа Количество учащихся Т-991 25 Т-992 25 Т-916 27 Т-015 25


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru