[Dbase] Programm Funktioniert nicht?

[Thunder_B]

Hallo, es geht um DBase.
Und ich muss bis Morgen ein Programm fertig erstellt (schule) haben in dem es um folgendes geht:

Umrechnung von Yen_Euro über den Dollar Kurs mit Modulen und Parameterübergabe:

Ich habe soweit alles fertig aber es will einfach nciht laufen, könnt ihr mir sagen was daran falsch ist?

*Steuerprogramm:

*-----------------------

set talk off

clear


*Starten der Prozeduren


set Procedure to Dialog.prg

do Eingabe

set procedure to Umrech.prg

do Yen_Dollar(rYen;rKursDY;rDollar)

do Dollar_Euro(rDollar;rKursED;rEuro)

do Runden(rDollar;rEuro)

set procedure to Dialog.prg

do Ausgabe(rYen;rKursED;rKursDY;rDollar;rEuro)

*-----------


*Prozedurdatei Dialog


*Prozedurdatei: Dialog.prg
*Steuerprogram: Steuer.prg
*Enthaltene Prozeduren: Eingabe und Ausgabe


* Prozedur Eingabe:
*Empfangene Variablen = keine (erste Prozedur) Hier werden die ersten Variablen deklariert
*Gesendete Variablen = rYen, rKursED, rKursDY

procedure Eingabe(rYen;rKursED;rKursDY)

clear

*Variablen Deklarieren

rYen=0.0
rKursED=0.0
rKursDY=0.0

@01,01 say "Währungsumrechner von Yen in Euro"
@02,01 say "Bitte geben sie hier ihren Yen Betrag ein"
@03,01 get rYen picture "xxxxx"
@05,01 say "Bitte geben Sie hier den Umrechnungskurs Euro-Dollar ein"
@06,01 get rKursED picture "x.xxx"
@08,01 say "Bitte geben Sie hier ihren umrechnungskurs Dollar-Yen ein"
@09,01 get rKursDY picture "x.xxx"

return rYen;rKursED;rKursDY)

* Prozedur Ausgabe:
*Empfangene Variablen = rYen, rKursED, rKursDY, rDollar, rEuro
*Gesendete Variablen = keine (letzte Prozedur)

procedure Ausgabe(rYen;rKursED;rKursDY;rDollar;rEuro)

clear

@01,01 say "Eingegebener Yen_Wert"
@01,20 say rYen
@02,01 say "Eingegebener Kurs Dollar-Yen"
@02,20 say rKursDY
@03,01 say "Eingegebener Kurs Euro-Dollar"
@03,20 say rKursED
@04,01 say "Berechneter Dollar_Wert"
@04,20 say rDollar
@05,01 say "Berechneter Euro_Wert"
@05,20 say rEuro
@06,01 say "Das heutige Datum"
? Date

return


*Prozedurdatei Umrech.prg

*Prozedurdatei Umrech.prg
*Stammdatei: Steuer.prg
*Enthaltene Prozeduren: Yen_Dollar; Dollar_Euro; Runden


*---------------------------------------

*Prozedur Yen_Dollar

procedure Yen_Dollar(rYen;rKursDY;rDollar)

clear

*Deklaration der Variablen

rDollar=0.0

*Berechnung

rDollar=rYen*rKursDY

return(rDollar)

*---------------------------------------

*Prozedur Dollar_Euro

procedure Dollar_Euro(rDollar;rKursED;rEuro)

clear

*Deklaration der Varriablen

rEuro=0.0

*Berechnung

rEuro=rDollar*rKursED

return(rEuro)


*---------------------------------------

*Prozedur Runden

procedure Runden(rEuro,rDollar)

round rEuro picture "xxxx.xx"
round rDollar picture "xxxx.xx"

return(rEuro;rDollar)



Über schnelle Hilfe wäre ich extrem dankbar

edit: Thema lässt sich irgendwie nicht mehr editieren obwohl ich bei Thema nun folgendes reingeschrieben habe:

"Dbase Programm Funktioniert nicht? Need Help"

mfg
thunder

 

[Gil]

Re: HI, brauche dringet Hilfe

Les erstmal die Regeln, bevor du hier postest!
Die findest du hier. (Jetzt bitte nicht beleidigt sein, aber das Topic verrät mir, dass du die Regeln noch nicht gelesen hast).

Je genauer die Fehlerbeschreibung, desto präziser (und damit besser) sind die Antworten. "Funktioniert nicht" - ist eigentlich klar, sonst würdest du ja nicht fragen.

Ich wünsch dir viel Glück... suche den Fehler inzwischen lieber selber, geh alles nochmal genau durch, anstatt hier auf Hilfe zu hoffen. Die Chancen, eine Person zu treffen, die um diese Zeit noch in diesem Forum ist und sich mit dem Programm auskennt und dir deinen Fehler verrät, sind ziemlich gering.

Nächstes Mal nicht alles auf den letzten Drücker machen.

 

[Thunder_B]

Dbase Programm Funktioniert nicht? Need Help

ok sorry, habe das Thema erstmal editiert

ps:edit: Thema lässt sich irgendwie nicht mehr editieren obwohl ich bei Thema nun folgendes reingeschrieben habe:

"Dbase Programm Funktioniert nicht? Need Help"

*---------------

Das Problem hängt glaubeich mit den Parametern zusammen ich glaube irgendwie übernimmt er die nicht.

Also als erstes wird in der Eingabe Prozedur die ersten Variablen deklariert. Und diese werden dann an die Steuerdatei weiter gegeben. Diese sendet danach die beiden Variabeln rYen und rKursDY an die Prozedurdatei Umrech bzw. Prozedur Yen_Dollar. und so weiter

aber sobald ich das Programm ausführe kommen enorm viele fehler

1.Fehler Zeile 27 Unbekanntes Befehlswort (rKursDY;rDollar)

mfg
thunder