IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lecture Port Série NETComm


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2015
    Messages : 15
    Par défaut
    Bonjour,

    Je cherche à lire une information via le port série sur une carte arduino.
    Avec arduino je réalise un Sur Mon Userform VBA je réalise:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 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.

  2. #2
    Membre confirmé
    Homme Profil pro
    Consultant MOA
    Inscrit en
    Juin 2015
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Consultant MOA
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2015
    Messages : 23
    Par défaut
    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

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2015
    Messages : 15
    Par défaut
    Non pas du tout...

  4. #4
    Membre confirmé
    Homme Profil pro
    Consultant MOA
    Inscrit en
    Juin 2015
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Consultant MOA
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2015
    Messages : 23
    Par défaut
    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

  5. #5
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2015
    Messages : 15
    Par défaut
    J'ai réalisé cela:
    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
    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 : 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
    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 Ou b ou c en fonction des événements du terrain...

  6. #6
    Membre confirmé
    Homme Profil pro
    Consultant MOA
    Inscrit en
    Juin 2015
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Consultant MOA
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2015
    Messages : 23
    Par défaut
    Je ne vois pas la configuration du port dans ton code.

Discussions similaires

  1. Lecture port série
    Par mickael.be dans le forum Composants VCL
    Réponses: 2
    Dernier message: 19/07/2008, 09h49
  2. lecture port série
    Par biscot19 dans le forum C
    Réponses: 6
    Dernier message: 13/07/2007, 08h54
  3. lecture port série
    Par alex2395 dans le forum Windows Forms
    Réponses: 1
    Dernier message: 28/03/2007, 15h59
  4. [API Win32 sans MFC] Lecture port série: thread bloqué
    Par dacid dans le forum Bibliothèques
    Réponses: 2
    Dernier message: 24/05/2006, 13h34
  5. Pb de lecture port série
    Par amalis dans le forum Bibliothèques tierces
    Réponses: 1
    Dernier message: 18/03/2006, 16h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo