guenter1604
24.04.2009, 23:56
Hallo,
wenn ich Werte im EEprom speichere, werden benachbarte Szenen ebenfalls verändert. Wo liegt der Fehler?
Sub Eeprom(byval Schreiben As Byte , Byval Szenenspeicher As Byte)
Local I As Byte
Local K As Word
K = Szenenspeicher * 48
K = K + 2000
For I = 1 To 48
K = K + I
If Schreiben = 1 Then
Writeeeprom V_hell(i) , K
Else
Readeeprom V_hell(i) , K
End If
Next I
Dirty = 1
End Sub
Günter
wenn ich Werte im EEprom speichere, werden benachbarte Szenen ebenfalls verändert. Wo liegt der Fehler?
Sub Eeprom(byval Schreiben As Byte , Byval Szenenspeicher As Byte)
Local I As Byte
Local K As Word
K = Szenenspeicher * 48
K = K + 2000
For I = 1 To 48
K = K + I
If Schreiben = 1 Then
Writeeeprom V_hell(i) , K
Else
Readeeprom V_hell(i) , K
End If
Next I
Dirty = 1
End Sub
Günter