Mam następujący problem. Staram się odczytać temperaturę z czujnika MLX90614ESF-ACF wykorzystując magistrale I2c.
*połączenia są całe
*sprawdziłem tym programem czy adres czujnika jest ok i czy go widzi.
[syntax=basic4gl]$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Scl = Portb.1
Config Sda = Portb.2
I2cinit
Config I2cdelay = 10
Dim I As Byte
Do
Cls
Lcd "Trwa odczyt:"
Wait 1
For I = 0 To 255
I2cstart 'warunek startu
I2cwbyte I 'wyťlij adres uk¦adu
I2cstop 'warunek stopu
Waitms 10
If Err = 0 Then
Cls
Lcd "Adres:" ; I
Wait 5
End If
Next I
Loop
End[/syntax]
Program pokazywał 0 i 1 jako adresy (jeszcze można się komunikować pod 0x5A)
Po analizie datasheet(załącznik) domyślam się że:
0 adres do zapisu ( slave adres WR)
1 adres do odczytu ( slave adres RD)
*następnie napisałem program
kod
[syntax=basic4gl]$regfile = "m8Adef.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32
Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32 ' definicja znaki stopnia
Config Scl = Portb.1
Config Sda = Portb.2
I2cinit
Dim Highbyte As Byte
Dim Lowbyte2 As Byte
Dim Tempdata As Word
Dim Td As Single , Highbyte2 As Byte , Temp As Byte , Napis2 As Single
Dim Pec As Byte
Const Tempfactor = 0.02
Do
I2cstart 's
I2cwbyte &B00000000 'slave adress wr
I2cwbyte &B00000111 'command
I2crepstart 'sr
I2cwbyte &B00000001 'slave adress RD
I2crbyte Lowbyte2 , Ack 'data byte low
I2crbyte Highbyte2 , Ack 'data byte high
I2crbyte Pec , Nack 'pec
I2cstop
Tempdata = Makeint(lowbyte2 , Highbyte2)
Tempdata = Tempdata * Tempfactor
Tempdata = Tempdata - 0.01
Tempdata = Tempdata - 273.15
Td = Tempdata
Napis2 = Fusing(td , "#.#")
Cls
Lcd " Temp Z Prom "
Lowerline
Lcd "Wynik:" ; Napis2 ; Chr(1) ; "C"
Wait 2
Loop
End[/syntax]
MLX90614ESF-ACF
https://www.sparkfun.com/datasheets/Sen ... 14M005.pdf
w załączniku powycinane fragmenty datasheet które użyłem do pisania Programu oraz schemat podłączenia. Program oczywiście nie działa i pokazuje 0 stopni cały czas. jakieś pomysły co może być nie tak ?Statystyki: Napisane przez Szarki71 — 14 wrz 2015, o 23:56
]]>