https://obrazki.elektroda.pl/3221612800_... Witajcie moi drodzy. Zapraszam na relację z postępów prac nad otwartym firmware dla BK7231T. Temat ten napisany będzie w formie tutoriala, przedstawię tu krok po kroku jak opracowałem własny, wieloplatformowy (działający na Windowsie i BK7231T) mini-serwer HTTP, system konfiguracji pinów...
string Obrocony(string slowo) { string napis; int dlugosc = slowo.length(); for(int i=0; i<dlugosc; i++) { napis = slowo[i] + napis; } return napis; } bool Palindrom(string slowo) { for (int i = 0; i<slowo.length(); i++) { if(Obrocony(slowo)[i]...
Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 W VBA możesz użyć czegoś takiego: Do moderacji: Wiem, że odświeżam temat, ale może ta krótka instrukcja się komuś przyda, bo autor pewnie już sobie poradził. Usuwajcie jeśli uznacie...
No fakt, działa OK, ale jest coś nie tak ze czcionkami, ja sobie pozamieniałem cudzysłów na polski. Zobacz taką wersję, moje modyfikacje w kierunku Twoich wymagań: [syntax=c]#include <ESP8266WiFi.h> #include <WiFiUDP.h> #define buffsize 32 #define reczneIP 1 // wifi connection variables const char* ssid = "ccc"; const char* password = "ccc";...
https://obrazki.elektroda.pl/1761046600_... Pokażę tu jak uruchomić z Arduino czterocyfrowy wyświetlacz 7-segmentowy sterowany poprzez rejestr przesuwny 74HCT164 i cztery tranzystory BC546. Płytka z wyświetlaczem znów będzie odzyskana z elektrośmieci. Będzie to już kolejny temat, w którym uruchamiam wyświetlacz, gdyż omawiałem już...
Cześć. Napisałem prosty program/quiz. Nie umiem poradzić sobie z przypisaniem odpowiedzi w taki sposób aby wyświetlała się on na przycisku. Czyli załóżmy wyświetla się pytanie "pies czy kot" i pod pytaniem chciałbym dwa przyciski na lewym przycisku napis "kot", a na prawym napis "pies", potem kolejne pytanie i znowu dwa warianty odpowiedzi na przyciskach....
Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...
Jest to mój pierwszy post na tym forum więc witam wszystkich. Teraz przejdę do pytania: otóż chcę zrobić wyświetlacz z diod led 3mm o wymiarach 7x42 px czyli 294 diody. Wiem że potrzebuję jakiegoś sterownika aby podłączyć te diody portem LPT do komputera. Prosiłbym o jakiś w pełni gotowy schemat, gdyż nie jestem ekspertem w tej dziedzinie. A teraz druga...
Sorry, Chodzi o to aby makro: zaznaczyło zakres C5:F50 https://obrazki.elektroda.pl/6322808800_... https://obrazki.elektroda.pl/2228596900_...
1.Napisz funkcję służąca do sprawdzenia czy stos jest pusty. Gdy na stosie nie ma elementów, funkcja powinna zwrócić wartość TRUE, w przeciwnym razie wartość FALSE. 2.Napisz program wykorzystujący stos do sprawdzenia, czy wprowadzony tekst jest palindromem (palindrom to wyraz lub zdanie brzmiące tak samo przy czytaniu z lewej strony do prawej, jak i...
No, to po kliknięciu przyciski Utwórz formularz: ctrl.ListIndex < 1 , bo w wierszu zerowym comboboxów masz napis wybierz wartość, który też nie powinien być brany pod uwagę...
Witam. Wszystko dzieje się w formularzu ciągłym. Kod do którego będę się odnosił pojawił się już w temacie http://www.elektroda.pl/rtvforum/topic28... Mam listę ludzi i niekótrzy jako wyróżnienie chciałbym żeby dostali mały obrazek. Jednak mam następujący problem. Gdy układam warunek dla którego będzie się wyświetlał obrazek to już nie działa....
Witam. 1. Umieść na formie dwie kontrolki TIMER, 1-przycisk, 1-Label 2. Przedstawiam przykladowego proga do obslugi Timerow na zmiane napis na Labelu zmienia sie w zaleznosci od tego ktory timer liczy 3. Duzo inormacji na temat VB znajdziesz na www.vb4all.canpol.pl Option Explicit ' wlaczenie kontroli wystepowania zmiennych Private Sub Command1_Click()...
W książce Tomasza Francuza "AVR Praktyczne projekty" znalazłem bardzo przyjemny sposób na użycie USART w XMEGA posługując się fprintf lub fscanf. Niestety po przejściu na DMA okazało się, że nie da się tak łatwo zastąpić fprintf przy użyciu funkcji wysyłającej dane do bufora i dalej przez DMA do komputera. Znalazłem inny przykład w sieci z wykorzystanie...
Można i tak :) wzięte z http://laki.dvhk.pl/faq/howto_cw_sharing... Dla wszystkich którzy chcieliby oglądać programy z pakietu cyfry postanowiłem napisać FAQ by rozjaśnić im trochę w głowach , a więc zaczynamy . Co to jest sharing ? najprościej mówiąc jest to udostępnienie określonych programów poprzez Internet . Działanie jest bardzo podobne do sieci...
po sciagnieciu jednego pliku z internetu wszystko dzialalo poprawnie lecz na nastepny dzien windows 7 zaczol sie zawieszac. tzn. wlaczal sie normalnie lecz po chwili sie zawieszal tak ze nic nie odpowiadalo, mozna bylo tylko ruszac myszka. nawet sie nie dalo przeskanowac komputera avastem. po tym wszystkim uznalem ze trzeba wejsc do trybu awaryjnego,...
Cześć. Czy jest ktoś na tyle oblatany z FreeCad-em, że pomógłby naprowadzić w jaki sposób najefektywniej nanosić na modele 3D kondensatorów elektrolitycznych z biblioteki KiCad-a napisy (pojemność i napięcie)? Chciałbym przy użyciu AI zrobić sobie makro (FCmacro), które po uruchomieniu i wskazaniu źródłowego komponentu (.step z oficjalnej biblioteki...
Czy podłączałeś kabel z zasilaniem do portu z napisem "POWER PASS" czy "POWER FALSE"? do "Pass" powinno przepuścić prąd do wzmacniacza.
Przepraszam, że z takim opóźnieniem odpisuję, ale wcześniej nie było możliwości. Poniższy kod na sztywno porównuje 2 kolumny (pierwszą i drugą), ale równie dobrze zamiast procedurki (Sub), można zrobić funkcję (Function), która będzie miała dwa argumenty określające numery kolumn (albo literki kolumn). Przy większej ilości wierszy, wykonanie porównania...
Zakładając, że rzeczywiście jest string 3 wyrazowy nie ma problemu. Dokładamy podzial2 = Split(ActiveCell.Value, " ") ActiveCell.Value = "<" + podzial2(0) + " " + podzial2(1) + "> i po sprawie Całkowity kod Sub bold() Dim podzial As Variant Dim podzial2 As Variant ostatni_wiersz...
Aha, rozumiem... W takim razie musimy ustalić min. i max. godzinę dla każdej "grupy". Poniżej "dopiski" do istniejącego kodu. Najpierw kolejny błąd który znalazłem :) Dla grupy B pomija jeden dzień z zapisu, brakuje +1 we 2 miejscach we fragmencie: dwóch miejscach dostawmy 1 linijkę kodu: [syntax=vb]'przepisanie typu informacji With .Cells(wiersz, 1)...
Witam! Mam takie radyjko.Procek P83CE528EFB DC513 R20. Na wyswietlaczu FALSE - nigdy nie widzialem takiego napisu. Podejrzewam, ze blad jest w zawartosci eeproma 24w08. Czy ktos moglby podeslac binka? Ewentualnie jakies inne rady. Pozdrawiam!
To powinno pomóc kolego, do wgrania używałem SP FlashTool - jest dzicinnie łatwy, posiada tutorial na YT. http://support.lenovo.com/pl/pl/products...
Witam, Kolumna "A": numer części Kolumna "B": liczba (format jak data, ale nie do końca data np. 20140101 - czyli liczba) Kolumna "C": liczba (1 - aktywny, 0 - nieaktywny) Od razu powiem, że numery mogą się powtarzać z racji starych dat (liczb) tak więc do jednego numeru mamy kilka dat (liczb), ale tylko jeden numer będzie aktywny. Problem polega na...
Witam, Mam napisać program, który wczyta napis i znak, następnie sprawdzi, czy znak pojawił się w napisie i zwróci o tym wartość. Program ma też wczytać plik o nazwie podanej przez użytkownika. Jeśli w tym pliku, będą wiersze nie zawierające znaku podanego na początku przez użytkownika, to ma je wydrukować. Napisałem taki program, jednak wywala błąd...
if(isNaN(n) || n=""){ Zrobiłam i wszystko działa, ale nie wiem czy to prawidłowy sposób. Czy jest to zrobione w prawidłowy sposób? Dodano po 13 Dodano po 28 Jak wprowadzę literę np. A lub znak np. # to wynik pokazuje Nan to nie jest liczba, a powinno pokazać się A nie jest liczbą lub # nie jest liczbą. Jak to zrobić? Proszę o podpowiedź. Przy 1, -1,...
Wielkie dzięki, Zasadniczo miałem spytać czy jest taka funkcja w bibliotece jak nie to czy mam ją dodać, no ale już wszystko wiem. Dodano po 1 Jest specjalna funkcja w bibliotece osd.activeExternalVideo() ale używając ją obraz zaczyna skakać i nie ma możliwości odczytania go. Rozumiem że wybierając "false" urodzenie dalej używa zewnętrznego źródła do...
Zrobiłem tak jak poradziłeś: if (LCD_DisplayPicture(Obraz, 0, 0, 25, 7)==TRUE) { LCD_DisplayString5_7(" Funkcja TRUE", 2, 0); } else { LCD_DisplayString5_7(" Funkcja FALSE", 4, 0); } I pokazał się napis: Funkcja FALSE, lecz Od góry do dołu na szerokość pierwszych trzech liter Fu...
To nie było pytanie, czy nie ma błędu, a czy znaleziono szukany tekst: [syntax=vbscript]a = Application.Match(Target, w.Range("A1:A" & ow), 0) If Not IsError(a) Then w.Rows(a).Delete[/syntax] Stąd taka negowana logika.:) Powyższy kod to przerobiony kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then...
[syntax=vbscript]Sub Przycisk4_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=... Excel (*.xls*),", MultiSelect:=True) For i = 1 To UBound(plik) Set b = Workbooks.Open(plik(i)) Sheets("ORZ").Range("a146").Copy nw = a.Cells(Rows.Count, "C").End(xlUp).Row...
Witam mam problem z moim ku990i otóż postanowiłem sobie zaktualizować soft programem lg, niestety podczas aktualizacji wyłączył się komputer i telefon sie wyłączył. Teraz po naciśnięciu czerwonej słuchawki zapala się ekran z napisem lg please wait i tyle. Próbowałem wieloma metodami wgrywać soft przez bin i metoda dz żadnej reakcji restartował si i...
Zarejestruj nowe makro i wykonaj zamień to powstanie Ci taki kod: Sub Nietak() ' ' Nietak Makro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatti... With Selection.Find .Text = "tak" .Replacement.Text = "nie" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
W międzyczasie... ;) Marcin, nie mogę zainstalować makra, wyskakuje mi komunikat, że nie mam zainstalowanej funkcji False, nie kompiluje się 1. Makr się nie instaluje, 2. Nie ma funkcji False 3. Makra się nie kompilują w dosłownym tego słowa znaczeniu :) Chyba będzie prościej jak wrzucę gotowy plik - jak ten CI też nie będzei działał, to ustaw poziom...
Terminator popełnił mały błąd, sam na niego sie złapałem. Jest: UpdateData(FALSE); wynik = liczba*przelicznik; UpdateData(TRUE) Powinno być: UpdateData(TRUE); wynik = liczba*przelicznik; UpdateData(FALSE); W załączeniu masz mały przykład jak to powinno działać.
W załączniku prosty plik, który używam jako szablon przy tego typu zadaniach. Wykonuje zapytanie typu POST do strony - ta, którą podałeś, akurat z niego korzysta - i odczytuje odpowiedź. Parametry POST i ich wartości można zmodyfikować podając je w tabelce. [syntax=vbscript]Private Sub CommandButton1_Click() If Range("C2").Value = "" Then MsgBox "Podaj...
Najprościej (nie najwydajniej) wykorzystać tablicę i zapisywać w niej numery "podmienionych" wierszy i jeśli się pokrywają to zmienić zakres wyszukiwania... Sprawdź taki Private Sub CommandButton1_Click() Dim x As String, y As String Dim i As Integer, j As Integer Dim tablica() As Variant For i = 0 To 10000 x = Range("J2").Offset(...
to wtedy mozesz pokombinowac w ten sposób: If Range("A1").Value = 1 Then Columns("C:G").Sel... Selection.EntireColumn.Hidden = False End If i tak dla 2 inne wartości itd, możesz też pokombinować że 1 odsłania DEF i jednocześnie zasłania GHI, 2 na odwrót, wszystko zależy od tego co ci jest potrzebne, pozdro:)
Witam! Prosze bardzo: function delDir($dirName) { if(empty($dirName)) { return true; } if(file_exists($dirName))... { $dir = dir($dirName); while($file = $dir->read()) { if($file != '.' && $file != '..') { if(is_dir($dirName.'/'.$file)...
Możesz też stworzyć swoisty licznik - określasz max wartości na poszczególnych pozycjach, a następnie inkrementujesz najmłodszą, a w przypadku przekroczenia wartości - w pętli zmieniasz starsze. repeat inc(tab[4]); for i:=4 downto 0 do if tab[i]>max_idx[i] then begin if i=0 then exit; tab[i]:=0; inc(tab[i-1]);...
moja wariacja na temat:[syntax=c]//(at)(at)(at)(at)(at)(a... // This programe for POV massage display // //(at)(at)(at)(at)(at)(at)(at)(at)(at)(a...
Może nie jest to idealne rozwiązanie, ale spełnia postawione przez ciebie warunki. [syntax=pascal]program minutnik2; uses WinDos,CRT; const co_ile_godzin = 0; {ile godzin ma trwac odliczenie} co_ile_minut = 30; {ile minut...} co_ile_sekund = 16; {ile sekund...} kod_reset = 'reset'; {kod resetujacy zegar} kod_koniec = 'koniec'; {kod zamykajacy program}...
Jak już skleisz cały tname, to przed wysłaniem go ajaxem użyj takiej funkcji która m.in. zastąpi spacje znakiem specjalnym %20: [syntax=javascript]tname = encodeURIComponent(tname);[/syntax] A tak w ogóle, to możesz zapisywać nazwy do tablicy. Potem tablicę przekonwertować na stringa rozdzielając elementy jakimś znacznikiem (np. | ) i dopiero taki napis...
Na przykład w ten sposób: [syntax=vb]nr = "FK002301" ret = "" cut_flag = True For i = 1 To Len(nr) c = Mid(nr, i, 1) If Not IsNumeric(c) Then ret = ret & c Else If c > 0 Then cut_flag = False ret = ret & c End If If c = 0 And Not cut_flag Then ret = ret & c End If End If Next i MsgBox ret[/syntax]
Dobrze jesli naspepnym razem sformatujesz swoj kod i uzyjesz znacznikow. Myslisz ze komus sie chce ogladac takie smieci? Sub kolor() Dim litera As Range Set litera = ActiveDocument.Range With litera.Find .ClearFormatting .Text = "A" .MatchCase = True .MatchWholeWord = False End With litera.Find.Execute Do While litera.Find.Found litera.Expand...
Poprawiony program: program quiz; type pytanie=record pytanie,a,b,c,d:string[150]; prawidlowa:string[15]; oznaczono:boolean; end; var pytania:array[1..50] of pytanie; wybrane:array[1..10] of pytanie; i,j,pom,prawidlowo:integer; wybrano:string; begin pytania[1].pytanie:='Polecen...
Ten problem byl juz omawiany na forum, wystarczylo poszukac. Problem powoduje oprogramowanie od Tp-Linka. Java do aktualizacji -> www.java.com Odinstaluj: Java(TM) 6 Update 39 Complitly Browser Configuration Utility Ask Toolbar Ask Toolbar Updater Uzyj AdwCleaner, opcja Delete. Usun z autostartu: PRC - 64bit: - BHO: (Complitly) - {0FB6A909-6086-458F-BD92-1F8EE10042A0}.....
No to jesteś w domu, aby zapisywać te dodane kontrolki, utwórz list (of control), dodawaj do niej przyciski i potem z tej listy kolejno dodawaj kontrolki do Form. Listę możesz zapisywać do pliku dzięki serializacji (binnary serialization vb net), lub utwórz np datatable z kolumnami, które będą odpowiadać właściwościom dodawanych kontrolek. Następnie...
Napisałem program niby mi go kompiluje czyli jest poprawny ale czy będzie działał tak jak chcę?? ktoś może go sprawdzić pod kątem poprawnego napisania z moimi założeniami. [syntax=c]int PR1 = 10; int PR2 = 11; int SW1 = 8; int SW2 = 9; bool p4 = true; bool p5 = true; void setup() { Serial.begin( 9600 ); pinMode(PR1, OUTPUT); pinMode(PR2, OUTPUT); pinMode(SW1,...
Ok dzieki Choć dalej mam mieszane odczucia co do karty i jej osiągów. Na początku tj jakieś pierwszy tydzień użytkowania wszystko było ok co prawda nie sprawdzałem na speedtest ale wszystkie strony szybko się ladowaly a potem problem zaczął się nasilac tak że strony muszę przeladowywac po kilka razy zanim się włączy. Często pojawiają się napisy w przeglądarce...
visible false false radio start false
oporność głośnik soldano atomic schemat światła mijać przód
depollution system faulty peugeot engine fault peugeot
Lata sprzedaży nawigacji samochodowej Modecom MX4 Czy rekuperator Vaillant recoVAIR 350/3 ma złącze eBUS?
