|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.08.2008, 00:57 | #1 |
Новичок
Джуниор
Регистрация: 03.08.2008
Сообщений: 53
|
Помогите с калькулятором (делфи)
И так написал я код вот он
Код:
Писать я хочу так После того как очистили окошечко дальше после ввода в него числа (с каторым хотим сложит) запоминаем это число каторое ввели После чего запись события ( то есть это x:=c+q)(q - то число каторое записали) и после того как мы нажали на кнопку "=" то должен появиться результат (этой функции) Вот и все что я вроде бы хотел) Так же расматрю ваше остальные варианты может что я не так делаю |
17.08.2008, 01:23 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можете попробовать сделать так:
Код:
Код:
Всегда рад помочь!
Последний раз редактировалось Terran; 17.08.2008 в 01:25. |
17.08.2008, 02:17 | #3 |
Новичок
Джуниор
Регистрация: 03.08.2008
Сообщений: 53
|
а если у меня буду разные кнопки (+,-,/,*) ???
(у каждой кнопки капшн свой знак стоит) |
17.08.2008, 08:58 | #4 | |
Участник клуба
Регистрация: 08.03.2008
Сообщений: 1,537
|
Цитата:
http://programmersclub.ru/files/kalkulaytor.rar |
|
17.08.2008, 10:48 | #5 | |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Цитата:
Вот ещё один исходник инженерного калькулятора, думаю пригодится: Вложение 5328
Всегда рад помочь!
Последний раз редактировалось Terran; 30.11.2008 в 14:17. |
|
26.11.2010, 16:28 | #6 |
Новичок
Джуниор
Регистрация: 26.11.2010
Сообщений: 2
|
Код простого калькулятора.
Ниже приведен калькулятор который я написал 5 лет назад.
Последний раз редактировалось shalopai999; 26.11.2010 в 16:41. |
26.11.2010, 16:40 | #7 |
Новичок
Джуниор
Регистрация: 26.11.2010
Сообщений: 2
|
[QUOTE=shalopai999;668357]Этот калькулятор умеет '+' '-' '*' '/' '1/x' 'Квадратный корень' '%. Это мой самый первый проэкт по делфи )).
private public { Public declarations } end; var Form1: TForm1; a,b,c:real; mode:integer; x:integer; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin edt1.Text:=edt1.Text+'1'; edit1.Text:=edit1.text+'1'; end; procedure TForm1.btn2Click(Sender: TObject); begin edt1.Text:=edt1.Text+'2'; edit1.Text:=edit1.text+'2'; end; procedure TForm1.btn3Click(Sender: TObject); begin edt1.Text:=edt1.Text+'3'; edit1.Text:=edit1.text+'3'; end; procedure TForm1.btn4Click(Sender: TObject); begin edt1.Text:=edt1.Text+'4'; edit1.Text:=edit1.text+'4'; end; procedure TForm1.btn5Click(Sender: TObject); begin edt1.Text:=edt1.Text+'5'; edit1.Text:=edit1.text+'5'; end; procedure TForm1.btn7Click(Sender: TObject); begin edt1.Text:=edt1.Text+'7'; edit1.Text:=edit1.text+'7'; end; procedure TForm1.btn8Click(Sender: TObject); begin edt1.Text:=edt1.Text+'8'; edit1.Text:=edit1.text+'8'; end; procedure TForm1.btn9Click(Sender: TObject); begin edt1.Text:=edt1.Text+'9'; edit1.Text:=edit1.text+'9'; end; procedure TForm1.btn6Click(Sender: TObject); begin edt1.Text:=edt1.Text+'6'; edit1.Text:=edit1.text+'6'; end; procedure TForm1.btn10Click(Sender: TObject); begin edt1.Text:=edt1.Text+'0'; edit1.Text:=edit1.text+'0'; end; procedure TForm1.Button1Click(Sender: TObject); begin a:=StrToFloat(edt1.Text); mode:=1; edt1.Text:=''; edit1.Text:=edit1.text+'+'; end; procedure TForm1.btn11Click(Sender: TObject); begin a:=StrToFloat(edt1.Text); mode:=2; edt1.text:=''; edit1.Text:=edit1.text+'-'; end; procedure TForm1.btn12Click(Sender: TObject); begin a:=StrToFloat(edt1.Text); mode:=3; edt1.text:=''; edit1.Text:=edit1.text+'/'; end; procedure TForm1.btn13Click(Sender: TObject); begin a:=StrToFloat(edt1.Text); mode:=4; edt1.text:=''; edit1.Text:=edit1.text+'*'; end; procedure TForm1.btn14Click(Sender: TObject); begin edt1.Clear; edit1.clear; end; procedure TForm1.btn15Click(Sender: TObject); begin case mode of 1:begin b:=StrToFloat(edt1.Text); c:=a+b; edt1.Text:=FloatToStr(c); edit1.Text:=floattostr(c); end; 2:begin b:=StrToFloat(edt1.Text); c:=a-b; edt1.Text:=FloatToStr(c); edit1.Text:=floattostr(c); end; 3: begin b:=StrToFloat(edt1.Text); c:=a/b; edt1.Text:=FloatToStr(c); edit1.Text:=floattostr(c); end; 4:begin b:=StrToFloat(edt1.Text); c:=a*b; edt1.Text:=FloatToStr(c); edit1.Text:=floattostr(c); end; 5:begin b:=strtofloat(edt1.text); c:=a*(b/100); edt1.Text:=floattostr(c); edit1.Text:=floattostr(c); end; end; end; procedure TForm1.btn16Click(Sender: TObject); begin edt1.Text:=edt1.Text+','; edit1.Text:=edit1.text+','; end; procedure TForm1.edt1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if edt1.Text='' then ShowMessage('Введите число'); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin edt1.Text:=floattostr(sqrt(strtoflo at(edt1.text))); edit1.text:=floattostr(sqrt(strtofl oat(edit1.text))); end; procedure TForm1.Button2Click(Sender: TObject); begin x:=1; edt1.Text:=floattostr(x/(strtofloat(edt1.text))); end; procedure TForm1.Button3Click(Sender: TObject); begin a:=StrToFloat(edt1.Text); mode:=5; edt1.text:=''; edit1.Text:=edit1.text+'%'; end; end. Если что непонятно обращайтесь я отвечу. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема з калькулятором | carbon383 | Помощь студентам | 22 | 02.11.2008 11:49 |
Проблемы с калькулятором | MAKEDON | Помощь студентам | 18 | 02.08.2008 14:30 |