Dziwna sprawa z tym czujnkiem. Od poczatku pisze w Bascomie, Atmega8 czujnik jak w temacie, kod jest chyba ok
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config 1wire = Portb.0
Dim T As Integer , Stt As String * 6
Cls
Do
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 800
1wreset
1wwrite &HCC
1wwrite &HBE
T = 1wread(2)
T = T * 10
T = T / 16
Stt = Str(t)
Stt = Format(stt , " 0.0")
Home
Lcd Stt;" ";
Loop
zadne bledy przy kompilacji nie wyskakuja, po zaprogramowaniu Atmegi wywal 0,0 bez czujnika i widac jak kursor co kawalek mruga wiec chyba wszystko dziala. Jak podlaczam czujnik to mi gasnie podswietlanie wyswietlacza i ds zaczyna sie jakby grzac. Zwarcie robi?? to samo jest na 3 innych czujnikach. Wszystkie kupilem na allegro, niby od dobrego sprzewacy, ale byly dosyc tanie, moze sa uszkodzone?? ma ktos jakies pomysly jak moge sprawdzic czy czujniki dzialaja lub co moze byc nie tak??
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config 1wire = Portb.0
Dim T As Integer , Stt As String * 6
Cls
Do
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 800
1wreset
1wwrite &HCC
1wwrite &HBE
T = 1wread(2)
T = T * 10
T = T / 16
Stt = Str(t)
Stt = Format(stt , " 0.0")
Home
Lcd Stt;" ";
Loop
zadne bledy przy kompilacji nie wyskakuja, po zaprogramowaniu Atmegi wywal 0,0 bez czujnika i widac jak kursor co kawalek mruga wiec chyba wszystko dziala. Jak podlaczam czujnik to mi gasnie podswietlanie wyswietlacza i ds zaczyna sie jakby grzac. Zwarcie robi?? to samo jest na 3 innych czujnikach. Wszystkie kupilem na allegro, niby od dobrego sprzewacy, ale byly dosyc tanie, moze sa uszkodzone?? ma ktos jakies pomysly jak moge sprawdzic czy czujniki dzialaja lub co moze byc nie tak??