Mam układ PCA9551 jest to bardzo ciekawy migacz led na szynę i2C
http://www.nxp.com/documents/data_sheet/PCA9551.pdf
W opisie rejestrów widnieją poszczególne stany dla ledów.
Narysowałem tabelę dla lepszej widoczności
Stan spoczynku to 01010101 LEdy od 0 do 3 wyłączone
Utworzyłem stałe zawierające maski żeby ułatwić sobie zadanie.
[syntax=basic4gl]const led0_on =&B11111100[/syntax]
Niestety utknąłem na masce dla PWM0. poprzednie maski dla LED0_0N, LED0_OFF są proste i działają bez problemu.
W masce dla LED0_PWM0 muszę wyzerować bit 0 i ustawić bit 1 niby proste ale utknąłem.
cały kod:
[syntax=basic4gl]' i2c controlling single led of pca9551
'Pawel 2014
'-----------------------------------------------------------------------------------------
$Regfile = "m2560def.dat"
$Crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$BAUD = 19200
'configure the scl and sda pins
Config Sda = PortG.5 'pin4
Config Scl = PortE.3 'pin 5
I2cinit
dim choice as byte
dim b as byte
dim bufor(10) as byte
const i2crd=193
const i2cwr= 192
const led0_on =&B11111100 'zerowanie maska 0 reszta bitów ustawiona na 1
const led0_off =&B00000001 ' ustawianie maska 1 reszta bitów ustawiona na 0
const led0_PWM0 =&B00000010
const led0_PWM1 =&B00000011 'use OR after default condition 01010101 to change to PWM1
const led1_on =&B11110011
const led1_off =&B00000100
const led1_PWM0 =&B00001000
const led1_PWM1 =&B00001100 'use OR after default condition 01010101 to change to PWM1
const led2_on =&B11001111
const led2_off =&B00010000
const led2_PWM0 =&B00100000
const led2_PWM1 =&B00110000 'use OR after default condition 01010101 to change to PWM1
const led3_on =&B00111111
const led3_off =&B01000000
const led3_PWM0 =&B10000000
const led3_PWM1 =&B11000000 'use OR after default condition 01010101 to change to PWM1
const led4_on =&B11111100
const led4_off =&B00000001
const led4_PWM0 =&B00000010
const led4_PWM1 =&B00000011 'use OR after default condition 01010101 to change to PWM1
const led5_on =&B11110011
const led5_off =&B00000100
const led5_PWM0 =&B00001000
const led5_PWM1 =&B00001100 'use OR after default condition 01010101 to change to PWM1
const led6_on =&B11001111
const led6_off =&B00010000
const led6_PWM0 =&B00100000
const led6_PWM1 =&B00110000 'use OR after default condition 01010101 to change to PWM1
const led7_on =&B00111111
const led7_off =&B01000000
const led7_PWM0 =&B01000000
const led7_PWM1 =&B11000000 'use OR after default condition 01010101 to change to PWM1
const 0to3led_off =&B01010101
const 0to3led_on =&B00000000
const 4to7led_off =&B01010101
const 4to7led_on =&B00000000
Do
Input "0-read all ,1- led0 on 2- led0 off ,3 led0 PWM1" , Choice
'uwaga po kazdej zmianie nie zapomnij odczytac aktualnego stanu
'NACISNIJ 0
Select Case Choice
Case 0 'Set LED0 on
waitms 200
I2cstart
I2cwbyte i2cwr
I2cwbyte &B00010001
i2crepstart
I2cwbyte i2crd
I2crbyte bufor(1),ack 'prescaler 0
I2crbyte bufor(2),ack 'PWM 0
i2crbyte bufor(3),ack 'prescaler 1
I2crbyte bufor(4),ack 'pwm 1
I2crbyte bufor(5),ack 'led 0 to 3
I2crbyte bufor(6),ack 'led 4 to 7
I2crbyte bufor(7),nack 'inputs
i2cstop
case 1 'Set LED0 on
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) and led0_on 'AND zerowanie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
case 2 ' led0 off
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) or led0_off ' OR ustwianie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
case 3 'led0 pwm1
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) or led0_PWM1
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
'(case 4 'led1 off
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) or led1_off ' OR ustwianie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
case 5' led 2 on 'AND zerowanie
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) and led2_on 'AND zerowanie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
case 6 'led2 off
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) or led2_off ' OR ustwianie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
case 7 'led3 on 'AND zerowanie
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) and led3_on 'AND zerowanie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
case 8 'led3 off
i2cstart
i2cwbyte i2cwr
i2cwbyte 5
bufor(5) = bufor(5) or led3_off ' OR ustwianie
i2cwbyte bufor(5)
i2cstop
print "bufor 5= "; bin(bufor(5))
')
case 9' all on
I2cstart ' Generate start code
I2cwbyte i2cwr
I2cwbyte &B00010001 '10001 sub adres plus auto increment
I2cwbyte &B11111111 '255 prescaler 0
I2cwbyte &B10000000 '128 PWM 0
I2cwbyte &B11111111 '255 prescaler 1
I2cwbyte &B10000000 ' 128 pwm 1
I2cwbyte &B00000000' led 0 to 3
I2cwbyte &B00000000'led 4 to 7
I2cstop
case 10 'all off
I2cstart ' Generate start code
I2cwbyte i2cwr
I2cwbyte &B00010001 '10001 sub adres plus auto increment
'bit 4 is auto increment i should look in to pdf to remind myself what is this doing
I2cwbyte &B11111111 '255 prescaler 0
I2cwbyte &B10000000 '128 PWM 0
I2cwbyte &B11111111 '255 prescaler 1
I2cwbyte &B10000000 ' 128 pwm 1
I2cwbyte &B01010101' led 0 to 3
I2cwbyte &B01010101'led 4 to 7
I2cstop
case else: print" zastanów sie co robisz !"
End Select
waitms 500
print "bufor1 " ;bin(bufor(1))
print "bufor2 " ;bin(bufor(2))
print "bufor3 " ;bin(bufor(3))
print "bufor4 " ;bin(bufor(4))
print "bufor5 " ;bin(bufor(5))
print "bufor6 " ;bin(bufor(6))
print "bufor7 " ;bin(bufor(7))
Loop
End[/syntax]
Pozdrawiam
Paweł
Statystyki: Napisane przez pikczu — 5 paź 2014, o 17:02
]]>