Probleme de dialogue entre VB et le port serie

[invite47dfc8ff]

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.
-----

[curieuxdenature]

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.