Deklaration MWST - Achtung:Totaler NOOB!

[DocE]

Was möchtest Du denn genau machen?

1. Soll auch der Mwst-Betrag in einem Edit ausgegeben werden?

2. Sollen sich diese Werte (MwSt-Betrag und Brutto-Betrag) sofort, also während der Eingabe des Netto-Betrages anzeigen, oder erst auf Knopfdruck? Beides zusammen macht nicht viel Sinn... Wenn ihr noch nicht mit try..except oder TryStrToFloat gearbeitet habt, ist die "auf Knopfdruck"-Variante besser, da es erst beim Knopfdruck zu einem Fehler kommen kann, ansonsten aber bei der Eingabe ständig zu Fehlern kommen könnte.

3. Hast Du vielleicht die genaue "Aufgabenstellung"?

4. Ist Dir try..except oder try..finally bekannt?

5. Ist Dir FormatFloat oder FloatToStrF bekannt?


Grüsse
...Doc

[Jenny84]

Bekannt sind mir u.a. halt die Begriffe wie "Strtofloat" und "Floattostr"...

Die Aufgabe heißt:
"Geben Sie das Programm bruttoberechnung ein und ändern Sie es derart ab, dass die Mehrwertsteuer als Konstante deklariert wird."

Da hab ich rumgegooglet und habs halt eingegeben dieses const mwst=16.0; gefunden....

[DocE]

Wenn ich das richtig verstehe, hast Du also bereits das fertige Programm "Bruttoberechnung" und sollst dies nur umändern?

Oder gehört die Entwicklung des Programms "Bruttoberechnung" dazu?

[Jenny84]

Das Programm war in den Unterlagen etwas anders geschrieben, der Lehrer hat an die Tafel geschrieben, wie wir es programmieren sollen (er arbeitet etwas anders wie datadidact...). Und das habe ich abgeschrieben und genauso in den Code eingegeben. Versteh das auch nciht (außer das mit der const mwst=16.0;, das hat er nicht angeschrieben, gehört ja zur Aufgabe)

Omann ich glaub ich raff das nie... Gings euch auch mal so?

[DocE]

Ok, das sieht so aus, als wenn es vorher ein Feld gab, nämlich "MwSt", in das man die Prozentzahl der MwSt eingeben sollte und jetzt soll das ganze nur mit einem festen Wert funktionieren. Verstehe zwar nicht ganz, warum man das Programm praktisch "zurückentwickelt", denn die flexible MwSt-Eingabe ist eigentlich besser. Aber gut. Ich ändere mal Deinen zuerst geposteten Quelltext und kommentiere diesen:

Delphi-Quellcode:

var 
  Form1: TForm1; 
  //vnetto, vbrutto, vmwst: single; // vmwst ist jetzt keine variable mehr, da const, also nur noch
  vnetto, vbrutto: single;

//const 
  //mwst=16.0; // wäre im Prinzip richtig, allerdings heißt das Eingabefeld (Edit) bereits mwst. 
  //wir benutzen jetzt einfach den Namen der vorherigen Variable "vmwst" (die oben in var entfernt wurde) weiter, um weniger ändern zu müssen
const
  vmwst = 16.0;  

implementation 

{$R *.dfm} 

procedure TForm1.nettoChange(Sender: TObject); 
begin 

  //Eingabe 
  vnetto:=strtofloat(netto.Text); 
  //vmwst:=strtofloat(mwst.Text); dies ist dann nicht mehr erorderlich, da oben als Konstante deklariert

  //Verarbeitung 
  vbrutto:= vnetto + vnetto * vmwst / 100.0; 

  //Ausgabe 
  brutto.Text := floattostr(vbrutto); 

end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  
  brutto.Text:=floattostr(vbrutto); // Diese Zuweisung bringt nichts, da der Wert sofort wieder überschrieben wird
  //brutto.Text:=floattostr(strtofloat (netto.text)+strtofloat (netto.Text)*strtofloat(mwst.Text)/100.0); // strtofloat(mwst.Text) durch vmwst ersetzen
  brutto.Text := floattostr(strtofloat(netto.text) + strtofloat(netto.Text) * vmwst / 100.0);

end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  
  close; 

end; 

end.

Allerdings gibt es jetzt immer noch das Problem, dass, wenn Du das Netto-Edit leer machst, oder Buchstaben eingibst, sofort eine Exception "kein gültiger Gleitkommawert" kommt. Ich kann mir eigentlich nicht vorstellen, dass das Programm so an die Tafel geschrieben wurde. Hast Du da schon was geändert? Sonst poste bitte nochmal das Original-Tafel-Programm.

Ich würde mal schätzen, dass die Sachen, die Du unter "NettoChange" gepackt hast, eigentlich in "Button1Click" gehören. Kann das sein?


Grüsse
...Doc

[mkinzler]

Hallo Jenny, vielleicht solltest du einen Schritt zurückgehen und erst einmal die grundlagen der Programmierung und dann die Implementierung in Delphi anschauen.
Dieser Tipp ist nicht böse gemeint, aber ich habe den Eindruck, daß du das was der Lehrer an der tafel mache abpinselst und eingibst, aber nich verstehst was der Code genau macht. Oder irre ich mich?

[Jenny84]

Daaankeschööön! So klangs jetzt wenigstens logisch

Ja der Haken wäre dann wirklich nur noch, dass sobald ich das Nettofeld leere diese Meldung kommt....
Und was ist mit dem Edit-Feld für die MwSt? Kann ich ja genausogut weglassen und den Button auch???

Also geändert habe ich nichts, habs genauso abgeschrieben wies an der Tafel stand, weil ich ja so kein Ahnung von dem Zeug hab.

@mkinzler: Mittwoch gibts nen Extra-Kurs für diejenigen die noch so Probleme haben, hoffentlich hilfts! Weil in der Stunde erklärt er nicht so gerne von vorne wegen den anderen, dies schon können... Ich habs ja auch erstmal selbst versucht aber diese Aufgabe war halt was, worüber wir noch NIE im Unterricht gesprochen haben (bis jetzt nur Taschenrechner inkl. Quadrat- und Wurzelfunktion programmiert)

[mkinzler]

http://www.dsdt.info/tutorials/

[Jenny84]

Danke dir! Scheint ja ziemlich hilfreich zu sein, ich schaus mir morgen an in Ruhe, denn langsam wirds Zeit für mich, offline zu gehen.

Ich danke euch nochmal!

[DocE]

Hallo Jenny,

also ich würde das ganze so machen, da ihr die "Try-Sachen" noch nicht hattet:

Was jetzt in NettoChange steht, in Button1Click packen und das bisherige Button1Click entfernen. Somit wird erst auf Knopfdruck gerechnet. Das jetzige MwSt Feld ist somit überflüssig und könnte weg. Der Code würde dann so aussehen:

Delphi-Quellcode:

var 
  Form1: TForm1; 
  vnetto, vbrutto: single; 

const 
  vmwst = 16.0;  

implementation 

{$R *.dfm} 

procedure TForm1.nettoChange(Sender: TObject); 
begin 

  // bitte leer machen!

end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 

  //Eingabe 
  vnetto := strtofloat(netto.Text); 

  //Verarbeitung 
  vbrutto := vnetto + vnetto * vmwst / 100.0; 

  //Ausgabe 
  brutto.Text := floattostr(vbrutto); 

end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  
  close; 

end; 

end.

Somit rechnet Dir das Programm auf Knopfdruck den Brutto-Betrag mit der festen MwSt aus.

("// bitte leer machen! " nicht dahin schreiben, sondern wirklich leer machen...)


Grüsse
...Doc