ساخت قفل امنیتی با کارت هوشمند

[Sajad.1380]

سلام بر همگان :bye
ببخشید یه خورده سوالام مبتدیه میخواستم یه قفل امنیتی با کارت تلفن درست کنم واسه موتور کداش نوشتم یه نگاهی بکنید ببینید مشکلی چیزی نداره.من خیلی تو کدنویسی وارد نیستم ممکنه کنار کد ها سوتی داده باشم. :icon_razz:

$regfile = "m16def.dat"
$crystal = 8000000

Dim I As Byte
Dim J As Byte
Dim Card(8) As Byte
Dim Reg_card(8) As Eram Byte
Dim Asd As Byte
Dim Test(8) As Byte


Config Porta.5 = Input
Config Porta.6 = Output
Config Porta.7 = Output
Config Portc.7 = Input
Config Portd.4 = Output

Io Alias Pina.5
Rst Alias Porta.6
Clk Alias Porta.7
Check Alias Pinc.7


If Reg_card(8) > 0 Then Goto Main

Bitwait Check , Set
Goto Reset_cardreg

Main:
Do
Bitwait Check , Set
Gosub Reset_card
Gosub Read_card
Gosub Onbargh
Loop
End
Reset_card:
If Check = 1 Then
   Set Rst
   Set Clk
   Waitms 10
   Reset Clk
   Reset Rst
   End If
  Return



Reset_cardreg:
   Set Rst
   Set Clk
   Waitms 10
   Reset Clk
   Reset Rst
   Goto Read_cardreg

Read_card:
If Check = 1 Then
   For I = 1 To 8
     For J = 7 To 0

      Set Clk
      Card(i).j = Io
      Waitus 10
      Reset Clk

     Next
   Next
   End If
  Return

Read_cardreg:
   Config Porta.5 = Input
   Config Porta.6 = Output
   Config Porta.7 = Output



   For I = 1 To 8
     For J = 7 To 0 Step -1
      Set Clk
      Test(i).j = Io
      Waitus 10
      Reset Clk
     Next
   Next
   Gosub Save_to_eram

   Goto Main

 Onbargh:
Do
If Check = 0 Then Goto Offbargh
If Reg_card(8) = Card(8) Then Set Portd.4


Loop



Offbargh:
Reset Portd.4
Goto Main




Save_to_eram:
For Asd = 1 To 8
Test(asd) = Reg_card(asd)
Waitms 4
Next
Return

این برنامه اطلاعات اولین کارتی که وارد سوکت اسمارت کارت میشه رو ذخیره میکنه(هشت بایت اول) که من مشکلم اینه چطور متغیر reg_card رو روی حافظه eeprom ذخیره کنم. :angry: :angry:
ممنون :job: