Få data ud fra et text felt

hvis du har en anden ide til det så bare kom med den.. fx. hvis man kan nøjes med at få den linje ud med $GPGGA og ikke andet

Skriv hvis i skal se koden.

jeg har fået den til at hente data hvergang den sender noget min enhed, men der er mere end jeg skal bruge. jeg skal kun bruge det efter den har skrevet $GPGGA og der efter er der 71 Tegn jeg skal bruge..

Jeg vil godt se den del, hvor du sender og henter fra rs232.

nu når det er en GPS så henter jeg kun data sender ingen ting.. :D

$GPGGA,135057.195,5654.6044,N,00940.9321,E,1,03,10.5,107.8,M,42.6,M,0.0,0000*43
$GPGSA,A,2,02,04,13,,,,,,,,,,22.6,10.5,20.0*07
$GPRMC,135057.195,A,5654.6044,N,00940.9321,E,0.00,221.37,070408,,*05

det får jeg fra GPS'en plus mere..

Men det er kun den hvor der står $GPGGA plus resten af den linje jeg skal bruge

nåå koden :-S

Private Sub Command1_Click()
PortTimeout = False
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    MSComm1.CommPort = 9
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InBufferSize = 1
    MSComm1.PortOpen = True
    MSComm1.RThreshold = 0
   

End Sub

Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
End Sub

Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
Hent Data
End Sub

Public Sub Hent(Data As Variant)
Dim Linje As Variant, I As Integer, Uddata As Variant
    Linje = Split(Data, "$")
    For I = 0 To UBound(Linje)
        If Left(Linje(I), 5) = "GPGGA" Then
            Uddata = Split(Linje(I), ",")
          Exit For
        End If
    Next
    msg = "Uddata("
    For I = 0 To UBound(Uddata)
    msg = msg & I & ") = " & Uddata(I) & vbCrLf & "Uddata("
    Next
    msg = Left(msg, Len(msg) - 7)
    MsgBox msg
End Sub


Ok jeg skriver værdierne ud i en msgbox, til dig, jeg har skrevet i starten af hver, hvor de findes "Uddata(x) ="

Kan du så selv kode videre ??

Jeg glemte at rette i denne

Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
Hent Text1.Text
End Sub

Hmm sys ikke rigtig det virker.. :S

eheh fik det til at virke, det virker ikke rigtig før man har trykket på en knap hvor der står det der Hent Text1.text i så kommer msg Box'en...

hehe nu skal jeg så bare til at rode med at få en af de linjer ud i et felt.. men nu må vi se om jeg ikke finder ud af det.. men skal på arbejde i dag så får nok ikke lige tid til at kigge så meget på det :P

Et svar ;-))