ATNEL tech-forum

Re: Zamrożenie pomiaru temperatury

2014-09-05T18:51:28+01:00

Witam,
Teraz po podłączeniu kilku DS18B20 na przemiennie jest wyświetlana temperatura , ale jednocześnie mam ograniczoną możliwość sterowania encoderem, tzn.muszę się wstrzelić w okno pomiędzy przemiataniem -wyświetlaniem kolejnych czujników ... teoretycznie wiem jak to można by rozwiązać ... ale z kodem mam problem
... jak można by zrobić coś takiego jeżeli nie kręcę encoderem i nie używam pewnych przycisków to podprogram odczytuje z "przemiataniem" temperaturę z czujników jeżeli encoder , przyciski są używane to przemiatanie jest wstrzymane

lub bardziej , co mi odpowiada program czujników nie zależnie działa i nie przeszkadza w funkcjonalności encodera jakby działały nie zależnie od siebie

poniżej kod czujników

[syntax=basic4gl]'*************************************************
'* Code to test DS18x20
'* The 1-wire bus pin is Port B.4
'* Tested 14th Dec 2008 with Bascom 1.11.9.1
'*
'* Brett England
'*************************************************

' The DS18x20 1-wire chips can only be polled every 750ms therefore we need
' to wait. If this code is to be used in other programs we would want this
' polling to be interrupt driven so other tasks can be executed during the
' wait period.

' We will setup a timer that ticks every 750ms on each even tick we will
' ask all the 1-wire devices to read and place their values into the scratchpad
' on the odd ticks we will read these values.

$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

$lib "glcdKS108.lbx"

'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portb , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5

Declare Sub Convallt ' Convert T on ALL sensors
Declare Sub Meas_to_cel(offset As Byte)
Declare Sub To_decicel
Declare Sub Monitor
Declare Sub Disp_temp(cnt As Byte , Offset As Byte)

' Up to 8 devices - each having an 8 byte ROMID
Const Max1wire = 8
Dim Dsid(64) As Byte ' Dallas ID 64bit inc. CRC

' Temperature measurement
Dim Cel As Integer ' Celcuis
Dim Cel_frac_bit As Byte '.1 of celcius
Dim Subzero As Bit ' +ve / -ve indicator
Dim Decicel As Integer ' 28.9C = 289 decicel

Dim Sc(9) As Byte ' scratch pad
Dim Cnt1wire As Byte ' Number of 1-wire devices found

'Temp variables
Dim B As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim I As Byte
Dim W As Word

' I want a timer that resolves to 750mS, so the first step is to divide down
' the input clock . Input clock to divide by 256, so now each clock pulse is
' worth (8.192/256)=32uS.

' The trick is to preload the counter with a value that will cause it to count
' for 750mS. Each time the counter expires, you can force the new number back
' into the timer register. We need .75/.000032 or 23437 counts. However, the
' counter expires at 65536, so the correct number to preload is 65536-23437 or
' 42098 This way, the timer will count up 42098 counts (750 ms) and
' expire.
Const 750ms = 42098 ' @ 8Mhz
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_int
Config Timer2 = Timer , Prescale = 128
Dim Time1_count As Byte
Dim Time1_ok As Bit

Const Ds18b20_conf_reg = 4

' constant to convert the fraction bits to cel*(10^-4)
Const Ds18x20_fracconv = 625

' DS18x20 ROM ID
Const Ds18s20_id = &H10
Const Ds18b20_id = &H28

' COMMANDS
Const Ds18x20_convert_t = &H44
Const Ds18x20_read = &HBE
Const Ds18x20_write = &H4E
Const Ds18x20_ee_write = &H48
Const Ds18x20_ee_recall = &HB8
Const Ds18x20_read_power_supply = &HB4

'LCD config

Config 1wire = Pb.7 '

Cls

Setfont My6_8 : Lcdat 5 , 1 , "1-wire DS18x20"
Wait 1

' Gather ROM ID for all 1-wire devices
Cnt1wire = 1wirecount()
If Cnt1wire > Max1wire Then
Cnt1wire = Max1wire
End If

B = 1
Dsid(b) = 1wsearchfirst()
For I = 1 To Cnt1wire
B = B + 8
Dsid(b) = 1wsearchnext()
Next

' Show what we found on the bus
B1 = 1
B2 = 8
For I = 1 To Cnt1wire

If Dsid(b2) = Crc8(dsid(b1) , 7) Then
Setfont My6_8 : Lcdat 5 , 1 , "CRC OK sensor " ; I
Waitms 500

Setfont My6_8 : Lcdat 6 , 1 , "ROM ID "
For B = B1 To B2
Setfont My6_8 : Lcdat 7 , 1 , Hex(dsid(b))
Next
Else
Setfont My6_8 : Lcdat 7 , 1 , "CRC BAD sensor " ; I
End If
Wait 1
B1 = B1 + 8
B2 = B2 + 8
Next

' Monitor temperature sensors
Time1_count = 0 : Timer1 = 750ms : Time1_ok = 0
Enable Timer1
Enable Interrupts
Start Timer1
Do
If Time1_ok = 1 Then 'An interrupt event ?
Stop Timer1

If Time1_count = 0 Then 'Make measurement
Convallt
Elseif Time1_count = 1 Then
Monitor 'Show results
End If

Reset Time1_ok
Start Timer1
End If
'Box(10 , 30) -(60 , 100) , 1
'Boxfill(10 , 48) -(11 , 54) , 1 : Boxfill(13 , 48) -(14 , 54) , 1 : Boxfill(16 , 48) -(17 , 54) , 1
Loop
'Timer Interrupt
Timer1_int:
Timer1 = 750ms
Set Time1_ok
Incr Time1_count
If Time1_count > 1 Then Time1_count = 0
Return

End

Sub Monitor
B = 1
For I = 1 To Cnt1wire
If Dsid(b) = Ds18s20_id Or Dsid(b) = Ds18b20_id Then ' Only process TEMP sensors
1wverify Dsid(b) 'Issues the "Match ROM "
If Err = 1 Then
Setfont My6_8 : Lcdat 2 , 1 , "18x20 not on bus" 'where did it go?
Elseif Err = 0 Then
1wwrite Ds18x20_read
Sc(1) = 1wread(9)
If Sc(9) = Crc8(sc(1) , 8) Then
Call Disp_temp(i , B)
If I < Cnt1wire Then ' if more 1-wire devices.
Wait 1
End If
End If
End If
End If

B = B + 8
Next
End Sub

'Makes the Dallas "Convert T" command on the 1w-bus configured in "Config 1wire = Portb. "
'WAIT 200-750 ms after issued, internal conversion time for the sensor
'SKIPS ROM - so it makes the conversion on ALL sensors on the bus simultaniously
'When leaving this sub, NO sensor is selected, but ALL sensors has the actual
'temperature in their scratchpad ( within 750 ms )

Sub Convallt
1wreset ' reset the bus
1wwrite &HCC ' skip rom
1wwrite Ds18x20_convert_t
End Sub

' input:
' - offset - in the dsid array which 1-wire are we addressing
' output:
' - cel full celsius
' - fractions of celsius in millicelsius*(10^-1)/625 (the 4 LS-Bits)
' - subzero =0 positiv / 1 negativ
Sub Meas_to_cel(offset As Byte)
Dim Meas As Word

Meas = 0
Meas = Makeint(sc(1) , Sc(2))

' 18S20 is only 9bit upscale to 12bit
If Dsid(offset) = Ds18s20_id Then
Meas = Meas And &HFFFE
Shift Meas , Left , 3
B1 = 16 - Sc(6) ' sc(6) count remain
B1 = B1 - 4
Meas = Meas + B1
End If

W = Meas And &H8000
If W = &H8000 Then
Set Subzero
' convert to +ve, (two's complement)++
Meas = Meas Xor &HFFFF
Incr Meas
Else
Reset Subzero
End If

If Dsid(offset) = Ds18b20_id Then
B1 = Sc(ds18b20_conf_reg)
' clear undefined bit for != 12bit
If B1.5 = 1 And B1.6 = 1 Then ' 12 bit
' nothing
Elseif B1.6 = 1 Then ' 11 bit
Meas = Meas And &HFFFE
Elseif B1.5 = 1 Then '10 bit
Meas = Meas And &HFFFC
Else ' 9 bit
Meas = Meas And &HFFF8
End If
End If

Cel = Meas
Shift Cel , Right , 4
Cel_frac_bit = Meas And &HF
End Sub

' input: cel, cel_frac_bit, subzero
' output: temp (as decicelsius)
' ie 289 = 28.9C
Sub To_decicel
Decicel = Cel_frac_bit * Ds18x20_fracconv
Decicel = Decicel / 1000
Cel = Cel * 10
Decicel = Decicel + Cel
If Subzero = 1 Then
Restore Rounding
For B1 = 1 To 8
Read B2
If Cel_frac_bit = B2 Then
Incr Decicel
Exit For
End If
Next
End If
End Sub

' Display the temperature
' INPUT: temp
Sub Disp_temp(cnt As Byte , Offset As Byte)
Call Meas_to_cel(offset)
Call To_decicel

Cls
Setfont My6_8 : Lcdat 1 , 1 , "TEMP" ; Cnt ; " "
If Subzero = 1 Then
Setfont My6_8 : Lcdat 1 , 30 , "-"
Else
Setfont My6_8 : Lcdat 1 , 30 , "+"
End If

W = Decicel / 10
B1 = Decicel Mod 10
Setfont My6_8 : Lcdat 1 , 40 , W ; "." ; B1
Setfont My6_8 : Lcdat 1 , 66 , "C"
End Sub

Rounding:
Data 1 , 3 , 4 , 6 , 9 , 11 , 12 , 14

$include "my6_8.font"
$include "my12_16.font"
$include "font8x8.font"[/syntax]

Statystyki: Napisane przez slawek3000 — 5 wrz 2014, o 18:51

Re: Zamrożenie pomiaru temperatury

2014-08-26T21:01:31+01:00

Poradziłem sobie , po prostu musiałem poustawiać części kodu w odpowiedniej kolejności a z czujnikami chce zrobić tak wyświetla na się ten, który wybierzemy w menu czujniki będą coś tam załączać , wyłączać jak osiągną daną temperaturę

Statystyki: Napisane przez slawek3000 — 26 sie 2014, o 21:01

Re: Zamrożenie pomiaru temperatury

2014-08-26T19:07:58+01:00

To jak to mam zrobić ,żeby działało ?

Statystyki: Napisane przez slawek3000 — 26 sie 2014, o 19:07

Re: Zamrożenie pomiaru temperatury

2014-08-25T16:03:13+01:00

Wiesz , ale to jest dziwne w tym kodzie działa bez zarzutu
[youtube]
https://www.youtube.com/watch?v=pz6tid_ ... e=youtu.be
[/youtube]

[syntax=basic4gl]'Filename Encoder_100.bas
'Version 1.00
'Date 2012-03-19
'Purpose Test of ALPS STEC11B13 encoder (reichelt.de)
'Author Georg Latzel, DL6GL
'Copyright (c) Georg Latzel, free for private use under GNU license
'Hardware ATmega8
' Crystal 16 MHz
' 2x16 Text LCD @ PortC
' Encoder A @ PortB.0
' Encoder B @ PortB.1
'Compiler BASCOM-AVR 2.0.7.3
' For readable "camel case" variables mark "Don't change case"
' in BASCOM Options-Programmer-Environment-Editor
' Flash used: 1420 bytes (17%)
'Edit history
'V1.00 2012-03-19, first release

'==============================================================================

'FUSE-Bits (Ponyprog-Settings, [ ]=no check, [x]=check)
'In ATmega data sheets: Bit = 1 -> not set = [ ] Ponyprog
' Bit = 0 -> set = [x] Ponyprog
'- OCDEN [ ]
'- JTAGEN: [ ] (disabled!, otherwise LCD at PORT.C does not work)
'- EESAVE [ ] Save EEProm on erase chip
'- BOOTSZ1 [x] Select Boot size
'- BOOTSZ0 [x] Select Boot size
'- BOOTRST [ ] Select reset vector
'- Crystal oscillator
' CKOPT: [ ] (=1, low Oscillator amplitude or=1, [x], high ampl.)
' CKSEL3: [ ] (=1, Select Clock Source)
' CKSEL2: [ ] (=1, as well)
' CKSEL1: [ ] (=1, as well)
' CKSEL0: [ ] (=1, crystal osc. fast start up 16k CK + 4ms)
' SUT1: [ ] (=1, as well)
' SUT0: [x] (=0, as well)

$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

$lib "glcdKS108.lbx"

'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portb , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5

'Configure Encoder on Port B --------------------------------------------------
Ddrd = &B00000000 'Portd = input
Portd = &B11111111 'Activate Pullup
'Config 1wire = Portb.7
' 'PIND.0 = Encoder Pin A
' 'PIND.1 = Encoder Pin B
' 'PIND.2 = Encoder key
Enc_a Alias Pind.6 'Encoder A
Enc_b Alias Pind.7 'Encoder B
Enc_k Alias Pind.5 'Encoder key
Config Sda = Portc.1 'konfiguracja sprzętowa I2C
Config Scl = Portc.0
Config I2cdelay = 0
'Configure Timer0 interrupt for encoder --------------------------------------
'Timer0 = 8 bit
'Overflow time: overflow counts * Prescale / crystal frequency
'= 256 * 256 / 16.000.000 Hz = 4,1 msec = ~ 244 Hz
'Here Prescale = 256
'The encoder is polled every 4,1 msec. To shorten time set PresetTimer 0 > 0
'Possible Prescales: 8, 64, 256, 1024
Config Timer0 = Timer , Prescale = 256
Const Presettimer0 = 0 'Initialize Timer0
On Timer0 Timer0_isr 'Timer0 Interrupt service routine

'Common Variables, multiply used ----------------------------------------------
Dim Lngfreq As Long
Dim Lngstep As Long
Dim Strfreq As String * 9
Dim 1s As Byte

'Zmienne zegara----------------------------------------------------
Dim Mic As Byte
Dim Dzien As Byte
Dim Miesiac As Byte
Dim Rok As Byte 'rok z pcf (od 0 do 3)
Dim Rok_2 As Byte 'ostatnie dwie cyfry - rok z ramu minus rok z pcf
Dim Rok_w As Byte 'rok do bezpośredniego wyświetlania
Dim Dzien_tygodnia As Byte
Dim H As Byte , M As Byte , S As Byte
Dim Godz As String * 3 , Minut As String * 2 , Sek As String * 2

'Variables Encoder -----------------------------------------------------------
Dim Bytincr As Byte '=2: Encoder incr., =1: decr., =0: ./.
Dim Bytenc_old As Byte
Dim Bytenc_new As Byte
Dim Bitkey_enc As Bit 'Encoder key, =1: pressed
Const Doublestep = 0 '=1: intermediate position detected

Declare Sub Clearlcdline(byval Bytline As Byte)
'------------------------------------------------------------------------------

Declare Sub Convallt ' Convert T on ALL sensors
Declare Sub Meas_to_cel(offset As Byte)
Declare Sub To_decicel
Declare Sub Monitor
Declare Sub Disp_temp(cnt As Byte , Offset As Byte)

' Up to 8 devices - each having an 8 byte ROMID
Const Max1wire = 8
Dim Dsid(64) As Byte ' Dallas ID 64bit inc. CRC

' Temperature measurement
Dim Cel As Integer ' Celcuis
Dim Cel_frac_bit As Byte '.1 of celcius
Dim Subzero As Bit ' +ve / -ve indicator
Dim Decicel As Integer ' 28.9C = 289 decicel

Dim Sc(9) As Byte ' scratch pad
Dim Cnt1wire As Byte ' Number of 1-wire devices found

'Temp variables
Dim B As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim I As Byte
Dim W As Word

Const 750ms = 42098 ' @ 8Mhz
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_int
'Config Timer2 = Timer , Prescale = 256 , Compare A = Disconnect , Compare B = Disconnect , Clear Timer = 1
'On Compare1a Odmierz_1s
Dim Time1_count As Byte
Dim Time1_ok As Bit
Const Ds18b20_conf_reg = 4

' constant to convert the fraction bits to cel*(10^-4)
Const Ds18x20_fracconv = 625

' DS18x20 ROM ID
Const Ds18s20_id = &H10
Const Ds18b20_id = &H28

' COMMANDS
Const Ds18x20_convert_t = &H44
Const Ds18x20_read = &HBE
Const Ds18x20_write = &H4E
Const Ds18x20_ee_write = &H48
Const Ds18x20_ee_recall = &HB8
Const Ds18x20_read_power_supply = &HB4

Config 1wire = Portb.7 ' DS1820 on Port B.4 (mega8 pin 18)
' Gather ROM ID for all 1-wire devices
Cnt1wire = 1wirecount()
If Cnt1wire > Max1wire Then
Cnt1wire = Max1wire
End If

B = 1
Dsid(b) = 1wsearchfirst()
For I = 1 To Cnt1wire
B = B + 8
Dsid(b) = 1wsearchnext()
Next

' Show what we found on the bus

' Monitor temperature sensors
Time1_count = 0 : Timer1 = 750ms : Time1_ok = 0
Enable Timer1
Enable Interrupts
Start Timer1
Start Timer2
'Main program ****************************************************************
Cls
Gosub Wyswietlacz

Lngfreq = 14000000
Lngstep = 10

Strfreq = Str(lngfreq)
Strfreq = Format(strfreq , " 0.000000")
Setfont My12_16 : Lcdat 3 , 20 , Strfreq

Bytenc_old = 0 'Encoder data
Bytenc_new = 0 'Encoder data
Bytincr = 0

Enable Timer0
'Interrupt encoder
'Enable Interrupts 'enable all Interrupts
Gosub Wyswietlacz
Do

Disable Timer0 'Stop Timer0 for display

Select Case Bytincr 'Set/show TRX freq.
Case 2 'Encoder incremented
Lngfreq = Lngfreq + Lngstep
Case 1 'Encoder decremented
Lngfreq = Lngfreq - Lngstep
End Select
Setfont My6_8 : Lcdat 1 , 5 , Bytincr
If Bytincr > 0 Then 'Freq. was changed
Strfreq = Str(lngfreq)
Strfreq = Format(strfreq , " 0.000000")
'Call Clearlcdline(2)
Setfont My12_16 : Lcdat 3 , 20 , Strfreq
Bytincr = 0 'Reset increment flag
End If
Gosub Zegar
Enable Timer0
Gosub Wyswietlacz 'Restart Timer0
If Time1_ok = 1 Then 'An interrupt event ?
Stop Timer1

If Time1_count = 0 Then 'Make measurement
Convallt
Elseif Time1_count = 1 Then
Monitor 'Show results
End If

Reset Time1_ok
Start Timer1
End If
Loop
End
Return

Timer1_int:
Timer1 = 750ms
Set Time1_ok
Incr Time1_count
If Time1_count > 1 Then Time1_count = 0
Return

End

Sub Monitor
B = 1
For I = 1 To Cnt1wire
If Dsid(b) = Ds18s20_id Or Dsid(b) = Ds18b20_id Then ' Only process TEMP sensors
1wverify Dsid(b) 'Issues the "Match ROM "
If Err = 1 Then
Setfont My6_8 : Lcdat 4 , 1 , "18x20 not on bus" 'where did it go?
Elseif Err = 0 Then
1wwrite Ds18x20_read
Sc(1) = 1wread(9)
If Sc(9) = Crc8(sc(1) , 8) Then
Call Disp_temp(i , B)
If I < Cnt1wire Then ' if more 1-wire devices.
Wait 1
End If
End If
End If
End If

B = B + 8
Next
End Sub

Sub Convallt
1wreset ' reset the bus
1wwrite &HCC ' skip rom
1wwrite Ds18x20_convert_t
End Sub

Sub Meas_to_cel(offset As Byte)
Dim Meas As Word

Meas = 0
Meas = Makeint(sc(1) , Sc(2))

' 18S20 is only 9bit upscale to 12bit
If Dsid(offset) = Ds18s20_id Then
Meas = Meas And &HFFFE
Shift Meas , Left , 3
B1 = 16 - Sc(6) ' sc(6) count remain
B1 = B1 - 4
Meas = Meas + B1
End If

W = Meas And &H8000
If W = &H8000 Then
Set Subzero
' convert to +ve, (two's complement)++
Meas = Meas Xor &HFFFF
Incr Meas
Else
Reset Subzero
End If

If Dsid(offset) = Ds18b20_id Then
B1 = Sc(ds18b20_conf_reg)
' clear undefined bit for != 12bit
If B1.5 = 1 And B1.6 = 1 Then ' 12 bit
' nothing
Elseif B1.6 = 1 Then ' 11 bit
Meas = Meas And &HFFFE
Elseif B1.5 = 1 Then '10 bit
Meas = Meas And &HFFFC
Else ' 9 bit
Meas = Meas And &HFFF8
End If
End If

Cel = Meas
Shift Cel , Right , 4
Cel_frac_bit = Meas And &HF
End Sub

' input: cel, cel_frac_bit, subzero
' output: temp (as decicelsius)
' ie 289 = 28.9C
Sub To_decicel
Decicel = Cel_frac_bit * Ds18x20_fracconv
Decicel = Decicel / 1000
Cel = Cel * 10
Decicel = Decicel + Cel
If Subzero = 1 Then
Restore Rounding
For B1 = 1 To 8
Read B2
If Cel_frac_bit = B2 Then
Incr Decicel
Exit For
End If
Next
End If
End Sub

' Display the temperature
' INPUT: temp
Sub Disp_temp(cnt As Byte , Offset As Byte)
Call Meas_to_cel(offset)
Call To_decicel

W = Decicel / 10
B1 = Decicel Mod 10
Setfont My6_8 : Lcdat 1 , 40 , W ; "." ; B1

End Sub

Wyswietlacz:
Setfont My6_8 : Lcdat 2 , 40 , "Icom Inc"
Setfont My6_8 : Lcdat 5 , 1 , "^" : Lcdat 5 , 10 , "1" , 1 : Lcdat 5 , 20 , "ATT" : Lcdat 5 , 40 , "0dB" , 1 : 'Line(57 , 32) -(57 , 39) , 1
Setfont My6_8 : Lcdat 6 , 1 , "S ~1~3~5~7~9+20+40 dB" :
Setfont My6_8 : Lcdat 8 , 1 , "Po 10 30 50 100" :
'Boxfill(10 , 48) -(11 , 54) , 1 : Boxfill(13 , 48) -(14 , 54) , 1 : Boxfill(16 , 48) -(17 , 54) , 1
Return

Odmierz_1s:
Incr 1s
Lcdat 2 , 1 , 1s
Return

Zegar:
'Obsługa zegara na PCF 8583
I2cstart 'inicjalizacja magistrali I2C
I2cwbyte 162 'podanie adresu PCF8583 dla zapisu
I2cwbyte 2 'wybranie drugiego rejestru
I2cstart 'powtórna inicjalizacja magistrali I2C
I2cwbyte 163 'podanie adresu PCF8583 dla odczytu danych
I2crbyte S , Ack 'odczyt sekund z potwierdzeniem transmisji
I2crbyte M , Ack 'odczyt minut z potwierdzeniem transmisji
I2crbyte H , Ack 'odczyt godzin bez potwierdzania transmisji
I2crbyte Dzien , Ack
I2crbyte Miesiac , Nack
I2cstop 'koniec transmisji I2C

S = Makedec(s) 'po odczycie zamieniamy kod bcd na zwykłe liczby
M = Makedec(m)
H = Makedec(h)

'pobranie roku z pamięci ram
I2cstart
I2cwbyte 162
I2cwbyte &H10
I2cstart
I2cwbyte 163
I2crbyte Rok_2 , Nack
I2cstop

'przeliczenie danych z pcf na date dziesiętną
Rok = Dzien
Shift Rok , Right , 6
Rok = Makedec(rok)
Dzien.7 = 0 : Dzien.6 = 0
Dzien = Makedec(dzien)
Dzien_tygodnia = Miesiac
Shift Dzien_tygodnia , Right , 5
Dzien_tygodnia = Makedec(dzien_tygodnia)
Miesiac.7 = 0 : Miesiac.6 = 0 : Miesiac.5 = 0
Miesiac = Makedec(miesiac)

Rok_w = Rok_2 + Rok

If H < 10 Then Godz = "0" + Godz
Godz = Str(h)
If M < 10 Then Minut = "0" + Minut
Minut = Str(m)
If S < 10 Then Sek = "0" + Sek
Sek = Str(s)

If H < 10 Then
Setfont My6_8 : Lcdat 1 , 95 , "0" ; H ; ":"
Else
Setfont My6_8 : Lcdat 1 , 95 , H ; ":"
End If

If M < 10 Then
Setfont My6_8 : Lcdat 1 , 115 , "0" ; M ;
Else
Setfont My6_8 : Lcdat 1 , 115 , M ;
End If
'Setfont My6_8 : Lcdat 1 , 99 , H ; ":" ; M,

Return

'End of main program **********************************************************

'------------------------------------------------------------------------------
Timer0_isr:
'Encoder interrupt on Timer0 overflow
'While data are displayed Timer0 should be stopped
'Output: bytIncr = 2: increment, =1: decrement if encoder was changed
'Having processed the bytIncr data in the main program reset bytIncr = 0
'Switching pattern of ALPS STEC11 encoder:
'Turning clockwise ... counter clockwise
'A B A B
'1 1 start detent position 1 1
'1 0 intermediate position 1 0 1
'0 0 intermediate position 2 0 0
'0 1 intermediate position 3 1 0
'1 1 next detent position 1 1

Timer0 = Presettimer0
Bytenc_new.0 = Enc_a 'Set bit 0 of bytEnc_new
Bytenc_new.1 = Enc_b 'Set bit 1 of bytEnc_new

'Check encoder pattern if encoder is changed
'bytIncr = 1: decremented (turned counter clockwise)
'bytIncr = 2: incremented (turned clockwise)
If Bytenc_new <> Bytenc_old Then 'encoder is changed
'from intermediate position 3 to quiescent position
If Bytenc_new = &B00000011 And Bytenc_old = &B00000010 Then Bytincr = 2
If Bytenc_new = &B00000011 And Bytenc_old = &B00000001 Then Bytincr = 1
'from intermediate position 1 to intermediate position 2
'DoubleStep = 1: intermediate position 2 gives an additional tick
' 2 ticks between 2 detent positions on slow rotation
' = 0: 1 tick between 2 detent positions
#if Doublestep = 1
If Bytenc_new = &B00000000 And Bytenc_old = &B00000001 Then Bytincr = 2
If Bytenc_new = &B00000000 And Bytenc_old = &B00000010 Then Bytincr = 1
#endif
Bytenc_old = Bytenc_new 'old <- new for the next time
End If
Return

'------------------------------------------------------------------------------
Sub Clearlcdline(byval Bytline As Byte)

End Sub
'------------------------------------------------------------------------------
Rounding:
Data 1 , 3 , 4 , 6 , 9 , 11 , 12 , 14
$include "my12_16.font"
$include "my6_8.font"[/syntax]

pierwotny kod tam gdzie ma te podprogramy jest dość duży, idą Twoim przykładem rozbiłem go na mniejsze pliki

------------------------ [ Dodano po: 19 minutach ]

ile czujników max chyba 8 tyle ile można , wiesz taki podstawowy do czujnika mam ale on opóźnia mi pracę encodera

Statystyki: Napisane przez slawek3000 — 25 sie 2014, o 16:03

Zamrożenie pomiaru temperatury

2014-08-25T05:17:34+01:00

Witam,

Wyskoczył mi problem z wyświetlaniem ,może z pomiarem temperatury za pomocą DS18B20 mam jeszcze na płytce zegar zrobiony za pomocą PCF8583 a mianowicie gdy włączę płytkę termometr działa gdy na zegarze zmieni minutę automatycznie termometr zostaje zamrożony nie co jest przyczyną tego tu jest kod zegara
[syntax=basic4gl]Zegar:
'Obsługa zegara na PCF 8583
I2cstart 'inicjalizacja magistrali I2C
I2cwbyte 162 'podanie adresu PCF8583 dla zapisu
I2cwbyte 2 'wybranie drugiego rejestru
I2cstart 'powtórna inicjalizacja magistrali I2C
I2cwbyte 163 'podanie adresu PCF8583 dla odczytu danych
I2crbyte S , Ack 'odczyt sekund z potwierdzeniem transmisji
I2crbyte M , Ack 'odczyt minut z potwierdzeniem transmisji
I2crbyte H , Ack 'odczyt godzin bez potwierdzania transmisji
I2crbyte Dzien , Ack
I2crbyte Miesiac , Nack
I2cstop 'koniec transmisji I2C

S = Makedec(s) 'po odczycie zamieniamy kod bcd na zwykłe liczby
M = Makedec(m)
H = Makedec(h)

'pobranie roku z pamięci ram
I2cstart
I2cwbyte 162
I2cwbyte &H10
I2cstart
I2cwbyte 163
I2crbyte Rok_2 , Nack
I2cstop

'przeliczenie danych z pcf na date dziesiętną
Rok = Dzien
Shift Rok , Right , 6
Rok = Makedec(rok)
Dzien.7 = 0 : Dzien.6 = 0
Dzien = Makedec(dzien)
Dzien_tygodnia = Miesiac
Shift Dzien_tygodnia , Right , 5
Dzien_tygodnia = Makedec(dzien_tygodnia)
Miesiac.7 = 0 : Miesiac.6 = 0 : Miesiac.5 = 0
Miesiac = Makedec(miesiac)

Rok_w = Rok_2 + Rok

If H < 10 Then Godz = "0" + Godz
Godz = Str(h)
If M < 10 Then Minut = "0" + Minut
Minut = Str(m)
If S < 10 Then Sek = "0" + Sek
Sek = Str(s)

If H < 10 Then
Setfont My6_8 : Lcdat 1 , 95 , "0" ; H ; ":"
Else
Setfont My6_8 : Lcdat 1 , 95 , H ; ":"
End If

If M < 10 Then
Setfont My6_8 : Lcdat 1 , 115 , "0" ; M ;
Else
Setfont My6_8 : Lcdat 1 , 115 , M ;
End If
'Setfont My6_8 : Lcdat 1 , 99 , H ; ":" ; M,
Return[/syntax]

a tutaj pomiaru temperatury , ten drugi jest wersji oryginalnej na alfanumerycznym LCD, ja w swoim pozmieniałem tylko LCD na lcdat

[syntax=basic4gl]*************************************************
'* Code to test DS18x20
'* The 1-wire bus pin is Port B.4
'* Tested 14th Dec 2008 with Bascom 1.11.9.1
'*
'* Brett England
'*************************************************

' The DS18x20 1-wire chips can only be polled every 750ms therefore we need
' to wait. If this code is to be used in other programs we would want this
' polling to be interrupt driven so other tasks can be executed during the
' wait period.

' We will setup a timer that ticks every 750ms on each even tick we will
' ask all the 1-wire devices to read and place their values into the scratchpad
' on the odd ticks we will read these values.

$regfile = "m8def.dat"
$crystal = 8000000 ' we are using this frequency

Declare Sub Convallt ' Convert T on ALL sensors
Declare Sub Meas_to_cel(offset As Byte)
Declare Sub To_decicel
Declare Sub Monitor
Declare Sub Disp_temp(cnt As Byte , Offset As Byte)

' Up to 8 devices - each having an 8 byte ROMID
Const Max1wire = 8
Dim Dsid(64) As Byte ' Dallas ID 64bit inc. CRC

' Temperature measurement
Dim Cel As Integer ' Celcuis
Dim Cel_frac_bit As Byte '.1 of celcius
Dim Subzero As Bit ' +ve / -ve indicator
Dim Decicel As Integer ' 28.9C = 289 decicel

Dim Sc(9) As Byte ' scratch pad
Dim Cnt1wire As Byte ' Number of 1-wire devices found

'Temp variables
Dim B As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim I As Byte
Dim W As Word

' I want a timer that resolves to 750mS, so the first step is to divide down
' the input clock . Input clock to divide by 256, so now each clock pulse is
' worth (8.192/256)=32uS.

' The trick is to preload the counter with a value that will cause it to count
' for 750mS. Each time the counter expires, you can force the new number back
' into the timer register. We need .75/.000032 or 23437 counts. However, the
' counter expires at 65536, so the correct number to preload is 65536-23437 or
' 42098 This way, the timer will count up 42098 counts (750 ms) and
' expire.
Const 750ms = 42098 ' @ 8Mhz
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_int

Dim Time1_count As Byte
Dim Time1_ok As Bit

Const Ds18b20_conf_reg = 4

' constant to convert the fraction bits to cel*(10^-4)
Const Ds18x20_fracconv = 625

' DS18x20 ROM ID
Const Ds18s20_id = &H10
Const Ds18b20_id = &H28

' COMMANDS
Const Ds18x20_convert_t = &H44
Const Ds18x20_read = &HBE
Const Ds18x20_write = &H4E
Const Ds18x20_ee_write = &H48
Const Ds18x20_ee_recall = &HB8
Const Ds18x20_read_power_supply = &HB4

'LCD config
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 1a

Config 1wire = Pb.4 ' DS1820 on Port B.4 (mega8 pin 18)

Cursor Off
Cls

Lcd "1-wire DS18x20"
Wait 1
Cls

' Gather ROM ID for all 1-wire devices
Cnt1wire = 1wirecount()
If Cnt1wire > Max1wire Then
Cnt1wire = Max1wire
End If

B = 1
Dsid(b) = 1wsearchfirst()
For I = 1 To Cnt1wire
B = B + 8
Dsid(b) = 1wsearchnext()
Next

' Show what we found on the bus
B1 = 1
B2 = 8
For I = 1 To Cnt1wire
Cls
If Dsid(b2) = Crc8(dsid(b1) , 7) Then
Lcd "CRC OK sensor " ; I
Waitms 500
Cls
Lcd "ROM ID "
For B = B1 To B2
Lcd Hex(dsid(b))
Next
Else
Lcd "CRC BAD sensor " ; I
End If
Wait 1
B1 = B1 + 8
B2 = B2 + 8
Next

' Monitor temperature sensors
Time1_count = 0 : Timer1 = 750ms : Time1_ok = 0
Enable Timer1
Enable Interrupts
Start Timer1
Do
If Time1_ok = 1 Then 'An interrupt event ?
Stop Timer1

If Time1_count = 0 Then 'Make measurement
Convallt
Elseif Time1_count = 1 Then
Monitor 'Show results
End If

Reset Time1_ok
Start Timer1
End If
Loop

' Timer interrupt
Timer1_int:
Timer1 = 750ms
Set Time1_ok
Incr Time1_count
If Time1_count > 1 Then Time1_count = 0
Return

End

Sub Monitor
B = 1
For I = 1 To Cnt1wire
If Dsid(b) = Ds18s20_id Or Dsid(b) = Ds18b20_id Then ' Only process TEMP sensors
1wverify Dsid(b) 'Issues the "Match ROM "
If Err = 1 Then
Lcd "18x20 not on bus" 'where did it go?
Elseif Err = 0 Then
1wwrite Ds18x20_read
Sc(1) = 1wread(9)
If Sc(9) = Crc8(sc(1) , 8) Then
Call Disp_temp(i , B)
If I < Cnt1wire Then ' if more 1-wire devices.
Wait 1
End If
End If
End If
End If

B = B + 8
Next
End Sub

'Makes the Dallas "Convert T" command on the 1w-bus configured in "Config 1wire = Portb. "
'WAIT 200-750 ms after issued, internal conversion time for the sensor
'SKIPS ROM - so it makes the conversion on ALL sensors on the bus simultaniously
'When leaving this sub, NO sensor is selected, but ALL sensors has the actual
'temperature in their scratchpad ( within 750 ms )

Sub Convallt
1wreset ' reset the bus
1wwrite &HCC ' skip rom
1wwrite Ds18x20_convert_t
End Sub

' input:
' - offset - in the dsid array which 1-wire are we addressing
' output:
' - cel full celsius
' - fractions of celsius in millicelsius*(10^-1)/625 (the 4 LS-Bits)
' - subzero =0 positiv / 1 negativ
Sub Meas_to_cel(offset As Byte)
Dim Meas As Word

Meas = 0
Meas = Makeint(sc(1) , Sc(2))

' 18S20 is only 9bit upscale to 12bit
If Dsid(offset) = Ds18s20_id Then
Meas = Meas And &HFFFE
Shift Meas , Left , 3
B1 = 16 - Sc(6) ' sc(6) count remain
B1 = B1 - 4
Meas = Meas + B1
End If

W = Meas And &H8000
If W = &H8000 Then
Set Subzero
' convert to +ve, (two's complement)++
Meas = Meas Xor &HFFFF
Incr Meas
Else
Reset Subzero
End If

If Dsid(offset) = Ds18b20_id Then
B1 = Sc(ds18b20_conf_reg)
' clear undefined bit for != 12bit
If B1.5 = 1 And B1.6 = 1 Then ' 12 bit
' nothing
Elseif B1.6 = 1 Then ' 11 bit
Meas = Meas And &HFFFE
Elseif B1.5 = 1 Then '10 bit
Meas = Meas And &HFFFC
Else ' 9 bit
Meas = Meas And &HFFF8
End If
End If

Cel = Meas
Shift Cel , Right , 4
Cel_frac_bit = Meas And &HF
End Sub

' input: cel, cel_frac_bit, subzero
' output: temp (as decicelsius)
' ie 289 = 28.9C
Sub To_decicel
Decicel = Cel_frac_bit * Ds18x20_fracconv
Decicel = Decicel / 1000
Cel = Cel * 10
Decicel = Decicel + Cel
If Subzero = 1 Then
Restore Rounding
For B1 = 1 To 8
Read B2
If Cel_frac_bit = B2 Then
Incr Decicel
Exit For
End If
Next
End If
End Sub

' Display the temperature
' INPUT: temp
Sub Disp_temp(cnt As Byte , Offset As Byte)
Call Meas_to_cel(offset)
Call To_decicel

Cls
Lcd "TEMP " ; Cnt ; " "
If Subzero = 1 Then
Lcd "-"
Else
Lcd "+"
End If

W = Decicel / 10
B1 = Decicel Mod 10
Lcd W ; "." ; B1
Lcd " C"
End Sub

Rounding:
Data 1 , 3 , 4 , 6 , 9 , 11 , 12 , 14[/syntax]

Statystyki: Napisane przez slawek3000 — 25 sie 2014, o 05:17