hei,
Minulla on seuraava koodattuna:
procedure TLaskin.LaskePainike1Click(Sender: TObject);
var
EkaLuku, TokaLuku, Summa: Real;
begin
EkaLuku :=StrToInt(Luku1.Text);
TokaLuku :=StrToInt(Luku2.Text);
Summa :=EkaLuku TokaLuku;
Tulos.caption :=IntToStr(Summa);
end;
procedure TLaskin.LaskePainike2Click(Sender: TObject);
var
EkaLuku, TokaLuku, Erotus: Real;
begin
EkaLuku :=StrToInt(Luku1.Text);
TokaLuku :=StrToInt(Luku2.Text);
Erotus :=EkaLuku - TokaLuku;
Tulos.caption :=IntToStr(Erotus);
end;
procedure TLaskin.LaskePainike4Click(Sender: TObject);
begin
end;
procedure TLaskin.LaskePainike4Click(Sender: TObject);
var
EkaLuku, TokaLuku, Tulo: Real;
begin
EkaLuku :=StrToInt(Luku1.Text);
TokaLuku :=StrToInt(Luku2.Text);
Tulo :=EkaLuku * TokaLuku;
Tulos.caption :=IntToStr(Tulo);
end;
Nyt samat toiminnot pitäisi saada aikaan aliohjelmilla. Miten summa, erotus ja tulo toteutetaan aliohjelmien avulla.
Minulla on seuraava koodattuna:
procedure TLaskin.LaskePainike1Click(Sender: TObject);
var
EkaLuku, TokaLuku, Summa: Real;
begin
EkaLuku :=StrToInt(Luku1.Text);
TokaLuku :=StrToInt(Luku2.Text);
Summa :=EkaLuku TokaLuku;
Tulos.caption :=IntToStr(Summa);
end;
procedure TLaskin.LaskePainike2Click(Sender: TObject);
var
EkaLuku, TokaLuku, Erotus: Real;
begin
EkaLuku :=StrToInt(Luku1.Text);
TokaLuku :=StrToInt(Luku2.Text);
Erotus :=EkaLuku - TokaLuku;
Tulos.caption :=IntToStr(Erotus);
end;
procedure TLaskin.LaskePainike4Click(Sender: TObject);
begin
end;
procedure TLaskin.LaskePainike4Click(Sender: TObject);
var
EkaLuku, TokaLuku, Tulo: Real;
begin
EkaLuku :=StrToInt(Luku1.Text);
TokaLuku :=StrToInt(Luku2.Text);
Tulo :=EkaLuku * TokaLuku;
Tulos.caption :=IntToStr(Tulo);
end;
Nyt samat toiminnot pitäisi saada aikaan aliohjelmilla. Miten summa, erotus ja tulo toteutetaan aliohjelmien avulla.
Vastaukset 1
Vanhimmat
Tuon esimerkkisi voi tehdä hyvin monella eri tavalla. Tässä jotain vinkkiä.
Jos lisäät jakolaskun niin huomio se että mitä teet tai tapahtuu kun jakajana on nolla.
TLaskin = class(TForm)
...
private
function Laske(const Laskettava1: string; const operaatio: char;
const laskettava2: string): string;
...
public
...
procedure TLaskin.LaskePainike1Click(Sender: TObject);
begin
Tulos.caption := Laske(Luku1.Text,' ',Luku2.Text);
end;
procedure TLaskin.LaskePainike2Click(Sender: TObject);
begin
Tulos.caption := Laske(Luku1.Text,'-',Luku2.Text);
end;
procedure TLaskin.LaskePainike4Click(Sender: TObject);
begin
Tulos.caption := Laske(Luku1.Text,'*',Luku2.Text);
end;
function TLaskin.Laske(const Laskettava1:string;const operaatio:char; const laskettava2:string):string;
var
EkaLuku, TokaLuku, laskun_tulos: Real;
begin
EkaLuku :=StrToFloat(Laskettava1);
TokaLuku :=StrToFloat(Laskettava2);
case operaatio of
' ': laskun_tulos := ekaluku tokaluku;
'-': laskun_tulos := ekaluku - tokaluku;
'*': laskun_tulos := ekaluku * tokaluku;
else laskun_tulos :=0;
end;
result := FloatToStr(laskun_tulos);
end;