Hmm...., langsam wirds besser mit meinem EEprom aber hier habe ich was wo ich absolut nicht schlau draus werde:

Ich hab zwei Programme die das selbe machen, nämlich 10 Strings * 1 (AB.....HIJ" ins Eprom Schreinben:

1. Version mit Writeeprom und Readeeprom:

$regfile = "m32def.dat"
$framesize = 42


$swstack = 32
$hwstack = 32





$crystal = 16000000 'Quarzfrequenz
$baud = 9600


Dim I As Byte

I = 1


Dim Sn1 As String * 1
Dim Sn2 As String * 1
Dim Sn3 As String * 1
Dim Sn4 As String * 1
Dim Sn5 As String * 1
Dim Sn6 As String * 1
Dim Sn7 As String * 1
Dim Sn8 As String * 1
Dim Sn9 As String * 1
Dim Sn10 As String * 1

Sn1 = "A"
Sn2 = "B"
Sn3 = "C"
Sn4 = "D"
Sn5 = "E"
Sn6 = "F"
Sn7 = "G"
Sn8 = "H"
Sn9 = "I"
Sn10 = "J"


Writeeeprom Sn1 , I
I = I + 2
Writeeeprom Sn2 , I
I = I + 2
Writeeeprom Sn3 , I
I = I + 2
Writeeeprom Sn4 , I
I = I + 2
Writeeeprom Sn5 , I
I = I + 2
Writeeeprom Sn6 , I
I = I + 2
Writeeeprom Sn7 , I
I = I + 2
Writeeeprom Sn8 , I
I = I + 2
Writeeeprom Sn9 , I
I = I + 2
Writeeeprom Sn10 , I



Sn1 = "x"
Sn2 = "x"
Sn3 = "x"
Sn4 = "x"
Sn5 = "x"
Sn6 = "x"
Sn7 = "x"
Sn8 = "x"
Sn9 = "x"
Sn10 = "x"



Waitms 100

I = 1

Readeeprom Sn1 , I
I = I + 2
Readeeprom Sn2 , I
I = I + 2
Readeeprom Sn3 , I
I = I + 2
Readeeprom Sn4 , I
I = I + 2
Readeeprom Sn5 , 1
I = I + 2
Readeeprom Sn6 , I
I = I + 2
Readeeprom Sn7 , I
I = I + 2
Readeeprom Sn8 , I
I = I + 2
Readeeprom Sn9 , I
I = I + 2
Readeeprom Sn10 , I


Print Sn1 ; Sn2 ; Sn3 ; Sn4 ; Sn5 ; Sn6 ; Sn7 ; Sn8 ; Sn9 ; Sn10



End


Klappt eigentlich ganz gut, nur leider macht das Programm aus dem "E" beim Lesen immer ein "A" ?????????????????


2. Version arbeitet mit Dim Variable as eram string *1



$regfile = "m32def.dat"
$framesize = 42


$swstack = 32
$hwstack = 32





$crystal = 16000000 'Quarzfrequenz
$baud = 9600


Dim I As Byte

I = 1

Dim Sn1e As Eram String * 1
Dim Sn2e As Eram String * 1
Dim Sn3e As Eram String * 1
Dim Sn4e As Eram String * 1
Dim Sn5e As Eram String * 1
Dim Sn6e As Eram String * 1
Dim Sn7e As Eram String * 1
Dim Sn8e As Eram String * 1
Dim Sn9e As Eram String * 1
Dim Sn10e As Eram String * 1

Dim Sn1 As String * 1
Dim Sn2 As String * 1
Dim Sn3 As String * 1
Dim Sn4 As String * 1
Dim Sn5 As String * 1
Dim Sn6 As String * 1
Dim Sn7 As String * 1
Dim Sn8 As String * 1
Dim Sn9 As String * 1
Dim Sn10 As String * 1


Sn1 = "A"
Sn2 = "B"
Sn3 = "C"
Sn4 = "D"
Sn5 = "E"
Sn6 = "F"
Sn7 = "G"
Sn8 = "H"
Sn9 = "I"
Sn10 = "J"

Sn1e = Sn1
Sn2e = Sn2
Sn3e = Sn3
Sn4e = Sn4
Sn5e = Sn5
Sn6e = Sn6
Sn7e = Sn7
Sn8e = Sn8
Sn9e = Sn9
Sn10e = Sn10








Sn1 = "x"
Sn2 = "x"
Sn3 = "x"
Sn4 = "x"
Sn5 = "x"
Sn6 = "x"
Sn7 = "x"
Sn8 = "x"
Sn9 = "x"
Sn10 = "x"


Sn1 = Sn1e
Sn2 = Sn2e
Sn3 = Sn3e
Sn4 = Sn4e
Sn5 = Sn5e
Sn6 = Sn6e
Sn7 = Sn7e
Sn8 = Sn8e
Sn9 = Sn9e
Sn10 = Sn10e




Print Sn1 ; Sn2 ; Sn3 ; Sn4 ; Sn5 ; Sn6 ; Sn7 ; Sn8 ; Sn9 ; Sn10



End


Bei dieser Version Bleibt das "E" auch ein "E".

Hat jemand ne Idee wo hier der Bug ist?

Gruß

Andreas