Währungsumrechner

Jasmini · Beiträge: 20 Win Millenium D7

Hallo alle zusammen,
habe ein rießen Problem!!
Ich soll einen Währungsumrechner programmieren, mit zwei radiogroup, nun weiß ich aber nicht, wie ich diese Kombinieren kann!
In der ersten muss man die eingabe anklicken und in der zweiten die Ausgabe,
Die Umrechnungskurse, hab ich als Konstanten deklariert!

Bitte helft mir!!

Jasmini

Moderiert von raziel: Topic aus Algorithmen, Optimierung und Assembler verschoben am Di 01.02.2005 um 19:32

jasocul · Verfasst: Di 01.02.05 19:36

Hallo Jasmini :welcome:

Was meinst du mit "Kombinieren"?
Falls du meinst, dass etwas passieren soll, wenn etwas an einer Radiogroup geändert wird (andere Währung gewählt), solltest du das OnClick-Ereignis genauer ansehen.
Dort könntest du dann die Umrechnungsformel einsetzen und das Ergebnis in einem Label ausgeben.

Radioactive · Verfasst: Di 01.02.05 19:39

Also du machst eine Form mit zwei Radiobuttons (nebeneinander), ein Edit und einem Button.
Den ersten Radiobutton nennst du "von Euro nach Dollar" und den zweiten "von Dollar nach Euro". In dem Edit steht nichts und auf dem Button steht "Berechnen".

Nun schreibe eine Methode für Button1Click:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

if RadioButton1.Checked = true then 
begin
  // von Euro nach Dollar...
  Edit1.Text := IntToStr(StrToInt(Edit1.Text)*Wechselkurs);
end else
begin
  // von Dollar nach Euro...
  Edit1.Text := IntToStr(StrToInt(Edit1.Text)*Wechselkurs2);
end;

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

Jasmini · Beiträge: 20 Win Millenium D7

Kann ich dir es mal schicken???

Es sind vier Währungen!!!
Das ist ja gerade mein Problem!
So gut bin ich noch nicht!!!

Moderiert von raziel: Doppelposting zusammengeklebt. Es gibt hier auch einen Edit-Button :mahn:

Radioactive · Verfasst: Di 01.02.05 19:44

bin ich "dir"?
Poste es doch einfach hier rein (also den Quellcode der Unit).

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

Radioactive · Verfasst: Di 01.02.05 19:47

ahhh! mit zwei Radiogroups!

also dann mach halt deine zwie Radiogroups mit den jeweils vier Währungen und schreib dann in die Button1Click Methode folgendes:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

if (RadioGroup1.ItemIndex = 1) and (RadioGroup2.ItemIndex = 2) then
begin
  // Euro-Dollar
  // ...
end else
if (RadioGroup1.ItemIndex = 1) and (RadioGroup2.ItemIndex = 3) then 
begin
  // Euro-Pfund
  // ...
end else
if (RadioGroup1.ItemIndex = 1) and (RadioGroup2.ItemIndex = 4) then 
begin
  // Euro-Yen
  // ...
end else
if (RadioGroup1.ItemIndex = 2) and (RadioGroup2.ItemIndex = 1) then 
begin
  // Dollar-Euro
  // ...
end else
...

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

Jasmini · Beiträge: 20 Win Millenium D7

Sorry Sie!!!

Ich probiere es mal!!!

Danke schon mal

Jasmini · Beiträge: 20 Win Millenium D7

Ich finde gerade meinen Fehler bei der Deklaration nicht!!!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

const
ed:1.30350;
eb:0.69085;
esf:1.54790;
de:0.76728;
db:0.52991;
dsf:1.18770;
be:1.44865;
bd:1.88710;
bsf:2.24150;
sfe:0.64629;
sfd:0.84196;
sfb:0.44613;

was ist daran falsch???
ed ist euro in dollar
eb Euro in britisches Pfund usw.

Moderiert von raziel: Delphi-Tags hinzugefügt

jasocul · Verfasst: Di 01.02.05 20:00

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

const
ed=1.30350;
eb=0.69085;
esf=1.54790;
de=0.76728;
db=0.52991;
dsf=1.18770;
be=1.44865;
bd=1.88710;
bsf=2.24150;
sfe=0.64629;
sfd=0.84196;
sfb=0.44613;

So ist es besser.

@radioactive:
Wäre da ein Case nicht besser und einfacher?

@Jasmini:
Das "Du" ist hier der Normalfall. Radioactive wusste nur nicht, wen du meinst.

Radioactive · Verfasst: Di 01.02.05 20:02

ich denke nicht, es läuft immer auf das gleiche raus außerdem ist es mit den if-Anweisungen besser zu verstehen, finde ich.

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

Jasmini · Beiträge: 20 Win Millenium D7

danke

Radioactive · Verfasst: Di 01.02.05 20:07

bitte. Ich pack's jetzt.
Noch was: das mit dem "bin ich "dir"?" hat sich nicht aus siezen/duzen bezogen sondern ich wollte wissen, ob ich gemeint bin. :oops:

Duz mich bitte (wieder), falls du es falsch verstanden hast. Danke!

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

Jasmini · Beiträge: 20 Win Millenium D7

ja ich dutze dich weiter!!!

ich komme mit dem Programm nicht weiter!!!
Mein Kopf platzt bald!

jasocul · Verfasst: Di 01.02.05 20:34

Jasmini, habe jetzt icq an. geht vielleicht schneller.

keckoso · Hält's aus hier Beiträge: 1

hat das jetzt jemand zuende geschrieben? Muss das jetzt leider auch machen und blicke nciht so wirklich durch. für meinen lehrer zählt nur was abgeliefert wird...

hat da jemand was für mich ?

schönen dank

gruss kecko

passiv · Verfasst: Di 17.10.06 10:51

sag mal was genau du nicht kapierst ;-)

_________________

Die Probleme, die es in der Welt gibt, sind nicht mit der gleichen Denkweise zu lösen, die sie erzeugt hat.
Albert Einstein

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme