Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
2 из 2 « 1 2
 
Рейтинг 4.69/32: Рейтинг темы: голосов - 32, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43

Калькулятор делфи

07.05.2013, 08:10. Показов 6143. Ответов 30
Метки калькулятор, калькулятор delphi (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите пожалуйста решить проблему, не могу сделать чтобы при вводе с клавиатуры знаки /*-+ работали,он вводит их как цифры,не выполняя их.

вот код программы:

Delphi
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, Menus,ShellAPI;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Num1: TButton;
    Num2: TButton;
    Num3: TButton;
    Num4: TButton;
    Num5: TButton;
    Num6: TButton;
    Num7: TButton;
    Num8: TButton;
    Num9: TButton;
    Num0: TButton;
    Zpt: TButton;
    Plus: TButton;
    Minus: TButton;
    Umn: TButton;
    Delit: TButton;
    Run: TButton;
    Clear: TButton;
    XPManifest1: TXPManifest;
    Koren: TButton;
    Kvadr: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Num1Click(Sender: TObject);
    procedure Num2Click(Sender: TObject);
    procedure Num3Click(Sender: TObject);
    procedure Num4Click(Sender: TObject);
    procedure Num5Click(Sender: TObject);
    procedure Num6Click(Sender: TObject);
    procedure Num7Click(Sender: TObject);
    procedure Num8Click(Sender: TObject);
    procedure Num9Click(Sender: TObject);
    procedure Num0Click(Sender: TObject);
    procedure ZptClick(Sender: TObject);
   
    procedure PlusClick(Sender: TObject);
    procedure MinusClick(Sender: TObject);
    procedure UmnClick(Sender: TObject);
    procedure DelitClick(Sender: TObject);
    procedure RunClick(Sender: TObject);
    procedure ClearClick(Sender: TObject);
    procedure KorenClick(Sender: TObject);
    procedure KvadrClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,c,d:extended;
  znak: char;
  Deistv: Boolean;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=0;
  b:=0;
  c:=0;
  d:=0;
  Deistv:=False;
end;
 
 
procedure TForm1.Num1Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'1';
  edit1.SetFocus;
  Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
end;
 
procedure TForm1.Num2Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'2';
  edit1.SetFocus;
  Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
end;
 
procedure TForm1.Num3Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'3';
  edit1.SetFocus;
  Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
end;
 
procedure TForm1.Num4Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'4';
   edit1.SetFocus;
   Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
 
end;
 
procedure TForm1.Num5Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'5';
   edit1.SetFocus;
   Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
 
end;
 
procedure TForm1.Num6Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'6';
   edit1.SetFocus;
   Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
 
end;
 
procedure TForm1.Num7Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'7';
   edit1.SetFocus;
   Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
 
end;
 
procedure TForm1.Num8Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'8';
  edit1.SetFocus;
  Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
 
end;
 
procedure TForm1.Num9Click(Sender: TObject);
begin
  if Deistv then edit1.Text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'9';
   edit1.SetFocus;
   Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
 
end;
 
procedure TForm1.Num0Click(Sender: TObject);
begin
  if Deistv then Edit1.text:='';
  Deistv:=False;
  edit1.Text:=edit1.Text+'0';
  edit1.SetFocus;
  Edit1.SelLength:=0;
Edit1.SelStart:=Length(Edit1.Text);
end;
 
procedure TForm1.ZptClick(Sender: TObject);
begin
  if Deistv then Edit1.text:='0,' else
  edit1.Text:=edit1.Text+',';
  Deistv:=False;
end;
 
 
procedure TForm1.PlusClick(Sender: TObject);
begin
  a:=strtofloat(edit1.Text);
  //edit1.Text:='';
  znak:='+';
  Deistv:=True;
end;
 
procedure TForm1.MinusClick(Sender: TObject);
begin
  a:=strtofloat(edit1.Text);
  //edit1.Text:='';
  znak:='-';
  Deistv:=True;
end;
 
 
procedure TForm1.UmnClick(Sender: TObject);
begin
  a:=strtofloat(edit1.Text);
  //edit1.Text:='';
  znak:='*';
  Deistv:=True;
end;
 
 
procedure TForm1.DelitClick(Sender: TObject);
begin
  a:=strtofloat(edit1.Text);
  //edit1.Text:='';
  znak:='/';
  Deistv:=True;
 
  
 
end;
 
 
 
procedure TForm1.RunClick(Sender: TObject);
begin
b:=strtofloat(edit1.text);
  case znak of
  '+':d:=a+b;
  '-':d:=a-b;
  '*':d:=a*b;
  '/':d:=a/b;
  end;
 
edit1.Text:=FloatToStr(d);
end;
 
procedure TForm1.ClearClick(Sender: TObject);
begin
a:=0;
b:=0;
c:=0;
d:=0;
edit1.text:='';
end;
 
procedure TForm1.KorenClick(Sender: TObject);
var rez:real;
begin
  rez:=StrToFloat(edit1.Text);
  if (rez>=0) then rez:=sqrt(rez);
  edit1.Text:=(FloatToStr(rez));
end;
 
procedure TForm1.KvadrClick(Sender: TObject);
var rez:real;
begin
  rez:=StrToFloat(edit1.Text);
  if (rez>=0) then rez:=sqr(rez);
  edit1.Text:=(FloatToStr(rez));
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
 ShellExecute(Handle, 'open', PChar('spravka.chm'), nil, nil, SW_SHOWNORMAL);
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('spravka.chm'), nil, nil, SW_SHOWNORMAL);
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'+': Plus.click;
'-': Minus.click;
'*': Umn.click;
'/': Delit.click;
end;
end;
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 07.05.2013, 08:10
Ответы с готовыми решениями:

калькулятор в делфи
Помогите написать программу. Программа должна выполнять арифметические действия +,-,*,/, возведение в степень, извлечение корня. работа с...

калькулятор в делфи
помогите пожалуйста создать инженерный калькулятор в делфи

калькулятор в делфи
мне нужно создать калькулятор в 16 сс и разместить в нем кнопку перевода из 16 сс в 10ю... помогите плиииз скажи как заполнить...

30
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
17.06.2013, 15:28  [ТС]
Студворк — интернет-сервис помощи студентам
Огромное спасибо за помощь!
0
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
18.06.2013, 08:31  [ТС]
Помогите пожалуста нужно идти здавать калькулятор по дели,а у меня не получаеться ввод с клавиатуры водит 1 число а вести к пиримеру 123 не могу только однозначноекалькулятор.rar
0
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
18.06.2013, 08:36  [ТС]
Делфи,сори за ошибки*

Добавлено через 4 минуты
стоит edit1.Clear; в TForm1.Edit1KeyPress ,если его убераю цыфры водят не только однозначное число но,не очищаються при нажатиии на дейсвия.......Help........
0
 Аватар для HyperZen
498 / 251 / 56
Регистрация: 16.06.2011
Сообщений: 904
18.06.2013, 08:52
Цитата Сообщение от XpoHo Посмотреть сообщение
но,не очищаються при нажатиии на дейсвия.......Help........
Так Вы после "нажатии на действия" и очищайте компонет TEdit...
Delphi
1

Edit1.Clear;
0
Модератор
 Аватар для FIL
3492 / 2614 / 742
Регистрация: 19.09.2012
Сообщений: 7,977
18.06.2013, 09:04
Clear - убери
Delphi
1
2
3
4
5
6
7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
...
end;
//    edit1.Clear; // <---
end;
во все кнопки "действия" добавь
Delphi
1
2
3
4
5
6
7

procedure TForm1.umnClick(Sender: TObject);
begin
if edit1.text <>'' then x:=strtofloat(edit1.text);
kod:='*';
Flag:=True;
edit1.SetFocus;  // <---
end;
0
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
18.06.2013, 09:32  [ТС]
не работает*(

Добавлено через 7 минут
edit1.SetFocus; помогает только если вводить с клавиатуры и нажимать на дейсвие с калькулятра......преподу нужно чтобы и с клавиатуры тоже изчезало.....как и с кнопок калькулятра*((((((((((

Добавлено через 14 минут
Помогите кто сможет.......*(я в делфи не специалист.....
0
 Аватар для Ixmil
19 / 187 / 0
Регистрация: 17.06.2013
Сообщений: 2,163
18.06.2013, 09:32
Ну чобы изменить надписи на кнопках из своей программы:

Button1.Caption:= '';

также как и для формы

TForm1.Caption:= 'название';

Вроде так
0
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
18.06.2013, 09:39  [ТС]
это в действия вставлять?
0
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
18.06.2013, 09:52  [ТС]
ему еще оказывается нужно чтобы " при наборе других чисел после выполнения операции edit не чистится сам"
и ввод с лавиатуры....помгите кто сможетттттттт
0
 Аватар для Ixmil
19 / 187 / 0
Регистрация: 17.06.2013
Сообщений: 2,163
18.06.2013, 15:48
Доканал я твой калькулятор.
Только непонимаю зачем такой сложный алгоритм
я писал собственные архиваторы не то что калькуляторы, но сдесь чуть ногу не сломал.
Кстате у тебя там рекурсивное "=" Неправильные результаты даёт.

потому что у тебя на слогаемое Y каждый раз поступает результат из Z через Edit

2+1=3 а при следующем "=" уже сразу 5

x=2
y=1

y=z

отсюда:

x=2
y=3

2+3=5 а не 4 как должно быть.
Вложения
Тип файла: zip калькулятор2.zip (616.9 Кб, 28 просмотров)
1
0 / 0 / 0
Регистрация: 07.05.2013
Сообщений: 43
21.06.2013, 20:03  [ТС]
Спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 21.06.2013, 20:03
Помогаю со студенческими работами здесь

Написать калькулятор в делфи
Хочу написать калькулятор, чтобы данные вводили в один edit а ответ выводился после нажатия во второй эдит. Например: 2+2 нажал кнопку и...

Написать на Делфи калькулятор систем счисления.
Всем доброго времени суток.Я понимаю что я очередной вася с 0 постами который хочет чтоб ему помогли но всё же задачка лёгкая для...

Как сделать идентичный обычный калькулятор Виндовса в делфи
Как сделать идентичный обычный калькулятор Виндовса в делфи, чтобы можно было вводить с цифровой клавиатуры знаки действия?

Написать на делфи "калькулятор" формул комбинаторики
Добрый вечер.подскажите,как написать на делфи &quot;калькулятор&quot; формул комбинаторики?(прога вычисляет формулы комбинаторики) Создавайте...

Как в Делфи выполнить код, написанный на Делфи, например в поле ввода?
Есть способ в Делфи выполнить код, написанный на Делфи, например в поле ввода?


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

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
 Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru