Documentation sur utilisation des ports avec VB6

Question

Bonjour,

Je cherche &#224; savoir comment envoyer et recevoir des informations depuis
un port s&#233;rie, parall&#232;le, USB, ... avec VB6. Pour pouvoir r&#233;aliser un
enregistreur de mesure, ou encore piloter des &#233;clairages, des relais et
des entr&#233;es ...par exemple.

Connaissez-vous des livres traitant du sujet ? Des tuto sur le net ?

Merci de vos r&#233;ponses

Paladin2107 · Answer

Jette un oeil dessus sa pourra peut etre d'aider
sa fonctionne avec le controle mscomm



Private Sub MSComm1_OnComm()

Dim tampon as String

Select Case MSComm1.CommEvent

    'liste des erreurs possibles

    Case comEventBreak      ' On a re&#231;u un signal d&#146;interruption (Break)
    Case comEventCDTO       ' Timeout de la porteuse
    Case comEventCTSTO      ' Timeout du signal CTS (Clear To Send)
    Case comEventDSRTO      ' Timeout du signal de r&#233;ception
    Case comEventFrame      ' Erreur de trame
    Case comEventOverrun    ' Des donn&#233;es ont &#233;t&#233; perdues
    Case comEventRxOver     ' Tampon de r&#233;ception satur&#233;
    Case comEventRxParity   ' Erreur de parit&#233;
    Case comEventTxFull     ' Tampon d&#146;envoi satur&#233;
    Case comEventDCB        ' Erreur de r&#233;ception DCB (jamais vu)

    ' liste des &#233;v&#233;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&#233;ception)
    Case comEvRing          ' Changement dans broche RING (sonnerie)

    Case comEvReceive       ' Si on re&#231;oit des donn&#233;es
        tampon=MSComm1.Input
        Call Traitement(tampon) ' Routine de traitement

    Case comEvSend          ' Il y a des caract&#232;res &#224; envoyer
    Case comEvEOF           ' On a re&#231;u le caract&#232;re EOF

End Select

End Sub

' Cette procedure sert &#224; traiter l&#146;information re&#231;ue dans le tampon

Sub Traitement(tampon As String)

' Ici, on affiche le r&#233;sultat dans un champ de texte
Text1.Text=Text1.text & tampon

End Sub

Couscous

cs_galexis · Answer

Cette proc&#233;dure est pour un port USB ?

@+

Paladin2107 · Answer

Re
non plutot pr les port serie.
Il te suffit de fair reconnaitre ton port usb en port serie pr se style de proc&#233;dure je pense.

Couscous

Documentation sur utilisation des ports avec VB6

3 réponses

Discussions similaires