Raha muunnin............

kysymys.............. kirjoitti:

eli tein raha muuntimen joka muuttaa eurot frangeiksi. Nyt olis sellanen kysymys et ku pitäis muuttaa tota sen verran et se muuttais eurot dollareiks, et mitenkäs se onnistuu? Kun frangin lyhenne on fr niin mikäs on dollarin? Tässä mun muuntimen koodit.

procedure TForm1.EuroButtonClick(Sender: TObject);
var
Euro, Fr: real;
S1, S2: string;
begin
CurrLabel.Caption := 'Euro';
Euro := StrToFloat(InputEdit.Text);
Fr := Euro * 40.3399;
S1 := FormatFloat('0.00', Euro);
S2 := FormatFloat('0.00', Fr);
EuroLabel.Caption := S1;
BEFLabel.Caption := S2;
end;

procedure TForm1.BEFButtonClick(Sender: TObject);
var
Euro, Fr: real;
S1, S2: string;
begin
CurrLabel.Caption := 'BEF';
Fr := StrToFloat(InputEdit.Text);
Euro := Fr / 40.3399;
S1 := FormatFloat('0.00', Euro);
S2 := FormatFloat('0.00', Fr);
EuroLabel.Caption := S1;
BEFLabel.Caption := S2
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

initialization
{$I unit1.lrs}

end.

Mitä kohtii pitää muuttaa et se muuttaa noi dollareiks? Ajattelin että voisin tehdä uuden rahamuuntimen kokonaan jos joku neuvois noitte dollareitten kanssa.

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä