ws2811

[SILVER MAN]

سلام :nerd:
کسی با این ws2811 کار کرده؟
راه اندازیش چطوره؟

[سوران آراسته]

پاسخ : ws2811

به شخصه باهاش کار نکردم اما این لینک ظاهرا یه چیزایی گفته : http://bleaklow.com/2012/12/02/drivi...16mhz_avr.html

فردا میرم ببینم این طرفا پیدا میشه!

[reza13731]

پاسخ : ws2811

نوسان سازه

[r-el]

پاسخ : ws2811

سلام چرا هیچکدوم این ای سی ها برنامه به زبان بیسکام نداره؟کسی کار نکرده؟کسی با بیسکام راه ننداخته اینارو که کمک کنه؟

[jafar2000]

پاسخ : ws2811

سلام
تا جایی که یادمه این ای سی یه راه انداز led سه کاناله هستش که به صورت سریال اطلاعات سه کانال رو میگیره و روی خوروجی نشون میده
توی این نوار های rgbجدید ای سی دار هم ازش استفاده شده

[jafar2000]

پاسخ : ws2811

اینم دیتاشیتش
https://www.adafruit.com/datasheets/WS2811.pdf
البته من به صورت گذرا یه نگاهی کردم و میشه گفت کار کردن با هاش راحته

[r-el]

پاسخ : ws2811

والا منم خوندم اما هرچی میفرستم هیچی نشون نمیده میخواستم ببینم کسی قبلا کار نکرده نمونه برنامه ای چیزی....

[jafar2000]

پاسخ : ws2811

برنامه ای رو که نوشتی بزار ببینیم چی به چیه شاید ایرادی داری که به نظر نمیاد.شماتیکم بزار

[r-el]

پاسخ : ws2811


$regfile = "m8def.dat"
$crystal = 8000000

Config Portb.3 = Output
Config Portb.1 = Output
Config Portb.2 = Output

Dim Motoghayer As Byte , Dely As Word , A As Byte , C As Byte
Dim Dattarreg As Byte , Tekrar As Word , B As Word , Byt(15) As Byte
Dim Rgb As Word , Tool As Byte , Tedadbyt As Byte , Aval As Word , Akhar As Word
Dim R1 As Byte , R2 As Byte , R3 As Byte , R4 As Byte

Datta Alias Portb.3


Do

Rgb = 0
For Tekrar = 1 To 9

A = Lookup(rgb , Datas)

For R2 = 0 To 7
Datta = A.r2
Waitus 2
Next A

Incr Rgb

Next Tekrar

Waitus 30




Loop

End

Datas:
Data &HFF , &HFF , &HFF , &H00 , &H01 , &H01 , &H00 , &H00 , &H00

من دیتا رو از پایین میخونم و توی متغیر a میریزم و بیت به بیت میریزم رو پایه دیتا طبق دیتا شیت حداقل زمان 1بودن براtm1803 هست1.36میکروثانیه منم 2 دادم و زمان ریستم 24میکرو هست که من 30دادم