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

kysymys..............

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.

1

5508

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • mitään.....

      sain toimimaan ovin neuvoin.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kamala onnettomuus

      Miten tällaiset mönkijäonnettomuudet yleensä tapahtuu? Liikaa vauhtia? Saako mönkijöillä ajaa lasten kanssa ja ilman kyp
      Suomussalmi
      150
      6827
    2. KANNATATKO NATOa? Jos olisit saanut äänestää...

      Ihan riittää lyhytkin kyllä tai en.
      Maailman menoa
      703
      2659
    3. Annetaanko jokainen 3 tunnistetta

      omasta kaivatusta? Minä aloitan: N-nainen, punaiset hiukset ja asuu Pirkanmaalla.
      Ikävä
      105
      2644
    4. Mitä teit väärin?

      Että ikäväsi kohde häipyi elämästäsi?
      Ikävä
      179
      1961
    5. Mönkijäpnnettomuus

      Harmillinen homma. https://www.hs.fi/suomi/art-2000010557170.html
      Suomussalmi
      29
      1791
    6. Sinäkin tiedät sen nainen

      Nainen sinä olit kohtaloni mutta minä en sinun ja niin surullista kuin se onkin niin tuun varmaan silti rakastamaan sua
      Ikävä
      79
      1680
    7. Tilitoimisto!!!

      Mikä tilitoimisto jäi kiinni rikoksesta Rovaniemellä?
      Rovaniemi
      25
      1217
    8. Tietäisitpä miten haluaisin sinut kohdata

      Vaikka vaan katsella ohimennen. Voisitko telepaattisesti lähettää viestiä, - löytyisikö kohtauspaikkaa?
      Ikävä
      59
      1177
    9. Kaivonkonekuski hukkui etelärannassa

      Oliko paikkakuntalaisia?
      Rovaniemi
      14
      1147
    10. Jos ihmettelit minun käytöstä

      Niin yritin hieman jarrutella juoruja mitä liikkuu. Sinussa ei vikaa.
      Ikävä
      62
      1136
    Aihe