Discussion :

[BECHE]

Voila un bout de programme qui ouvre et ferme 2 vannes sur actions de la souris suivant le même princique qu'une action maintenue sur un bouton;
Je n'obtiens pas le même résultat en ouverture qu'en fermeture
Le Down et Up en fermeture donne le bon résulat càd ajoute et soustrait la valeur"cde" en byte.
Alors que pour l'ouverture, le système ne fait que ajouter dans les 2 cas.
Je ne comprend pas car le code est rigoureusement sur le même principe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TForm4.Btfer_vanne_atelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
cde:=cde-16;
PortOut ($378,cde);
Btfer_vanne_atel.Caption:='Fermeture vanne';
Affcde.caption:=Inttostr(cde);
end;
 
procedure TForm4.Btfer_vanne_atelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
cde:=cde+16;
PortOut ($378,cde);
Btfer_vanne_atel.Caption:='Fermeture  en cours';
 Affcde.caption:=Inttostr(cde);
end;
 
procedure TForm4.Btouv_vanne_atelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin      {correspond à l'arrêt de l'ouverture lors du relachement de la souris}
 cde:=cde-32;
PortOut ($378,cde);
Btouv_vanne_atel.Caption:='Ouverture vanne';
 Affcde.caption:=Inttostr(cde);
end;
 
procedure TForm4.Btouv_vanne_atelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin       {ouverture tant que la souris est appuyée}
 cde:=cde+32;
PortOut ($378,cde);
Btouv_vanne_atel.Caption:='Ouverture  en cours';
Affcde.caption:=Inttostr(cde);
end;

D'autre part, je voudrais réprésenter les positions de cette vanne avec un progressbar.
J'ai regardé partout sur la faQ et les forums, pour je ne trouve pas mon bonheur (trop compliqué ) Je cherche plutôt n bon tutoriel qui décrit de A à Z
Ou est-il ?
Un progressbar peut bien avancer et recule ?

Merci d'avance

[glayag]

Pas tout compris a ton probleme, mais pour la progress bar, il suffit de jouer avec la propriete position.

[/dev/null]

Un truc... verifie que l'affectation des evenement et correcte, soit en vérifiant comment tu a noté les evenement, soit en placant deux breack point

[BECHE]

Les procédures mouseUp et mousseDown sont générées directement par l'inspecteur d'objet de Delphi 2005 en cliquant sur l'évenement en question
(même méthode pour les 4 procédures)
Je ne vois pas pourquoi sur les 2 premières procédures (ferm) toutes les instructions son effectuées alors que sur les 2 dernières (ouv) les instructions relatives au Up ne s'exécutent pas

Que signifie placer 2 break points ? : Est-ce l'instruction break?

[veloce]

vérifie dans l'inspecteur d'objet que tu as bien affecté tes procédures.

Pour le "break" : c'est un point d'arret quand tu executes en debug. En D5, on les positionne en cliquant dans la goutiere (la colonne grise à gauche du code)

[/dev/null]

Que signifie placer 2 break points ? : Est-ce l'instruction break?

Ah houais ... je comprend que ce ne soit pas évident de trouver la solution si tu n'a pas encore utilisé les Breack Point.
Quand tu possitionne un Breack Point, l'execution s'arrète et te laisse la possibilité d'exécuté pas à pas ton code ainsi que visualiser le contenue des variables. Dans ton cas, celà devrait te permettre de savoir ou va le flot d'execution de ton programme, histoire de vérifier que les bonnes fonctions sont bien apellé

[BECHE]

En réalité, la cause de ce "disfonctionnement " était une ereur de ma part
J'avais laissé par erreur les évenements onclick alors que j'utilisais le poussedown et mouseup, Du coup, tout ce cumulait