Bascom Variable verändert sich selbst

[Marcel K. (hobride)]

Hallo zusammen,

ich weiss nicht warum das so ist?
Ich lege einen Wert in einer Variablen (Hygro) ab und etwas später will 
ich diese Variable weiter verwenden aber der Inhalt hat sich verändert.
Diese Variable wird nirgens weiter angefasst. Ich stell mal den Code und 
die Ausgabe vom Terminal rein. Vielleicht fällt Euch Profis ja mein 
Fehler auf.

Die Stellen die ich meine habe ich so "<<<<<<<<<<<<<<" gekennzeichnet.

Wenn ich die Variable später berechnen würde hätte ich zwar ein 
korrektes Ergebnis. Aber ich würde gerne verstehen warum das so ist. 
Evtl kommt dieses Problem na noch öfter vor.

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 32
$framesize = 60
$baud = 57600

Config Lcdpin = Pin , Rs = Portc.1 , E = Portc.0 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2

Config Int1 = Rising
Enable Int1
On Int1 Isr_von_int0
Enable Interrupts

Config Timer0 = Timer , Prescale = 8
On Timer0 T0isr

Config Timer1 = Timer , Prescale = 256
Enable Timer1
Start Timer1


Dim State As Bit
Dim Signal As Bit
Dim I As Word
Dim J As Byte
Dim O As Byte

Dim Tempc As Word
Dim Hygro As Word

Dim Folge As String * 260
Dim Tele(7) As String * 36
Dim H As String * 1
Dim T As String * 8
Dim T1 As String * 8


Print "reset"

Do

If Signal = 1 Then
   Enable Timer0
      Timer1 = 15000                                        ' Timer1 grob vorladen 
      Folge = ""
      While Timer1 < 65535                                  ' Solange laufen bis Timer1 voll ist
        If Pind.3 = 1 And State <> 1 Then                   ' Wenn PIND3 auf Low geht und zwar nur einmal
          Timer0 = 0                                        ' Timer0 zurücksetzten damit die Messung beginnen kann
          O = 0
          State = 1                                         ' Status des Pins merken
        Elseif Pind.3 = 0 And State <> 0 Then               ' Wenn PIND3 auf High geht und zwar nur einmal
          I = O * 256
          I = I + Timer0
          H = Str(i)
          Folge = Folge + Left(h , 1)
          State = 0                                         ' Status des Pins merken
        End If
      Wend

      Gifr = Gifr Or &H80                                   'clear Flag Int1  pending INT clear

   Disable Timer0
   Signal = 0
   Enable Int1
End If


If Folge <> "" Then
   Replacechars Folge , "9" , ";"
   Replacechars Folge , "8" , ";"
   Replacechars Folge , "1" , "0"
   Replacechars Folge , "2" , "0"
   Replacechars Folge , "3" , "1"
   Replacechars Folge , "4" , "1"
   J = Split(folge , Tele(1) , ";")

   If Tele(1) = Tele(2) And Tele(2) = Tele(3) Then
      Folge = Tele(1)
   Elseif Tele(4) = Tele(5) And Tele(5) = Tele(6) Then
      Folge = Tele(4)
   Elseif Tele(2) = Tele(4) And Tele(4) = Tele(7) Then
      Folge = Tele(2)
   End If

   Hygro = 0
   T1 = Mid(folge , 29 , 8)
   Hygro = Binval(t1)
   Print "f1 " + Folge + " " + Hygro
   ' <> hier stimmt der Wert von Hygro noch <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

   Tempc = 0
   T = Mid(folge , 20 , 1)
   If T = "1" Then
   Tempc = 256
   End If

   T = Mid(folge , 21 , 8)
   Tempc = Tempc + Binval(t)

   T = ""
   Tempc = Str(tempc)
   For I = 0 To Len(tempc)
      If I = Len(tempc) Then
         T = T + "."                                        'Dezimalpunkt einfügen
      End If
      H = Mid(tempc , I , 1)
      T = T + H
   Next I


   Print "f2 " + Folge + " " + Hygro
   ' <> hier stimmt der Wert von Hygro nicht mehr <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

   Cls
   Locate 1 , 1
   Lcd T
   Locate 2 , 1
   Lcd Hygro

   Folge = ""

End If


Loop
End


Isr_von_int0:
  Disable Int1
  Signal = 1
Return

T0isr:
   O = O + 1
Return

[Karl H. (kbuchegg)]

Das geht durch den Compiler?

   Tempc = Str(tempc)
   For I = 0 To Len(tempc)
      If I = Len(tempc) Then

tempc ist doch ein WORD und kein String

Dim Tempc As Word


Was liefert Len, wenn man es auf einen WORD ansetzt?
Wie speichert sich der String, der von STR erzeugt wird in tempc?

Meine BASCOM Kentnisse sind allerdings beschränkt, möchte ich gleich 
dazu sagen. Ist mir nur aufgefallen und unlogisch vorgekommen. Wenn 
Variablen ihren Wert unmotiviert verändern, dann sind Array-Überläufe 
oder eben String-Überläufe immer heiße Kandidaten. Drum hab ich mir die 
String-Operationen genauer angesehen.

[Hackes (Gast)]

Hallo,

habs nicht weiter durchgelesen. ABER genau das, was mein Vorredner 
sagte, scheint durchaus zuzutreffen. Den Effekt kenn ich aus meinen 
Anfangszeiten sehr gut und du suchst Dir nen Wolf dran.

Wenn ein String "überläuft", dann werden nachfolgende Speicherzellen, wo 
andere Variablen liegen, rücksichtslos überschrieben und damit ihr Wert 
verändert.

Da Du den String (also die Variable, die den STring aufnehmen würde) 
weiter vorne im Speicher liegen hast, deutet es sehr darauf hin. Wundert 
mich aber, daß dann auch nicht andere Variablen betroffen sind, oder 
fällt es vielleicht einfach nur nicht auf.

Versuche als Test mal den STring ganz am Schluß der ganzen Variablen zu 
deklarieren oder besser, schau, daß er nicht überläuft.

Daß der Compiler nicht meckert, wundert mich allerdings auch!

Viel Erfolg

[Marcel K. (hobride)]

Ja Moin zusammen,

Der Compiler hat tatsächlich nicht gemeckert und ihr hattet recht.

   Print Tempc
   tempc = Str(tempc)
   Print Tempc
   Print Len(tempc)

brachte folgende Ausgaben:

185       < print tempc
14385     < print tempc nach tempc = str(tempc)
3         < len(tempc)

Warum die folgende Schleife dann da einen lesbaren String daraus gemacht 
hat weiss ich nicht.

Nachdem ich dem String eine neue Variable spendiert habe(von Typ String) 
stimmen die beiden Werte überein.

Ich stehe noch ganz am Anfang meiner AVR Basic Programmier Erfahrungen. 
Deshalb sieht der Code noch etwas wirr aus und funktioniert eben 
manchmal nicht :-).

Danke für die Hilfe, tolles Forum !!!.


Gruß Marcel