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:
funzt bei mir leider nicht. weder aufm chip, noch im simulator!!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
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
Lesezeichen