ACQUISITION DE TRAMES GPS NMEA SUR GPS MAGELLAN ( LA VERSION PUBLIÉE SUR CODE SOURCE NE MARCHAIT PAS AVEC MON GPS)

Option Explicit
Private Sub Form_Load()
'Protocole NMEA V2.1 GSA Magellan Color
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
decoder
End Sub

Public Sub decoder()
Dim TmpChaine As String
Dim i As Integer
On Error Resume Next
MSComm1.InputLen = 0
TmpChaine = MSComm1.Input
'Label9.Caption = TmpChaine
i = InStr(TmpChaine, "GPRMC")
Do While Len(TmpChaine) - i < 61
On Error Resume Next
TmpChaine = TmpChaine & MSComm1.Input

Loop
Label1.Caption = Mid(TmpChaine, i + 6, 2) & ":" & Mid(TmpChaine, i + 8, 2) & ":" & Mid(TmpChaine, i + 10, 2)
Label2.Caption = Mid(TmpChaine, i + 18, 2) & "°" & Mid(TmpChaine, i + 20, 2) & "." & Mid(TmpChaine, i + 22, 2) & "'"
Label3.Caption = Mid(TmpChaine, i + 30, 3) & "°" & Mid(TmpChaine, i + 33, 2) & "." & Mid(TmpChaine, i + 35, 2) & "'"
Label4.Caption = Mid(TmpChaine, i + 54, 2) & "/" & Mid(TmpChaine, i + 56, 2) & "/" & Mid(TmpChaine, i + 58, 2)
End Sub
 Et ça marche! J'ai laissé en commentaire la ligne Label9.Caption qui m'a permis de visualiser la trame NMEA