Staram sie napisać programik w Bascom, który odczyta mi numery seryjne z termometrów dallasa DS1820 (docelowo 3-4 termometry) ma go zapisać w pamieci eeprom procesora, a nast ma być odczytany. Na końcu użyłem komendę dla wyświetlenia na lcd ale jakoś mi to podejżanie działa ponieważ nie wyświetla mi znaków a tylko jakieś "9". Może źle odczytuje lub zapisuję zmienne tablicowe, bo przyznaję sprawia mi to problem.
Czy ktoś mógłby zerknąć co napisałem, a może ktoś ma podobną już napisaną procedurę?
Oto moje wypociny
Przeniesiono z Programowanie Ogólne. - arnoldziq
Czy ktoś mógłby zerknąć co napisałem, a może ktoś ma podobną już napisaną procedurę?
Oto moje wypociny
Config 1wire = Portb.5
$crystal = 1000000
Dim Reg_no(8) As Byte
Dim I As Byte
Dim W As Word
W = 1wirecount()
Cls
Locate 1 , 1
Lcd "CZUJEK=" ; W
Wait 1
Reg_no(i) = 1wsearchfirst()
For I = 1 To 8
Writeeeprom Reg_no(i) , 10
Next
Readeeprom Reg_no(i) , 10
For I = 1 To 8
Next
'tu pubuje odczytac zmienna dla sprawdzenia czy dobrze zapisalem
'i czy czy dobrze ja odczytuje.
Cls
Locate 1 , 1
Lcd "nr" ; Reg_no(i)
For I = 1 To 8
Waitms 255
NextPrzeniesiono z Programowanie Ogólne. - arnoldziq