Calculatrice booléenne

Commenter

Contenu du snippet

Permet de réaliser des opérations sur les booléens (pour les débutants dans le domaine)

Source / Exemple : 


unit bool;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    bool1vrai_: TRadioButton;
    bool1faux_: TRadioButton;
    bool2vrai_: TRadioButton;
    bool2faux_: TRadioButton;
    result_: TLabel;
    et_: TRadioButton;
    ou_: TRadioButton;
    xou_: TRadioButton;
    non_: TRadioButton;
    calc_: TButton;
    nonet_: TRadioButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    procedure bool1vrai_Click(Sender: TObject);
    procedure bool1faux_Click(Sender: TObject);
    procedure et_Click(Sender: TObject);
    procedure ou_Click(Sender: TObject);
    procedure xou_Click(Sender: TObject);
    procedure non_Click(Sender: TObject);
    procedure bool2vrai_Click(Sender: TObject);
    procedure bool2faux_Click(Sender: TObject);
    procedure calc_Click(Sender: TObject);
    procedure nonet_Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  bool1: string;
  bool2: string;
  oper: integer;

implementation

{$R *.dfm}

procedure TForm1.bool1vrai_Click(Sender: TObject);
begin
bool1:='vrai';
end;

procedure TForm1.bool1faux_Click(Sender: TObject);
begin
bool1:='faux';
end;

procedure TForm1.et_Click(Sender: TObject);
begin
oper:=1;
end;

procedure TForm1.ou_Click(Sender: TObject);
begin
oper:=2;
end;

procedure TForm1.xou_Click(Sender: TObject);
begin
oper:=3;
end;

procedure TForm1.non_Click(Sender: TObject);
begin
oper:=4;
end;

procedure TForm1.nonet_Click(Sender: TObject);
begin
oper:=5;
end;

procedure TForm1.bool2vrai_Click(Sender: TObject);
begin
bool2:='vrai';
end;

procedure TForm1.bool2faux_Click(Sender: TObject);
begin
bool2:='faux';
end;

procedure TForm1.calc_Click(Sender: TObject);
begin
case oper of
1 : if (bool1=bool2) then result_.Caption:=bool1 else result_.Caption:='faux';
2 : if (bool1 = 'vrai') or (bool2 = 'vrai') then result_.Caption:='vrai'
    else if ((bool1 = 'faux') and (bool2 = 'faux')) then result_.Caption := 'faux'  ;
3 : if ((bool1='vrai') and(bool2='vrai'))
    then result_.Caption:='faux'
    else if ((bool1='vrai') or (bool2='vrai'))
             then result_.Caption:='vrai'
             else result_.Caption:='faux'  ;
4 : if (bool2='vrai') then result_.Caption:='faux' else result_.Caption:='vrai'   ;
5 : if ((bool1='vrai') and (bool2='vrai'))
    then result_.Caption:='faux'
    else result_.Caption:='vrai';
end
end;

end.

Conclusion :


Version revue et corrigée (fonction non_et en plus), évitant de manière 100% fiable les erreurs de saisie (puisqu'il n'y a pas de saisie ;-) )

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Dreuteu)