Byte de sortie sur port parallele non maitrisé
Voila, je suis en train de développer une application avec Delphi2005 qui fonctionne avec Windows95 sur un vieuxPC
et j'ai quelques petits soucis ou phénomèmes non maitrisés
Merci d'avance pour les conseils qui viendront (je n'en doute pas)
Derrière le port parallele ,l'application génère des bytes de sorties sur une carte électonique.
Question 1
Lors du démarrage du PC, toutes les sorties sont activées à 1 quelques sec; y a t-il un moyen pour éviter cela car dérrière je me retrouve avec des commandes non souhaitées voir dangereuses (pour le matériel)
Question 2; à la fin de la procédure de démarrage de Windows, j'ai le byte 4 qui revient et reste. Est-ce normal ? Y at-il une parade?
Question 3: Maintenant un problème au niveau du programme, l'appui sur un bouton d'une fiche rend invisible cette fiche et en rend visible une autre
Voici le code du bouton (rien de plus simple)
Code:
1
2
3
4
5
6
| procedure TForm1.BtmanuClick(Sender: TObject);
begin
Form1.visible:= false;
Form2.visible:= false;
Form4.visible:= true;
end; |
Le probleme, c'est que cette action fait comme si j'agissait sur la commande d'un bouton de la fiche devenue visible . Or, rien n'est écrit pour cela ????
ci aprés le code "exécuté" (sans ordre) à chaque fois qu'est actionné ce bouton TForm1.BtmanuClick(après être revenu sur la fiche intiale) le
Je précise que c'est apparu subitement lors de tests de progression de cette application (je suppose que j'ai du faire quelquechose mais quoi ??)
En fait le code d'un bouton est executé par la commande d'un autre ??
Code:
1
2
3
4
5
6
7
8
9
10
| procedure TForm4.Btmarche_circ_atelClick(Sender: TObject);
begin
Btarret_circ_atel.Enabled:=true;
Btmarche_circ_atel.Enabled:=false;
Btmarche_circ_atel.visible:=false;
cde:=cde+4; // c'est la valeur des bytes de sorties
Affcde.caption:=Inttostr(cde);
PortOut ($378,cde);
Affmarche_circ_atel.visible:=true; // pour mettre en évidence la commande
end; |
Merci d'avance
