checkbox . Quelqu ' un connait ?Résolu

Question

Bonjour tous,

Je cherche des exemples sur cette fonction CheckBox quelqu'un connait ?
Donc voici le principe :
A la suis de plusieurs s&#233;lection de ces bouttons CheckBox.
J'aimerai valider ceci par un boutton valider qui les maintient et serait
annuler par une autre touche BitBoutton appelait Cancel.
Cela aboutirai au final &#224; une programmation de bit sur le port parall&#232;le.
Voici l'interface.

Merci les delphiens

jlen100 · Accepted Answer

salut jackripper,

tu peux attribuer une valeur a chacune des checkbox en suivant une
progression geometrique binaire la 1re:=1; la 2e:=2; la 3e:=4; la 4e:=8
et ainsi de suite.

dans l'evenement onclick de  ton bouton

tu mets 

resultatchek:=0;

 tu lis la propriete cheked de chacune des checkbox 

if  checkboxn.checked then resultatchek:=resultatchek+valeur de la checkboxn;

en sortie le resultat correspondra a l'image des chekbox selectionn&#233;es

bonne prog.

jlen100 · Answer

salut ,

c'est encore moi; tu peux aussi utiliser l'&#233;v&#232;nement onclic du checkbox en modifiant le tag du bouton de validation 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if  CheckBox1.Checked then Button1.Tag:=Button1.Tag+CheckBox1.Tag

else  Button1.Tag:=Button1.Tag-CheckBox1.Tag;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 traitement en recuperant la valeur de buton1.Tag;

end;

Pour chaque checkbox dans les proprietes tu attribues une valeur a Tag



bonne prog

jackripper · Answer

salut jlen

Je t'ai joind &#224; mais contact msn Mais tu restes hors ligne. La mienne est Hotmail.fr   jcjbj@
Le prog avance bien merci pour l'explication.

jlen100 · Answer

salut 

excuse--moi. effectivement cet apres midi je suis rester hors line. les
2 PC tournant l'un sous DELPHI et l'autre sous 'C' je prefere ne pas
les perbuter avec des requetes exterieures pour eviter les plantages.
(le reseau et les 3 programmes se suffisent a eux-meme pour cela);

merci quand meme

A+

jackripper · Answer

ok pas grave il y a des priorit&#233;s. Excuse acepter !
Voil&#224; teamspeak en marche

jackripper · Answer

salutation jlen

j'ai test&#233; voici le code-source sous delphi 2005 pour ceux qui la veulent.
Merci jlen.

unit check;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan;


type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;
  valeur : integer;
implementation
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
function PortIn(Port : Word) : Byte;stdcall; external 'io.dll';
{$R *.dfm}


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if  CheckBox1.Checked then Button1.Tag:=Button1.Tag+CheckBox1.Tag
else  Button1.Tag:=Button1.Tag-CheckBox1.Tag;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
valeur:=button1.Tag;
Edit1.Text := inttostr(valeur);
PortOut (888,valeur);
end;

end.
Site perso : http://electronique-one.chez.tiscali.fr/

cs_sim51 · Answer

Salut vous deux,
Jackripper, je voulais juste te dire que quand tu mets une imagen, elle doit se trouver sur internet, pas sur ton disque dur, car c'est la deuxi&#232;me fois que tu le fais lol.
Moi je veux bien avoir acc&#232;s &#224; ton disque dur, ya pas de prob :p



N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

jackripper · Answer

Salut sim51,

j'y penserais la prochaine fois sim51 merci de me le rappelai.
Dommage que l'on ne puisse pas corriger.
&#231;&#224; sert &#224; quoi de maitre des fonctions qui ne marche pas.

jackripper.

Checkbox . Quelqu ' un connait ?

8 réponses

Votre réponse

Discussions similaires