RUMUS kalkulator delpi 7

Rumus (+)

var a:integer;

b:integer;

c:integer;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a+b;

edit3.Text:=IntToStr(c);

end;

(*)

var a:integer;

b:integer;

c:integer;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a*b;

edit3.Text:=IntToStr(c);

end;

(-)

var a:integer;

b:integer;

c:integer;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a-b;

edit3.Text:=IntToStr(c);

end;

(/)

var

a:integer;

b:integer;

c:real;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a/b;

edit3.Text:=FloatToStr(c);

end;

(kembali ke 0)

begin

edit1.Text:=' ';

edit2.Text:=' ';

edit3.text:=' ';

end;

(keluar)

close;

kesimpulan data bilangn I DAN II menggunakan edit dan tidak menggunakan rumus

keterangan : a= edit 1

                      b= edit 2

                      c= edit 3

Float  /  Int     = sama saja

Real                = pecahan

Integer           = bulat

RUMUS PORTAL

User:*******

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key =#13 then

begin

if edit1.text ='heri' then edit2.SetFocus

else showmessage ('user yang anda masukan salah');

end;

end;                                                   

password:********

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key =#13 then

begin

if edit2.text='125100100' then button1.SetFocus

else showmessage ('pasword yang anda masukan salah');

end;

end;

login:

procedure TForm1.Button1Click(Sender: TObject);

begin

if (edit1.text='heri') and

(edit2.text='125100100')

then showmessage ('user dan pasword benar')

else showmessage ('user dan pasword belum diisi atau slah, cek kembali');

if (edit1.text='heri')and(edit2.text='125100100')then

form2.Show;

end;

exit

close;