Program do obsługi termostatu w Bascom

Question

Witam,napisałem prosty programik do obsługi ds18b20, który miałby mierzyć temperaturę i według zadanych kryteriów włączać ew. wyłączać urządzenia (na...

maxiu25 · Answer

nie znam sie na bascomie ale to co mowisz o dzialaniu programu wyglada tak jabys tylko raz na poczatku odczytywal temperature wiec moze spróbuj zapetlic program aby robil to w nieskonczonosc

Jaca · Answer

Przedziały w Case nachodzą na siebie:

Code:

   Select Case S                                            ' wybór diody 

      Case 0 To 10 : Gosub Zero                             ' obie diody zgaszone 

      Case 10 To 20 : Gosub Jedna                           'jedna dioda świeci 

      Case 20 To 30 : Gosub Dwie                            'obie diody świecą 

   End Select

Powinno być raczej:

Code:

   Select Case S                                            ' wybór diody 

      Case 0 To 9 : Gosub Zero                             ' obie diody zgaszone 

      Case 10 To 19 : Gosub Jedna                           'jedna dioda świeci 

      Case 20 To 29 : Gosub Dwie                            'obie diody świecą 

      itd...

   End Select

ps. dopisz na początku:

Code:

$regfile = "m8def.dat"

Pozdrawiam...

Sławek47 · Answer

Zrobiłem jak polecił kol. Jaca ale niestety diody nadal nie reagują na zmianę temperatury. Dopiero włączenie i wyłączenie układu powoduje zmianę stanu diod.

Może ktoś ma jakieś pomysły??

Jaca · Answer

Masz tu mój program termostatu. Może uda Ci się coś z niego wyciągnąć do własnych projektów.

Sławek47 · Answer

No niestety program jest dosyć rozbudowany, a ja jestem dopiero początkujący i potrzebuję wszystko mieć łopatologicznie wytłumaczone.
Jeżeli ktoś ma jakiś pomysł to proszę zapodawać na pewno go wypróbuję.
Jest to dla mnie b. ważne
Pozdrawiam
Sławek

hunterhouse · Answer

mam coś dla ciebie. działający prosty programik do testowania DS'ów

Code:


Const Skip_rom = &HCC

Const Convert = &H44

Const Read_sp = &HBE

Const Write_sp = &H4E

Const Copy_sp = &H48

Const Recall_ee = &HB8

Const Search_rom = &HF0

Const Read_rom = &H33

Const Match_rom = &H55

Const Alarm = &HEC

Config Lcd = 16 * 2



Dim Scrachpad(8) As Byte

Dim Tmp As Integer

Dim Wynik As Single



Cls

Lcd "Temperature sensor"

Wait 1

Cls

Config 1wire = Portb.7

Waitms 100



1wreset

1wwrite Skip_rom

1wwrite Write_sp

1wwrite 0

1wwrite 0

1wwrite &H7F



Do



1wreset

1wwrite Skip_rom

1wwrite Convert

Waitms 800



1wreset

1wwrite Skip_rom

1wwrite Read_sp



Scrachpad(1) = 1wread()

Scrachpad(2) = 1wread()

Tmp = Scrachpad(2) * 256

Tmp = Tmp + Scrachpad(1)

Wynik = Tmp

Wynik = Wynik / 16



Cls

Lcd Wynik



Wait 1

Loop

co do twojego programu to powinien działać.
moze sprubuj ustawić większe stosy w opcjach kompliacji. ja ustawiam na wszystkich 128, chociaż to za duzo to mają 1k ramu to i tak się większość marnuje a moze akurat sie przyda.
możesz też dać większe odstępy czasu między odczytami z ds'a.
a jakiego trybu zasialnia uzywasz??

User removed account · Answer

Witam

Odkurze ten temat, bo mam w związku z nim jedno pytanie dotyczące kodu, który podał hunterhouse...

Da się jakoś ten wynik co wychodzi zaokrąglić/przekonwertować do jednego/dwóch miejsc po przecinku :?:

Za podpowiedzi z góry dziękuje

P.S.
Ten programik pokazuje ujemne temperatury, czy trzeba go dopiero jakoś zmodyfikować :?:

hunterhouse · Answer

niestety ujemnych liczb cgba nie obsługóje , chociaz może ???co do zaokrąglania to mozna daćCode: Lcd Fusing&#40;Wynik , "#.##"&#41;i powinno działaćpozdrawiam[/code]