Hallo. Ich bin absoluter anfänger in Delphi, habe vor 3 Wochen in der Schule begonnen damit zu Arbeiten.
Nun wollte ich mein schon erlerntes Wissen sinnvoll umsetzen, und ein Programm schreiben, welches mir
aus verschieden Faktoren am ende ausgibt, wie viel geld ich am ende des Monats nocht auf meinem Kontostand haben werde.
Nun habe ich auch zwei checkboxen eingebaut, die beachtet werden sollen, in einer rechnung.
Erstmal der Code:
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:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
| unit Haushaltsrechner;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
LabelKE: TLabel;
LabelKEBH: TLabel;
LabelKEKI: TLabel;
EditKEBH: TEdit;
EditKEKI: TEdit;
LabelVE: TLabel;
LabelVACC: TLabel;
LabelCCStd: TLabel;
EditVECCStd: TEdit;
PanelE: TPanel;
LabelSE: TLabel;
EditSENAAM: TEdit;
LabelSENA: TLabel;
LabelSENAAM: TLabel;
CheckBoxSINAKI: TCheckBox;
CheckBoxSENZBH: TCheckBox;
PanelA: TPanel;
Label3: TLabel;
LabelKAMI: TLabel;
LabelKANE: TLabel;
LabelKAFI: TLabel;
LabelKAFA: TLabel;
LabelKAS1: TLabel;
LabelKAS2: TLabel;
EditKAMI: TEdit;
EditKANE: TEdit;
EditKAFI: TEdit;
EditKAFA: TEdit;
EditKAS1: TEdit;
EditKAS2: TEdit;
LabelVA: TLabel;
LabelVAHA: TLabel;
LabelVALE: TLabel;
EditVAHA: TEdit;
EditVALE: TEdit;
LabelVAS1: TLabel;
EditVAS1: TEdit;
LabelVASO2: TLabel;
EditVAS2: TEdit;
PanelK: TPanel;
LabelKS: TLabel;
EditKS: TEdit;
PanelUE: TPanel;
ButtonBerechnen: TButton;
ButtonClose: TButton;
LabelAU: TLabel;
LabelAUK1: TLabel;
EditAUK1: TEdit;
LabelAUAB1: TLabel;
EditAUAB1: TEdit;
LabelAUK2: TLabel;
EditAUK2: TEdit;
LabelAUAB2: TLabel;
EditAUAB2: TEdit;
LabelEnd: TLabel;
EditAUEnd: TEdit;
Label1: TLabel;
procedure ButtonBerechnenClick(Sender: TObject);
procedure ButtonCloseClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Ein1, Ein2, CcStd, NzMon : single;
Aus1, Aus2, Aus3, Aus4, Aus5, Aus6, Aus7,
Aus8, Aus9, Aus10 : single;
KoAn, KoEnd : single;
Ko1, Ko2, Ko3, Ko4 : single;
Summe1, Summe2, Summe3, Summe4 : single;
implementation
{$R *.dfm}
procedure TForm1.ButtonBerechnenClick(Sender: TObject);
begin
Ein1 := StrToFloat(EditKEBH.Text);
Ein2 := StrToFloat(EditKEKI.Text);
CcStd := StrToFloat(EditVECCStd.Text);
NzMon := StrToFloat(EditSENAAM.Text);
Aus1 := StrToFloat(EditKAMI.Text);
Aus2 := StrToFloat(EditKANE.Text);
Aus3 := StrToFloat(EditKAFI.Text);
Aus4 := StrToFloat(EditKAFA.Text);
Aus5 := StrToFloat(EditKAS1.Text);
Aus6 := StrToFloat(EditKAS2.Text);
Aus7 := StrToFloat(EditVAHA.Text);
Aus8 := StrToFloat(EditVALE.Text);
Aus9 := StrToFloat(EditVAS1.Text);
Aus10 := StrToFloat(EditVAS2.Text);
KoAn := StrToFloat(EditKS.Text);
Ko1 := KoAn + Ein1 + Ein2;
EditAuk1.Text := FloatToStr(Ko1);
Ko2 := Ko1 + (CcStd * 7.70) + Summe3 + Summe4;
EditAuk2.Text := FloatToStr(Ko2);
Summe1 := Aus1 + Aus2 + Aus3 + Aus4 + Aus5 + Aus6;
Summe2 := Summe1 + Aus7 + Aus8 + Aus9 + Aus10;
Ko3 := Ko2 - Summe1;
EditAuAB1.Text := FloatToStr(Ko3);
Ko4 := Ko2 - Summe2;
EditAuAb2.Text := FloatToStr(Ko4);
KoEnd := Ko4;
EditAuEnd.Text := FloatToStr(KoEnd);
Summe3 :=
Summe4 :=
end;
procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
close
end;
end. |
Bei aktivieren der Checkbox "CheckBoxSINAKI" soll "NzMon" mit "Ein2"
und
Bei aktivieren der Checkbox "CheckBoxSENZBH" soll "NzMon" mit "Ein1"
multipliziert werden.
am ende soll das ergebniss in Summe3 und Summe4 zwischengespeichert, und in andere rechnungen mit
einbezogen werden.
Wie kann ich das realisieren?
Ich würde mich über eine schnelle antwort sehr freuen,
öiebe Grüße,
der X
MrX2007