Obsługa ds-ów to proste.
Kiedyś pisałem taki mały termostat do zasilacza laboratoryjnego , wkurzały mnie głośne wentylatory.
Zobacz na to kod ma 5 lat teraz napisąl bym go ciut inaczej ale sama rejestracja ds-ów jest ok
[syntax=basic4gl]'*******************************************************************************
'------------------------------ATmega8-----------------------------------------
'------------------------------3xDS18b20----------------------------------------
'--------------------------2x PWM controled FAN---------------------------------
'-------------------------- UART controled -------------------------------------
'-------------------------Auto and manual mode----------------------------------
'-----------------------------Version:2.0-----------------------------------------
'-------------------------- flash used 66%--------------------------------------
'------------------------By Pawel L. aka Pikczu----------------------------------
'--------------------------------2010-------------------------------------------
'*******************************************************************************
'DALLAS DS18B20 ROM and scratchpad commands''''''''''''''''''''''''''
'1wwrite....
'&H 33 read rom - single sensor
'&H 55 match rom, followed by 64 bits
'&H CC skip rom
'&H EC alarm search - ongoining alarm >TH <TL
'&H BE read scratchpad
'&H 44 convert T
'*******************************************************************************
'*******************************************************************************
$prog &HFF , &H3F , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m8def.DAT" 'uc type
$crystal = 11059200 'crysal frequency
$baud = 9600
Config Serialin = Buffered , Size = 20
'Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Portd.1 = Output 'TX
Config Portd.0 = Input 'RX
Config Portd.6 = Input 'PUSHBUTTON
Portd.6 = 1 'PULL UP
Config 1wire = Portd.2 '1Wire
Config Portd.7 = Output 'BUZZER
Portd.7 = 0 'initial status
Config Portb.0 = Output 'STATUS LED
Portb.0 = 0 'initial status
Config Portb.1 = Output 'oc1a
Config Portb.2 = Output 'oc1b
'*******************************************************************************
'****************************Variables*****************************************
Dim B As Byte 'beep
Dim Index As Byte 'index
Dim Ile As Byte 'how many sensors ?
Dim I1(2) As Byte 'array for 2 byte readed from DS sensor
Dim I2(2) As Byte 'array for 2 byte readed from DS sensor
Dim I3(2) As Byte 'array for 2 byte readed from DS sensor
Dim Dsx(8) As Byte 'tablica do zapisaania 8 byteów odebranych z dsa przy rejsctarcji
Dim Ds1(8) As Byte ' tablica 8 bytów do zapisania 8 bytów z 1 dsa
Dim Eds1(8)as Eram Byte At &H10 ' Miesjce w eepromie do zapisania 1 ds
Dim Ds2(8) As Byte 'Tablica 8 Bytów Do Zapisania 8 Bytów Z 2 Dsa
Dim Eds2(8) As Eram Byte At &H20 ' Miesjce w eepromie do zapisania 2 ds
Dim Ds3(8) As Byte 'Tablica 8 Bytów Do Zapisania 8 Bytów Z 3 Dsa
Dim Eds3(8) As Eram Byte At &H30 ' Miesjce w eepromie do zapisania 3 ds
Dim Ds_y As Byte 'Uzyte tylko do rejstarcji dsów
Dim Temp1 As Integer 'zmienna przchowuje wartosc temp1
Dim Temp_1 As Byte
Dim Temp2 As Integer 'zmienna przchowuje wartosc temp2
Dim Temp_2 As Byte
Dim Temp3 As Integer 'zmienna przchowuje wartosc temp3
Dim Temp_3 As Byte
Dim T_array(2) As Byte 'master and slave temperature array
Dim T_a_m As Byte 'Temp array max value
Dim Speed1 As Byte 'zmienna na watrosc PWM
Dim Speed2 As Byte 'zmienna na watrosc PWM
Dim Mod_e As Bit 'zmienna bitowa do zmiany pracy auto/manual
Dim Czas As Word 'zmienna liczaca czas
Dim Czas2 As Byte 'zmienna liczaca czas dla flash i beep
Dim H1 As Byte 'zmienna histerezy
Dim H2 As Byte 'zmienna histerezy
Dim Flag0 As Bit 'zmienna pomocnicza do timera 0
Dim Flag1 As Bit 'taka mala flaga pomocnicza
Dim Flag2 As Bit 'flaga zmiany temperatury
Dim Serial_flag As Byte 'flaga odebroanego znaku UART
Dim Y As Single
Dim Z As Single
'*******************************************************************************
'*******************************************************************************
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Enable Interrupts
Enable Oc1a
Enable Oc1b
Config Timer0 = Timer , Prescale = 1024
Config Timer2 = Timer , Async = Off , Prescale = 1024
On Timer2 Timer2_isr 'ptzrwanie od timera 2 do flash i beep
'*******************************************************************************
'*******************************************************************************
Wait 1
Print "Restart"
Wait 1
Debounce Pind.6 , 0 , Zapisz , Sub 'zarejstruj ds-y
Wait 1 'krotkie opoznienie po wyjsciu z restarcji
Ile = 1wirecount() 'ile czujnków w ukladzie
Wait 1 ' krótkie opoznienie po policzeniu czojnkow '
Enable Timer2
Flag1 = 0 'flaga wyzerowana tan na wszelki wypadek
For B = 1 To Ile 'teraz ile czojnikow tyle flash i beep
Start Timer2 'zeby nie uzywac wait do opoznienia
Gosub Flash 'skocz do blysku dioda
Gosub Beep 'skok do beep
Bitwait Flag1 , Set 'flaga ze czas minal i mozna wykonac dalej
Czas2 = 0 'wyzerwoanie czasu
Next B
Stop Timer2 'zaczymnaie niepotrezbnego timera 2
Czas2 = 0 'timer juz zdazyl cos policzyc wiec zerownaie jeszcze raz
Disable Timer2
'*************************Read from Eeprom *************************************
'*******************************************************************************
For Index = 1 To 8
Ds1(index) = Eds1(index) 'odczytaj z pameici eeprom nuemry dsów po zalaczeniu zasilania
Ds2(index) = Eds2(index) 'odczytaj z pameici eeprom nuemry dsów po zalaczeniu zasilania
Ds3(index) = Eds3(index) 'odczytaj z pameici eeprom nuemry dsów po zalaczeniu zasilania
Next Index
Index = 0
'*******************************************************************************
'PO WLACZENIU ZASILANIA PIERWSZA ODCZYTANA WARTOSC BYLA BY 85 STOPNI ZEBY TEGO UNIKNAC DOKONAJ KONWERSI TEMP
'*************konwersja temp dla wszystkich dsow********************************
1wreset
1wwrite &HCC 'skip all
1wwrite &H44
'*******************************************************************************
'*******************************************************************************
Pwm1a = 255 'na maxa go tak dla testu ze dziala
Pwm1b = 255 'na maxa go tak dla testu ze dziala
Wait 2
Pwm1a = 0
Pwm1b = 0
'***************************Ustawienie Timera0**********************************
Load Timer0 , 216
On Ovf0 Timer0_isr
Enable Timer0
'*******************************************************************************
'****************************Poczatek Petli*************************************
Czas = 0
Do
If Czas >= 100 Then
Disable Timer0
1wreset
1wwrite &H55
1wwrite Ds1(1) , 8 'wysy³amy adres pierwszego czujnika
1wwrite &HBE
I1(1) = 1wread(2)
1wreset
1wwrite &H55
1wwrite Ds2(1) , 8 'wysylam adres drugiego czujnika
1wwrite &HBE
I2(1) = 1wread(2)
1wreset
1wwrite &H55
1wwrite Ds3(1) , 8 'wysylam adres trzeciego czujnika
1wwrite &HBE
I3(1) = 1wread(2)
Temp1 = I1(2) ' starszy bajt temperatury
Shift Temp1 , Left , 8 'przesun w lewo o 8 miejsc
Temp1 = Temp1 + I1(1)
Shift Temp1 , Right , 4
Temp2 = I2(2) ' starszy bajt temperatury
Shift Temp2 , Left , 8 'przesun w lewo o 8 miejsc
Temp2 = Temp2 + I2(1)
Shift Temp2 , Right , 4
Temp3 = I3(2) ' starszy bajt temperatury
Shift Temp3 , Left , 8 'przesun w lewo o 8 miejsc
Temp3 = Temp3 + I3(1)
Shift Temp3 , Right , 4
' ****konwersja temp dla wszystkich dsow**
1wreset
1wwrite &HCC 'skip all
1wwrite &H44
Czas = 0
Enable Timer0 'all DS do covert T
Gosub Flash
End If 'end of if czas>=100 temp reading form ds scratchpad
If Temp_1 <> Temp1 Or Temp_2 <> Temp2 Or Temp_3 <> Temp3 Then
Temp_1 = Temp1
T_array(1) = Temp1
Temp_2 = Temp2
T_array(2) = Temp2
Temp_3 = Temp3
Print "Master T= " ; Temp_2 ; "C " ; "Slave T= " ; Temp_1 ; "C " ; "Internal T= " ; Temp_3 ; "C"
Set Flag2
End If
If Mod_e = 0 Then 'mode = Auto
If Flag2 = 1 Then 'if fla2 =1 new temperature value
T_a_m = Max(t_array(1)) 'pick from array max value of temp
Y = 8.75 * T_a_m ' do maths
Y = Y - 182.5
' Speed1 = Abs(y)
Speed1 = Y
If T_a_m <= 30 Then 'if temperature array max value smaller then 30 then
Speed1 = 0 'fan speed = 0
End If '
If T_a_m >= 50 Then 'if temperature array max value greater or equal 50 then
Speed1 = 255
End If
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Z = 7 * Temp_3 'same as above but just for small fan and internal temp value
Z = Z - 95
Speed2 = Z
If Temp_3 <= 25 Then
Speed2 = 0
End If
If Temp_3 >= 50 Then
Speed2 = 255
End If
Print "Radiator Fan=" ; Speed1
Print "Case Fan=" ; Speed2
Reset Flag2
Pwm1a = Speed1
Pwm1b = Speed2
End If
'Pwm1a = Speed1
'Pwm1b = Speed2
End If
Serial_flag = Ischarwaiting() 'jesli jakis znak w buforze to ustaw flage na 1
If Serial_flag = 1 Then 'jesli flaga odebranego znaku 1 to
Index = Inkey() 'przepisz znak z bufora do zmiennej index
If Index = 097 Or Index = 065 Then ' jesli ten znak to male a lub duze A to
Print "MODE:"auto "" 'print w terminalu ze zmieniono mod na auto
Temp_1 = Temp1
Temp_2 = Temp2
Temp_3 = Temp3
Print "Slave T= " ; Temp_1 ; "C " ; "Master T= " ; Temp_2 ; "C " ; "Internal T= " ; Temp_3 ; "C"
Reset Mod_e 'wyzeroj flage trybu prac
Set Flag2
End If
If Index = 109 Or Index = 077 Then
Print "MODE:"manual ""
Set Mod_e
Temp_1 = Temp1
Temp_2 = Temp2
Temp_3 = Temp3
Print "Slave T= " ; Temp_1 ; "C " ; "Master T= " ; Temp_2 ; "C " ; "Internal T= " ; Temp_3 ; "C"
Input "Input Speed value for radiator Fan=" , Speed1
If Speed1 < 80 Then
Speed1 = 0
End If
If Speed1 > 255 Then
Speed1 = 255
End If
Pwm1a = Speed1
Input "Input Speed Value for Case Fan=" , Speed2
If Speed2 < 80 Then
Speed2 = 0
End If
If Speed2 >= 255 Then
Speed2 = 255
End If
Pwm1b = Speed2
End If
Clear Serialin
End If
Enable Timer0
Loop
End
'*******************************************************************************
'*****************************SUBS**********************************************
'*******************************************************************************
Timer0_isr:
Load Timer0 , 216 'co Xms
Incr Czas
If Czas >= 100 Then
Set Flag0
Else
Reset Flag0
End If
Return
'******************************Timer2_isr:**************************************
'*******************************************************************************
Timer2_isr:
Load Timer2 , 255
Incr Czas2
If Czas2 = 4 Then 'czas aktywny
Reset Portb.0
Reset Portd.7
End If
If Czas2 >= 16 Then 'czas przerwy
Flag1 = 1
End If
Return
'**********************************FlashBeep************************************
'*******************************************************************************
Fb: 'Flash beep
Enable Timer2
Flag1 = 0 'wyzerój flage
Toggle Portd.7 'zmien stan na przeciwny
Toggle Portb.0 'zmien stan na przeciwny
Bitwait Flag1 , Set 'czekaj na bit potwierdzajacy od timera2
Czas2 = 0 'wyzeroj czas liczony przez timer2
Return
'********************************BEEP*******************************************
'*******************************************************************************
Beep:
Flag1 = 0
Toggle Portd.7
Return
'********************************FLASH******************************************
'*******************************************************************************
Flash:
Flag1 = 0
Toggle Portb.0
Return
'********************************ZAPISZ*****************************************
'*******************************************************************************
Zapisz:
Czas = 0 'wyzerownaie licznika czasu od timera0
Gosub Fb 'skocz do flash beep
Print "Rejstracja" ' wyswietla w terminalu
Disable Interrupts 'wy³acz przerwania
Ds_y = 0 'wyzeroj zmienna ilosc czojnikow ds
Do 'poczatek petli rejstracyjnej
Dsx(1) = 1wsearchfirst() 'szukaj ds na magistrali
If Err = 0 Then 'jelsi znalazl ds-a
Incr Ds_y 'zwieksz ds_y o 1
Select Case Ds_y: 'w zaleznosci ktory to ds
Case 1: 'pierwszy ds
For Index = 1 To 8 'zapisz jego dane do eeprom
Eds1(index) = Dsx(index)
Next Index 'i tak 8 razy
Print "Registered DS1 as Master " 'no i potwierdz
Enable Interrupts 'wlacz przerwania
Gosub Fb 'skocz do flash beep
Disable Timer2 'juz po to wylacz tiemr 2
Enable Timer0 'Wlacz timer0
Bitwait Flag0 , Set 'czekaj na flage od timera 0
Disable Timer0 'wy³acz timer0
Disable Interrupts 'wylacz przerwania
Czas = 0 'wyzerownaie licznika czasu od timera0
Case 2: 'dla ds-a 2
For Index = 1 To 8 'zapisz jego dane do eeprom
Eds2(index) = Dsx(index)
Next Index 'i tak 8 razy
Print "Registered DS2 as Slave "
Enable Interrupts 'wlacz przerwania
Gosub Fb 'skocz do flash beep
Gosub Fb 'skocz do flash beep
Disable Timer2 'juz po to wylacz tiemr 2
Enable Timer0
Bitwait Flag0 , Set 'czaekja na flage od timera 0
Disable Timer0 'wy³acz timer0
Disable Interrupts 'wylacz przerwania
Czas = 0 'wyzerownaie licznika czasu od timera0
Case 3: 'dla ds-a 3
For Index = 1 To 8 'zapisz jego dane do eeprom
Eds3(index) = Dsx(index)
Next Index 'i tak 8 razy
Print "Registered DS3 as internal " 'no i potwierdz
Enable Interrupts 'wlacz przerwania
Gosub Fb 'skocz do flash beep
Gosub Fb 'skocz do flash beep
Gosub Fb 'skocz do flash beep
Disable Timer2
Enable Timer0 'juz po to wylacz timer 2
Bitwait Flag0 , Set 'czekaj na flage od timera 0
Disable Timer0 'wy³acz timer0
Disable Interrupts 'wylacz przerwania
Czas = 0 'wyzerownaie licznika czasu od timera0
End Select 'koniec wyboru ds-ow
End If 'koniec warunklu
Loop Until Ds_y = 3 'koniec petli do 3-ech '3
Enable Interrupts 'wlacz przerwania
Return 'powrot
'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'*******************************************************************************
'Dta:
'Data 80 , 85 , 90 , 100 , 110 , 120 , 130 , 140 , 150 , 160
'Data 170 , 180 , 190 , 200 , 210 , 220 , 230 , 240 , 250 , 255
'*******************************************************************************
'*******************************************************************************
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Y = 8.75 * X -182.5 range from 30 up to 50 degre
'y=predkosc
'x= temp
'Y = 7 * x-95 range from 25 up to 50
'******************************************************************************[/syntax]Statystyki: Napisane przez pikczu — 21 cze 2015, o 15:23
]]>