Checkbox . Quelqu ' un connait ? [Résolu]
jackripper
- Messages postés
- 47
- Date d'inscription
- samedi 26 mars 2005
- Dernière intervention
- 11 octobre 2006
- Messages postés
- 47
- Date d'inscription
- samedi 26 mars 2005
- Dernière intervention
- 11 octobre 2006
A voir également:
- Checkbox . quelqu ' un connait ?
- Datagrid avec checkbox - Conseils pratiques - Visual Basic / VB.NET
- Affichage d'une liste de checkbox - Codes sources - Visual Basic / VB.NET (Divers)
- Solution checkbox dans un datagrid - Codes sources - Visual Basic / VB.NET (Ecrans de veille)
- C / C++ / C++.NET : Ctreectrlfx: classe gérant automatiquement un checkbox à trois &e - Guide
- Checkbox. - Codes sources - PHP (Application)
8 réponses
Meilleure réponse
/58e1af584bd7440ca86cea2658932816/auth-avatar/e3fe44a2ed899665c7c20e7e71ccf454-jlen100)
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
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ées
bonne prog.
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ées
bonne prog.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
salut ,
c'est encore moi; tu peux aussi utiliser l'évè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
c'est encore moi; tu peux aussi utiliser l'évè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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 47
- Date d'inscription
- samedi 26 mars 2005
- Dernière intervention
- 11 octobre 2006
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
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+
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+
- Messages postés
- 47
- Date d'inscription
- samedi 26 mars 2005
- Dernière intervention
- 11 octobre 2006
- Messages postés
- 47
- Date d'inscription
- samedi 26 mars 2005
- Dernière intervention
- 11 octobre 2006
salutation jlen
j'ai testé 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éclarations privées }
public
{ Dé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/
j'ai testé 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éclarations privées }
public
{ Dé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/
/dea7457f7342450a8dab55d0208bb19e/auth-avatar/e56f2895ef03c7f18ce60de01f05c692-cs_sim51)
- Messages postés
- 314
- Date d'inscription
- dimanche 31 octobre 2004
- Dernière intervention
- 31 décembre 2006
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ème fois que tu le fais lol.
Moi je veux bien avoir accès à ton disque dur, ya pas de prob :p
N'oubliez pas de cliquer sur réponse acceptée si la réponse vous convient !!!
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ème fois que tu le fais lol.
Moi je veux bien avoir accès à ton disque dur, ya pas de prob :p
N'oubliez pas de cliquer sur réponse acceptée si la réponse vous convient !!!
- Messages postés
- 47
- Date d'inscription
- samedi 26 mars 2005
- Dernière intervention
- 11 octobre 2006
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.