Hi,
das Deklarieren schreibt zunächst mal gar nichts, sondern reserviert einfach nur Speicher für die Variable.
Wenn Du Single speichern willst, solltest Du natürlich auch die EEPROM-Variable und die Vergleichsvariable K als Single deklarieren, sonst wird das nix, weil die Kommastellen beim Wandeln auf Word abgeschnitten werden und Du anschließend Äpfel mit Birnen vergleichst - im Endergebnis ist dann "K" immer ungleich "Zuspeichernderwert"...
Versuch mal den folgenden Code. Müsste gehen, ist aber nicht getestet...
Code:
Dim Z As Long
Dim Zuspeichernderwert As Single
Dim K As Single
Dim Speicher As Eram Single
'Timer mit 100 Hz
Config Timer0 = Timer , Prescale = 1024
On Timer0 Timer_irq
Const Timervorgabe = 100
Enable Timer0
Enable Interrupts
'Einmaliges Rücklesen der EEPROM-Variable
K = Speicher
Do
If Z = 90000 And K <> Zuspeichernderwert Then
'K = Zuspeichernderwert
Speicher = Zuspeichernderwert
Z = 0
End If
Loop
Timer_irq:
Timer0 = Timervorgabe
Incr Z
Return
Viele Grüße
Torsten
Lesezeichen