UART beeinflusst Variablen???

[chris0983]

Hallo,
ich beschäftige mich erst seit ein paar Wochen mit Microcontrollern und habe daher noch nicht allzu viel Erfahrung. Ich habe folgendes Programm für einen Datenlogger geschrieben:


$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 65
$swstack = 40
$framesize = 100
$baud = 4800


Config Sda = Portc.4
Config Scl = Portc.5



Declare Sub Serial0charmatch
Declare Sub Wertlesen(kanal As Word)
Declare Sub Speichern(daten As Word)
Declare Sub Lesen
Declare Sub Intervall(intervall_neu As String)
Declare Sub Datenausgabe(bereich As String)
Declare Sub Online


Dim Schreiben As Word At $250
Dim Schreiben1 As Byte At $250 Overlay
Dim Schreiben2 As Byte At $251 Overlay
Dim Addresse As Word At $260
Dim Addresse1 As Byte At $260 Overlay
Dim Addresse2 As Byte At $261 Overlay
Dim Lesen As Word At $270
Dim Lesen1 As Byte At $270 Overlay
Dim Lesen2 As Byte At $271 Overlay
Dim Befehl As String * 12
Dim Befehlarray(2) As String * 7
Dim Intervall As Word
Dim Zeit As Word
Dim A As Byte
Dim N As Word
Dim Ende As Word
Dim Zaehler As Word
Dim Temp As Word
Dim Druck As Word


Config Adc = Single , Prescaler = Auto
Start Adc
Config Timer1 = Timer , Prescale = 64
Timer1 = 49910
On Timer1 Isr_timer1
Config Serialin = Buffered , Size = 15 , Bytematch = 13
Config Pinb.2 = Input
Config Portb.1 = Output
'Config Portb.3 = Output
Portb.2 = 1
Zeit = 0
Zaehler = 1


Readeeprom Lesen1 , 10 'Intervallzeit lesen
Readeeprom Lesen2 , 11
If Lesen >= 1 Then
Intervall = Lesen
Else
Intervall = 1
End If

Enable Interrupts 'Programm Anfang
Enable Timer1
Do
Addresse = Zaehler * 2
Decr Addresse 'Hauptschleife
If Zeit >= Intervall Then
N = 0
Call Wertlesen(n)

Call Speichern(temp)
Addresse = 5000
Call Speichern(zaehler)
Incr Zaehler
End If

Loop
End


Isr_timer1: 'Timer zählt im Sekundentakt
Timer1 = 49910
If Pinb.2 = 0 Then
Incr Zeit
End If
Return


Sub Serial0charmatch() 'Daten über UART empfangen
Input Befehl Noecho
If Befehl <> "" Then
A = Split(befehl , Befehlarray(1) , " ")
Select Case Befehlarray(1)
Case "interv" : Call Intervall(befehlarray(2))
Case "lesen" : Call Datenausgabe(befehlarray(2))
Case "online" : Call Online
End Select
End If
End Sub

Sub Wertlesen(kanal As Word)
Toggle Portb.1 'AD-Wandler auslesen
Temp = Getadc(kanal)
Zeit = 0

End Sub

Sub Speichern(daten As Word)
Disable Interrupts
Schreiben = Daten
I2cstart 'Start
I2cwbyte &HA0 'Sende Slavadresse
I2cwbyte Addresse2 'Sende Speicheradresse High
I2cwbyte Addresse1 'Sende Speicheradresse LOW
I2cwbyte Schreiben2 'Sende Wert
I2cstop 'stop
Waitms 5 'warte 10ms
Incr Addresse
I2cstart 'Start
I2cwbyte &HA0 'Sende Slavadresse
I2cwbyte Addresse2 'Sende Speicheradresse High
I2cwbyte Addresse1 'Sende Speicheradresse LOW
I2cwbyte Schreiben1 'Sende Wert
I2cstop 'stop
Waitms 5 'warte 10ms
Enable Interrupts
End Sub

Sub Lesen
Disable Interrupts
I2cstart 'Start
I2cwbyte &HA0 'Sende Slavadresse +1 für Schreiben
I2cwbyte Addresse2 'Sende Speicheradresse High
I2cwbyte Addresse1 'Sende Speicheradresse Low
I2cstart 'Start
I2cwbyte &HA1 'Sende Slavadresse +1 für Lesen
I2crbyte Lesen2 , Nack 'Lese Adresse vom EEprom
I2cstop
Waitms 5 'Stop
Incr Addresse

I2cstart 'Start
I2cwbyte &HA0 'Sende Slavadresse +1 für Schreiben
I2cwbyte Addresse2 'Sende Speicheradresse High
I2cwbyte Addresse1 'Sende Speicheradresse Low
I2cstart 'Start
I2cwbyte &HA1 'Sende Slavadresse +1 für Lesen
I2crbyte Lesen1 , Nack 'Lese Adresse vom EEprom
I2cstop 'Stop
Waitms 5
Enable Interrupts
End Sub


Sub Intervall(intervall_neu As String)
Disable Interrupts
Schreiben = Val(intervall_neu)
Writeeeprom Schreiben1 , 10
Writeeeprom Schreiben2 , 11
Intervall = Val(intervall_neu)
Enable Interrupts
Print "Neuer Intervall: " ; Intervall_neu ' Intervallzeit ändern
End Sub

Sub Datenausgabe(bereich As String)
Select Case Bereich
Case "z"
Addresse = 5000
Call Lesen
Print Str(lesen)
Case "iv"
Print Str(intervall)
Case Else
Addresse = Val(bereich)
Ende = Val(bereich) + 19
Do
Call Lesen
Print Str(lesen)
Incr Addresse
Loop Until Addresse > Ende
End Select
End Sub


Sub Online
N = 0
Call Wertlesen(n)
Print Str(temp)
End Sub

Der Timer zählt im Sekundentakt die Variable Zeit hoch. Wenn Variable Zeit = Variable Intervall ist, wird der aktuelle Wert vom AD-Wandler gelesen, der Wert und der neue Zählerstand in einem externen EEPROM gespeichert und die Variable Zeit zurückgesetzt. Anschließend können die Daten über UART wieder ausgelesen werden.

Das funktioniert auch soweit, jedoch veränder sich der Zählerstand manchmal beim auslesen. Habe ich vielleicht bei der Variablendeklaration etwas falsch gemacht?
Vielen Dank im Voraus für eure Antworten

[for_ro]

Ich schätze das liegt daran, dass du High und Low Byte vertauschst. Musst du mal überprüfen. Wenn du sowas deklarierst

Dim Schreiben As Word At $250
Dim Schreiben1 As Byte At $250 Overlay
Dim Schreiben2 As Byte At $251 Overlay
Dim Addresse As Word At $260
Dim Addresse1 As Byte At $260 Overlay
Dim Addresse2 As Byte At $261 Overlay
Dim Lesen As Word At $270
Dim Lesen1 As Byte At $270 Overlay
Dim Lesen2 As Byte At $271 Overlay

dann liegt bei 250 das Low-Byte und bei 251 das High-byte der Variable Schreiben. Mit festen Adressen würde ich das Normalerweise sowieso nicht machen. Lieber so:

Dim Schreiben As Word
Dim Schreiben_low As Byte At Schreiben Overlay
Dim Schreiben_high As Byte At $Schreiben+1 Overlay
Dim Addresse As Word
Dim Addresse_low As Byte At Addresse Overlay
Dim Addresse_high As Byte At $Addresse+1 Overlay
Dim Lesen As Word
Dim Lesen_low As Byte At Lesen Overlay
Dim Lesen_high As Byte At Lesen+1 Overlay

So ist dein Code auch auf einen anderen µC portierbar, ohne dass du die Adressen ändern musst.

Außerdem würde ich eine Sub nicht genauso nennen wie eine Variable (Intervall). Bascom kommt zwar damit zurecht, es liest sich aber schwerer.

Gruß

Rolf

[chris0983]

Hallo Rolf,
danke für deine Tipps. Leider war das aber nicht der Fehler. Die Messwerte die ich auslese sind ok. Nur wenn ich mehrmals hintereinander den Zähler auslese (also lesen z sende), erhöht sich der Zähler um 1 und es wird ein neuer Messwert aufgenommen (obwohl PB2 1 ist). Als würde die Variable Zeit beeinflusst...

[for_ro]

Das war wohl eh Quatsch, was ich da bzgl. Low und High losgelassen habe. Bei dir im Programm ist es richtig rum. Sorry.
Ich kann deinen Code wegen der I2C Befehle nicht wirklich ausprobieren.
Wenn du vermutest, dass die Zeit erhöht wird, dann mach doch mal ein Print Zeit in die ISR, damit du sofort siehst, wann da was passiert.

Gruß

Rolf

[chris0983]

Die Variablen ändern sich wohl doch nicht. Aber obwohl Zeit = 0 und Intervall = 5 ist, wird die Bedingung if Zeit >= Intervall manchmal ausgeführt. Sehr komisch....

[for_ro]

Läuft da vielleicht eine der Variable über?
Versuch mal durch Prints oder Anzeigen auf dem Display einzugrenzen, unter welchen Bedingungen der Fehler auftritt.
Schau auch mal, ob die String Variablen, die vor Intervall deklariert sind, evtl. längere Strings bekommen können. Bascom überprüft und verhindert dies nicht. Ein Zeichen zu lang und schon hast du im Low-Byte von Intervall das Stringende-Zeichen stehen, eine 0.

Gruß

Rolf

[chris0983]

Ich denke nicht. Habe die String-Variablen und den UART-Puffer mal deutlich vergrößert, aber der fehler bleibt trotzdem. Und eigentlich werden nie mehr als 8 Byte empfangen.

Der Fehler tritt immer nur auf wenn ich den zähler (mit "lesen z") oder den aktuellen Wert ( mit "online") mehrmals hintereinander auslese. Beim auslesen der Datensätze ( z.B. "lesen 1") ist der Fehler noch nicht aufgetreten.