Czy ktoś mi może powiedzieć co w tym kodzie jest nie tak, że readeeprom nie działa? Program nei robi nic konkretnego. Powinien po prostu wyświetlić jedną liczbę na wszystkich wyświetlaczach ale z niewiadomych przyczyn tego nie robi.
Kod:
Readeeprom nie działa bo pod W1 nie jest z EEPROMU nic pobierane a nie wiem czemu.
Proszę o wskazówki dotyczące rozwiązania.
Kod:
'****************************OPIS DZIAŁANIA PROGRAMU****************************
'*******************************************************************************
'wykorzystanie EEPROM
'********************************ZAWARTOŚĆ EEPROM*******************************
'*******************************************************************************
$eeprom
Tabela:
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144
$data
'********************************KONFIGURACJA uC********************************
'*******************************************************************************
Ddrb = &B11111111 'konfiguracja I/O portu B '0'-WE, '1'-WY
Portb = &B11111111 'stan spoczynkowy
Ddrd = &B1111100 'konfiguracja I/O portu D '0'-WE, '1'-WY
Portd = &B0000111 'stan spoczynkowy
'************************************ZMIENNE************************************
'*******************************************************************************
Dim W1 As Byte
'******************************WARUNKI POCZĄTKOWE*******************************
'*******************************************************************************
W1 = 0
'**********************************PĘTLA GŁOWNA*********************************
'*******************************************************************************
Do 'pętla nieskończona
Wait 1
Portb = &B00000000
Wait 1
Portd = &B1111111
Readeeprom W1 , Tabela
Portb = W1
Portd = &B0000111
Wait 5
Loop
End 'end program
'***********************************PODPROGRAMY*********************************
'*******************************************************************************
Readeeprom nie działa bo pod W1 nie jest z EEPROMU nic pobierane a nie wiem czemu.
Proszę o wskazówki dotyczące rozwiązania.