German Hilfe bei Projekt GPS-Daten

Discussion in 'German Forum' started by JOTHA, Sep 29, 2008.

  1. JOTHA

    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:
    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.
     
  2. JOTHA

    JOTHA Well-Known Member Licensed User

    Anbei die Datei (haben den Klich auf "upload" vergessen): :signOops:
     
  3. JOTHA

    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:
     

    Attached Files:

  4. Filippo

    Filippo Expert Licensed User

    Hallo JOTHA,

    ich habe ein paar Änderung in dein Code eingefügt, jetzt sollte funktionieren.;)


    Ciao,
    Filippo
     

    Attached Files:

  5. JOTHA

    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:

    Leider kommt in Zeile 286 immer noch diese obige Meldung. Dabei finde ich hier wirklich keinen Grund dafür:
    Code:
    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:
    Code:
    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:
    Code:
    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:
     
  6. Filippo

    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
     
  7. Georg

    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?
     
  8. Filippo

    Filippo Expert Licensed User

    natürlich so

    damit man End Sub bei Procedur-Ende nicht vergisst.;)
     
  9. Georg

    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.
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice