کمک em19

[2alborz]

لطفا کمک کنید من با EEPROM مشکل دارم
من کدو دریافت می کنم وذخیره می کنم ولی وقتی می خوام کد بعدی رو ذخیره کنم نمی تونم ببینید مشکل از کجاست لطفا کمک کنید

خیلی تو نت گشتم ولی چیزی پیدا نکردم

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
'-------------------------------------------------------------------------------

Dim E As Byte , P As Byte
Dim C(12)as String * 1
Dim Code As String * 10

Dim A As String * 10
Dim K As String * 10
Dim B As String * 10
'Dim C As String * 11
Dim D As String * 10
Dim N As Word
Dim H As Byte
'****************************** '
Cls
Cursor Off
'******************************
Door_open Alias Pind.2 'Portd.2
'Config Portd.2 = Output
Config Pinc.2 = Input
Config Pinc.3 = Input

'******************************
Declare Sub F
Declare Sub S

Do

Cls : Lcd "<<insert Card>>" : Wait 1


Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1



For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next


E = 0 : P = 0
'Cls : Lcd Code : Wait 4
'Goto F
Gosub F
Return
Loop
'******************************************

'F:
Sub F
'Code = " "

'Do
For N = 0 To 512 Step 65
Cls
'******************************
Readeeprom B , N

'******************************
If Pinc.2 = 1 Then Goto S 'Gosub S
'******************************

If B = Code Then

Door_open = 1
Locate 1 , 4
Lcd "Welcome"
Locate 2 , 5
Lcd "Opened"
Wait 2
Door_open = 0
Code = "mk"
End If
Next N
'******************************
Locate 2 , 4
Lcd Code
Waitms 600

'Loop
'End
End Sub
'*****************************

S:



For N = 0 To 512 Step 65
K = "0000000000"
Writeeeprom K , N
Waitms 10
Next N
N = 0
H = 1
Do



Cls
Locate 1 , 4
Lcd "Save user"
Locate 2 , 1
Lcd "(" ; H ; "):" ; Code
Waitms 600
If Pinc.2 = 1 Then
Writeeeprom Code , N
Code = "Successful"
Locate 2 , 1
Lcd "(" ; H ; "):" ; Code
Waitms 2000

N = N + 65
Incr H

'Code = "next tag"
Lcd "next tag"
If H = 4 Then
Locate 2 , 1
Lcd "(" ; H ; "):" ; "Memory Full"
Waitms 3000
N = 0
H = 1

'******************************
End If
End If

'******************************
If Pinc.3 = 1 Then Goto Step1 '


Loop

چرا کمک نمی کنید