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...
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...
Dzieje się tak ponieważ po wstawieniu węzła jego indeks nie zgadza się z indeksem w pętli. Można to zmodyfikować następująco: private void GetShortcuts(string path, TreeNode currentNode) { //zmienna do przechowania referencji do dodanego węzla TreeNode node; DirectoryInfo dir = new DirectoryInfo(path); DirectoryInfo[] dirs...
, talia [/i][/i][/i][/i][/i][/i][/i][/syntax]
https://obrazki.elektroda.pl/8287704400_... Witajcie moi drodzy Przedstawię tutaj mój projekt zewnętrznego wyświetlacza temperatury procesora z komputera. Wyświetlacz pokazuje temperatury od 0 do 99C, jednocześnie odpowiednio dobierając swój kolor. Wyświetlacz zrobiony jest samodzielnie od 0 w oparciu o diody WS2812B, sterowany jest...
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_...
Na razie pogoda pomaga w usuwaniu PM więc powietrze wyjątkowo czyste. Ale na mapach smogowych już widać zmianę pór roku: coraz częściej jasnozielony kolor prezentujacy indeks zanieczyszczeń wynika z podwyższonego poziomu O3. PM w niemal całej Polsce są zaznaczane ciemną zielenią i utrzyma sie to przynajmniej do niedzieli. Ale kwestią kilku tygodni jest...
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...
https://obrazki.elektroda.pl/3810291700_... Zapraszam na analizę, inżynierię wsteczną i flashowanie ciekawej lampy Tuya, opierającej się o indywidualnie adresowalne LEDy potrafiące odtwarzać różnego rodzaju animacje, takie jak "wodospad", "ogień", itd. Celem tematu będzie uwolnienie tej lampy od chmury i zastąpienie oryginalnego oprogramowania...
https://obrazki.elektroda.pl/2537694500_... Pokażę tutaj jak wygląda tworzenie strony WWW dla dowolnego urządzenia IoT na wieloplatformowym firmware Podstawa interfejsu REST OpenBeken/Tasmota OpenBeken ma interfejs REST zgodny z podstawą Tasmoty, co oznacza, że składania komend i zwracanych danych jest w dużej mierze taka sama. Samą...
Teraz zbierasz w kodzie tylko bajt danych, aby obsłużył pakiet musisz założyć bufor #include <SoftwareSerial.h> SoftwareSerial LIN(0, 1); // Dlaczego nie czytasz danych na pinach 2 i 3? const int BUFFER_SIZE = 64; // rozmiar bufora char linBuffer[BUFFER_SIZE]; // Bufor danych int bufferIndex = 0; // Indeks bufora void setup()...
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...
Nie znam Visio, ale musisz w pętli dla kontrolki Shape zwiększać indeks ItemFromID(x) oraz kolor dla RGB(r,g,b).
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/...
Symbol jaki jest na radiu to ULVWMP3 natomiast indeks 7E0035156A producenta TECHNISAT.
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,...
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"...
nie brak przyswajania, lecz braku odpisywania na zadane pytanie już dużo wcześniej?, dopiero kolega Kwok w końcu "zmiękł" i wstawił coś co pomoże mi sprawdzić, chodź nie zaprzeczam, że twoje tez swoje robią. Ale nie wystarczy cwaniaczć, ale pomagać innym na forach, które po coś zostały stworzone do pytania i odpowiadania.... Sorry . Post #31 Czujnik...
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...
Pojawił się nowy problem, wszystko działało jak należy, ale niestety do póki nie włączyłem rano komputera, otóż po kilku sekundach od ukazania się pulpitu, pasek zadań zmienił kolor na szary? Próbowałem go zmienić, ale nie da się, restart komputera pomaga, ale po kilku sekundach znowu się sam zmienia. Poszperałem coś w necie, przeczytałem żeby sprawdzić...
Witam, Z VBA dopiero raczkuję i nie wszystko jeszcze rozumiem. Mam pewien problem i nie wiem jak do niego podejść. Sądzę, że najrozsądniej byłoby wykorzystać makro. Oto mój problem: Mam w bazie pozakładane pozycje, które posiadają Indeks (wewnętrzy) oraz nazwa produktu zawierająca symbol producenta. Jeden z dostawców zmienił całkowicie swoją bazę min....
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
Witam od pewnego czasu mam problem z zanikiem obrazu podczas gry w League of Legends, podczas gry obraz znika za to dźwięki i urządzenia komputera działają normalnie. Problem pojawia się praktycznie za każdym razem przy 30 minucie gry. Obraz nie powraca i trzeba zrobić reset komputera. Pomyslałem, że tego przyczyną może być nieprawidłowa praca zintegrowanej...
Oto opis tego telewizora : Nowa linia: 2014 Typ: LED Kolor obudowy: Czarny Gwarancja: 24 miesiące Typ podstawy: Tak Wymiary z podstawą [ S x W x G ]: 723 x 465.1 x 163.4 mm Wymiary bez podstawy [ S x W x G ]: 732 x 427.5 x 64.6 mm Zasilanie: 220 - 240 V (50/60 Hz) Klasa energetyczna: A+ Pobór mocy podczas pracy / w trybie czuwania [W]: 32 / 0.3 W Wyposażenie...
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. ...
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 +...
Już teraz dokonałeś - Code review . Tylko szybko rzuciłem okiem. Widziałem, że sporo kodu to parsowanie czy inne wysokopoziomowe operacje. Nie użyłeś do tego celu gotowych bibliotek? Dlaczego akurat napisałeś to w C++? Czy to indeksowanie wymaga dużej mocy obliczeniowej? Przecież i tak wąskim gardłem zostaje używanie dysku. Rozwój AI zmienił zupełnie...
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(...
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.
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...
A zmień indeks koloru z 41 np. na 5
Więc zasadniczo chcesz, aby polecenie ustawiło kolor palety według indeksu?
Tak, ale chodzi o: X( I ) = I Czyli nam chodzi o to I , a nie o to I. I ono właśnie idzie co 100. Jedno i drugie I (skoro to jest to samo I :D). A to pierwsze (pogrubione I ) nie powinno. Bo tablica ma 40 elementów indexowanych co 1. Więc poinny iść co 1. Czyli powinieneś mieć dwie zmienne. Jedną do indexowania co idzie co 1. A drugą do wpisywania do...
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!
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.
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...
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]...
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,...
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...
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)...
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.
: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...
Filtry stare wywaliłem przy okazji wymiany elektrolitów i wymieniłem na współczesne, z wylutu, z indeksem S, małe żółte z kropką. To, że z indeksem S to prawidłowo, kropki powinny mieć ten sam kolor i powinny być umieszczone w tym samym rogu filtra. Pamiętaj, że wymiana filtrów to praktycznie zawsze konieczność koreekty zestrojenia demodulatora FM...
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...
Ważne by dokładnie w kroku silnika ustawić tarczę na osi. Spróbuj przekręcić delikatnie tarczę na osi, tak by magnes w kroku silnika dokładnie zatrzymywał się przy halotronie. pozdrawiam --
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...
indeks kolor excel indeks czujników skanować indeks
wymiana grzałki ładowarka modelarski kasetowe peugeot
attiny13 arduino attiny13 arduino
Wyświetlacz Frigo - problemy i rozwiązania Podłączenie AVR inwerterowego do agregatu 3-fazowego