[XL-2007] Lecture Port Série NETComm

Bonjour,

Je cherche à lire une information via le port série sur une carte arduino.
Avec arduino je réalise un

Code:

Serial.write ("a");

Sur Mon Userform VBA je réalise:
Code:

1 2 3 4 If S1.Value = False And S4a.Value = True And NETComm1.Input = "a" And Ag1.Value = False Then Me.Image1.Picture = LoadPicture(rouge) Me.ImageZ1.Picture = LoadPicture(zoner) Me.Image4.Picture = LoadPicture(rouge)
Toutes les conditions sont réunies mais aucunes information n'est mis à jour lors de mon execution.

PS: J'arrive à écrire sur la carte arduino avec la commande

Code:

NETComm1.Input = "b"

via ma feuille VBA par exemple et allumer une led.

Je souhaite donc de l'aide afin d'acquérir les données via le port série... QUelqu'un a t-il une solution ?
En vous remerciant.

Clem.

Hello,

Tu as utilisé un lecteur de port série autre que Excel pour savoir si les infos sont bien reçu sur le port?

Ludo

Non pas du tout...

Je pense que si tu avais un logiciel pour lire le port série cela pourrait te rassurer pour savoir si tu recois bien les informations sur ton pc.

Ensuite dans ton code tu as bien précisé les paramètres de communications?

comme dans le lien : http://cherbe.free.fr/rs232.html

J'ai réalisé cela:

Code:

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
36
37
Private Sub NETComm1_OnComm()
 
Dim tampon As String
 
Select Case NETComm1.CommEvent
 
    'liste des erreurs possibles
 
    Case comEventBreak      ' On a reçu un signal d’interruption (Break)
    Case comEventCDTO       ' Timeout de la porteuse
    Case comEventCTSTO      ' Timeout du signal CTS (Clear To Send)
    Case comEventDSRTO      ' Timeout du signal de réception
    Case comEventFrame      ' Erreur de trame
    Case comEventOverrun    ' Des données ont été perdues
    Case comEventRxOver     ' Tampon de réception saturé
    Case comEventRxParity   ' Erreur de parité
    Case comEventTxFull     ' Tampon d’envoi saturé
    Case comEventDCB        ' Erreur de réception DCB (jamais vu)
 
    ' liste des événements possibles qui sont, eux, normaux
 
    Case comEvCD            ' Changement dans la broche CD (porteuse)
    Case comEvCTS           ' Changement dans broche CTS
    Case comEvDSR           ' Changement dans broche DSR (réception)
    Case comEvRing          ' Changement dans broche RING (sonnerie)
 
    Case comEvReceive       ' Si on reçoit des données
        tampon = MSComm1.Input
        Call Traitement(tampon) ' Routine de traitement
 
    Case comEvSend          ' Il y a des caractères à envoyer
    Case comEvEOF           ' On a reçu le caractère EOF
 
End Select
 
 
End Sub

et

Code:

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
Sub Traitement(tampon As String)
 
'Gestion du S1 si l'aiguille 1 est à droite
 
    If S1.Value = False And S4a.Value = True And (tampon = "a") And Ag1.Value = False Then
        Me.Image1.Picture = LoadPicture(rouge)
        Me.ImageZ1.Picture = LoadPicture(zoner)
        Me.Image4.Picture = LoadPicture(rouge)
 
    ElseIf S1.Value = False And S4a.Value = False And (tampon = "a") And Ag1.Value = False Then
        Me.Image1.Picture = LoadPicture(rouge)
        Me.ImageZ1.Picture = LoadPicture(zoner)
        Me.Image4a.Picture = LoadPicture(orange)
 
    ElseIf S1.Value = False And S4a.Value = True And (tampon = "b") And Ag1.Value = False Then
        Me.Image1.Picture = LoadPicture(orange)
        Me.ImageZ1.Picture = LoadPicture(zonev)
        Me.Image4a.Picture = LoadPicture(rouge)
 
    ElseIf S1.Value = False And S4a.Value = False And (tampon = "b") And Ag1.Value = False Then
        Me.Image1.Picture = LoadPicture(orange)
        Me.ImageZ1.Picture = LoadPicture(zonev)
        Me.Image4a.Picture = LoadPicture(vert)
 
    ElseIf S1.Value = False And S4a.Value = True And (tampon = "c") And Ag1.Value = False Then
        Me.Image1.Picture = LoadPicture(vert)
        Me.ImageZ1.Picture = LoadPicture(zonev)
        Me.Image4a.Picture = LoadPicture(rouge)
 
    ElseIf S1.Value = False And S4a.Value = False And (tampon = "c") And Ag1.Value = False Then
        Me.Image1.Picture = LoadPicture(vert)
        Me.ImageZ1.Picture = LoadPicture(zonev)
        Me.Image4a.Picture = LoadPicture(vert)
    End If

Via http://grafikm.developpez.com/portcomm/

Sur Arduino je réalise un

Code:

Serial.write("a");

Ou b ou c en fonction des événements du terrain...

Je ne vois pas la configuration du port dans ton code.

1 pièce(s) jointe(s)

Dans les propriétés du NETComm1.

Pièce jointe 181450