Répondre à la discussion
Affichage des résultats 1 à 2 sur 2

Probleme de dialogue entre VB et le port serie



  1. #1
    marquesni

    Probleme de dialogue entre VB et le port serie


    ------

    Bonjour a tous

    Voila je réalise un programe qui recupere des donnés par le port série . Sur le port série une epprom type DS1985 et connécte, doc en piéce jointe.

    Il est connecter par l'intermaidiaire d'un port RJ11-RS232 DS9097U, doc en piéce jointe.

    La memoire est elle relié au connecteur grace a un DS1402D-DR8, doc en piéce jointe.

    Mais le prombleme n'est pas la. Le probleme et dans le protocole de lecture et d'écriture sur la ram je n'arrive pas a envoyer des donnés sur TX ou a recevoir les Donné de RX par le port serie avec VB. Donc je suis un peu perdu.

    -----
    Fichiers attachés Fichiers attachés

  2. #2
    curieuxdenature

    Re : Probleme de dialogue entre VB et le port serie

    Bonjour marquesni

    je n'arrive à lire aucun de tes fichiers, mais bon, si le problème n'est que logiciel je peux t'aider.

    Comme je ne connais pas tes bases en VB, je te dis tout:

    1- il te faut d'abord cocher le composant dans la base de la boite à outils qui se nomme 'Microsoft Comm Control 6.00'
    2- tu vois apparaitre une nouvelle icone dans la boite à outils, c'est un petit telephone.
    3- tu en places autant sur ta form que tu as de port com.
    4- Dans ta form, tu mets ce code dans form_load:
    cport = 1
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1" ' à modifier en rapport avec la source
    MSComm1.PortOpen = True
    MSComm1.InputLen = 0
    MSComm1.InputMode = comInputModeText
    If MSComm1.InBufferCount Then a$ = MSComm1.Input ' vider le tampon
    5- En supposant que le composant déposé sur ta feuille soit nommé MSComm1, que tu ais déposé une picture.box nommée 'tt', 2 controles 'timer' nommés 'Ti' et 'Ti2' avec la valeur 'interval' à 300 et un bouton de commande, tu places ce code dans Command1_Click():
    cport = 1: tt.ForeColor = vbBlack: tt.FontBold = True: tt.Print "COM1 : ";: buffer$ = ""
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True
    MSComm1.InputLen = 0
    MSComm1.InputMode = comInputModeText
    If MSComm1.InBufferCount Then a$ = MSComm1.Input ' vider le tampon

    MSComm1.Output = "ATi0i1i2I3I4i6i7i8i9i10i1 1" & Chr$(13) '"ATV1M2Q0H0; "
    DoEvents
    Ti2.Enabled = False: ti2_ok = False: Ti2.Enabled = True
    Do
    Ti.Enabled = False: ti_ok = False: Ti.Enabled = True
    DoEvents
    Do
    DoEvents
    Loop Until MSComm1.InBufferCount > 1 Or ti_ok
    If ti_ok = False Then
    Ti.Enabled = False
    buffer$ = buffer$ & MSComm1.Input
    DoEvents
    End If
    Loop Until ti2_ok = True
    tt.ForeColor = vbBlue: tt.FontBold = False
    tt.Print buffer$
    et aussi:
    Private Sub Ti_Timer()
    ti_ok = True
    End Sub

    Private Sub Ti2_Timer()
    ti2_ok = True
    End Sub
    Tu passes les codes à envoyer au port comme le montre la ligne en rouge (ici, c'est le code d'interrogation des modems), et tu récupères les données comme l'indique la ligne bleue.

    Il faut aussi gérer les erreurs.
    L'electronique, c'est fantastique.

Sur le même thème :

Discussions similaires

  1. Port serie/USB ===> port paralléle
    Par GwadaBoug dans le forum Matériel - Hardware
    Réponses: 3
    Dernier message: 07/11/2007, 20h52
  2. Dialogue entre scientifiques et juristes
    Par Olivia_Juriste dans le forum Discussions scientifiques
    Réponses: 3
    Dernier message: 27/11/2006, 15h24
  3. port série
    Par Xman_fr dans le forum Électronique
    Réponses: 6
    Dernier message: 20/06/2006, 18h15
  4. Probleme de dialogue entre VB et le port serie
    Par marquesni dans le forum Matériel - Hardware
    Réponses: 4
    Dernier message: 21/04/2006, 17h21
  5. Port série
    Par tr@nsisteric_du_39 dans le forum Matériel - Hardware
    Réponses: 4
    Dernier message: 28/09/2004, 17h34