Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Dim store as eram byte, b as byte
b = 10 'przypisujemy wartosc do b
store = b 'wartosc z b trafia do eepromu
b = store 'odczytujemy wartosc z eepromu
scal12 napisał:... i tu moje pytanie co można w tym programie zoptymalizować może deklaracje czujnikó próbowałem za pomoca czegos takiego ale mi nie wychodzi:
1wwrite adr
adr:
data tu numer seryjny czujnika
'jest
1wwrite Id(1) , 8
'...
'popraw na
For x=0 to 7
y=Lookup(x,adr)
1wwrite y
next
adr:
data tu numer seryjny czujnika
dim dsid(40) as eram byte ' zmienna tablicowa (EEPROM) dla 5 czujników
dim dstmp(8) as byte ' zmienna tymczasowa S/N czujnika
dim ptr as byte ' wskaźnik do pierwszego bajtu każdego adresu w dsid
dim i as byte ' zmienna do petli
dim i as byte ' zmienna do petli
sub zapis
for i=1 to 5 step 1
cls
lcd "podłącz czujnik:" ; I ;
do
1wreset
lowerline
if err= 0 then
lcd "1 wire test ok"
else
lcd "1 wire test error"
wait 1
loop until err=0
dstmp(1)=1wsearchfirst
locate 2,1
for a= 8 to 1 step -1
lcd hex(dstmp(a)
next a
wait 1
ptr=I-1
ptr=ptr*8
incr ptr
for a=1 to 8 step 1
dsid(ptr)=dstmp(a)
incr ptr
next a
wait 1
next i
end sub
ptr=I-1
ptr=ptr*8
incr ptr
for a=1 to 8 step 1
dsid(ptr)=dstmp(a)
incr ptr
next a
Electix napisał:... masz fajnie opisane przykłady obsługi pamięci eeprom...
Scal12 - masz kolejne zadanie do zaliczenia , czyli magistrala I2C i komunikacja z zewnętrzną pamięcią eeprom np. 24c02
dim T as integer
dim Tmin as integer
dim Tmax as integer
declare sub Tminmax
Tmin=T
Tmax=T
do
...
...
...
loop
end
sub Tminmax
if T<Tmin then Tmin=T
if T>Tmax then Tmax=T
end sub
