Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
19 / 19 / 20
Регистрация: 19.10.2012
Сообщений: 53
1

Нужно сделать меню программы, где задаются 2 переменные

12.01.2013, 13:32. Просмотров 967. Ответов 5
Метки нет (Все метки)


Нужна программа, у нее похожее меню (как в прикрепленном файле), две переменные задаются плюсом/минусом (в том числе можно ввести с клавиатуры), после чего вычисляется их сумма.
В прикрепленном файле игра Волки и зайцы.
0
Миниатюры
Нужно сделать меню программы, где задаются 2 переменные  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2013, 13:32
Ответы с готовыми решениями:

Нужно сделать меню и подключить к нему 4 программы с процедурами
Есть 4 программы(если нужно скину), нужно написать меню, в котором с помощью процедур можно будет...

MS DOS. Не задаются переменные окружения
Вопрос адресован знатокам MS DOS (6.22). Пытаюсь задать переменную: set aaa=c:\nu_6\aaa пытаюсь...

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

Зачем в определении функции заново задаются переменные
Есть программа для перевода из Цельсия в фарингейты На грамматические ошибки не обращайте...

5
6 / 6 / 7
Регистрация: 13.01.2013
Сообщений: 122
15.01.2013, 22:29 2
Если нужен подобный проект учи Delphi.
Или С++
Ибо классический Pascal на это не способен.
0
154 / 136 / 51
Регистрация: 28.11.2009
Сообщений: 460
Записей в блоге: 14
16.01.2013, 17:37 3
Sedlex, вы абсолютно не правы. Если правильно использовать все особенности PascalABC.NET, то можно сделать неплохие программы. Я делал две аркадные 2D игры. И я думаю, что на нём можно делать вещи и посерьёзнее.
1
348 / 287 / 49
Регистрация: 15.11.2012
Сообщений: 477
Записей в блоге: 1
16.01.2013, 20:00 4
Shtot, вряд ли ты с такими знаниями напишешь программу (если не можешь такую простую менюшку сделать)... Но если надо, вот код:
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
59
60
61
62
63
64
65
#apptype windows
#reference 'System.Windows.Forms.dll'
#reference 'System.Drawing.dll'
 
uses
  System.Windows.Forms,
  System.Drawing;
 
var
  i: integer;
  MyForm: Form;
  button1, button2: Button;
  tb: TextBox;
  
procedure b1Click(sender: object; args: System.EventArgs);
begin
i:= i+1;
tb.Text := i.ToString;
end;
 
procedure b2Click(sender: object; args: System.EventArgs);
begin
i:= i-1;
tb.Text := i.ToString;
end;
 
begin
 
  button1 := new Button;
  button1.Width := 20;
  button1.Text := '+';
  button1.Top := 8;
  button1.Left := 120;
  button1.Click += b1Click;
 
  button2 := new Button;
  button2.Width := 20;
  button2.Text := '-';
  button2.Top := 8;
  button2.Left := 50;
  button2.Click += b2Click;
 
  tb := new TextBox;
  tb.Text := i.ToString;
  tb.Top := 10;
  tb.Left := 80;
  tb.Width := 30;
  tb.Height := 50;
  tb.TabStop := False;
 
  MyForm := new Form;
  MyForm.FormBorderStyle := FormBorderStyle.FixedSingle;
  MyForm.MaximizeBox := False;
  MyForm.Text := 'Значение';
  MyForm.Width := 200;
  MyForm.Height := 70;
  
  MyForm.Controls.Add(button1);
  MyForm.Controls.Add(button2);
  MyForm.Controls.Add(tb);
  
  Application.EnableVisualStyles;
  
  Application.Run(MyForm);
end.
Добавлено через 23 минуты
Вот, что бы складывать:
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
#apptype windows
#reference 'System.Windows.Forms.dll'
#reference 'System.Drawing.dll'
 
uses
  System.Windows.Forms,
  System.Drawing;
 
var
  a, b, c: integer;
  MyForm: Form;
  button1, button2, button3, button4, button5: Button;
  tb1, tb2, tb3: TextBox;
  
procedure b1Click(sender: object; args: System.EventArgs);
begin
a:= a+1;
tb1.Text := a.ToString;
end;
 
procedure b2Click(sender: object; args: System.EventArgs);
begin
a:= a-1;
tb1.Text := a.ToString;
end;
 
procedure b3Click(sender: object; args: System.EventArgs);
begin
b:= b+1;
tb2.Text := b.ToString;
end;
 
procedure b4Click(sender: object; args: System.EventArgs);
begin
b:= b-1;
tb2.Text := b.ToString;
end;
 
procedure b5Click(sender: object; args: System.EventArgs);
begin
c:= a+b;
tb3.Text := c.ToString;
end;
 
begin
 
  button1 := new Button;
  button1.Width := 20;
  button1.Text := '+';
  button1.Top := 8;
  button1.Left := 120;
  button1.Click += b1Click;
 
  button2 := new Button;
  button2.Width := 20;
  button2.Text := '-';
  button2.Top := 8;
  button2.Left := 50;
  button2.Click += b2Click;
  
  button3 := new Button;
  button3.Width := 20;
  button3.Text := '+';
  button3.Top := 33;
  button3.Left := 120;
  button3.Click += b3Click;
 
  button4 := new Button;
  button4.Width := 20;
  button4.Text := '-';
  button4.Top := 33;
  button4.Left := 50;
  button4.Click += b4Click;
  
  button5 := new Button;
  button5.Width := 60;
  button5.Text := 'Сложить';
  button5.Top := 58;
  button5.Left := 65;
  button5.Click += b5Click;
 
  tb1 := new TextBox;
  tb1.Text := a.ToString;
  tb1.Top := 10;
  tb1.Left := 80;
  tb1.Width := 30;
  tb1.Height := 50;
  
  tb2 := new TextBox;
  tb2.Text := b.ToString;
  tb2.Top := 35;
  tb2.Left := 80;
  tb2.Width := 30;
  tb2.Height := 50;
  
  tb3 := new TextBox;
  tb3.Top := 83;
  tb3.Left := 80;
  tb3.Width := 30;
  tb3.Height := 50;
 
  MyForm := new Form;
  MyForm.FormBorderStyle := FormBorderStyle.FixedSingle;
  MyForm.MaximizeBox := False;
  MyForm.Text := 'Значение';
  MyForm.Width := 200;
  MyForm.Height := 150;
  
  MyForm.Controls.Add(button1);
  MyForm.Controls.Add(button2);
  MyForm.Controls.Add(button3);
  MyForm.Controls.Add(button4);
  MyForm.Controls.Add(button5);
  MyForm.Controls.Add(tb1);
  MyForm.Controls.Add(tb2);
  MyForm.Controls.Add(tb3);
  
  Application.EnableVisualStyles;
  
  Application.Run(MyForm);
end.
Громоздко, но вроде понятно)

Добавлено через 56 минут
Цитата Сообщение от Nikto Посмотреть сообщение
Я делал две аркадные 2D игры
А можно исходники скинуть ну или хотя бы exe-шники?
0
154 / 136 / 51
Регистрация: 28.11.2009
Сообщений: 460
Записей в блоге: 14
16.01.2013, 20:43 5
BaboshinSD, ответил в личку.
0
6 / 6 / 7
Регистрация: 13.01.2013
Сообщений: 122
16.01.2013, 21:14 6
Цитата Сообщение от Nikto Посмотреть сообщение
Sedlex, вы абсолютно не правы. Если правильно использовать все особенности PascalABC.NET, то можно сделать неплохие программы. Я делал две аркадные 2D игры. И я думаю, что на нём можно делать вещи и посерьёзнее.
Только в Delphi и в C++ builder Получится это в разы быстрее и оптимальнее.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2013, 21:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Где объявить глобальные переменные и массив? И как это сделать?
Работаю с формами, очень нужны глобальные переменные, но я кажется тупая, и тулю их не туда или не...

Нужно сделать меню
У меня вопрос: Как сделать меню которое будет подкресивать пункти(li) отвечающие за то на каком...

Нужно составить меню для программы
Нужно составить меню, которое могло бы выполнить следующее для программы 1- решить программу...

Как сделать, чтобы в окне программы при запуске переменные стояли на разных строках?
как сделать что бы в окне программы(см. рисунок) при запуске,переменные (x1,y1,z1) и (x2,y2,z2)...


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

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

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