Discussion :

[jeremy.lambert]

Bonjour à tous, je viens vers vous car j'ai un petit soucis d'initialisation de communication de port Serial.

En fait, j'ai créé un programme (en m'inspirant de sources Googlisées) qui me permet d'allumer la LED 13 dès que j'envoie un 1 avec Excel (j'ai simplifié le programme au maximum pour faire mes essais, la finalité n'est pas celle-ci)

Celui-ci fonctionne mais uniquement si j'ai déjà ouvert le moniteur serial de l'IDE. Si je débranche l'Arduino, que je recommence la manip mais que je n'ouvre pas le moniteur, rien ne se passe. Je vois que des données sont reçues par l'Arduino car la LED Rx s'allume bien mais rien d'autre ne se passe, on dirait que le Serial ne reçoit rien du côté Arduino. Si j'ouvre une fois le moniteur et que je le referme aussitôt, ça refonctionne. Comme si il manquait un truc pour initialiser mon port Serial

Voici mon code VBA (repris en grande partie du net) :

Code VBA :

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
Dim COMfile As Integer
 
Public Sub Envoi_serial()
 
        Put #COMfile, , "1"
 
End Sub
 
Public Sub Ouverture_port()
 
    On Error GoTo Erreur_Port
        COMfile = FreeFile
        Open "COM" & Worksheets("Contrôle Arduino").Range("B3").Value & ":115200,BIN,CD0,CS0,DS0,OP0,RB64,RS,TB64" For Binary Access Read Write As #COMfile
    Exit Sub
Erreur_Port:
        MsgBox ("Connexion au port COM impossible." & vbCrLf & Err.Description)
        Err.Clear
 
   Exit Sub
 
End Sub
Public Sub Fermeture_port()
 
     Close #COMfile
 
End Sub

et voici mon code Arduino :

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
int reception = 0;
 
 
void setup() {
  //Init Serial USB
  Serial.begin(115200);
 
}
 
 
void loop() {
 
if (Serial.available() > 0) {
  reception = Serial.parseInt() ;
 if (reception == 1) { 
  digitalWrite(13,HIGH);
   delay(1000);
 }
 
  digitalWrite(13,LOW);
 
}
}

J'ai donc essayé plusieurs manips, j'ai réduit le code au maximum, j'ai essayé de faire un flush sur le port, j'ai vérifié qu'il y avait les mêmes données en entrée sur le Serial Arduino en utilisant un moniteur Serial tierce (Serial Port Monitor) mais rien à faire ...

Si quelqu'un trouve la solution, je lui paie un verre

Bonne journée à vous !

[jpbbricole]

Bonjour Jeremy

Si quelqu'un trouve la solution, je lui paie un verre

Excellente motivation

J'aime beaucoup "jouer" avec Excel et un Arduino, par exemple:

Je vais regarder ton problème.

Cordialement
jpbbricole

[jpbbricole]

Bonjour Jeremy

Mise à part le fait que tu n'as pas initialisé le port de la LED, dans setup()

Code :

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

1
2
	pinMode(13, OUTPUT);
	digitalWrite(13, LOW);

ta paire de programme fonctionne très bien.

Cordialement
jpbbricole

[Auteur]

Bonjour,

pour certaines cartes Arduino (Leonardo si je ne me trompe pas), il faut que DTR = 'enable' et RTS = 'enable'.

[edit]
Je ne sais plus si avec UNO les paramètres DTR et RTS ont une influence. Toujours est-il que je les mets toujours à "enable" ou "true".
Il arrive aussi que lors de l'ouverture du port la carte s'initialise. Il faut donc attendre la fin complète de son initialisation avant de lui envoyer des instructions. La durée d'initialisation dépend du modèle. Dans ton code VBA ajoute une pause de 200 à 500ms après l'ouverture du port.
[/edit]

[jeremy.lambert]

Bonsoir à vous, je reviens avec une bonne nouvelle, ça fonctionne ! Mais pas sur la même carte

En fait, j'ai refais l'essai avec mon Arduino Nano (je sais pas avec quelle carte tu as fais tes essais jpbbricole ?), et ça ne fonctionne toujours pas si on n'ouvre pas le Serial

Par contre, après avoir cherché un peu ce qu'était le DTS et RTS (de ce que j'ai compris ce sont des signaux mais je n'ai pas trouvé comment les activer/désactiver sans application tierce), j'ai refais l'essai avec un Arduino Pro Mini (= Leonardo), et ça fonctionne !

Du coup, la théorie de Auteur me semble être la bonne piste, à creuser

Merci à vous et bonne soirée !

[jpbbricole]

Bonsoir Jeremy

J'ai fait mes essais avec un UNO qui est identique au Nano.

Cordialement
jpbbricole

[Auteur]

Par contre, après avoir cherché un peu ce qu'était le DTS et RTS (de ce que j'ai compris ce sont des signaux mais je n'ai pas trouvé comment les activer/désactiver sans application tierce), j'ai refais l'essai avec un Arduino Pro Mini (= Leonardo), et ça fonctionne !

Dans le code posté :

Code VBA :

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

Open "COM" & Worksheets("Contrôle Arduino").Range("B3").Value & ":115200,BIN,CD0,CS0,DS0,OP0,RB64,RS,TB64" For Binary Access Read Write As #COMfile

Parmi les arguments qui suivent "BIN" certains correspondent sans doute aux contrôles des flux. Par contre, je ne trouve aucune documentation sur les paramètres de cette chaîne "BIN,CD0,CS0,DS0,OP0,RB64,RS,TB64". Certains termes me laissent perplexe.

Un commentaire dans cette discussion me conforte dans l'idée :
https://forum.arduino.cc/t/arduino-s...eeded/192954/2

What Arduino are you using?
I suspect that code would not work with an Uno or Mega which are reset when the PC program opens the serial port.

ajoute une pause de 1s par exemple après ta fonction Open pour voir.

[jeremy.lambert]

Pareil aucune doc trouvée de mon côté, faut dire que ça doit pas être courant ... De même pour l'objet "Freefile", on ne trouve pas grand chose

[jpbbricole]

Bonjour Jeremy

Si tu le désires, je peux te faire un extrait simplifié de la feuille Excel du post #2, qui fonctionne "à tout les coups" et, dans les 2 sens.

Cordialement
jpbbricole

[jeremy.lambert]

Bonjour à toi, pour ma part le problème a été résolu en changeant de carte, après s ça peut aider quelqu'un dans la communauté pourquoi pas

Je serais par contre bien curieux de comprendre la chaine de caractère soulignée par Auteur

Cordialement

[Auteur]

Une doc (enfin) :
https://www.qb64.org/wiki/OPEN_COM

Mais ça ne me dit pas comment accéder aux contrôles du port série. Via le panneau de configuration de windows (panneau de configuration -> Système -> puis gestionnaire de périphériques), on peut modifier le contrôle des flux dans les options du port en passant de "aucun" à "xon/xoff". Mais je ne sais pas si cela résoudra le problème.

[jeremy.lambert]

Bonjour à vous, super la doc !

Du coup, le RTS est bien désactivé, il faudrait que je refasse un essai sans cette variable et voir si j'ai le même résultat

Je reviens vers vous bientôt