Scribd
Upload
24 views14 pages

It gr10 Project Code

my IT project code

Uploaded by

Gideon
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
24 views14 pages

It gr10 Project Code

my IT project code

Uploaded by

Gideon
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 14

unit calc_u;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Math, JPEG;

type
TfrmCalc = class(TForm)
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
btn6: TButton;
btn7: TButton;
btn8: TButton;
btn9: TButton;
btn0: TButton;
btnClear: TButton;
btnEq: TButton;
btnPlus: TButton;
btnMinus: TButton;
btnMult: TButton;
btnDiv: TButton;
btnSQRT: TButton;
btnSQ: TButton;
btnabSQ: TButton;
btnabSQRT: TButton;
pnlInput: TPanel;
pnlOutput: TPanel;
imgPic: TImage;
imgMM: TImage;
lblMM: TLabel;
lblx: TLabel;
btnDot: TButton;
btnC: TButton;
btnBs: TButton;
btnPM: TButton;
btnMod: TButton;
btnDIV2: TButton;
lblf: TLabel;
procedure btnEqClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn9Click(Sender: TObject);
procedure btn0Click(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnPlusClick(Sender: TObject);
procedure btnMultClick(Sender: TObject);
procedure btnMinusClick(Sender: TObject);
procedure btnDivClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure imgMMClick(Sender: TObject);
procedure btnSQRTClick(Sender: TObject);
procedure btnSQClick(Sender: TObject);
procedure btnabSQRTClick(Sender: TObject);
procedure btnabSQClick(Sender: TObject);
procedure btnBsClick(Sender: TObject);
procedure btnCClick(Sender: TObject);
procedure btnPMClick(Sender: TObject);
procedure btnDotClick(Sender: TObject);
procedure btnDIV2Click(Sender: TObject);
procedure btnModClick(Sender: TObject);

private
ra, rb : real;
bCE, bMM : boolean;
sx, sy, sAns, sFunction : string;
public
{ Public declarations }
end;

var
frmCalc: TfrmCalc;

implementation

{$R *.dfm}

procedure TfrmCalc.btn0Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '0';

[Link] := clFuchsia;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn1Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '1';

[Link] := clPurple;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn2Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '2';

[Link] := clRed;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn3Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '3';

[Link] := clLime;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn4Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '4';

[Link] := clSilver;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn5Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '5';
[Link] := clMoneyGreen;

[Link] := true;
if bMM = true then
[Link]('Dn-ks_XX0AENgGG.jpg');
end;

procedure TfrmCalc.btn6Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '6';

[Link] := clOlive;

[Link] := true;
if bMM = true then

[Link]('459849174_3662929490686560_5088111011716121425_n.jpg')
;
end;

procedure TfrmCalc.btn7Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '7';

[Link] := clMaroon;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn8Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '8';

[Link] := clNavy;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure TfrmCalc.btn9Click(Sender: TObject);


begin
if [Link] = '0' then
Begin
[Link] := [Link];
End
Else
[Link] := [Link] + '9';

[Link] := clActiveCaption;

[Link] := true;
if bMM = true then
[Link]('[Link]');
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];

[Link] := '0';
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sFunction := 'abSQ';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];

[Link] := '0';
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

ra := strtoFloat(inputbox('What is the value of a?','Enter Here',''));


rb := strtoFloat(inputbox('What is the value of b?','Enter Here',''));

sx := [Link];

sFunction :='ab√';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
[Link] := copy([Link], 1, length([Link])-1);

if [Link] = '' then


[Link] := '0';
end;

procedure [Link](Sender: TObject);


begin
[Link] := '0';
[Link] := clskyblue;

[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := '0';
[Link] := '';
sx := '';
sy := '';
ra := 0;
rb := 0;
sFunction := '';

[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;

[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;
[Link] := true;

[Link] := clskyblue;
[Link] := true;

//swithc pic for mm


if bCE = true then
Begin
[Link]('51RB01ZmNCL._AC_UF1000,1000_QL80_.jpg');
bCE := false;
End
else if bCE = false then
Begin
[Link]('cleanmonk_xl.jpg');
bCE := true;
End;
end;

procedure TfrmCalc.btnDIV2Click(Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

sx := [Link];
[Link] := inttostr(Trunc(strtofloat(sx)));
[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sFunction :='D';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sx := [Link];

sFunction := '/';
[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
if (POS('.', [Link]) <> 0) then
exit
Else
Begin
[Link] := [Link] + '.';
End;

end;

procedure [Link](Sender: TObject);


begin
sy := [Link];
[Link] := clTeal;
[Link] := false;

if sFunction = '*' then


begin
sAns := floattostr( strtofloat(sx) * strtofloat(sy) );
[Link] := sAns;
[Link] := sx + sFunction + sy;
end

else if sFunction = '/' then


begin
if sy = '0' then
begin
[Link] := 'Math Error';
end;

sAns := floattostr( strtofloat(sx) / strtofloat(sy) );


[Link] := sAns;
[Link] := sx + sFunction + sy;
end

else if sFunction = '+' then


Begin
sAns := floattostr( strtofloat(sx) + strtofloat(sy) );
[Link] := sAns;
[Link] := sx + sFunction + sy;
End

else if sFunction = '-' then


Begin
sAns := floattostr( strtofloat(sx) - strtofloat(sy) );
[Link] := sAns;
[Link] := sx + sFunction + sy;
End

else if sFunction = '√' then


Begin
[Link] := floattostr(Sqrt(strtoFloat([Link])));
[Link] := '√' + [Link];
End

else if sFunction = '²' then


Begin
[Link] := floattostr(Power(strtoFloat(sx),2));
[Link] := [Link] + '²';
End

else if sFunction = 'ab√' then


Begin
[Link] := floattostr(Power(strtoFloat(sx),ra/rb));
[Link] := floattostr(rb) + '√' + sx +'^' + floattostr(ra) ;
End

else if sFunction = 'abSQ' then


Begin
ra := strtofloat([Link]);
[Link] := floattostr(Power(strtoFloat(sx),strtofloat(sy)));
[Link] := floattostr(strtofloat(sx)) + '^' + floattostr(ra);
End

else if sFunction = 'D' then


Begin
[Link] := inttostr(strtoint([Link]) DIV strtoint(sy));
[Link] := sx + ' DIV ' + sy;
End

else if sFunction = 'M' then


Begin
[Link] := inttostr(strtoint([Link]) MOD strtoint(sy));
[Link] := sx + ' MOD ' + sy;
End;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sx := [Link];
sFunction :='+';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
[Link] := floattostr(-1 * strtofloat([Link]));
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sx := [Link];
sFunction :='²';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sx := [Link];
sFunction :='√';

[Link] := clGray;
end;
procedure [Link](Sender: TObject);
begin
[Link] := '';
[Link] := '';
sx := '';
sy := '';
ra := 0;
rb := 0;
sFunction := '';
[Link] := 'Meme mode';
[Link] := 15;
[Link] := [fsBold];
[Link] := 'Papyrus';
[Link] := clskyblue;
[Link] := true;
[Link] := 'This is your "x" value';
[Link] := 'This is your functions';
[Link]('[Link]');
[Link] := taRightJustify;
[Link] := taRightJustify;
[Link];
[Link];
bMM := false;
[Link] := '0';
[Link] := bvLowered;
[Link] := bvLowered;
[Link] := bvRaised;
[Link] := bvRaised;
[Link] := clWhite;
[Link] := clWhite;
[Link] := 10;
[Link] := 10;
end;

procedure [Link](Sender: TObject);


begin
[Link] := 446;
[Link] := 517;
[Link] := poMainFormCenter;
end;

procedure [Link](Sender: TObject);


begin
//activate MM
ShowMessage('Goeie dag meneer, die "mode" was geïnspereer deur Eckard...');
[Link] := 699;
[Link] := 517;
[Link] := false;
[Link] := poMainFormCenter;
bMM := true
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sx := [Link];
sFunction :='-';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

sx := [Link];
[Link] := inttostr(Trunc(strtofloat(sx)));
[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sFunction :='M';

[Link] := clGray;
end;

procedure [Link](Sender: TObject);


begin
//Check for combo for MM
if [Link] = '6363' then
Begin
[Link];
[Link]
End;

[Link] := [Link];
[Link] := '0';

[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;
[Link] := false;

sx := [Link];
sFunction :='*';

[Link] := clGray;
end;

end.

You might also like