[syntax=basic4gl]
$eeprom
Tabela: 'kody cyfr 0...9 + kod wygaszenia
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144 , 255 , 137
Dim Setki As Byte , Jednostki As Byte , Dziesiatki As Byte , Mux As Byte
Dim , Pomoc As Byte , A As Byte , Zero As Byte
Config Portb = 255 : Portb = 255 : Config Portd = &B1111100 : Portd = 127
Zero = 192 : Pomoc = 0
'a teraz jednokrotnie wpisz cokolwiek do komórki EEPROM-a:
Writeeeprom Zero , 0 'sprawdzimy czas tego wpisywania w pętli:
Do 'szacunkowy czas obiegu pętli
Waitus 95 ' około 100 mikrosekund
If Eecr.1 = 1 Then 'tylko jeśli komórka jeszcze nie zapisana
Incr Pomoc 'zwiększ licznik (co około 0,1ms)
' Jeżeli w trakcie zapisu do EEPROM-a, gdy EECR=1 procesor nie wykonywałby
' "normalnego" programu, zmienna Pomoc nie byłaby zwiększana i wskazanie byłoby 0
'Jeżeli podczas zapisu EEPROM-a program, a konkretnie pętla "obraca się" co 0,1ms,
'na wyświetlaczu pokaże się liczba obiegów pętli podczas zapisu komórki
Else ' a dopiero po zapisaniu komórki EEPROM-a wyświetl wynik:
'konwersja liczby 8-bitowej na 3 cyfrową BCD - wynik w zmiennych bajtowych: A i Setki
A = Pomoc 'liczbę do wyświetlenia przepisujemy do zmiennej pomocniczej A
If A < 100 Then 'dla liczb 0...99
Setki = 10 'wygasi w nietypowy sposób wyświetlacz setek
Else 'jeśli liczba A większa od 99
A = A - 100
If A < 100 Then 'dla liczb 100...199
Setki = 1
Else 'dla liczb>=200
Setki = 2
A = A - 100
End If
End If 'teraz w zmiennej A na pewno jest liczba 0...99
A = Makebcd(a) 'zamieniamy liczbę dwójkową na BCD
Jednostki = A And 15 : Dziesiatki = A : Shift Dziesiatki , Right , 4
Incr Mux : If Mux = 4 Then Mux = 0 : Portd = 127
Select Case Mux ' obsługa wyświetlacza
Case 0: 'wyświetl wartość jednostek
Readeeprom Portb , Jednostki : Portd.3 = 0
Case 1: 'wyświetl wartość dziesiątek
Readeeprom Portb , Dziesiatki : Portd.4 = 0 : Portb.7 = 0
Case 2: 'wyświetl wartość setek lub wygaś
Readeeprom Portb , Setki : Portd.5 = 0
Case 3: 'na lewym wyświetlaczu pokaż dodatkową literkę
Portb = &B00000111 : Portd.6 = 0 'na lewym wyświetlaczu literka t z kropką
End Select
End If
Loop
End 'to jest główny program - pusta nieskończona pętla
[/syntax]
ewentualnie w przerwaniu ...
[syntax=basic4gl]
$eeprom
Tabela: 'kody cyfr 0...9 + kod wygaszenia
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144 , 255 , 137
Dim Setki As Byte , Jednostki As Byte , Dziesiatki As Byte , Mux As Byte ,
Dim Pomoc As Byte , A As Byte , Zero As Byte
Config Portb = 255 : Portb = 255 : Config Portd = &B1111100 : Portd = 127
Config Timer0 = Timer , Prescale = 8 'impuls co 2us
Enable Interrupts : Enable Timer0
On Timer0 Co100us : Zero = 192 : Pomoc = 0
'a teraz jednokrotnie wpisz do komórki EEPROM-a:
Writeeeprom Zero , 0 'sprawdzimy czas tego wpisywania w pętli:
Do : Loop : End 'to jest główny program - pusta nieskończona pętla
Co100us: 'przerwanie co 0,1ms
Timer0 = 206 '50 x 2us = 0,1ms (256-206)
If Eecr.1 = 1 Then 'tylko na początku, jeśli komórka jeszcze nie zapisana
Incr Pomoc 'zwiększ licznik, ale nie wyświetlaj
Else 'dopiero po zapisanu komórki wyświetl wynik:
'konwersja liczby 8-bitowej na 3 cyfrową BCD - wynik w zmiennych bajtowych: A i Setki
A = Pomoc 'liczbę do wyświetlenia przepisujemy do zmiennej pomocniczej A
If A < 100 Then 'dla liczb 0...99
Setki = 10 'wygasi w nietypowy sposób wyświetlacz setek
Else 'jeśli liczba A większa od 99
A = A - 100
If A < 100 Then 'dla liczb 100...199
Setki = 1
Else 'dla liczb>=200
Setki = 2
A = A - 100
End If
End If 'teraz w zmiennej A na pewno jest liczba 0...99
A = Makebcd(a) 'zamieniamy liczbę dwójkową na BCD
Jednostki = A And 15 : Dziesiatki = A : Shift Dziesiatki , Right , 4
Incr Mux : If Mux = 4 Then Mux = 0 : Portd = 127
Select Case Mux ' obsługa wyświetlacza
Case 0: 'wyświetl wartość jednostek
Readeeprom Portb , Jednostki : Portd.3 = 0
Case 1: 'wyświetl wartość dziesiątek
Readeeprom Portb , Dziesiatki : Portd.4 = 0 : Portb.7 = 0
Case 2: 'wyświetl wartość setek lub wygaś
Readeeprom Portb , Setki : Portd.5 = 0
Case 3: 'na lewym wyświetlaczu pokaż dodatkową literkę
Portb = &B00000111 : Portd.6 = 0 'na lewym wyświetlaczu literka t z kropką
End Select
End If
Return 'koniec obsługi przerwania od T/C0 co 0,1ms
[/syntax]
posprawdzaj jednak adresy bo przy takiej ilości danych jak podałeś to się dziwię że ktoś coś próbuje
pomóc 
Statystyki: Napisane przez SunRiver — 1 kwi 2013, o 14:03
]]>