Entwickler-Ecke :: Thema anzeigen - Mehrwertsteuer berechnen

Bergi001 - So 09.01.11 00:09
Titel: Mehrwertsteuer berechnen

ich bin anfänger und weiß nicht wo ich hier den fehler gemacht habe

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:

var
  Form1: TForm1;
  vNetto: Real;
  vSatz: Real;
  vBrutto: Real;
  vAnteil: Real;
implementation

{$R *.dfm}

procedure TForm1.Beenden1Click(Sender: TObject);

begin
close
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.caption:='Hausaufgabe: Berechnung der Mehrwertsteuer - Klasse: VFSE10';
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  //Editfelder leeren
  StatusBar1.Panels[2].Text := 'Datum: ' + DateToStr(Date);
  StatusBar1.Panels[1].Text := 'Zeit: ' + TimeToStr(Time);
  //Datum und Zeit einbinden
  label1.Font.Name :='comic sans ms';
  label2.Font.Name :='comic sans ms';
  label3.Font.Name :='comic sans ms';
  label4.Font.Name :='comic sans ms';
  label5.Font.Name :='comic sans ms';
  label6.Font.Name :='comic sans ms';
  label7.Font.Name :='comic sans ms';
  label8.Font.Name :='comic sans ms';
  label9.Font.Name :='comic sans ms';
  //Schriftart geändert

end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9', ',']) then Key := #0;
  // Editfeld1 auf Zahlen Begrenzt, Kommata darf benutzt werden
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9']) then Key := #0;
  // Editfeld2 auf Zahlen Begrenzt
end;

procedure TForm1.Berechnen1Click(Sender: TObject);

begin
//Fehlermeldung
If (length(Edit1.text) = 0) OR (length(Edit2.text) = 0)
Then showmessage('Fehler!')
Else

begin
vNetto := StrToFloat (Edit1.Text);
vSatz := StrToFloat (Edit2.Text);
//
end;

If vSatz > 100
Then showmessage('Steuersatz richtig eingeben!')
Else

begin
vAnteil := vNetto * vSatz / 100;
vBrutto := vNetto - vAnteil;

Edit3.Text := FloatToStrF(vBrutto,ffFixed,12,2);
Edit4.Text := FloatToStrF(vAnteil,ffFixed,12,2);
//auf zwei Stellen runden
end;
end;

procedure TForm1.Beenden2Click(Sender: TObject);
begin
close;
//Programmende
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 StatusBar1.Panels[1].Text := 'Zeit: ' + TimeToStr(Time);
 StatusBar1.Panels[2].Text := 'Datum: ' + DateToStr(Date);
end;

end;

danke schonmal fürs drüber gucken

Moderiert von Narses: Delphi-Tags hinzugefügt

HenryHux - So 09.01.11 01:01

Naja das letzte end darf nicht end; heißen sondern muss end. heißen.

Lg

Edit:

Mal ein bisschen übersichtlicher gestaltet:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

var
  Form1: TForm1;
  vNetto: Real;
  vSatz: Real;
  vBrutto: Real;
  vAnteil: Real;
implementation

{$R *.dfm}

procedure TForm1.Beenden1Click(Sender: TObject);
begin
  close();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.caption:='Hausaufgabe: Berechnung der Mehrwertsteuer - Klasse: VFSE10';
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  //Editfelder leeren
  StatusBar1.Panels[2].Text := 'Datum: ' + DateToStr(Date);
  StatusBar1.Panels[1].Text := 'Zeit: ' + TimeToStr(Time);
  //Datum und Zeit einbinden
  label1.Font.Name :='comic sans ms';
  label2.Font.Name :='comic sans ms';
  label3.Font.Name :='comic sans ms';
  label4.Font.Name :='comic sans ms';
  label5.Font.Name :='comic sans ms';
  label6.Font.Name :='comic sans ms';
  label7.Font.Name :='comic sans ms';
  label8.Font.Name :='comic sans ms';
  label9.Font.Name :='comic sans ms';
  //Schriftart geändert
end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9', ',']) then Key := #0;
  // Editfeld1 auf Zahlen Begrenzt, Kommata darf benutzt werden
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '0'..'9']) then Key := #0;
  // Editfeld2 auf Zahlen Begrenzt
end;

procedure TForm1.Berechnen1Click(Sender: TObject);
begin
  //Fehlermeldung
  If (length(Edit1.text) = 0) OR (length(Edit2.text) = 0)Then showmessage('Fehler!')
  Else
  begin
    vNetto := StrToFloat (Edit1.Text);
    vSatz := StrToFloat (Edit2.Text);
    //
  end;
  If vSatz > 100 Then showmessage('Steuersatz richtig eingeben!')
  Else
  begin
    vAnteil := vNetto * vSatz / 100;
    vBrutto := vNetto - vAnteil;
    Edit3.Text := FloatToStrF(vBrutto,ffFixed,12,2);
    Edit4.Text := FloatToStrF(vAnteil,ffFixed,12,2);
    //auf zwei Stellen runden
  end;
end;

procedure TForm1.Beenden2Click(Sender: TObject);
begin
  close();
  //Programmende
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := 'Zeit: ' + TimeToStr(Time);
  StatusBar1.Panels[2].Text := 'Datum: ' + DateToStr(Date);
end;

end.

Eventuell wäre es übersichtlicher wenn du die Kommentare über die Befehle schreibst, ist aber jedem selbst überlassen =)

Narses - So 09.01.11 01:05

Moin und :welcome: im Forum!

Bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Richtlinien [http://www.entwickler-ecke.de/richtlinien.html]:

1.2 Beiträge:

Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...]

Einfach oben bei Deinem ersten Beitrag auf user defined image

oder

klicken und den Titel ändern. Danke Dir!

cu
Narses

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!