Bonjour,

Dans le cadre d'un projet, je dois pouvoir commander une carte relay USB-RLY16 par le biais d'un ordinateur et donc d'un programme qui sera codé en vb.

Le problème est que je n'arrive pas à envoyer des commandes à la carte pour pouvoir fermer les relais ou les ouvrir.

Je vous joint mon code :

Code VB : 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
 
Form1.MSComm1.CommPort = 7
Form1.MSComm1.Settings = "19200,n,8,2"    'Configuration des paramètres acceptés par la carte
 
 
If Form1.MSComm1.PortOpen = True Then
    Form1.MSComm1.PortOpen = False
End If
 
Form1.MSComm1.PortOpen = True
 
 
 
Form1.MSComm1.Output = "6E"    'Essaye d'envoyer la commande 6E ou 110
 
Form1.MSComm1.PortOpen = False

Le problème est que rien ne se passe, le programme tourne mais aucun relais ne se ferme ou ne s'ouvre. La commande 6E (hexa) ou 110 (décimale) devrait fermer tous les relais.

Si quelqu'un pourrait m'aider

Cordialement Pierre