سلام.من برای ذخیره ریموتها در مگا 16 یک متغیر
کد:
Dim Eevar(100) As Eram Long
با یک شمارنده که تا 100 میره تعریف کردم.حالا وقتی ریموت لرن میکنم بجای اینکه تا 100 تا بشه لرن کرد فقط 23 تا میهشه و بیست و چهارمین همه رو پاک میکنه و خودش لرن میشه.و دوباره از نوع.
من از مگا 32 هم استفاده کردم همین مشکل رو داشت کسی میدونه مشکل کجاست؟
کد:
If Rnumber = 0 Then ' agar avalin remote ast ke learn mishavad
Incr Rnumber
Rnumber_e = Rnumber
Waitms 10
Ra = Address
Eevar(rnumber) = Ra
Waitms 10
Exit Do
Else 'address avalin khane baraye zakhire address remote
For I = 1 To Rnumber
Ra = Eevar(i)
If Ra = Address Then 'agar address remote tekrari bod yani ghablan learn shode
Set Buzz
Wait 1
Reset Buzz
Error = 1
Exit For
Else
Error = 0
End If
Next
If Error = 0 Then ' agar tekrari nabod
Incr Rnumber 'be meghdare rnumber ke index tedade remote haye learn shode ast yek vahed ezafe kon
If Rnumber > 100 Then 'agar bishtar az 100 remote learn shavad
Rnumber = 100
Set Buzz
Wait 5
Reset Buzz
Else 'agar kamtar az 100 remote bod
Rnumber_e = Rnumber 'meghdare rnumber ra dar eeprom zakhore mikonad
Ra = Address
Eevar(rnumber) = Ra