' Look at the first word to decide where to go next
Select Case GetWords(sentence)(0)
Case "$GPRMC" ' A "Recommended Minimum" sentence was found!
Return ParseGPRMC(sentence) ([COLOR="Red"][SIZE="3"]monitor NMEA and when $GPRMC is received, SEND SENTENCE to PIC via serin?[/SIZE][/COLOR])
Case Else
' Indicate that the sentence was not recognized
Return False
End Select
' Does the device currently have a satellite fix?
If Words(2) <> "" Then
Select Case Words(2)
Case "A"
RaiseEvent FixObtained()
Case "V"
RaiseEvent FixLost()
End Select ([SIZE="3"][COLOR="Red"]on display output a pin to light an LED when fix is obtained[/COLOR][/SIZE])
End If
If Words(7) <> "" Then
' Yes. Convert it into MPH ([COLOR="Red"][SIZE="3"]Speed is sent as KNOTS per hour and needs to be converted to MPH[/SIZE][/COLOR])
Dim Speed As Double = CType(Words(7), Double) * 1.150779
RaiseEvent SpeedReceived(Speed) ([SIZE="3"][COLOR="Red"]display speed on LCD?[/COLOR][/SIZE])
End If