unit1.pas

Calculator with delphi7

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus,math, ComCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    GroupBox1: TGroupBox;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    GroupBox2: TGroupBox;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    MainMenu1: TMainMenu;
    g1: TMenuItem;
    Standartinis1: TMenuItem;
    Mokslinis1: TMenuItem;
    Button31: TButton;
    RadioButton3: TRadioButton;
    Edit4: TEdit;
    Label1: TLabel;
    Button32: TButton;
    ComboBox1: TComboBox;
    Edit9: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit2: TEdit;
    Edit7: TEdit;
    Image1: TImage;
    Info1: TMenuItem;
    Image2: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Mokslinis1Click(Sender: TObject);
    procedure Standartinis1Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Info1Click(Sender: TObject);
  private
    pirmas:real;
    antras:real;
    ats:real;
    mrc:real;
    zenklas:string;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  atsCOS: Extended;
  atsSin,atsSinDeg: Extended;
  atsTan: Extended;
  s,cosx,cosxR,cosxG: string;

  p,a,t,k,ats1,ats2,atsx,atsx2,atsx3,atsx4,ats3:real;    /// kintamieji reikalingi trupmenom skaiciuot
  txt,txt2:string;
implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
edit9.Text:='';
zenklas:='+';


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit9.text:=edit9.text+'1';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit9.text:=edit9.text+'2';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
antras:=strtofloat(edit9.text);

if zenklas='+' then
ats:=pirmas+antras;

if zenklas='-' then
ats:=pirmas-antras;

if zenklas='*' then
ats:=pirmas*antras;

if zenklas='/' then
ats:=pirmas/antras;

if zenklas='%' then
ats:=pirmas/100*antras;


edit9.text:=floattostr(ats);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
edit9.text:=edit9.text+'3';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
edit9.text:=edit9.text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit9.text:=edit9.text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
edit9.text:=edit9.text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
edit9.text:=edit9.text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit9.text:=edit9.text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
edit9.text:=edit9.text+'9';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
edit9.text:=edit9.text+'0';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
edit9.Text:='';
zenklas:='-';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
edit9.Text:='';
zenklas:='*';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
edit9.Text:='';
zenklas:='/';
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
edit9.text:=floattostr(mrc);
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
mrc:=strtofloat(edit9.text);
edit7.Text:='M';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
mrc:=0;
edit7.Text:='';
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
edit9.text:=edit9.text+'.';
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
edit9.text:='';
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
s:=edit9.text;
if s = '' then exit; 
delete(s, length(s), 1); 
edit9.text:=s;
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
ats:=pirmas*pirmas;
edit9.text:=floattostr(ats);
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
ats:=pirmas*pirmas*pirmas;
edit9.text:=floattostr(ats);
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
if cosx='degrees' then begin
pirmas:=strtofloat(edit9.text);
atsCOS:=Cos(pirmas);
atsSinDeg:=(pirmas*(180/pi))/3277.1679532761382560271020320264*6.27701959731375;
edit9.text:=floattostr(atssindeg);
end;

if cosxR='radians' then begin
pirmas:=strtofloat(edit9.text);
atsCOS:=Cos(pirmas);
edit9.text:=floattostr(atsCOS);
end;

if cosxG='grads' then begin
pirmas:=strtofloat(edit9.text);
atsCOS:=Cos(pirmas);
atsSinDeg:=(pirmas*(180/pi))*0.00191990805553237;
edit9.text:=floattostr(atssindeg);

end;
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
if cosx='degrees' then begin
pirmas:=strtofloat(edit9.text);
atsSin:=Sin(pirmas);
atsSinDeg:=(pirmas*(180/pi))/3277.1679532761382560271020320264;
edit9.text:=floattostr(atsSinDeg);
end;

if cosxR='radians' then begin
pirmas:=strtofloat(edit9.text);
atsSin:=Sin(pirmas);
edit9.text:=floattostr(atsSin);
end;

if cosxG='grads' then begin
pirmas:=strtofloat(edit9.text);
atsSin:=Sin(pirmas);
atsSinDeg:=(pirmas*(200/pi))*0.000245919041742701;
edit9.text:=floattostr(atsSinDeg);

end;
end;


procedure TForm1.Button27Click(Sender: TObject);
begin
if cosx='degrees' then begin
pirmas:=strtofloat(edit9.text);
atsTan:=Sin(pirmas) / Cos(pirmas);
atsSinDeg:=(pirmas*(180/pi))*0.000307147774176848;
edit9.text:=floattostr(atsSinDeg);
end;

if cosxR='radians' then begin
pirmas:=strtofloat(edit9.text);
atsTan:=Sin(pirmas) / Cos(pirmas);
edit9.text:=floattostr(atsTan);
end;

if cosxG='grads' then begin
pirmas:=strtofloat(edit9.text);
atsTan:=Sin(pirmas) / Cos(pirmas);
atsSinDeg:=(pirmas*(200/pi))*0.000248397136599646;
edit9.text:=floattostr(atsSinDeg);

end;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
ats:=1/pirmas;
edit9.text:=floattostr(ats);
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
edit9.text:='3.1415926535897932385';
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
edit9.text:=edit9.text+'00';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
groupbox2.Height:=0;     //// norm.dydis 260
groupbox2.width:=0;     //// norm. dydis 320

form1.Height:=335;
form1.width:=402;

end;

procedure TForm1.Mokslinis1Click(Sender: TObject);
begin
groupbox2.Height:=260;
groupbox2.width:=320;

form1.Height:=335;
form1.width:=729;
end;

procedure TForm1.Standartinis1Click(Sender: TObject);
begin
groupbox2.Height:=0;
groupbox2.width:=0;

form1.Height:=335;
form1.width:=402;
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
antras:=strtofloat(edit9.text);
ats:=antras*pirmas/100;
edit9.text:=floattostr(ats);

end;

procedure TForm1.Button22Click(Sender: TObject);
begin
pirmas:=strtofloat(edit9.text);
ats:=sqrt(pirmas);
edit9.text:=floattostr(ats);
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
cosx:='degrees';
cosxR:='radians0';
cosxG:='grads0';
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
cosxR:='radians';
cosx:='degrees0';
cosxG:='grads0';
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
cosxG:='grads';
cosx:='degrees0';
cosxR:='radians0';
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
txt:=ComboBox1.Text;
end;

procedure TForm1.Button32Click(Sender: TObject);
begin

if txt='*' then begin
p:=strtofloat(edit1.text);
a:=strtofloat(edit2.text);
t:=strtofloat(edit3.text);
k:=strtofloat(edit4.text);
ats1:=p*t;
ats2:=a*k;
edit5.text:=floattostr(ats1);
edit6.text:=floattostr(ats2);
end;

if txt='/' then begin
p:=strtofloat(edit1.text);
a:=strtofloat(edit2.text);
t:=strtofloat(edit3.text);
k:=strtofloat(edit4.text);
ats1:=p*k;
ats2:=a*t;
edit5.text:=floattostr(ats1);
edit6.text:=floattostr(ats2);
end;

if txt='+' then begin
p:=strtofloat(edit1.text);
a:=strtofloat(edit2.text);
t:=strtofloat(edit3.text);
k:=strtofloat(edit4.text);
ats1:=a*k;
atsx:=ats1/a;
atsx2:=ats1/k;
atsx3:=p*atsx;
atsx4:=t*atsx2;
ats2:=atsx3+atsx4;
edit5.text:=floattostr(ats2);
edit6.text:=floattostr(ats1);
end;

if txt='-' then begin
p:=strtofloat(edit1.text);
a:=strtofloat(edit2.text);
t:=strtofloat(edit3.text);
k:=strtofloat(edit4.text);
ats1:=a*k;
atsx:=ats1/a;
atsx2:=ats1/k;
atsx3:=p*atsx;
atsx4:=t*atsx2;
ats2:=atsx3-atsx4;
edit5.text:=floattostr(ats2);
edit6.text:=floattostr(ats1);

end;
end;



procedure TForm1.Info1Click(Sender: TObject);
begin
form2.Show;        /////////// Made by: install, [e-mail],coding Delphi,C++,Php
                  ///////////  If yuo have work,for me write :))) Lithuania (Europe)
                 ///////////   irc.data.lt #programuotojas, www.programuotojas.com
end;

end.