KALKULATOR (MENGGUNAKAN DELPHI 7)

KALKULATOR (MENGGUNAKAN DELPHI 7)

Ini dia yang terpenting

procedure TForm1.Button1Click(Sender: TObject);

var

  angka1,angka2,hasil : integer ;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 + angka2;

  edit3.Text:=INTTOSTR(hasil);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  angka1,angka2,hasil : integer ;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 - angka2;

  edit4.Text:=INTTOSTR(hasil);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

  angka1,angka2,hasil : integer ;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 * angka2;

  edit5.Text:=INTTOSTR(hasil);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

  angka1,angka2 : integer ;

  hasil : real;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 / angka2;

  edit6.Text:=FLOATTOSTR(hasil);

end;

procedure TForm1.Edit3Change(Sender: TObject);

var

  angka1,angka2,hasil : integer ;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 + angka2;

  edit3.Text:=INTTOSTR(hasil);

end;

procedure TForm1.Edit4Change(Sender: TObject);

var

  angka1,angka2,hasil : integer ;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 - angka2;

  edit4.Text:=INTTOSTR(hasil);

end;

procedure TForm1.Edit5Change(Sender: TObject);

var

  angka1,angka2,hasil : integer ;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 * angka2;

  edit5.Text:=INTTOSTR(hasil);

end;

procedure TForm1.Edit6Change(Sender: TObject);

var

  angka1,angka2 : integer ;

  hasil : real;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 / angka2;

  edit6.Text:=FLOATTOSTR(hasil);

end;

procedure TForm1.Button5Click(Sender: TObject);

 var

  angka1,angka2, hasil : integer ;

  hasilsemua : real;

begin

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 + angka2;

   edit3.Text:=INTTOSTR(hasil);

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 - angka2;

   edit4.Text:=INTTOSTR(hasil);

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasil:=angka1 * angka2;

   edit5.Text:=INTTOSTR(hasil);

  angka1:=STRTOINT(edit1.Text);

  angka2:=STRTOINT(edit2.Text);

  hasilsemua:=angka1 / angka2;

   edit6.Text:=FLOATTOSTR(hasil);

end;

end.