ATNEL tech-forum

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-22T21:05:58+01:00

Bartek spadłem z krzesła http://youtu.be/UKv9Up_4v-E?t=16m15s jak usłyszałem o feministce

Statystyki: Napisane przez pikczu — 22 sty 2015, o 21:05

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-22T16:13:26+01:00

Witam ponownie.

Przesyłam kod poprawnie pracujący, który umożliwia sterowanie układem PCA 9685

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000

Enable Interrupts

Config Graphlcd = 240 * 128 , Dataport = Portd , Controlport = Porta , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
Cursor Off

' ------------------------- Przełączniki ---------------------------------------
Config Pinc.2 = Input
Config Pinc.3 = Input

Config Pinb.0 = Input
Config Pinb.1 = Input

Set Portc.2
Set Portc.3

Set Portb.0
Set Portb.1

P1 Alias Pinc.2
P2 Alias Pinc.3

P3 Alias Pinb.1
P4 Alias Pinb.0

Config Scl = Portc.0
Config Sda = Portc.1

I2cinit

' ------------------------- Zmienne --------------------------------------------
Dim A As Byte
Dim B As Byte
Dim Adres As Byte
Dim Led As Byte
Dim Dane(16) As Byte

' zmienna określająca moc świecenia diody LED

Dim D(2) As Word
Dim H(2) As Byte
Dim L(2) As Byte

' LED

Const Led_0_on_l = 6
Const Led_0_on_h = 7
Const Led_0_off_l = 8
Const Led_0_off_h = 9

Const Led_1_on_l = 10
Const Led_1_on_h = 11
Const Led_1_off_l = 12
Const Led_1_off_h = 13

Const Led_2_on_l = 14
Const Led_2_on_h = 15
Const Led_2_off_l = 16
Const Led_2_off_h = 17

Const Led_3_on_l = 18
Const Led_3_on_h = 19
Const Led_3_off_l = 20
Const Led_3_off_h = 21

Const Led_4_on_l = 22
Const Led_4_on_h = 23
Const Led_4_off_l = 24
Const Led_4_off_h = 25

Const Led_5_on_l = 26
Const Led_5_on_h = 27
Const Led_5_off_l = 28
Const Led_5_off_h = 29

Const Led_6_on_l = 30
Const Led_6_on_h = 31
Const Led_6_off_l = 32
Const Led_6_off_h = 33

Const Led_7_on_l = 34
Const Led_7_on_h = 35
Const Led_7_off_l = 36
Const Led_7_off_h = 37

Const Led_8_on_l = 38
Const Led_8_on_h = 39
Const Led_8_off_l = 40
Const Led_8_off_h = 41

Const Led_9_on_l = 42
Const Led_9_on_h = 43
Const Led_9_off_l = 44
Const Led_9_off_h = 45

Const Led_10_on_l = 46
Const Led_10_on_h = 47
Const Led_10_off_l = 48
Const Led_10_off_h = 49

Const Led_11_on_l = 50
Const Led_11_on_h = 51
Const Led_11_off_l = 52
Const Led_11_off_h = 53

Const Led_12_on_l = 54
Const Led_12_on_h = 55
Const Led_12_off_l = 56
Const Led_12_off_h = 57

Const Led_13_on_l = 58
Const Led_13_on_h = 59
Const Led_13_off_l = 60
Const Led_13_off_h = 61

Const Led_14_on_l = 62
Const Led_14_on_h = 63
Const Led_14_off_l = 64
Const Led_14_off_h = 65

Const Led_15_on_l = 66
Const Led_15_on_h = 67
Const Led_15_off_l = 68
Const Led_15_off_h = 69

Const Led_all_on_l = 250
Const Led_all_on_h = 251
Const Led_all_off_l = 252
Const Led_all_off_h = 253

' Adres PCA9685
Const Adres_do_wpisu = 224
Const Adres_do_odczy = 225

' Inne stałe
Const Mode1 = 0
Const Mode2 = 1
Const Subadr1 = 2
Const Subadr2 = 3
Const Subadr3 = 4
Const All_call_adr = 5

Const Pre_scale = 254
Const Test_mode = 255

D(1) = 2000
D(2) = 50

Cls

I2cstart
I2cwbyte Adres_do_wpisu
I2cwbyte Mode1
I2cwbyte &B00100000
I2cstop

I2cstart
I2cwbyte Adres_do_wpisu
I2cwbyte Mode2
I2cwbyte &B11111110
I2cstop

Do

' Przycisk P1 jak jest włączony
If P1 = 0 Then

If D(2) < 4000 Then

' Zmienna typu Word
D(2) = D(2) + 20

' Dzielenie zmiennej
L(1) = Low(d(1))
H(1) = High(d(1))

L(2) = Low(d(2))
H(2) = High(d(2))

I2cstart
I2cwbyte Adres_do_wpisu
I2cwbyte Led_15_on_l
I2cwbyte Mode1
I2cwbyte Mode1
I2cwbyte L(2)
I2cwbyte H(2)
I2cstop

Waitms 100
End If

End If

Loop

End[/syntax]

Pozdrawiam i wszystkim dziękuję za pomoc.

Statystyki: Napisane przez romantv — 22 sty 2015, o 16:13

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T23:18:23+01:00

Romantv bez scalaka na stole nasza pomoc mocno sie zaweza zrob cos na podobienstwo tych subow jak do 9551 do odczytu uzyj funkcji.
Ja ide spac dobranoc

Statystyki: Napisane przez pikczu — 21 sty 2015, o 23:18

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T22:24:54+01:00

Tak masz rację, jednak na forach coraz częściej spotykam się z brakiem wyrozumiałości a nawet chamstwem i docinkami. Nie były one skierowane pod moim adresem ale czytając posty widzę co inni piszą. Jeszcze raz dziękuję i jutro zapieram się do testów.
Pozdrawiam.

Statystyki: Napisane przez romantv — 21 sty 2015, o 22:24

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T22:03:34+01:00

Bartek masz oczywiście racje ale jak na razie to większość w tym dziale troli bo jak już coś naskrobią to zmienia to rangę na tajne łamane przez poufne.

Na tego PCA9551 pisałem wieczorami po pracy i chyba zajęło mi to 5 wieczorów plus chyba ze 2 godziny w weekend włosy z głowy rwałem bo nie mogłem nic odczytać a mogłem ustawiać.
Okazało się że nie doczytałem w PDFie że jest tam "repeat start" a ja dawałem ponownie I2Cstart.

Dodam tylko ze suby które dodałem nie działają z biblioteka $LIB "I2CV2.LIB" sprawdzone w wersji 2.0.7.7

to A to skrót od Acknowledge

Statystyki: Napisane przez pikczu — 21 sty 2015, o 22:03

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T21:53:24+01:00

Jak się przyglądam czytam posty to staje się to coraz prostsze. Oczywiście procedury będą bo muszę one być i wykorzystam do tego wyświetlacz graficzny 240x128.

Pozdrawiam.

PS. Nigdy mnie nie interesowały gotowe programy innych autorów, jedynie zawsze korzystam z porad czy podpowiedzi . Kiedy nie znam odpowiedzi czy mam problem ze zrozumieniem dokumentacji. Projekt, który robię jest oparty wyłącznie o mój pomysł i schemat.

------------------------ [ Dodano po: 2 minutach ]

pikczu napisał(a):

ACK i NACK dodajesz przy odczycie jak obierasz tylko jeden bajt to dajesz NACK bo już kończysz czyli NOT ACKNOWLEDGE ale jak odbierasz więcej niż jeden musisz dać przy każdym NIE ostatnim odczycie ACK

To wiem tylko zastanawiałem się nad "A". dziękuję.

Statystyki: Napisane przez romantv — 21 sty 2015, o 21:53

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T21:46:31+01:00

Statystyki: Napisane przez pikczu — 21 sty 2015, o 21:46

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T21:16:03+01:00

Oczywiście mogę to poprawić i to uczynię. Kod, który pisałem miał mi służyć tylko do przetestowania i opracowania składni. Program miałem dopiero pisać i stąd te problemy. Już wiem, że powinienem jasno i czytelnie pisać i dopasowywać się do PDF-a. Bardzo dziękuję za każdą radę, jutro zabieram się za kolejne testy.

Jeszcze raz dziękuję Wam za pomoc.

PS

Rozumiem, że w tabeli "A" jest to parametr ACK, lub Nack-ostatni parametr do odczytu.
Mogę go pominąć w składni?

Statystyki: Napisane przez romantv — 21 sty 2015, o 21:16

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T20:28:30+01:00

Witam proponuej przepisać stałe jednak z wartoscami bitowymi a nie dziesiętnymi kod zaraz sie rozrośnie a to od poczatku jets bardzo słabo czytelne.
Co by nie mówic jednak jestesmy zwrokowcami szybciej mozna to porównac z PDf-em.
Zaraz romantv pogubisz sie w tym a tym bardziej my.
Tak że kolejnt raz zwracam uwagę na czytelność.

Statystyki: Napisane przez pikczu — 21 sty 2015, o 20:28

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T16:14:10+01:00

Witam ponownie i dziękuję za wskazówki, proszę o weryfikację kodu.

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000

Enable Interrupts

Config Graphlcd = 240 * 128 , Dataport = Portd , Controlport = Porta , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
Cursor Off

' ------------------------- Przełączniki ---------------------------------------
Config Pinc.2 = Input
Config Pinc.3 = Input

Config Pinb.0 = Input
Config Pinb.1 = Input

Set Portc.2
Set Portc.3

Set Portb.0
Set Portb.1

P1 Alias Pinc.2
P2 Alias Pinc.3

P3 Alias Pinb.1
P4 Alias Pinb.0

Config Scl = Portc.0
Config Sda = Portc.1

I2cinit

' ------------------------- Zmienne --------------------------------------------
Dim A As Byte
Dim B As Byte
Dim Adres As Byte
Dim Led As Byte

' zmienna określająca moc świecenia diody LED

Dim D(2) As Word
Dim H(2) As Byte
Dim L(2) As Byte

' LED

Const Led_0_on_l = 6
Const Led_0_on_h = 7
Const Led_0_off_l = 8
Const Led_0_off_h = 9

Const Led_1_on_l = 10
Const Led_1_on_h = 11
Const Led_1_off_l = 12
Const Led_1_off_h = 13

Const Led_2_on_l = 14
Const Led_2_on_h = 15
Const Led_2_off_l = 16
Const Led_2_off_h = 17

Const Led_3_on_l = 18
Const Led_3_on_h = 19
Const Led_3_off_l = 20
Const Led_3_off_h = 21

Const Led_4_on_l = 22
Const Led_4_on_h = 23
Const Led_4_off_l = 24
Const Led_4_off_h = 25

Const Led_5_on_l = 26
Const Led_5_on_h = 27
Const Led_5_off_l = 28
Const Led_5_off_h = 29

Const Led_6_on_l = 30
Const Led_6_on_h = 31
Const Led_6_off_l = 32
Const Led_6_off_h = 33

Const Led_7_on_l = 34
Const Led_7_on_h = 35
Const Led_7_off_l = 36
Const Led_7_off_h = 37

Const Led_8_on_l = 38
Const Led_8_on_h = 39
Const Led_8_off_l = 40
Const Led_8_off_h = 41

Const Led_9_on_l = 42
Const Led_9_on_h = 43
Const Led_9_off_l = 44
Const Led_9_off_h = 45

Const Led_10_on_l = 46
Const Led_10_on_h = 47
Const Led_10_off_l = 48
Const Led_10_off_h = 49

Const Led_11_on_l = 50
Const Led_11_on_h = 51
Const Led_11_off_l = 52
Const Led_11_off_h = 53

Const Led_12_on_l = 54
Const Led_12_on_h = 55
Const Led_12_off_l = 56
Const Led_12_off_h = 57

Const Led_13_on_l = 58
Const Led_13_on_h = 59
Const Led_13_off_l = 60
Const Led_13_off_h = 61

Const Led_14_on_l = 62
Const Led_14_on_h = 63
Const Led_14_off_l = 64
Const Led_14_off_h = 65

Const Led_15_on_l = 66
Const Led_15_on_h = 67
Const Led_15_off_l = 68
Const Led_15_off_h = 69

Const Led_all_on_l = 250
Const Led_all_on_h = 251
Const Led_all_off_l = 252
Const Led_all_off_h = 253

' Adres PCA9685
Const Adres_do_wpisu = 224
Const Adres_do_odczy = 225

' Inne stałe
Const Mode1 = 0
Const Mode2 = 1
Const Subadr1 = 2
Const Subadr2 = 3
Const Subadr3 = 4
Const All_call_adr = 5

Const Pre_scale = 254
Const Test_mode = 255

D(1) = 50
D(2) = 4095

L(1) = Low(d(1))
H(1) = High(d(1))

L(2) = Low(d(2))
H(2) = High(d(2))

Cls

Do

' Przycisk P1 jak jest włączony
If P1 = 0 Then

If D(1) < 4000 Then

' Zmienna typu Word
D(1) = D(1) + 20

' Dzielenie zmiennej
L(1) = Low(d(1))
H(1) = High(d(1))

L(2) = Low(d(2))
H(2) = High(d(2))

' ============= blok 1 =========================

I2cstart
I2cwbyte Adres_do_wpisu

I2cwbyte Mode1
I2cwbyte &B00100000
I2cstop

' ============= blok 2 =========================

I2cstart
I2cwbyte Adres_do_wpisu

I2cwbyte Mode2
I2cwbyte &B11111110

I2cwbyte Subadr1
I2cwbyte &B11111110

I2cstop

' ============= blok 3 =========================

I2cstart
I2cwbyte Adres_do_wpisu

I2cwbyte Led_1_on_l
I2cwbyte Led_1_on_h
I2cwbyte Mode1

I2cwbyte L(1)
I2cwbyte H(1)

I2cwbyte Led_1_off_l
I2cwbyte Led_1_off_h
I2cwbyte Mode1

I2cwbyte L(2)
I2cwbyte H(2)
I2cstop

I2cstop

'Wyświetla informację o zmiennej:

Locate 1 , 1
Lcd D(1) ; " - " ; H(1) ; " - " ; L(1)

Locate 2 , 1
Lcd D(2) ; " - " ; H(2) ; " - " ; L(2)

Waitms 100
End If

end If

loop

End[/syntax]

Tak zapisany kod pozwala zapalać diodę nr 1, kolejne włączanie przycisku powoduje rozjaśnianie diody1 ponieważ zmienia się wartość zmiennej D(1).
Z pewnością jest błąd i proszę o poprawienie jego.
Blok 1 i 2 to przypadek i bez niego nie działa, natomiast blok 3 to jest czytelny i wydaje się być poprawny.

Dziękuję za pomoc, pozdrawiam.

Statystyki: Napisane przez romantv — 21 sty 2015, o 16:14

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T10:17:33+01:00

ACK lub NACK to parametry stosowane przy odczycie. A mi chodzi o zapis ustawień do układu PCA 9685. Tak naprawdę jak powinna prawidłowo wyglądać składnie w Bascomie do np. zapalenia diody LED 5.

Ja to tak zrobiłem (jest to fragment kodu):

[syntax=basic4gl]D(1) = 4095
D(2) = 1

L(1) = Low(d(1))
H(1) = High(d(1))

L(2) = Low(d(2))
H(2) = High(d(2))

'==============================
I2cstart
I2cwbyte 224

I2cwbyte 1
I2cwbyte &B11111110

I2cwbyte 2
I2cwbyte &B11111110

I2cstop

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

I2cstart
I2cwbyte 224

'Adresy Led od 2 do 62 co 4
'Led 3
I2cwbyte 26
I2cwbyte 27
I2cwbyte 0

I2cwbyte L(1)
I2cwbyte H(1)

I2cwbyte 26
I2cwbyte 27
I2cwbyte 0

I2cwbyte L(2)
I2cwbyte H(2)
I2cstop[/syntax]

Kod działa, jednak nie jestem przekonany, że to dobrze robię. Ponieważ nie mogę w ten sposób zapalić ostatniej diody LED (16).

Dziękuję za pomoc.

Statystyki: Napisane przez romantv — 21 sty 2015, o 10:17

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-21T09:54:18+01:00

Kontynuując temat

przykład kodu:
[syntax=basic4gl]I2cstart
I2cwbyte 224

'MODE1 zapala all led
'I2cwbyte 0
'I2cwbyte &B11111110

I2cwbyte 1
I2cwbyte &B11111110

I2cwbyte 2
I2cwbyte &B11111110

I2cstop

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

I2cstart
I2cwbyte 224

'Adresy Led od 2 do 62 co 4
'Led 3
I2cwbyte A
I2cwbyte B
I2cwbyte 0

I2cwbyte L(1)
I2cwbyte H(1)

I2cwbyte A
I2cwbyte B
I2cwbyte 0

I2cwbyte L(2)
I2cwbyte H(2)
I2cstop[/syntax]

Idzie sterować poszczególnymi diodami LED. Nie jest to jeszcze rozwiązana sprawa i stąd moje pytanie:

Na wykresie przebiegu sygnału co oznacza "A" i jaką wartość powinien mieć ?

Dziękuję.

Statystyki: Napisane przez romantv — 21 sty 2015, o 09:54

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-16T22:20:42+01:00

Dziękuję.

Statystyki: Napisane przez romantv — 16 sty 2015, o 22:20

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-16T22:12:55+01:00

Sorry ale nie będę poprawiał twojego "kodu".
Żeby go "poprawić" trzeba dopisać z 300 linijek i mieć ten układ na stole.
Zobacz jak ja napisałem dla PCA9551 który ma tylko 8 ledów i dwa PWM-y a nie 16 ledów i tyle samo PWM kanałów.
Powalcz sam a jak już coś konkretnego napiszesz to Ci pomogę.

Statystyki: Napisane przez pikczu — 16 sty 2015, o 22:12

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-16T22:03:37+01:00

topic7402.html

Statystyki: Napisane przez Jaglarz — 16 sty 2015, o 22:03

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-16T21:56:35+01:00

Dziękuję za odpowiedź.
PDF-a posiadam
https://www.adafruit.com/datasheets/PCA9685.pdf
Tak jak pisałem potrzebuję sterować układem PCA9685, ATmegą po I2C część kodu:

'Adres
Zi2c(4) = 224
Oi2c(4) = 225

'Zmienne dane
D(1) = 2000
D(2) = 3000

'Podział liczby na 2 * po byte czyli 00000000 00000000
L(1) = Low(d(1))
H(1) = High(d(1))

L(2) = Low(d(2))
H(2) = High(d(2))

I2cstart
I2cwbyte Zi2c(4) 'Adres

'LED0_ON_L read/write LED0 output and brightness control byte 0

I2cwbyte 00000110

' LED0_ON_H read/write LED0 output and brightness control byte 1

I2cwbyte 00000111

'Wartość podzielona 1
I2cwbyte H(1)
I2cwbyte L(1)

'Wartość podzielona 2
I2cwbyte H(2)
I2cwbyte L(2)

I2cstop

Proszę o poprawienie tego kodu, dziękuję.

Statystyki: Napisane przez romantv — 16 sty 2015, o 21:56

Re: Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-17T23:29:11+01:00

PDF-a masz ??
Tam jest wszytko idealnie banalnie rozpisane wystarczy skopiować jak małpa.
Jak pisałem suba dla PCA9551 nie było tam takiej "idiot proof" tabelki.

Tu masz wersie dla PCA9551 jako suby i funkcje:

Tu jest wybór leda i trybu pracy:
[syntax=basic4gl]$nocompile
'*****************************************************************************************
'**********PCA9551 ver 1.0 by Pawel Labedz aka Pikczu 2014*******************************
'*********************Pawel.labedz@gmail.com**********************************************
'*****************************************************************************************
'-----------------------------------------------------------------------------------------
'Name to include: "Sub Pca9551_led.inc"
'Syntax: Call Pca9551_ledv2(led number , mode 0 or 1 or 2 or 3 )
'Make sure you add constant in to main.bas
'Const Led0_on = &B11111100
'Const Led0_off = &B00000001
'Const Led0_pwm0 = &B00000010 ' make sure you send first off mask then
'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
'-----------------------------------------------------------------------------------------

'PCA9551 Led driver with PWM
Sub Pca9551_led(byval Led As Byte , Byval Led_mode As Byte )
Dbg
'Const Pca9551rd = 193
'Const Pca9551wr = 192
Local Bufor_1 As Byte
Local Bufor_2 As Byte
Bufor_1 = 0
Bufor_2 = 0
I2cstart
I2cwbyte Pca9551wr
I2cwbyte &B00010101
I2crepstart
I2cwbyte Pca9551rd
I2crbyte Bufor_1 , Ack 'led 0 to 3
I2crbyte Bufor_2 , Nack 'led 4 to 7
I2cstop
I2cstart
I2cwbyte Pca9551wr
If Led > 3 Then
I2cwbyte 6
Else
I2cwbyte 5
End If
Select Case Led

Case 0
Select Case Led_mode
Case 0 ' led0_off
Bufor_1 = Bufor_1 And Led0_on 'AND zerowanie
Bufor_1 = Bufor_1 Or Led0_off ' OR ustwianie
Case 1 'led0_on
Bufor_1 = Bufor_1 And Led0_on 'AND zerowanie
Case 2 'led0 PWM0
Bufor_1 = Bufor_1 And Led0_on
Bufor_1 = Bufor_1 Or Led0_pwm0
Case 3 'led0 pwm1
Bufor_1 = Bufor_1 Or Led0_pwm1
End Select
Case 1 'led 1
Select Case Led_mode
Case 0 ' led1_off
Bufor_1 = Bufor_1 And Led1_on 'AND zerowanie
Bufor_1 = Bufor_1 Or Led1_off ' OR ustwianie
Case 1 'led1_on
Bufor_1 = Bufor_1 And Led1_on 'AND zerowanie
Case 2 'led1 PWM0
Bufor_1 = Bufor_1 And Led1_on
Bufor_1 = Bufor_1 Or Led1_pwm0
Case 3 'led1 pwm1
Bufor_1 = Bufor_1 Or Led1_pwm1
End Select
Case 2 'led 2
Select Case Led_mode
Case 0 ' led2_off
Bufor_1 = Bufor_1 And Led2_on 'AND zerowanie
Bufor_1 = Bufor_1 Or Led2_off ' OR ustwianie
Case 1 'led2_on
Bufor_1 = Bufor_1 And Led2_on 'AND zerowanie
Case 2 'led2 PWM0
Bufor_1 = Bufor_1 And Led2_on
Bufor_1 = Bufor_1 Or Led2_pwm0
Case 3 'led2 pwm1
Bufor_1 = Bufor_1 Or Led2_pwm1
End Select
Case 3 'led3
Select Case Led_mode
Case 0 ' led3_off
Bufor_1 = Bufor_1 And Led3_on 'AND zerowanie
Bufor_1 = Bufor_1 Or Led3_off ' OR ustwianie
Case 1 'led3_on
Bufor_1 = Bufor_1 And Led3_on 'AND zerowanie
Case 2 'led3 PWM0
Bufor_1 = Bufor_1 And Led3_on
Bufor_1 = Bufor_1 Or Led3_pwm0
Case 3 'led3 pwm1
Bufor_1 = Bufor_1 Or Led3_pwm1
End Select
Case 4 'led 4
Select Case Led_mode
Case 0 ' led4_off
Bufor_2 = Bufor_2 And Led4_on 'AND zerowanie
Bufor_2 = Bufor_2 Or Led4_off ' OR ustwianie
Case 1 'led4_on
Bufor_2 = Bufor_2 And Led4_on 'AND zerowanie
Case 2 'led4 PWM0
Bufor_2 = Bufor_2 And Led4_on
Bufor_2 = Bufor_2 Or Led4_pwm0
Case 3 'led4 pwm1
Bufor_2 = Bufor_2 Or Led4_pwm1
End Select
Case 5 'led 5
Select Case Led_mode
Case 0 ' led5_off
Bufor_2 = Bufor_2 And Led5_on 'AND zerowanie
Bufor_2 = Bufor_2 Or Led5_off ' OR ustwianie
Case 1 'led5_on
Bufor_2 = Bufor_2 And Led5_on 'AND zerowanie
Case 2 'led5 PWM0
Bufor_2 = Bufor_2 And Led5_on
Bufor_2 = Bufor_2 Or Led5_pwm0
Case 3 'led3 pwm1
Bufor_2 = Bufor_2 Or Led5_pwm1
End Select
Case 6 'led 6
Select Case Led_mode
Case 0 ' led6_off
Bufor_2 = Bufor_2 And Led6_on 'AND zerowanie
Bufor_2 = Bufor_2 Or Led6_off ' OR ustwianie
Case 1 'led6_on
Bufor_2 = Bufor_2 And Led6_on 'AND zerowanie
Case 2 'led6 PWM0
Bufor_2 = Bufor_2 And Led6_on
Bufor_2 = Bufor_2 Or Led6_pwm0
Case 3 'led6 pwm1
Bufor_2 = Bufor_2 Or Led6_pwm1
End Select
Case 7 'led 7
Select Case Led_mode
Case 0 ' led7_off
Bufor_2 = Bufor_2 And Led7_on 'AND zerowanie
Bufor_2 = Bufor_2 Or Led7_off ' OR ustwianie
Case 1 'led7_on
Bufor_2 = Bufor_2 And Led7_on 'AND zerowanie
Case 2 'led7 PWM0
Bufor_2 = Bufor_2 And Led7_on
Bufor_2 = Bufor_2 Or Led7_pwm0
Case 3 'led7 pwm1
Bufor_2 = Bufor_2 Or Led7_pwm1
End Select

End Select

If Led > 3 Then
I2cwbyte Bufor_2
Else
I2cwbyte Bufor_1
End If
I2cstop
End Sub
'-----------------------------------------------------------------------------------------[/syntax]

Tu jest ustawienie jednego z dwóch PWM-ów
[syntax=basic4gl]$nocompile
'*****************************************************************************************
'**********PCA9551 ver 1.0 by Pawel Labedz aka Pikczu 2014*******************************
'*********************Pawel.labedz@gmail.com**********************************************
'*****************************************************************************************
'-----------------------------------------------------------------------------------------

' Name to include : "Sub pca9551_pwm.inc"
'syntax: PCA9551_PWM(0 or 1 , 0 to 255, 0 to 255)

Sub Pca9551_pwm(byval Pwm_0_1 As Byte , Byval Freq_pres As Byte , Byval Duty_cyc As Byte)
Dbg

If Pwm_0_1 > 1 Then Pwm_0_1 = 1
I2cstart
I2cwbyte Pca9551wr
Select Case Pwm_0_1
Case 0
I2cwbyte &B00010001 '10001 sub adres plus auto increment bit 4
I2cwbyte Freq_pres
I2cwbyte Duty_cyc
Case 1
I2cwbyte &B00010011 '10001 sub adres plus auto increment bit 4
I2cwbyte Freq_pres
I2cwbyte Duty_cyc

End Select
I2cstop

End Sub[/syntax]

Tu funkcja odczytu aktualnej wartości wypełnienia:
[syntax=basic4gl]$nocompile
'*****************************************************************************************
'**********PCA9551 ver 1.0 by Pawel Labedz aka Pikczu 2014*******************************
'*********************Pawel.labedz@gmail.com**********************************************
'*****************************************************************************************

'name to include : "function Pca9551_get_PWM_0_1_dutycy.inc"
'syntax: yourvariable= Pca9551_get_pwm_0_1_dutycy(0 or 1)
'-----------------------------------------------------------------------------------------
'PCA9551 Led driver with PWM reading dutycycle for pwm 0 or 1
Function Pca9551_get_pwm_0_1_dutycy(byval Pwms As Byte ) As Byte
Dbg
'Const Pca9551rd = 193'this is address
'Const Pca9551wr = 192' this is address setup in main code
Local Bufor_1 As Byte
'Local Bufor_2 As Byte
Bufor_1 = 0
'Bufor_2 = 0
If Pwms > 1 Then Pwms = 1

I2cstart
I2cwbyte Pca9551wr
Select Case Pwms
Case 0
I2cwbyte &B00000010
I2crepstart
I2cwbyte Pca9551rd
I2crbyte Bufor_1 , Nack 'led 0 to 3
Case 1
I2cwbyte &B00000100
I2crepstart
I2cwbyte Pca9551rd
I2crbyte Bufor_1 , Nack 'led 0 to 3
End Select
I2cstop
Pca9551_get_pwm_0_1_dutycy = Bufor_1
End Function[/syntax]

Tu funkcja odczytu częstotliwości:
[syntax=basic4gl]$nocompile
'*****************************************************************************************
'**********PCA9551 ver 1.0 by Pawel Labedz aka Pikczu 2014*******************************
'*********************Pawel.labedz@gmail.com**********************************************
'*****************************************************************************************
'-----------------------------------------------------------------------------------------
'name to include : "function Pca9551_get_PWM_0_1_Freq.inc"
' syntax: yourvariable=Pca9551_get_pwm_0_1_freq(0 or 1 )
'-----------------------------------------------------------------------------------------
'PCA9551 Led driver with PWM reading frequency for fwm 0 or 1
Function Pca9551_get_pwm_0_1_freq(byval Pwm_number As Byte ) As Byte
Dbg
'Const Pca9551rd = 193'this is address
'Const Pca9551wr = 192' this is address setup in main code
Local Bufor_1 As Byte
'Local Bufor_2 As Byte
Bufor_1 = 0
'Bufor_2 = 0
If Pwm_number > 1 Then Pwm_number = 1

I2cstart
I2cwbyte Pca9551wr
Select Case Pwm_number
Case 0

I2cwbyte &B00000001
I2crepstart
I2cwbyte Pca9551rd
I2crbyte Bufor_1 , Nack 'led 0 to 3

Case 1
I2cwbyte &B00000011
I2crepstart
I2cwbyte Pca9551rd
I2crbyte Bufor_1 , Nack 'led 0 to 3
End Select

I2cstop
Pca9551_get_pwm_0_1_freq = Bufor_1
End Function[/syntax]

Dla PCA9685 Jest sporo pisania, żeby to miało ręce i nogi trzeba napisać stałe z tego co widzę az 63 stałe i najlepiej nazwać je jak w pdf-e.
Później trzeba zrobić select case dla wszystkich 63 możliwości plus dodatkowe funkcje odczytu kolejnych rejestrów.

Jeśli nie masz scalaka najpierw go kup a potem pisz bo inaczej szkoda czasu na pisanie.
Polecam zainwestować w oryginalną płytę testowa NXP z tym scalakiem na pokładzie będzie Ci łatwiej.

Statystyki: Napisane przez pikczu — 16 sty 2015, o 21:08

Bascom - PCA9685 i PCA9551D - Sterowanie

2015-01-16T10:46:11+01:00

Witam. Proszę o pomoc w zakresie sterowania układem PCA9685. Potrzebuję fragment kodu w Bascomie, który umożliwi sterowanie tym scalakiem. Wykorzystuję do tego ATmegę32 i po I2C jest podłączony z PCA9685.
Z góry dziękuję za pomoc.

Dim D(10) As Word
Dim H(10) As Byte
Dim L(10) As Byte

Const I2crd = 225
Const I2cwr = 224

Zi2c(4) = 224
Oi2c(4) = 225

D(1) = 2000
D(2) = 3000

L(1) = Low(d(1))
H(1) = High(d(1))

L(2) = Low(d(2))
H(2) = High(d(2))

I2cstart
I2cwbyte Zi2c(4)
I2cwbyte H(1)
I2cwbyte L(1)

I2cwbyte H(2)
I2cwbyte L(2)

I2cwbyte 11111010

I2cstop

Statystyki: Napisane przez romantv — 16 sty 2015, o 10:46