To zależy jaki użyjesz jako Kolor1. Prościej będzie przerobić funkcję, gdzie drugim argumentem będzie komórka "wzorcowa". Np [syntax=vb]Function LiczKolory(zakres As Range, kolor As Range) idCol = kolor.Interior.ColorIndex For Each kom In zakres If kom.Interior.ColorIndex = idCol Then LiczKolory = LiczKolory + 1 End If Next End Function[/syntax]Użycie...
https://obrazki.elektroda.pl/8660248100_... Tutaj pokażę podstawy sterowania indywidualnie adresowalnymi diodami LED w OpenBeken. Obecnie OpenBeken obsługuje diody WS2812B i wiele diod LED z podobnymi protokołami, jak na przykład SM16703P. W tym temacie skupię się na podstawach ręcznego sterowania diodami LED, nie będę tutaj omawiał...
Schemat i program został napisany przez AI pod Arduino UNO. Może nie jest zbyt "elegancki" ale działa. https://obrazki.elektroda.pl/8750481200_...
https://obrazki.elektroda.pl/3752071300_... Kilka lat temu prezentowałem prosty sposób kontroli indywidualnie adresowalnego paska LED w oparciu o bit-banging , czyli najprostsze operacje na pinach IO mikrokontrolera. Tutaj pokażę zupełnie inne podejście, które opiera się na wykorzystaniu pinu MOSI ze sprzętowego portu SPI w połączeniu...
https://obrazki.elektroda.pl/3153730500_... Witajcie moi drodzy W tym temacie najpierw szczegółowo pokażę wnętrze drukarki HP Deskjet D1360 , a potem przedstawię jak można wykorzystać jej części z Arduino. Określę pinout enkodera ze środka, napiszę kod pozwalający określić pozycję karetki dzięki użyciu enkodera, oraz też oczywiście...
Zastosuj sobie do tego prostą funkcję własną [syntax=vbscript]Function LiczKolor(zakres As Range, kolor As Integer) Dim kom As Range Dim suma As Double suma = 0 For Each kom In zakres If kom.Interior.ColorIndex = kolor Then suma = suma + 1 End If Next LiczKolor = suma End Function [/syntax] Podstawowe indeksy kolorów: czerwony - 3; zielony - 4 (ale...
Jeśli 1 jest czerwone, 2 zielone, a 3 niebieskie, to co robi indeks 0 w nowej Tasmocie? W przypadku mojej żarówki tasmota ze sterownikiem LED SM2135 sekwencja numerów kolorów wydaje się zaczynać od 0 zamiast 1, więc 0 to czerwony, 1 to zielony itd. Następnie jest kolor numer 11 i 14 z własnymi wartościami RGB, jak podano w tabeli. (zaktualizowałem...
(...) RTClib.h> #define PIN_LED 6 #define NUM_LEDS 50 #define PIN_BUTTON_HOUR 2 #define PIN_BUTTON_MINUTE 3 #define PIN_BUTTON_COLOR 4 #define PIN_LED_SECOND 5 Adafruit_NeoPixel strip = Adafruit_NeoPixel(NUM_LEDS, PIN_LED, NEO_GRB + NEO_KHZ800); RTC_DS3231 rtc; const byte segmentIndexes Okej, zmodyfikuję program tak, aby używać diody nr 51 w taśmie...
A bez makr, skryptów itp itd się nie da? ;) Niestety, nie. Możesz użyć funkcji użytkownika podobnej do tej Function LiczKolory(zakres As Range, kolor As Integer) For Each kom In zakres If kom.Interior.ColorIndex = kolor Then LiczKolory = LiczKolory + 1 End If Next End Function Wklejasz do modułu standardowego i używasz jak funkcji Excela tzn...
Kurczę, nie jarzę. Załóżmy, że mam obrazek z kolorem 8bpp (czyli 256 kolorów). Format danych koloru dla tego typu to 3-3-2 czyli 3 bity na Red, 3 bity na Green i 2 bity na Blue. Po co nam paleta skoro w bajcie danych konkretnego pixela zawarta jest informacja o jego kolorze? No chyba, że założymy, iż ktoś zastosował np. format zapisu tego bajta 3-2-3...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
A w VBA to będzie coś takiego (tylko z indeksami kolorów i ewentualnie warunkami można trochę pokombinować): [syntax=vb]For Each kom In Range("A1:A23") If IsDate(kom) Then If kom >= Date - 2 And kom < Date Then kom.Interior.ColorIndex = 45 ElseIf kom >= Date - 7 And kom < Date Then kom.Interior.ColorIndex = 3 Else kom.Interior.Color = xlNone...
Sytuacja jest tutaj troszkę zapętlona z tego co czytam i coraz bardziej komiczna. Człowieku, nie może Ci nie działać coś takiego. W tym przypadku postaw na nowo OS i tam instaluj po kolei wszystkie sterowniki, bo ta dyskusja zaczyna prowadzić naprawdę do donikąd, chyba że masz już tam jakieś poważne dane Przecież już wszystko ok... Oprócz dźwięku,...
Czekaj, nie musisz robić tego losowo. Kiedy już ustawisz coś takiego jak "BP5758D_Map 2 1 0 3 4" i wiesz, że np. zmiana koloru CZERWONEGO (indeks 0) zmieni się na niebieski (indeks 2), to wiesz, że musisz zamienić tutaj 2 i 0. ...
Jak sprawdzasz kolor po indeksie, to odwołuj się do: [syntax=vb]Cells(R.Row, "f").Interior.ColorIndex = 27[/syntax] Poza tym, przez [syntax=vb]MsgBox Cells(R.Row, "f").Interior.ColorIndex[/syntax] upewnij się, że ten "żółty" ma na pewno kod 27.
Dobrze słyszeć, że są postępy. Mogę również spróbować pomóc z kolorami, ale najpierw musisz określić, co dokładnie jest nie tak? Może być wiele rzeczy, które wymagają korekty. 1. Czy chodzi o to, że ciepłe kolory są zamienione z chłodnymi? Jeśli tak, to musisz zmienić kolejność kanałów w module konfiguracji, a przez to rozumiem po prostu zamianę 4 z...
Spróbuj [syntax=vb]Private Sub CommandButton4_Click() On Error GoTo myErr Application.ScreenUpdating = False nazwa_arkusza1 = Range("L1") wiersz_naglowka = 11 ost_wiersz = Range("A65536").End(xlUp).Row ost_kolumna = Cells(wiersz_naglowka + 1, 255).End(xlToLeft).Column Set ws = Worksheets(Worksheets.Count) pozycja = ws.Range("A65536").End(xlUp).Row +...
A zmień indeks koloru z 41 np. na 5
Więc zasadniczo chcesz, aby polecenie ustawiło kolor palety według indeksu?
To chyba nie będzie takie proste. Niestety Excel jest bardzo ubogi jeśli chodzi o "kolorowe funkcje". Wg mnie musiałbyś zrobić wzorcową tabelkę z indeksami kolorów i przepisać ją do tablicy. Następnie do drugiej tablicy przepisać indeksy z "kolorowego" zakresu do sortowania i dodatkowo umieścić je w kolumnie pomocniczej Wreszcie czymś na wzór sortowania...
Po pierwsze, nie rozróżnisz w tabeli tylu kolorów, takie niuanse normalnie zaczną się zlewać w jedno. Po drugie, bez Visual Basic będzie chyba trudno, nie wyobrażam sobie w każdej wynikowej komórce warunku zagnieżdżonego trzydzieści razy (lub wiele razy powtórzonego warunku 'OR'). W przypadku kodu, możesz stworzyć tabelę, w pierwszej kolumnie wpisujesz...
Dzięki, to może być bardzo pomocne dla tego konkretnego światła, pamiętaj tylko, że dla ogólnych świateł mamy predefiniowany przycisk: Btn_NextColor : https://github.com/openshwprojects/OpenB... Mamy również led_nextColor dla naszej predefiniowanej listy kolorów indeksów, która pasuje do Tasmota: https://github.com/openshwprojects/OpenB...
Chociażby GIMP potrafi wygenerować nagłówek języka C będący wersją raw pliku bmp, jest też Image2Code, ogólnie sporo. A jak ci to nie odpowiada to sam napiszesz taki program w 5 minut. Tak naprawdę jedyne co trzeba zrobić to przekonwertować plik bmp tak, żeby nie korzystał z tabeli indeksów kolorów, po czym wyciąć nagłówek.
Czy diody LED działają przy 1khz? omg ffs. po tym całym majstrowaniu, tak ale dlaczego inne częstotliwości podobno wymagane w postach WLED. hmm Dodano po 45 . Inne rzeczy, na które należy zwrócić uwagę w przypadku tego urządzenia, ponieważ jest tylko 1 selektor kolorów: -Po przypisaniu pinów SPI i PWM, włączenie WS2812B za pomocą "Toggle Light" spowoduje,...
, talia [/i][/i][/i][/i][/i][/i][/i][/syntax]
wg mnie ten fragment: [syntax=vb]Range("H11").CurrentRegion.Of... 0).SpecialCells _ (xlCellTypeVisible).With Selection .ColorIndex = 1000 .Pattern = xlSolid [/syntax] napisał bym tak: [syntax=vb]Range("H11").CurrentRegion.Of... 0).SpecialCells(xlCellTypeVisible).Selec... Selection.Interior.ColorIndex = 6 Selection.Interior.Pattern = xlSolid[/syntax]...
przecież w parametrze "name" tagów formularza określasz nazwy, którymi potem posługujesz się w zmiennej superglobalnej $_POST lub $_GET. NAzwa indeksu tej tablicy pokrywa się z nazwami z tagów!
Koniecznie makro? Wystarczy zastosować formatowanie warunkowe. Jeśli VBA to zainteresuj się funkcjami daty i czasu. Np [url=http://www.vb4all.pl/teoria/]Link, Funkcje>Funkcje daty i czasu>Weekday. "Podświetlenie" można zrealizować przez "pokolorowanie" tła komórki zakres.interior.colorindex=indeks koloru lub zakres.interior.color = RGB(red, green, blue)...
:arrow: adamas_nt Jak analizuje twoje kody to widzę że bardzo daleko mi jeszcze do pisania makr. Dzięki twojej wiedzy można było skrócić czas obliczeń (przynajmniej za pierwszym razem o parę sekund :) a nie milisekund,a drugie rozwiązanie też jest ciekawe) Adamas_nt 'owi należy się wielokrotne pomógł- a może nawet więcej] Ja już tylko skromnie dołożyłem...
Dziękujemy za szczegółową recenzję. To bardzo fajna tania żarówka. Nawiasem mówiąc, myślę, że jest miejsce na ulepszenia: Jeśli zastosujesz się do tego układu, koło kolorów w asystencie domowym poda Ci odpowiednie kolory. Upewnij się, że wybrałeś „Flaga 3 - Jeśli twoja żarówka używa 4 PWM, powinieneś raczej wybrać flagę 24: 24[LED] Emulate Cool...
Witam, ja bym utworzył tablicę z kolorami, następnie użył funkcji random, która losowała by z zakresu tablicy odpowiedni indeks, pod którym znajduje się dany kolor i wyświetlał go przez określony czas. Czasem można by modelować długość fazy wyświetlania i w ten sposób uzyskać efekt zmieniających się kolorów (dobrze, być napisał, jak mają się one zmieniać)....
Znalazłem w necie ciekawą procedurkę do rejestracji funkcji. Jest z nią jednak drobny problem. Ale od początku. Mam napisaną przykładową funkcję zwracającą indeks koloru wypełnienia komórki: Private Function KolorKom(Komorka As Range) As Double Application.Volatile KolorKom = Komorka.Interior.ColorIndex If KolorKom < 0 Then KolorKom = 0 End...
To polecenie umożliwia zmianę mapowania indeksów kanałów: SM2135_Map 2 1 0 4 3 można go uruchomić raz, bez autoexec, zapamięta ustawienie. Musisz odgadnąć, które to indeksy. Nie jestem pewien co do SHT30, najpierw popraw kolory, a potem pomyślimy.
Nie zgadza się ponieważ indeksy węzłów są stale inkrementowane, natomiast indeksy w pętli (zmienna f) są dla każdego folderu liczone od zera. Taka sytuacja: po dodaniu powiedzmy piątego folderu jego węzeł ma numer powiedzmy 21. Dla pierwszego skrótu w tym folderze nowy węzeł będzie miał index 22, natomiast w pętli index (zmienna f) będzie miała w tym...
Nie udało się, bo zmieniłeś kolejność kolumn. Funkcja WYSZUKAJ.PIONOWO potrafi szukać tylko od lewej do prawej. Jeśli trzeba szukać odwrotnie, to już trzeba użyć innych funkcji, np. INDEKS i PODAJ.POZYCJĘ, a w nowym Excelu X.WYSZUKAJ. Przykładowo tak: [syntax=text]=JEŻELI.BŁĄD(JEŻELI(INDEKS(...
Nie znam Visio, ale musisz w pętli dla kontrolki Shape zwiększać indeks ItemFromID(x) oraz kolor dla RGB(r,g,b).
Spróbuję dzisiaj lub jutro dodać poprawę stabilności, czy możesz pomóc w testowaniu? Co się stanie, jeśli ustawisz pierwszą, drugą i trzecią diodę LED na kolor czerwony? Może jest jakaś zmiana w indeksach?
Witam W każdej chwili można zmienić wartość zmiennej. Dlatego nazywa się ona zmienna. Miałbyś problem jakby to była stała. A rozwiązaniem problemu będzie zadelkarowac tablice w której bedziesz wpisywać kolory a indeksem zmieniać je. Pozdrawiam.
Zapodaj jakieś foto. Z reguły zasilanie ma kolor czerwony lub czerwony z indeksem.
Dodano po 50 Poniższe linijki przypisują wartości do pola, ale po kolei opiszę co i jak: [syntax=delphi] nazwa.Text:=tabButow[StrToInt(naszeButy.... //przypisanie wartości do pola nazwa z tablicy, po wybranym indeksie z pola wyboru naszeButy z tablicy rekordów rozmiar.Text:=tabButow[StrToInt(naszeBut...
Przewód +12V po stacyjce, tzw.[+15] znajdziesz na słupku "A" po lewej stronie samochodu w czarno/zielonym 102-pinowym złączu - przewód w kolorze czarnym. Ten sam czarny przewód dochodzi również do modułu sterownika kolumny kierowniczej CIM. Możesz też podłączyć się do czerwono/niebieskiego przewodu zasilania pompy paliwa w lewym progu. To podłączenie...
Dziwne pytanie, nie za bardzo wiadomo, co i jak, ale jezeli zdjecie jest czarno-biale, to najczesciej ma palete 256 kolorow w odcieniach szarosci... I sproboj odwolac sie do kazdego koloru przez indeks "0", "1", "2" itd.
UDOSTĘPNIENIE PO WPISIE - Nie widziałem twojego drugiego postu, rozproszyłem się i odpowiedziałem z opóźnieniem. Moja oryginalna odpowiedź znajduje się poniżej. Hej, skąd się wzięła składnia { }? Zrobiłem OBK, ale nie widziałem tego. To samo dotyczy "Btn2" w zdarzeniu kliknięcia. Powinien przyjmować indeks pinu. Oto nasze próbki: https://github.com/openshwprojects/OpenB...
Istnieje flaga do zapamiętywania stanu diody LED. Powiedziałbym, że trzeba zamienić indeksy, które są obecnie dla czerwonego i niebieskiego. A może podejdźmy do tego z innej strony. Czy można zrobić ekstrakcję konfiguracji Tuya? https://www.youtube.com/watch?v=WunlqIMA...
Jeżeli kolory z tabeli to prościej. Tablicujesz wszystkie, wymagane kolory i generujesz losowy indeks do tabeli korzystając np. z funkcji [url=http://www.cplusplus.com/reference/...
Jeśli przyciski pozostają w ten sposób na stronie indeksu, spróbuj ponownie uruchomić urządzenie i sprawdź ponownie. Jeśli widzisz wykonywane akcje i przyciski zmieniające kolory, oznacza to, że OBK próbuje coś zrobić, a ponieważ dane wyjściowe tego urządzenia są nietypowe (przynajmniej dla mnie w tej chwili), czegoś nam brakuje. Wypróbuję zrzut, który...
Najprościej będzie wprowadzić tablicę złożoną z rekordów i oprócz wartości zapisywałbyś także figurę a nawet kolor.
Witaj, nie ma problemu, po prostu masz niewłaściwą kolejność kanałów RGB. Spójrz tutaj: [syntax=json] "pins": { "7": "PWM;5", "8": "PWM;3", "9": "PWM;4", "24": "PWM;1", "26": "PWM;2" }, [/syntax] Indeksy kanałów (1, 2, 3, 4, 5) mówią, który GPIO ma jaki kolor. Kolejność to RGBCW. Możesz mieć je źle. Możesz to naprawić na dwa sposoby. 1. w obk przejdź...
Symbol jaki jest na radiu to ULVWMP3 natomiast indeks 7E0035156A producenta TECHNISAT.
Zakisił Ci się jakiś błąd w arkuszu "podział na kolory". Przynajmniej w tym załączonym pliku. Trzeba było zrobić kopię i to dopiero w Calc (!). Moja propozycja: -ComboBox, wypełniany przy WorkbookOpen z arkusza "Opcje" (możesz sobie dopisywać kolory) -dodatkowa gałąź w instrukcji If sprawdzająca Indeks ComboBoxa -dodatkowy warunek z wykorzystaniem InStr...
indeks kolorów excel skanować indeks indeks studenta
sterownik spawarki accord automat astra gaśnie silnik
bezpieczniki pompki spryskiwacza włącznik wyłącznik świateł
Błąd P1503 w VW Passat 1.9 TDI - Alternator Samsung – nie świecą się ikony na panelu kosiarki, brak podświetlenia, diagnostyka zasilania