ich weiß, aber ich habe auf einer hp gelesen, dass der gps-empfänger aller ipaq h39XX mit 5V versorgt wird

wie kann ich diese zahlen den auswerten??

das prog von der hp:
Code:
'rmcdec1
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 4800

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcdbus = 4
Cls
Cursor On Blink

Dim C As Byte
Dim I As Byte
Dim Time As String * 6
Dim Av As String * 2
Dim Lat As String * 8
Dim Ns As String * 2
Dim Lon As String * 9
Dim Ew As String * 2
Dim Spd As String * 6
Dim Crs As String * 6
Dim Leng As Byte
Dim Mrk As String * 2
Dim Xx As Bit

Declare Sub Wait_for_string(byval S As String)
Declare Function Read_string() As String

Wait 1
   Upperline
   Lcd "WAITING FOR DATA"
Wait 3

Mrk = "-"

Config Serialin = Buffered , Size = 100                     ' Konfig. der ser. Eingabe
Enable Interrupts
' $GPRMC,hhmmss.ss,A,llll.ll,a,yyyyy.yy,a,x.x,x.x,ddmmyy,x.x,a*hh
Do
   Call Wait_for_string( "$GPRMC,")                         ' Warte auf $GPRMC

   Time = Read_string()
   Av = Read_string()

   Lat = Read_string()
   Leng = Len(lat) - 1
   Lat = Left(lat , Leng)

   Ns = Read_string()
   Leng = Len(ns) - 1
   Ns = Left(ns , Leng)

   Lon = Read_string()
   Leng = Len(lon) - 1
   Lon = Left(lon , Leng)

   Ew = Read_string()
   Leng = Len(ew) - 1
   Ew = Left(ew , Leng)

   Spd = Read_string()
   Leng = Len(spd) - 1
   Spd = Left(spd , Leng)

   Crs = Read_string()
   Leng = Len(crs) - 1
   Crs = Left(crs , Leng)

   Upperline
   Locate 1 , 2
   Lcd Lat ; Ns
   Locate 1 , 12
   Lcd Spd

   Lowerline
   Lcd Lon ; Ew
   Locate 2 , 12
   Lcd Crs

   If Av = "V," Then Av = "*"
   If Av = "A," Then Av = " "
   Locate 1 , 1
   Lcd Av

   If Xx = 1 Then Mrk = "-"
   If Xx = 0 Then Mrk = "+"
   Toggle Xx
   Locate 1 , 11
   Lcd Mrk

Loop

End

'------------------------------------------------------
Sub Wait_for_string(byval S As String) As String
Local Ii As Byte
Local Cc As Byte
Ii = 1
M1:
   Cc = Inkey()
   If Cc <> Mid(s , Ii , 1) Then
      Goto M1
   Else
      Incr Ii
      If Ii > Len(s) Then Goto M2
      Goto M1
   End If
M2:
End Sub

'------------------------------------------------------
Function Read_string() As String
Local Cc As Byte
Local Ss As String * 10
Ss = ""
Do
   Cc = Inkey()
   Ss = Ss + Chr(cc)
Loop Until Cc = ","
Read_string = Left(ss , 10)
End Function
End
funzt bei mir leider nicht. weder aufm chip, noch im simulator!!
ich hätte mir schon gedacht, dass ich vielleicht eine taste zum starten drücken muss, allerdings habe ich nichts dergleichen im prog gefunden.
nach ein paar sec steht die ganze zeit "waiting for data" aufm display.
woran liegt das?? hat jemand eine idee??

das mit gps und haus und so weiß ich, hab das teil immer ausm fenster gehalten, wenn ichs probiert hab, hat aber nichts gebracht (bei dem obigen code)

bitte, ihr müsst mir helfen?!?!
danke für eure bemühungen.

gruß
chris