Главная » Delphi, Исходники, Калькулятор » Калькулятор с использованием RadioButton, CheckBox и SpeedButtom
Янв
18

Калькулятор с использованием RadioButton, CheckBox и SpeedButtom

Задание: создать калькулятор с использованием  RadioButton для выбора действия: сложения, вычетания, умножения или деления. Также для удобства нужно использовать флажок CheckBox для округления результата. С помощью кнопки SpeedButtom, делаем вывод результата. В общем получилось очень даже не плохо. Советую всем скачать посмотреть.
Калькулятор с использованием RadioButton, CheckBox и SpeedButtom

[sourcecode language=»delphi»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
CheckBox1: TCheckBox;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public





{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
var a,b,c: real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if RadioButton1.Checked then
c:=a+b
else
if RadioButton2.Checked then
c:=a-b
else
if RadioButton3.Checked then
c:=a*b
else
if RadioButton4.Checked then
c:=a/b;
if CheckBox1.Checked then
c:=Round(c);
SpeedButton1.Caption:= FloatToStr(c);
end;
end.
[/sourcecode]

Cкачать исходник:[download id=»20″]

P.S. Сегодня в поисках чего-то интересного нашел отличный блог о работе, заработке в сети и немного о здоровье.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.