Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 875 fois - Téléchargée 33 fois
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
9 févr. 2006 à 01:27
7 févr. 2006 à 20:11
Il y a des choses plus abouties sur le site.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.