Währungsrechner funktioniert nicht

[rojhat2049]

Hallo


ich muss für die Schule einen Währungsrechner programmieren

aber er funktioniert nicht

vllt könnt ihr mir ja helfen

Delphi-Quellcode:

unit Unit1;
interfac
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure edtDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
var
  kurs, euro, dollar :Single;
  code               :Integer;
  s                  :string;
 procedure umwandeln;
  begin
    with Form1 do
    begin
      Val(edt1.text, kurs, code) ;
      Val(edt2.Text,kurs , code) ;
      Val(edt3.Text,kurs ,code) ;
     end;
    end;
    procedure euro_dollar;
    begin
     umwandeln;
     Str(euro/kurs:8:2,s);
     Form1.edt2.text :=s;
     end;
     procedure dollar_euro;
     begin
       umwandeln;
       Str(dollar*kurs:8:2,s);
       Form1.edt3.text :=s;
       end;
procedure TForm1.edtDblClick(Sender: TObject);
begin
    umwandeln;
    if kurs>0
    then if sender =edt3
         then euro_dollar
         else dollar_euro;
end;

end.

end.

danke im vorraus

[Luckie]

WAS funktioniert nicht? Wenn ich mein Auto in die Werkstatt bringe, stelle ich ihn ja auch nicht auf den Hof und sage: "Funktioniert nicht." und gehe wieder weg. Und bitte gib deinem Beitrag einen aussagekräftigen Titel.

Und noch ein kleiner Tipp: Formatiere deinen Quellcode mal gescheit, damit man ihn auch lesen kann.

[himitsu]

WAS funktioniert nicht? [edit] du Luckie ... mußt du alles genauso schreiben? [/edit]
(ohne Fehlerbeschreibung weiß Keiner wonach man suchen muß)

Delphi-Quellcode:

Val(edt1.text, kurs, code);
Val(edt2.Text, kurs, code);
Val(edt3.Text, kurs, code);

ist dir schon aufgefallen, daß hier alle Edits in die selbe Variable "kurs" geschrieben werden?

Und warum wertet keiner "code" aus? (Fehlerbehandlung = 0)


Ach ja ... hat euer Lehrer euch das mit den globalen Variablen und Prozeduren so beigebracht?
Wenn ja, dann schick ihn bitte mal zu uns ... wir würden ihm auch gerne mal was beibringen.

[rojhat2049]

Naja

Also wenn ich F9 drücke öffnet sich zwar das programm aber wenn ich was eingebe in die Edits dann rechnet er das nicht um

[rojhat2049]

Hat sich erledigt

lag an dem Teil

Delphi-Quellcode:

Val(edt1.text, kurs, code);
Val(edt2.Text, kurs, code); 
Val(edt3.text,kurs,code;

[himitsu]

Zitat von rojhat2049:

Also wenn ich F9 drücke ...

Delphi-Quellcode:

procedure TForm1.edtDblClick(Sender: TObject);
begin
    umwandeln;

Dafür nutzt man etwas, das nennt sich "debuggen".

> Geht auf das "umwandeln", drücke F5 (Haltepunkt hinzufügen)
> starte das Programm (F9)
> wenn das Programm am Haltepunkt angekommen ist, dann geht man mit F7 (notfalls auch mal mit F8) Befehl für Befehl durch
> und schaut sich die Variablen und verarbeiteten Befehle an, ob alles so läuft, wie es soll

hier könnte man sich auch mal einige Variablen ansehn, wenn einem die Möglichkeiten im Editor (ala Hints und Context-Menü) nicht ausreichen
Strg+Alt+W aka Ansicht > Debug-Fenster > Überwachte Ausdrücke
Strg+Alt+L aka Ansicht > Debug-Fenster > Lokale Variablen


Dieses Debuggen sollten einem eigentlich ganz zu Anfang beigebracht werden.

[Luckie]

Zitat von himitsu:

Dieses Debuggen sollten einem eigentlich ganz zu Anfang beigebracht werden.

Wie ich auch schon aus anderen Threads erfahren habe, ist dies wohl nicht üblich an Schulen Hilfe zur Selbsthilfe zu lehren -- zumindest im Informatikunterricht.

[himitsu]

drum wäre es mal schön, wenn auch die Lehrer mal zu uns kommen würden.

PS: wenn die Lehrer hier rumhüpfen, dann würden auch weniger kommen und von uns ihre Hausaufgaben gemacht haben wollen.

das ist jetzt nicht gegen rojhat2049 gerichtet!
hier kommen oftmals welche her "macht ihr mir mal meine Hausaufgabe, denn ich habe keine Lust dazu"

[fatalerror]

Zitat von himitsu:

drum wäre es mal schön, wenn auch die Lehrer mal zu uns kommen würden.

Nun ich bin ein Vertreter dieser hier scheinbar unbeliebten Berufsgattung (Berufsschullehrer für Informatik aus der Schweiz). Manchmal staune ich hier schon was in diesem Forum für pauschale Vorwürfe an uns Lehrer gemacht werden. Besonders interessant finde ich es, wenn Schüler während eines ganzen Semesters einfach rumsitzen, jegliche Mitarbeit während des Unterrichts verweigern und dann ein paar Tage vor Abgabetermin einer Arbeit hier im Forum nach der Lösung suchen.

[himitsu]

Keine Soge, wir wissen schon, daß es ein/zwei gute Lehrer gibt, aber was man hier oftmals so für grausame Codes und Unwissen sieht .....
Und ja, manchmal/oftmals liegt es auch an den Schülern, welche einfach nichts begreifen (wollen).