Mehrwertsteuer berechnen

Bergi001 · Hält's aus hier Beiträge: 2

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

bummi · Verfasst: So 09.01.11 00:15

beim drüberfliegen sehe ich folgenden Fehler

markieren

Delphi-Quelltext

1:	vBrutto := vNetto - vAnteil;

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

platzwart · Verfasst: So 09.01.11 00:48

Deine Fehler:

1) Delphi-Tags verwenden
2) Fehlerbeschreibung?!?

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Bergi001 · Hält's aus hier Beiträge: 2

danke schonmal aber ich habe immer noch das problem
[Fehler] Unit1.pas(137): '.' erwartet, aber ';' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

und ich weiß nicht wo ich den fehler gemacht habe

HenryHux · Verfasst: 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:

markieren

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 · Verfasst: So 09.01.11 01:05

Moin und

im Forum!

Bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Richtlinien:

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

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme