Abi-Rechner

[DeddyH]

Dann machst Du irgend etwas falsch, ich habe sie auch "frei Hand" in meinen Source geschrieben. Zur Not häng mal Deine Unit an, ich komplettiere sie dann.

[AlexanderBrade]

Alles klar!
siehe Anhang...

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    procedure RefreshCbCount(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


   
  private
    { Private-Deklarationen }
    FCntCBs: Cardinal;
  public
    { Public-Deklarationen }
  end;


  const cb1 = 1;
        cb2 = 2;
        cb3 = 3;
        cb4 = 4;
        cb5 = 5;
        cb6 = 6;
var
  Form2: TForm2;
  iMenge: set of Byte;

implementation

uses Unit3, Unit1;

{$R *.dfm}
 { Tform12 }




 procedure TForm1.RefreshCBCount(Sender: TObject);
begin
  if Sender is TCheckBox then
    begin
      if TCheckBox(Sender).Checked then
        inc(FCntCBs)
      else
        dec(FCntCBs);
      if FCntCBs > 3 then
        MessageBox(Handle,'Zuviele Checkboxen gewählt','Info',MB_OK or MB_ICONINFORMATION);
    end;
end;




procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Visible:=false;
form1.visible:=true;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
form3.Visible:=true;
end;



procedure TForm2.Button3Click(Sender: TObject);
begin
iMenge:= [];
 if checkbox1.Checked then
    include(iMenge, cb1);
 if checkbox2.Checked then
    include(iMenge, cb2);
 if checkbox3.Checked then
    include(iMenge, cb3);
 if checkbox4.Checked then
    include(iMenge, cb4);
 if checkbox5.Checked then
    include(iMenge, cb5);
 if checkbox6.Checked then
    include(iMenge, cb6);

    if FCntCBs > 3 then
  MessageBox(Handle,'Zuviele Checkboxen gewählt','Info',MB_OK or MB_ICONINFORMATION);

if (cb1) and (cb2) and (cb3) in iMenge then showmessage('Naturwissenschaft'); //Abfragen der Menge
if (cb4) and (cb5) and (cb6) in iMenge then showmessage('Sprache');
{if cb1 and cb2 and cb4   then form4.label2.caption:=  }



end;

end.

[DeddyH]

Ich seh schon, was fehlt. Schreib mal in der Typdeklaration des Formulars folgene Zeile vor das "private":
procedure RefreshCBCount(Sender: TObject); Btw: Auch wenn das kompiliert wird, glaube ich, dass Du bei

Zitat:

if (cb1) and (cb2) and (cb3) in iMenge then showmessage('Naturwissenschaft');

falsche Ergebnisse bekommst.
Schreib das lieber mal so um:if (cb1 in iMenge) and (cb2 in iMenge) and (cb3 in iMenge) then showmessage('Naturwissenschaft');

[AlexanderBrade]

Nein, das hat nicht gefhlt, hab es nur wo anders hingeschrieben...
Aber trotzdem kann es nicht kompiliert werden, bleibt immer bei der Prozedur hängen:

Delphi-Quellcode:

procedure TForm1.RefreshCBCount(Sender: TObject);
begin
{usw}

Im Übrigen danke für den anderen Tipp!

[DeddyH]

Das muss ja auch TForm2 heißen.

[edit] Was mir gerade auffällt: Deine Logik scheint etwas merkwürdig zu sein. Wieso müssen die Checkboxen 1 bis 3 alle aktiv sein, um als Naturwissenschaft zu gelten? Das Gleiche mit den anderen Checkboxen [/edit]

[AlexanderBrade]

Ja da hast du Recht, werde ich gleich korrigieren...
Noch mal ne andere Frage[klappt jetzt]:
Wie kann ich die Captions von Panels während des Programmablaufs ändern?
form5.Panel5.caption:='EN' Das klappt nicht!!!

[DeddyH]

Was heißt "klappt nicht"? Compilerfehler oder Laufzeitfehler? Syntaktisch ist Dein Code in Ordnung.

[AlexanderBrade]

ALso kleine Korrektur den vorher gegebenen Code kompiliert er, wenn ich aber so etwas schreibe:
if (cb1 in iMenge) and (cb2 in iMenge) and (cb4 in iMenge) then (form5.Panel5.caption:='EN') and (form2.panel1.caption:='1'); heißt es "Poerator ist auf diesen Operandentyp nicht anwendbar.

[DeddyH]

So geht das ja auch nicht. Versuch es mal so (ein Grundlagentutorial zu lesen wäre vielleicht auch eine gute Idee):

Delphi-Quellcode:

if (cb1 in iMenge) and (cb2 in iMenge) and (cb4 in iMenge)  then 
  begin
    form5.Panel5.caption:='EN';
    form2.panel1.caption:='1';
  end;

[AlexanderBrade]

und warum schriebt er bei folgendem inkompatible Typen?
if (cb1 in iMenge) and (cb2 in iMenge) and (cb4 in iMenge) then begin form5.Panel5.caption:='EN'; form5.panel6.caption:='FRZ'; form5.Panel7:='PHY'; end; Sorry mein Fehler "caption" fehlt.