znalazłem coś w internecie ,ale pokazuje mi napięcie z jednego kanału jak to oprogramować ,żeby były 4 kanały
[syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 9600 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
$lib "glcdKS108.lbx"
'$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib"
$include "Card_init.bas"
$lib "Datetime.lbx"
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portd , Ce = 6 , Ce2 = 7 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
Dim High_low As Word
Dim Hibyte As Byte At High_low Overlay
Dim Lobyte As Byte At High_low + 1 Overlay
Dim W_addr As Byte
Dim R_addr As Byte
Dim Read1aint As Single
Dim Pga As Integer
Dim Napiecie As Word
Dim Napiecies As String * 10
Dim Przelicz As Single
'addr_pin grounded
'address for write to ads1015
W_addr = &B10010000
'address for read from ads1015
R_addr = &B10010001
' Configure pins to to use for the I2C bus
Config Sda = Portc.1
Config Scl = Portc.0
Config I2cdelay = 10
I2cinit
'Const Config_high = &B11000000 '6144
'Const Config_high = &B11000010 '4096
Const Config_high = &B11000100 '2048
'Const Config_high = &B11000110 '1024
Const Config_low = &B00000000
'I2cstart
'I2cwbyte W_addr
'I2cwbyte &B00000001
'I2cwbyte Config_high
'I2cwbyte Config_low
'I2cstop
'Waitms 25
Pga = 2
'******************************************
Cls
Do
Gosub Read_ad
Gosub Wyswietl
Setfont Font8x8 : Lcdat 3 , 1 , High_low
Setfont Font8x8 : Lcdat 1 , 1 , Hex(hibyte) ; " " ; Hex(lobyte)
Setfont Font8x8 : Lcdat 5 , 1 , Lobyte ; " " ; Hibyte
Loop
End
Read_ad:
I2cstart
I2cwbyte W_addr
I2cwbyte &B00000001
I2cwbyte Config_high
I2cwbyte Config_low
I2cstop
I2cstart
I2cwbyte W_addr
I2cwbyte 0
I2cstop
I2cstart '****** STOP lub powtarzane START
I2cwbyte R_addr
I2crbyte Lobyte , Ack ' *****
I2crbyte Hibyte , Nack '*****
I2cstop
Read1aint = Lobyte * 256 'Przekształcenie
Read1aint = Read1aint + Hibyte 'Dla ADS1100 wpisujemy zamiast 2.048 wartość napięcia zasilania, im dokladniej tym lepiej, od tego zalezy dokladność pomiarów
Read1aint = Read1aint * 5.0
Read1aint = Read1aint / 32768
Read1aint = Read1aint / Pga
Read1aint = Read1aint * 1
Napiecies = Fusing(read1aint , "&.&&&")
Return
Wyswietl:
Setfont Font8x8 : Lcdat 7 , 1 , Read1aint
Setfont Font8x8 : Lcdat 8 , 1 , Napiecies
Return
$include "my6_8.font"
$include "my12_16.font"
$include "font8x8.font"[/syntax]
Statystyki: Napisane przez slawek3000 — 24 lut 2017, o 14:47
]]>