Dodaje kod który działa w 100% (jest to kod testowy) zapisu temperatury z DS18B20 do PCF8582
A0 , A1 , A2 podłączone do masy
Adres układu to 160 i 161
[syntax=basic4gl]' **********************************************************************
' * File: PCF8582.bas *
' * Version: 1.0 *
' * Date: 29/3/2015 *
' * Development Tools: Bascom-AVR Ver.2.0.7.5 *
' * *
' * *
' * Developed by: *
' * Author: kulamario *
' **********************************************************************
$regfile = "m16adef.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$hwstack = 64
$swstack = 64
$framesize = 64
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pd.4 , Db5 = Pd.1 , Db6 = Pd.7 , Db7 = Pd.3 , E = Pd.5 , Rs = Pd.6
Config 1wire = Porta.0 'Global DS18B2 1Wire
Config Sda = Portc.1 ' LINIA SDA PCF8583
Config Scl = Portc.0 ' LINIA SCL PCF8583
Const Memw = 160
Const Memr = 161
Declare Sub Read_eeprom
Declare Sub Write_eeprom
'-------------------------------------------------------------------------------
Dim Odczyt(2) As Byte
Dim Db(2) As Byte
Dim T As Integer 'Global DS18B20
Dim Ulamek As Integer
'-------------------------------------------------------------------------------
Gosub Read_eeprom , 1 , T 'odczyt do zmiennej spod adresu 1
Cursor Off
Cls
Locate 1 , 1
Lcd "Read from eeprom......"
Locate 2 , 8
Lcd T ; "." ; Ulamek
Wait 2
Cls
Do
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Db(1) = 1wread(2)
T = Makeint(db(1) , Db(2))
T = T * 10
T = T / 16
Ulamek = T Mod 10
T = T / 10
Locate 1 , 2
Lcd " Temperature "
Locate 2 , 6
Lcd T ; "." ; Ulamek
Gosub Write_eeprom , 1 , T 'zapis zmiennej pod adres 1
Loop
End
Sub Read_eeprom
I2cstart
I2cwbyte Memw
I2cwbyte 1
I2cstart
I2cwbyte Memr
I2crbyte T , Ack
I2crbyte Ulamek , Nack
I2cstop
End Sub Read_eeprom
Sub Write_eeprom
I2cstart
I2cwbyte Memw
I2cwbyte 1
I2cwbyte T
I2cwbyte Ulamek
I2cstop
End Sub Write_eeprom[/syntax]Statystyki: Napisane przez kulamario — 30 mar 2015, o 00:21
]]>