Inkey bei Software-UART in Bascom/ATmega8

[jens (Gast)]

Hallo!

Ich habe ein Navilock-GPS Modul (NL-504ETT), bei dem ich lediglich die 
Höhe benötige (ATmega8/Bascom).

Der unten genannte Code läuft nicht. Werden die GPS-Signale/NMEA-Daten 
auf den Hardware-UART-Eingang gesendet und mit Inkey() ausgwertet, so 
läuft alles...

Nehme ich für die eingehenden Signale den Software-UART, überliefert das 
"Inkey(#2)" nichts...

Ich weiß nicht mehr weiter, ich würde mich über Hilfestellungen freuen!


hier der Code:

$regfile = "m8def.dat"
$crystal = 7372800                                          ' 7,3728 Mhz Quarzoszillator an PB6 / XTAL 1
$hwstack = 32
$swstack = 32
$framesize = 32

Pwr_all Alias Portd.2
Pwr_gps Alias Portd.5

Dim Gpshoehe As String * 5

Dim Gps_zeichen As Byte
Dim Gpsdaten As String * 98
Dim Gps_header As String * 6
Dim Gps_anzahl As Byte
Dim Gps_teilstring(14) As String * 12
Dim Gps_hoehenteilstring(2) As String * 8

Pwr_all = 1                                                 ' bei Systemstart Peripherie auf ON
Pwr_gps = 1

Config Pwr_all = Output
Config Pwr_gps = Output

Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 128
Open "com1:" For Binary As #1
Open "comb.7:9600,8,n,1" For Input As #2

Enable Interrupts

Print #1 , "KaprigPRINT"
Waitms 1500

Do


   Wait 1
   Gps_zeichen = Inkey(#2)                                  ' Zeichen einlesen


   If Gps_zeichen = 36 Then Input #2 , Gpsdaten Noecho      ' ist "$"  vorhanden, dann Daten/SoftUART #2 einlesen >> Gpsdaten



      Gps_header = Mid(gpsdaten , 1 , 5)                    'ersten 5 Zeichen nach Gps_header einlesen
      If Gps_header = "GPGGA" Then                          'wenn GPGGA Befehlssatz, dann


         Gps_anzahl = Split(gpsdaten , Gps_teilstring(1) , ",")       'aus Gpsdaten in 14 Teilstrings/Arrays, getrennt durch ",", aufteilen

         Gpsdaten = ""

         Gps_anzahl = Split(gps_teilstring(10) , Gps_hoehenteilstring(1) , ".")       'Teilstring 10, Höhe xxx.xx, aufteilen in Wert vor dem "."

         Gpshoehe = Gps_hoehenteilstring(1)                 'gpshoehe = Höhe in Metern vor dem Komma über Meeresspiegel

         Print #1 , Gpshoehe

      End If


Loop
End

[Peter R. (peterfido)]

Das Wait 1 ist für Software UART absolut fehl am Platz. Soft UART kennt 
meines Erachtens kein Echo. Die "Schnittstelle" wird ja auch nur für 
Input geöffnet.


Hier wie ich es anfangen würde (ungetestet):

$regfile = "m8def.dat"
$crystal = 7372800                                          ' 7,3728 Mhz Quarzoszillator an PB6 / XTAL 1
$hwstack = 32
$swstack = 32
$framesize = 32

Pwr_all Alias Portd.2
Pwr_gps Alias Portd.5

Dim Gpshoehe As String * 5

Dim Gps_zeichen As Byte
Dim Gpsdaten As String * 98
Dim Bgpsdaten(98) As Byte At Gpsdaten Overlay
Dim Gps_header As String * 6
Dim Gps_anzahl As Byte
Dim Gps_teilstring(14) As String * 12
Dim Gps_hoehenteilstring(2) As String * 8
Dim Anzahl As Byte
Dim Modus As Byte

Pwr_all = 1                                                 ' bei Systemstart Peripherie auf ON
Pwr_gps = 1

Config Pwr_all = Output
Config Pwr_gps = Output

Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 128
Open "com1:" For Binary As #1
Open "comb.7:9600,8,n,1" For Input As #2

Enable Interrupts

Print #1 , "KaprigPRINT"
Waitms 1500

Do
  Gosub Softempfang


Loop
End

Softempfang:
     Gps_zeichen = Inkey(#2)
     If Gps_zeichen > 0 Then
         If Modus = 0 Then
            If Gps_zeichen = 36 Then
               Anzahl = 0
               Modus = 1
            End If
         Else
            If Gps_zeichen = 13 Then                        'Falls am Ende der Daten ein chr13 gesendet wird, falls nicht löschen
               Gosub Auswerten                              'Falls am Ende der Daten ein chr13 gesendet wird, falls nicht löschen
            Else                                            'Falls am Ende der Daten ein chr13 gesendet wird, falls nicht löschen
               Incr Anzahl
               Bgpsdaten(anzahl) = Gps_zeichen
               If Anzahl = 98 Then
                  Gosub Auswerten
               End If
            End If                                          'Falls am Ende der Daten ein chr13 gesendet wird, falls nicht löschen
         End If
     End If
Return



Auswerten:
   Modus = 0
   Gps_header = Mid(gpsdaten , 1 , 5)                    'ersten 5 Zeichen nach Gps_header einlesen
   If Gps_header = "GPGGA" Then                          'wenn GPGGA Befehlssatz, dann


      Gps_anzahl = Split(gpsdaten , Gps_teilstring(1) , ",")       'aus Gpsdaten in 14 Teilstrings/Arrays, getrennt durch ",", aufteilen

      Gpsdaten = ""

      Gps_anzahl = Split(gps_teilstring(10) , Gps_hoehenteilstring(1) , ".")       'Teilstring 10, Höhe xxx.xx, aufteilen in Wert vor dem "."

      Gpshoehe = Gps_hoehenteilstring(1)                 'gpshoehe = Höhe in Metern vor dem Komma über Meeresspiegel

      Print #1 , Gpshoehe
   End If
Return

Du kannst aber auch Hardware nutzen. Falls von Com1 nicht gelesen wird, 
dort einfach den GPS anschließen.

[bezen b. (bezenbu)]

@peterfido

ich suche schon ne ganze weile nach einem grundgerüst um mein projekt 
voranzutreiben....allerdings finde ich nicht viel....und bin auch recht 
unerfahren was die programmierung betrifft.

nach diesem thread zu urteilen, kennst du dich aus mit gps daten über 
uart einzulesen...

deswegen würde ich dich bitten mal nen blick auf meinen thread zu 
werfen:

Beitrag "Re: GPS Daten über RS232 in Atmega8 einlesen, Code gesucht!"


danke im vorraus


lg

[Peter R. (peterfido)]

Ich habe keinerlei Erfahrungen mit GPS Auswertung. Wenn der uC ständig 
mit Daten beliefert wird, rate ich zu Hardware UART. Da geht auch bei 
umfangreichem Code nichts verloren. Es gibt auch Atmels mit mehreren 
Hardware UARTs, falls Du mehr als eine Schnittstelle benötigst.

Kommen immer gleich lange Strings rein, würde ich mit Overlay arbeiten, 
variieren diese z.B. durch mal 1 und dann wieder 2 stellige Zahlen, dann 
jeweils am Trennzeichen in ein Array schieben. Dieses würde ich dann 
schon beim Empfang erledigen.

[Weingut P. (weinbauer)]

Auch einen schönen Trick gibt es mit den externen Interrupts.
Wenn ich die Softuart verwende lege ich den Pin auf einen
Interrupt-Pin und konfiguriere den auf falling.
Dann in der Interruptroutine frage ich per Inkey ab, so geht
mir kein Zeichen durch die Lappen.

Noch was ... du springst aus einer Subroutine in eine Subroutine.
Kann man machen wird aber bei größeren Programmen zum Einen irgendwann 
sehr unübersichtlich, zum Andern läuft irgendwann der Stack über -> 
Quelle für sehr dubiose Fehlfunktionen ...
Besser, du setzt ein Flag und springst dann bei gesetztem Flag aus der 
Mainloop in die Auswerte-Sub.

[Weingut P. (weinbauer)]

Ach so, einen Tip hab ich noch ...
Die Abfrage ob ein Zeichen eingegangen ist kann man besser in der 
Mainloop vornehmen und erst bei Zeichenempfang in die Subroutine 
springen.
Der Vorteil ist, es spart Rechenzeit, weil das Stackschreiben etc. 
wegfällt wenn nix zu machen ist.
Bei dem kurzen Programm noch kein Problem, kann aber bei längeren 
timingkritischen Geschichten ordentlich was aus machen.

[Peter R. (peterfido)]

Ja, das kann man machen. Die Register werden ja eh gesichert, da macht 
es dann nichts, wenn man weiter springt. Allerdings schalte ich am 
Anfang den INT aus und aktiviere ihn erst am Ende wieder.

Ich springe allerdings schon seit Jahren aus der Empfangsroutine in die 
Auswertung. Das klappt auch bei bei Soft-UART per INT, wenn man diesen 
dann auch solange deaktiviert. Das hat bei mir den Vorteil, dass sich 
während der Abarbeitung das Byte nicht ändert.

Bei kleineren Atmegas kann dann aber das RAM bei verschachtelten 
Sprüngen schonmal knapp werden, wie Du bereits erwähnt hast. Bei meinen 
Projekten hat dieser bisher immer gereicht. Wichtig ist, dass man immer 
sauber zurückspringt.