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.
Raha muunnin............
kysymys..............
1
5524
Vastaukset
- mitään.....
sain toimimaan ovin neuvoin.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuuluuko ehkäisy parisuhteessa molemmille
Mieheni pelkää kovasti sitä, että minun käyttämä ehkäisy (pillerit) pettävät ja että tulisin raskaaksi. Hänellä on jo en621214Suhun ihastuminen oli liikaa mulle ...
Se meni jo sairauden ja sekavuuden puolelle. Oisin tehnyt melkein mitä vain, että saisin sut ja se ei ole tervettä. Vars341020- 631010
Tänään valtuustossa
Striimi rikki. Mennään saliin ja otetaan pussillinen mätiä omenoita mukaan. Popcornit valmiiksi kun Savola alkaa puhumaa261007- 69955
- 46941
- 73892
- 17870
- 56852
Minkälaiset hiukset
kaivatullasi on? Miehellä Kenties ananas, puolikalju jne jne Naisella kenties vaaleat kiharat jne jne27836