Hallo,
ich weiß ja nicht, ob das Forum das Richtige hierfür ist, weil es eigentlich ein etwas lächerliches Problem ist, aber weil keiner aus meiner stufe wirklich weiter weiß, poste ich das mal hier. Ich arbeite seit 2 Tagen mit delphi 2005 PE und wir sollten in der schule einen Halbaddierer mit Delphi machen, in dem die Zahlen als Checkboxen dargestellt sind (Checkbox=true bedeutet eine 1 bei der Addition).
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:
| interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TBerechnen = class(TForm)
Eingabe: TGroupBox;
Ausgabe: TGroupBox;
x: TCheckBox;
y: TCheckBox;
Summe: TCheckBox;
Uebertrag: TCheckBox;
Berechnen: TButton;
procedure BerechnenClick(Sender: TObject);
private
public
end;
var
Berechnen: TBerechnen;
implementation
{$R *.dfm}
procedure TBerechnen.BerechnenClick(Sender: TObject);
begin
if x.checked=true and y.checked=false then
begin
summe.Checked:=true;
uebertrag.checked:=false
end;
if x.checked=true and y.checked=true then
begin
summe.Checked:=false;
uebertrag.checked:=true;
end;
if x.checked=false and y.checked=false then
begin
summe.Checked:=false;
uebertrag.checked:=false;
end;
if x.checked=false and y.checked=true then
begin
summe.Checked:=true;
uebertrag.checked:=false
end;
end;
end. |
So weit hatte ich es jetzt ausgearbeitet und dachte, jetzt müsste alles funktionieren, aber leider ging es doch nicht. Folgende Probleme:
1. Wenn ich an das x einen Haken mache und an das y nicht, ist bei Summe keine Haken.
2. Wenn ich bei x und y einen Haken mache, ist bei Übertrag kein Haken.
3. Wenn bei x und y kein Haken ist, kommt bei Summe ein Haken.
Tut mir Leid, dass ich hier jetzt sowas fragen muss, aber ich hab schon im Internet gesucht, ob ich irgendwo eine Lösung finde, aber da war nichts zu finden. Wäre trotzdem nett, wenn mir jemand weiterhelfen könnte.
Gruß
Maximilian
Moderiert von 
Christian S.: Delphi-Tags hinzugefügt
