German Hilfe bei Projekt GPS-Daten

JOTHA

Well-Known Member
Licensed User
Ich habe ein Problem, bei dem ich Hilfe brauche.

Vielleicht ist es nur eine Kleinigkeit.

Ich möchte ein Tool programmieren, daß auf dem Pocket-PC die GPS-Koordinaten zu Adressen zuordnen kann und dann als Tabelle speichert.

Dabei soll der PORT und die BAUDRATE variabel eingestellt / gefunden werden können und in derTabelle mit eingetragen und gespeichert werden.

An drei Stellen erhalte ich folgende Fehlermeldungen:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt. Continue?
Außerdem wird nicht richtig gespeichert.

Wo liegt mein Fehler / die Fehler? :confused:

Anbei habe ich den Code beigefügt.

Im voraus schon mal Besten Dank, ich bin für jeden Hinweis dankbar.
 

JOTHA

Well-Known Member
Licensed User
Anbei die Datei (haben den Klich auf "upload" vergessen): :signOops:
 

JOTHA

Well-Known Member
Licensed User
... der 3. Versuch für den upload ... sorry vorher waren es "rar"-Dateien, die funktionieren nicht zum uploaden. :sign0013:

Also hier die "ZIP"-Datei:
 

Attachments

JOTHA

Well-Known Member
Licensed User
Hallo Filippo,

vielen Dank für deine Hilfe.

Der "Generalfehler" war, das "End Sub" 2 mal zu vergessen. Super das DU das gefunden hast! :sign0060:

... jetzt sollte funktionieren.;)
Leider kommt in Zeile 286 immer noch diese obige Meldung. Dabei finde ich hier wirklich keinen Grund dafür:
B4X:
Sub GPSBaudrate_SelectionChanged (Index, Value)
    TabelleGPS.Cell("GPSBaudrate",row) = GPSBaudrate.Text      'x
    TabelleGPS.SaveCSV("Einstellungen01.CSV", ";", True) 'Speichert die Daten als CSV-Datei.
End Sub
... müßte doch klappen, oder?
Liegt es vielleicht daran, daß es Daten aus einer ComboBox sind?

Dann aber müßte auch bei dieser Sub die gleiche Meldung kommen:
B4X:
Sub GPSPort_SelectionChanged (Index, Value)
    TabelleGPS.Cell("GPSPort",row) = GPSPort.Text 'x
    TabelleGPS.SaveCSV("Einstellungen01.CSV", ";", True) 'Speichert die Daten als CSV-Datei.
End Sub
... tut es aber nicht. Hier kommt keine Fehlermeldung, warum?

Komisch, oder?

Filippo, du hast hier:
B4X:
Sub Ort_LostFocus
'Filippo änderung
If TabelleGPS.RowCount>0 Then
    TabelleGPS.Cell("Ort",row) = Ort.Text
    TabelleGPS.SaveCSV("Einstellungen01.CSV", ";", True) 'Speichert die Daten als CSV-Datei.
End If
End Sub
... die "If"-Schleife eingefügt, aber bei den oberen Subs betreffend "GPSPort" und "GPSBaudrate" nicht. Hat das einen Grund?

Sollte man das da nicht auch machen? :confused:
 

Filippo

Expert
Licensed User
Hallo JOTHA,

HTML:
... die "If"-Schleife eingefügt, aber bei den oberen Subs betreffend "GPSPort" und "GPSBaudrate" nicht. Hat das einen Grund?
nur das ich nicht alles korrigiert habe.:signOops:

Du musst immer abfangen ob die Tabelle nicht leer ist und ob die Zeile "row" in der Tabelle auch enthalten ist.

HTML:
Der "Generalfehler" war, das "End Sub" 2 mal zu vergessen. Super das DU das gefunden hast!
Noch ein Tipp von Italoschwabe zu Schwabe: lass immer mind. eine Leerzeile zwischen Sub und End Sub.;)


Ciao,
Filippo
 

Georg

Member
Licensed User
Leerzeile Zwischen Sub und End Sub

Hallo,

wie ist das gemeint?
so?

sub xxx
befehle
end sub

sub yyy
befehle
end sub

oder so?

sub xxx

befehle
end sub

und warum?
 

Georg

Member
Licensed User
Leerzeile zwischen end sub und sub

ist doch toll, habe jetzt mein Programm daraufhin überprüft und siehe da, ab und zu ist das GPS Programm beim Stoppen der GPS verbindung eingefroren.

es stand da

end sub
sub stop
gps.close
end sub

Und nun nach der Änderung

end sub

sub stop
gps.close
end sub

also mit Leerzeile ist es nie wieder aufgetreten - cool, obwohl ichs mir nicht erklären kann. Vielleicht hilft das hier und da auch.
 
Top