ATNEL tech-forum

Re: SeekBar vs WS2812

2016-03-20T12:02:26+01:00

Zmienić wygląd, kolor SeekBar-ów, żeby wyglądały tak jak wyżej. A aplikacje do wysyłania wartości PWM po UDP to już mam nadzieje napiszę z pomocą poradników od Mirka.

Statystyki: Napisane przez lauba1 — 20 mar 2016, o 12:02

Re: SeekBar vs WS2812

2016-03-20T11:55:22+01:00

lauba1 napisał(a):

Właśnie czytałem na oficjalnym forum B4A, że nawet zmiana kolorów nie jest taka prosta.
Mi chodzi o sterowanie wypełnieniem PWM-a, a następnie wysyłanie wartości do uK coś ala poniższy rysunek:

Może ktoś robił już podobną aplikację?

Kolego to chcesz zmienić wygląd czy napisać aplikację do wysyłania wartości PWM?

Statystyki: Napisane przez matekogon — 20 mar 2016, o 11:55

Re: SeekBar vs WS2812

2016-03-20T11:39:19+01:00

Statystyki: Napisane przez lauba1 — 20 mar 2016, o 11:39

Re: SeekBar vs WS2812

2016-03-20T08:12:40+01:00

Raczej tylko standardowy. Musiałbyś sam sobie napisac coś innego.

Statystyki: Napisane przez grzeniu 73 — 20 mar 2016, o 08:12

Re: SeekBar vs WS2812

2016-03-19T19:26:47+01:00

Cześć a ja mam inne pytanie jak zmienić wygląd SeekBar'a? Czy tylko jest możliwość wykorzystania standardowego?

Statystyki: Napisane przez lauba1 — 19 mar 2016, o 19:26

Re: SeekBar vs WS2812

2016-03-16T22:46:59+01:00

Quote:

tylko jak wywołać ta funkcje o ile jest poprawna.

[syntax=basic4gl]Sub sb_r_ValueChanged (Value As Int, UserChanged As Boolean)

Label1.Text=sb_r.Value
send_RGB

End Sub

Sub sb_g_ValueChanged (Value As Int, UserChanged As Boolean)

Label2.Text=sb_g.Value
send_RGB

End Sub

Sub sb_b_ValueChanged (Value As Int, UserChanged As Boolean)

Label3.Text=sb_b.Value
send_RGB

End Sub[/syntax]

Statystyki: Napisane przez michal1210 — 16 mar 2016, o 22:46

Re: SeekBar vs WS2812

2016-03-16T22:45:46+01:00

ok tylko jak wywołać ta funkcje bo twoim i moim przekombinowanym sposobem i tak nie wysyła danych. Dla sprawdzenia zrobiłem button i działa bez problemu z dioda włącz/wyłącz

Statystyki: Napisane przez raf_w — 16 mar 2016, o 22:45

Re: SeekBar vs WS2812

2016-03-16T22:18:59+01:00

No przekombinowujesz masz rację

po co takie sztuczki:

[syntax=basic4gl]Sub send_RGB
Dim R As String
Dim G As String
Dim B As String

R = NumberFormat(sb_r.Value,3,0)
G = NumberFormat(sb_g.Value,3,0)
B = NumberFormat(sb_b.Value,3,0)

ast.Write(R & "," & G & "," & B & Chr(13))

End Sub[/syntax]

jeśli wystarczy tak

[syntax=basic4gl]Sub send_RGB

ast.Write(sb_r.Value & "," & sb_g.Value & "," & sb_b.Value & Chr(13))

End Sub[/syntax]

------------------------ [ Dodano po: 1 minucie ]

mniej więcej piszę - toż masz w B4A konwersję typów "w locie"

Statystyki: Napisane przez mirekk36 — 16 mar 2016, o 22:18

Re: SeekBar vs WS2812

2016-03-16T22:16:11+01:00

witam ponownie
naskrobałem coś takiego

[syntax=basic4gl]Sub sb_r_ValueChanged (Value As Int, UserChanged As Boolean)

Label1.Text=sb_r.Value

End Sub

Sub sb_g_ValueChanged (Value As Int, UserChanged As Boolean)

Label2.Text=sb_g.Value

End Sub

Sub sb_b_ValueChanged (Value As Int, UserChanged As Boolean)

Label3.Text=sb_b.Value

End Sub

Sub send_RGB
Dim R As String
Dim G As String
Dim B As String

R = NumberFormat(sb_r.Value,3,0)
G = NumberFormat(sb_g.Value,3,0)
B = NumberFormat(sb_b.Value,3,0)

ast.Write(R & "," & G & "," & B & Chr(13))

End Sub[/syntax]

tylko jak wywołać ta funkcje o ile jest poprawna. Pewnie dalej coś przekombinowuje.
Proszę o dalsze wskazówki.
Co do programu na procesor to wiem jak te dane podzielić itp. tylko wpierw muszę je wysłać

Co do znaku Chr(10) przed wysyłanie do procka kombinowałem z terminalem i już nie usunąłem

Statystyki: Napisane przez raf_w — 16 mar 2016, o 22:16

Re: SeekBar vs WS2812

2016-03-15T22:37:18+01:00

Ja zapytam tak .... z czystej ciekawości i to będzie przy okazji sugestia pewna

"po jasny gwint wysyłasz każdy kolor jako osobną ramkę - toż to ... hmmmm paranoja i dla komunikacji i dla procka"

pomyśl co by było gdybyś za każdym razem wysyłał ramkę typu

R,G,B

i nie ważne nawet czy wartości RGB byłyby ASCII czy binarnie - chociaż ja zrobiłbym ASCII

Piszę o tym bo ile razy spotykam się z pomysłami początkujących na przesyłanie danych to oni próbują w makabryczny sposób sobie sami utrudniać życie

Po drugie po jasny gwint wysyłasz ten char(10) .... ? ... komu i na co on potrzebny ?

a teraz pokombinuj , sprawdź i zobaczysz że będzie dużo lepiej

Statystyki: Napisane przez mirekk36 — 15 mar 2016, o 22:37

Re: SeekBar vs WS2812

2016-03-15T22:02:17+01:00

Kolego miałem podobny problem tylko że komunikacja była po wifi. Rozwiązanie jakie zastosowałem to wysyłanie wartości value dopiero w tedy gdy przestanie zmieniać się (czyli koniec przesuwania suwaka wyślij wartość)

Statystyki: Napisane przez matekogon — 15 mar 2016, o 22:02

SeekBar vs WS2812

2016-03-15T21:27:23+01:00

Witam,
od kilku dni jestem w trakcie tworzenia pierwszej "Aplikacji" w B4a chciałem z telefonu poprzez Bluetooth sterować diodami WS2812 za pomocą SeekBar.
Obsługę Bluetooth ogarnąłem z wielka pomocą poradników Mirka.
Pytanie jak przesłać wartość SeekBar.Value?
Mam coś takiego
[syntax=basic4gl]Sub sb_r_ValueChanged (Value As Int, UserChanged As Boolean) 'R pwm
Label1.Text=Value
ast.Write("WS:1:"& Value & Chr(13)& Chr(10))

End Sub

Sub sb_g_ValueChanged (Value As Int, UserChanged As Boolean) 'G pwm
Label2.Text=Value
ast.Write("WS:2:"& Value & Chr(13)& Chr(10) )

End Sub

Sub sb_b_ValueChanged (Value As Int, UserChanged As Boolean) 'B pwm
Label3.Text=Value
ast.Write("WS:3:"& Value & Chr(13)& Chr(10) )

End Sub[/syntax]

i odbieram to w procku tak
[syntax=c]void dane_uart(char *buf)
{

char *wsk;
uint8_t data;

wsk= strtok(buf, ":");
if(!strcmp(wsk,"WS"))
{
wsk= strtok(NULL, ":");
data = atoi(wsk);
if(1==data) //kolor czerwony
{
wsk= strtok(NULL, ":");
data=atoi(wsk);
red=data;
}
if(2==data) //kolor zielony
{
wsk= strtok(NULL, ":");
data=atoi(wsk);
green=data ;
}
if(3==data) //kolor niebieski
{
wsk= strtok(NULL, ":");
data=atoi(wsk);
blue=data;
}

r=red;
g=green;
b=blue;

color= ((uint32_t)r<<16)+(g<<8)+b;

ws_cls(diody,color);
ws2812_send(diody,WS_CNT,WS_PIN);

}[/syntax]

Powiem tak działać to działa ale nie do końca poprawnie,prawie zawsze diody leciutko świeca gdy przesunę z max do min czyli wartość pwm nie osiąga 0 mimo ze w aplikacji jest 0. Czasem też przy sterowaniu jednego kolory zapala się inny kolory. Wydaje mi się ze to bardziej problem dekodowania tych stringów ale nie wiem za bardzo co. Nie jestem na tyle ogarnięty z C a tym bardziej z B4A. Proszę o podpowiedzi jak przesłać ta wartość Value oraz co poprawić w dekodowaniu (pewnie wszystko ) Pozdrawiam

Statystyki: Napisane przez raf_w — 15 mar 2016, o 21:27