Witam
Chciałbym przy użyciu dwóch przycisków ( nawet jednego, bo pewnie tak się da ) zmieniać czujnik DS18B20, a właściwie wskazania które pokazuje. Mam dwa układy DS18B20 i przy założeniu ( teoretycznym ), że mam mało miejsca na wyświetlanie, więc dobrze by było mieć możliwość zmiany ( na przemian jednym przyciskiem lub dwoma - pierwszy-drugi ).
Samo połączenie z DS'ami działa OK, więc tę część kodu pominę, a właściwie część jednego z wariantów kodu. Problem w tym, że po wybraniu danego DS'a wskazania się zmieniają tylko w momencie zmiany stanu przycisku, co nie do końca jest celem.
Chciałbym przy użyciu dwóch przycisków ( nawet jednego, bo pewnie tak się da ) zmieniać czujnik DS18B20, a właściwie wskazania które pokazuje. Mam dwa układy DS18B20 i przy założeniu ( teoretycznym ), że mam mało miejsca na wyświetlanie, więc dobrze by było mieć możliwość zmiany ( na przemian jednym przyciskiem lub dwoma - pierwszy-drugi ).
Samo połączenie z DS'ami działa OK, więc tę część kodu pominę, a właściwie część jednego z wariantów kodu. Problem w tym, że po wybraniu danego DS'a wskazania się zmieniają tylko w momencie zmiany stanu przycisku, co nie do końca jest celem.
T1 = T1 * 10
T1 = T1 / 16
'korekta przesuniecia znaku st C przy przejściu z temp ujemnej na dodatnią
Ss1 = Str(t1)
Ss1 = Format(ss1 , " 0.0")
'formatuj według wzorca - jedno miejsce po przecinku
'**************** drugie wejście - DS18B20 obliczenia + wyświetlanie **********
T2 = T2 * 10
T2 = T2 / 16
'korekta przesuniecia znaku st C przy przejściu z temp ujemnej na dodatnią
Ss2 = Str(t2)
Ss2 = Format(ss2 , " 0.0") 'formatuj według wzorca - jedno miejsce po przecinku
Debounce W1 , 0 , Temp1 , Sub
Debounce W2 , 0 , Temp2 , Sub
Loop
End
Temp1:
Cls
Locate 1 , 2 'wyświetl w pozycji
Lcd Ss1 ; Chr(0) ; "C "
Return
Temp2:
Cls
Locate 1 , 2 'wyświetl w pozycji
Lcd Ss2 ; Chr(0) ; "C "
Return