Dodano po 4 w proc. pd_2 pierwszy = wyszukaj_1 ' ma byc typ Long, Integer tylko do 32768, XL2007+ ma ~1000000 wierszy Dodano po 5 Raczej [syntax=vb]Function kom_1() As Range Set kom_1 = Cells.Find("Pomiar 10 listopada 2017 r.").Offset(1) End Function [/syntax] wtedy pierwszy = kom_1.row pierwszy_kol = kom_1.Column
Propozycje kodu kopiującego hurtem cały blok w dwóch wariantach. Pierwszy wariant - kopiowanie formuł, drugi - kopiowanie komórek. Porównywałem szybkość działania i oba są znacznie szybsze od pierwotnego, natomiast porównanie między nimi zależy od wielkości bloków. U mnie przy małych blokach komórek (ok. 10 wierszy) szybszy był wariant 1., a przy większych...
Zmodyfikowany kod: [syntax=vbscript]Sub Grupy2() Dim ow As Long, x As Long, nr As Long, afterP As Boolean ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If InStr(Cells(x, "A"), "/") > 0 Then ' czy jest "/" ? Select Case Cells(x, "E") Case "P2" nr = Split(Cells(x, "A"), "/")(1) ' pozycja w grupie Cells(x, "H") = IIf(nr = 1 Or afterP, "B",...
Cześć, napisałam makro, które będzie nadawać mi nazwę zakładek po kolei zadanie domowe X itp., ale nie chcę by działało na pierwszej zakładce, która nazywa się info. Jak zrobić, żeby wykluczyć z tego makra pierwsza zakładkę? [syntax=text] Sub makro_1() Dim Zakl As Worksheet 'pojedynczy arkusz Dim Nazwa As String 'nazwa arkusza Dim Numer As Long 'numer...
Kolor definiuje się jako LONG, TextBox definiujesz jako Variant, ale tak na prawdę zwraca on String. Pobierz String, przekształć w Long i dostaniesz swój kolor. Swoją drogą, jeśli InputBoxem pobierasz wartość, to co zamierzasz wpisywać? "vbRed" lub "vbGreen" czy jakiś numer koloru?
Wyskakuje komunikat z błędem, a po przejściu w debug: zaznaczone jest na żółto "DoCmd.RunCommand (asCmdSaveRecord)". Wcześniej jak pracowałem w excel to zapożyczyłem coś takiego i działało dobrze z automatu po kliknięciu sprawdzało i tworzyło hiperłącza w całej kolumnie, no ale nie mogę tego zaimplementować do Bazy danych :) : [syntax=vbscript]Sub HiperDoNCR()...
Zrobiłem coś takiego i śmiga: Sub Wkleja_dane Dim akt_wiersz As Long Numer_prac = InputBox("Podaj numer karty") Windows("XXX.xlsx").Activate Sheets("XXX").Select Columns("A:A").Select Set cell = Selection.Find(What:=Numer_prac, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False,...
Witam, mam bardzo duży problem z obsługą karty pamięci mmc, pomimo wielu godzin nie mam nadal pojęcia zielonego jak tą kartę pamięci MMC obsłużyć w Bascomie. Tu przedstawiam mój programik : Dim blad As Byte blad = DriveCheck() if blad>0 then cls lcd"blad="; blad wait 2 end if Dim Pamie512(512) As Byte ' tu bedą przechowywane dane 512 bajtów, jeden sektor...
W C można przypisać zmiennej typu long wskaźnik typu char i sprawa staje się prostra. Niewim czy w basiku coś takiego jak wskaźnik istnieje żeby można podobny numer zrobić.
wyfiltrowaniu danych, dla których data sprzedaży jest o max 3 niż mniejsza niż aktualna data Proponuję sprawdzić kod typu :idea: : [syntax=vbscript] Dim dw As Long dw = Date - 3 .Range("$A$2:$K$36").AutoFilter Field:=4, Criteria1:=">" & dw, _ Operator:=xlAnd[/syntax] Oczywiście zakres tabeli, numer pola filtrowania musisz dostosować do swoich potrzeb...
Dopisałem informowanie w MsgBox o numerach identyfikatorów usuniętych wierszy: [syntax=vb] Sub Mania() Dim ws As Long, wDel As Long Dim usuniete As String ws = 1 usuniete = "" With Sheets("Arkusz1") Do While .Cells(ws, 1) <> "" On Error Resume Next wDel = Sheets("Arkusz2").Columns(5).Find(what:=... 1), lookat:=xlWhole).Row If Err = 0 Then...
Witam. Zakupiłem Passata B5 FL 1.9 tdi AVS 2001r. Okazało się że passat posiadał automatyczną skrzynię biegów, a poprzedni właściciel założył manuala. Niestety przy tej przekładce nic nie przeprogramował. Znajmy mechanik chciał mi to naprostować ale po podpięciu komputera woła mu o kod dostępu do kodowania modułu komfortu. Chodzi o long conding i numer...
class wizytowka{ private: char imie[20]; char nazwisko[30]; char adres[50]; long int nr_tel; public: wizytowka(char *imie, char *nazwisko, char *adres, long int nr); void wypisz(); }; wizytowka::wizytowka(char *imie, char *nazwisko, char *adres, long int nr_tel){ strcpy(this->imie,imie);...
Jak to zrealizowac w kodzie? dokladnie tak jak napisal mietekn - porownujesz stan portu ze stanem z poprzedniego porownania - jesli sie zmienil (XOR) - to cos sie stalo - przycisk zostal puszczony/nacisniety. inne operacje logiczne pozwola wykryc tylko wcisniecie, albo tylko puszczenie przycisku. przykladowy kod, tym razem na ARMa, pracujacy nie w...
Witam Zakupiłem trackera tk 102 Zapakowałem kartę plus wysłałem hasło begin123456 dostałem odpowiedż wszystko ok Zadzwoniłem pod numer Plus i dostałem odpowiedź lat: long: sped:000.0 bat:F signal:L imei: 353579013578246 Nic z tego nie rozumiem ;( Dodam że instrukcję mam po angielsku dla mnie czarna magia !! Chciałbym dostawać sms z trackera z pozycją...
Budujesz sobie string'a, mamy Np SourceData:="Arkusz1!R4C1:R111C29" widzisz, że argument jest w cudzysłowach - znaczy jest typu String. String możesz złożyć z kilku części, używając znaku "&" - Np SourceData:="Arkusz1" & "!R4C1:R" & "111" & "C29" i tu zamiast Np numeru wiersza możesz podstawić zmienną (niekoniecznie typu String), wtedy Dim ostW as Long...
[syntax=c]#include <ESP8266WiFi.h> #include <ESP8266HTTPClient.h> // Zmienne konfiguracyjne const char* ssid = "nazwa"; const char* password = "haslo"; // Konfiguracje dla pierwszego Sonoffa const char* sonoff1IP = "192.168.5.31"; // Adres IP pierwszego Sonoffa const int sonoff1Channel = 0; // Numer kanału pierwszego Sonoffa const int sonoff1LedPin...
unsigned long int codecheck;// cod wyliczony int nrcodes; // numer 0-350 i 0-350, nrcode=0-700, nrcodes=0-350 unsigned char bazakodow[350]={...} nie wiem jak się dodaje w CCS5 zmienne uint bo mi nie chcą działać właśnie
Witam mam problem z fragmentem kodu: Dim WierszPoczZakr As Integer Dim KolumnaPoczZakr As Integer Dim WierszKonZakr As Integer Dim KolumnaKonZakr As Integer Dim WierszNazwy As Integer Dim Numer As Long WierszPoczZakr = 3 KolumnaPoczZakr = 1 WierszKonZakr = 3 KolumnaKonZakr = 2 WierszNazwy = 3 KolumnaKonZakr = 3 Numer = Dane.Cells(7, 5).Value...
Przekładnie do czołgów oprócz Tamiyii produkują również inne firmy. Czasem są na Allegro. W tej chwili na Allegro jest np. Chińska przekładnia Heng Long (nr aukcji 832247647). Przekładnia jest z silnikami, jednak jakość całości jest raczej marna. W modelarstwie niestety nie da się "tanio", żeby było "dobrze i pewnie"...
To jest proste. Tworzysz dwie zmienne, np. temperatura i temperatura_poprz i robisz tak : [syntax=c] if (temperatura != temperatura_poprz) { // wyslanie danych do nextion temperatura_poprz = temperatura; } [/syntax] A prosta funkcja wysłania do Nextion może wyglądać tak : [syntax=c]void wyslij_numer(int page, String objekt, long wartosc) { Serial.print("page");...
Przetestuj poniższe makro mając otwarty arkusz z tabelą wejściową [syntax=vb]Sub Sum_By_Account() Dim shSrc As Worksheet 'arkusz źródłowy Dim shDest As Worksheet 'arkusz docelowy Dim lOstRw As Long 'ostatnia zajęta komórka tabeli źródłowej Dim lOstRw2 As Long 'ostatnia zajęta komórka tabeli z wyfiltrowanymi unikatami numerów kont With Application .ScreenUpdating...
Na pewno GDMK w podtypie 3 był zamontowany do kolumn z numerem seryjnym widocznym poniżej. Tak swoją drogą czy ten zapis "LONG TERM MAX POWER 150W" to nie jest przypadkiem jakaś niezła zmyłka? Zawsze mi się wydawało, że wyższa moc ("max power", "PMPO", zwał jak zwał te marketingowe chwyty) to jest raczej moc którą mogą przetworzyć kolumny w skończonym...
Teraz pytanie trudniejsze. Chciałbym, żeby SMS wysyłał się na kilka numerów telefonów. Proszę o podpowiedź jak zmodyfikować kod. Najłatwiej to powielić funkcję sendSMS, dodać jej kolejny numer oraz numer telefonu na który ma wysłać SMS-a. [syntax=c] void loop() { if(digitalRead(przycisk)==LOW) { sendSMS(); Serial.println("wysylanie SMS a "); delay(6000);...
Niestety nie mogę zobaczyć Twojego kodu (służbowy komputer - nie wolno nic pobierać), ale schemat na wyszukanie numeru pierwszego wolnego wiersza jest taki: [syntax=vbscript] Dim Y as Long Y = Cells(Rows.Count, "A").End(xlUp).Row+1 [/syntax] Jeżeli chodzi o sprawdzenie czy Range jest pusty to można użyć np. WorksheetFunction.CountA. Jest mnóstwo podpowiedzi...
Można użyć takiej funkcji UDF: [syntax=vbscript]Function Osobno(x As String) Dim ch As String Dim list ReDim list(1 To Len(x) + 5) As String Dim i As Long, j As Long, k As Long For i = 1 To Len(x) ch = Mid(x, i, 1) Select Case ch Case 0 To 9 j = j + 1 list(j) = ch Case "(" j = j + 1 k = InStr(i + 1, x, ")") If k = 0 Then k = Len(x) + 1 list(j) = Mid(x,...
Zmieniłem parametr Interdigit Long Timer z domyślnej wartości 9 na wartość 0. Bramka zauważalnie przyśpieszyła. Nie wiedziałem, że zakończenie numeru znakiem # także może przyśpieszyć połączenie. Dzięki.
Witam Nie wiem, czy na dobrym forum założyłem temat, ale zakładam, że tak :) Mam pytanie: czy jest jakaś strona poświęcona Windows API, na której znajdę więcej informacji niż tylko proces tworzenia okna? Co dokładnie mam na myśli? Dam przykład: za pomocą funkcji RegisterClassEx mogę zarejestrować klasę okna i funkcja zwraca unikalny numer tej klasy....
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...
Witam, mam problem z czołgiem Heng Long 1/16 Scale R/C German Tiger 1 BB Tank(tym z numerem 3818 na wieży). Po włączeniu pojazdu, ten zaczyna samoczynnie ruszać działem góra-dół. Czołg też nie reaguje na polecenia z pilota. Bardzo proszę o pomoc i z góry za nią dziękuję.
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Ten program aż się prosi żeby skorzystać z rekurencji. Poniżej przykład prostego programiku zwracającego n-ty wyraz ciągu, program pisałem na kolanie ale raczej powinien działać. # include <stdio.h> # include <ctype.h> long fib (int); main (int argc, char *argv[]) { int i; long a,b,c; if (argc == 1) {...
Szukając ... rozwiązań natknęłam się na ... https://www.elektroda.pl/rtvforum/topic5... Gdzie mam pytać, jeśli nie na forum? : ) ... można na przykład w przeglądarce forumowej się "popytać" ... : ) https://www.elektroda.pl/rtvforum/find.p... https://www.elektroda.pl/rtvforum/find.p... itd. Poza tym pojęcie pobrania...
Kopiowanie zrobisz np tak: [syntax=vbnet] Sub Podzial() Dim Y As Long, R As Range Y = 2 Do While Cells(Y, "A") <> "" With Sheets("XXX" & Cells(Y, "B")) Set R = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Range("A" & Y & ":E" & Y).Copy Destination:=R End With Y = Y + 1 Loop End Sub [/syntax] Działa, jeżeli masz przygotowane wszystkie...
Witam wszystkich! Proszę o pomoc ponieważ mam problem z mercem... Chodzi o to że silnik normalnie odpala, itd, ale jak już ruszam to szybko zmienia biegi i nie ma takiego przyśpieszenia jak miał wcześniej "ostrego kopa". Teraz przyśpiesza jak mój Opel 1,6... Byłem u mechanika i mówił że to może być tzw "zawór recylkulacji spalin" i jakaś pompka która...
Dzień dobry. Borykam się z problemem użycia funkcji Application.Match przy wyszukiwaniu numeru PESEL i zwróceniu numeru rzędu w tabeli. Problem polega na tym, że funkcja ta świetnie sobie radzi, jeżeli PESEL zaczyna się od zera (np.: 01111111111), ale gdy jest już 111111111111, to wywala błąd, że nie znaleziono. Podczas próby ręcznego wpisania PESELu...
Cześć. Sprawdź, czy takie coś Ci pasuje: [syntax=vbscript]Sub Rep() Const RFrom = "A1" Const RTo = "H1" Const Src = 3138 Dim x As Long For x = Range(RFrom).Column To Range(RTo).Column Columns(x).Replace what:="#", replacement:=Cells(Src, x).Value, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False...
Jesteś uparta i nie dajesz załącznika, więc masz poradę nieco bardziej szczegółową, ale zgodną z tym, co pisałem wcześniej. Szukasz nagłówka w drugim wierszu, potem ostatniego wypełnionego wiersza w kolumnie z tym nagłówkiem: [syntax=vbnet]Dim nag As Range, ostw As Long Set nag = Rows(2).Find("Nagłówek") ostw = nag.End(xlDown).Row[/syntax]nag oznacza...
Witam Mam probelm aby wlasciwe powiazac ze soba dwie tabele w relacji 1 do wielu. Korzystam z narzedzia builder C++ 5.0. Tabele sa tworzone w paradox. Moj przyklad to tabela 1 :Id osoba (autoincremental + key) , Nazwisko (char) tabela 2 : Id osoba (Long Integer - zdefiniowane jako secondary index,nie jest ustawiony key) , Telefon(Numeric) Problem jest...
Rzeczywiście ten opis jest ciężkostrawny, nie wiadomo, kiedy chodzi o ilość, a kiedy o numer. Na przykład: wynik połączony z wierszy 3 z kolumnami odczytać "z trzech wierszy" czy "z trzeciego wiersza"? Załącznik nieco wyjaśnił, chociaż przydałby się jeszcze oczekiwany wynik. Poza tym arkusz jest tak rozbudowany, że mam wątpliwości, czy wszystko jest...
volatile struct { volatile char time volatile rmc, last_valid; Moim zdaniem tylko wyboldowane jest konieczne. Pozdrawiam Jakub
lat:53.344635 long:014.561150 speed:000.017/12/12 02:37 bat:F signal:F imei:35**************** Numer IMEI usunąłem - arnoldziq
Poszukuję wykonawcy systemu zbierania i przekazywania informacji. W skrócie system ten: - Posiada 5 przycisków. Po wciśnięciu odpowiedniego przycisku, jest sygnał dźwiękowy, a dane są zapisywane i co określony czas przesyłane na zewnętrzny serwer za pomocą sieci GSM (GPRS), np. po naciśnięciu zapisywane jest: ID URZĄDZENIA;DATA;GPS_LAT;GPS_LONG;NR PRZYCISKU,...
Dodałem tablicę z numerami i w funkcji sendSMS() zamiast jednego-stałego numeru, chciałbym mieć kolejny nr. z tablicy. Niestety nie działa. Jak powinien poprawnie wyglądać kod z pętlą do wpisywania numerów telefonów? [syntax=c] #define przycisk 5 #include "SoftwareSerial.h" long NrTelTablica[]={51848.....,51848....}; // na początek tylko 2 numery tel....
Witam mam problem z tk 102. kupiłam go wczoraj na allegro, włączyłam go zgodnie z instrukcją. Wczoraj pokazywał lokalizację idealnie. Dziś przesyła sms z linkiem do map google, ale bez współrzędnych. Nie mam pojęcia co się stało. Kupiłam go ponieważ, moja czteroletnia córka jedzie w piątek na wycieczkę z przedszkola, i chcę żeby go ze sobą wzięła. SMS...
Powinno być coś takiego: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim wrsSrc As Long, wrsDst As Long, kol As Integer Dim sProtokolu As String Dim Znalazlem As Boolean wrsDst = 3 'pierwszy wiersz docelowy sProtokolu = InputBox("Podaj nazwę obiektu lub jego fragment", "Podaj nazwę obiektu", "??") Znalazlem = False With Worksheets("RAPORT")...
Podrzucę swoje dość mocno rozbudowane w możliwości urządzenie na bazie ESP-01. Kod napisany w C (ARDUINO) . Zdalne sterowanie przekaźnikiem: Kod pozwala na zdalne włączanie i wyłączanie po zdefiniowanym czasie przekaźnika za pomocą połączenia Telnet. Dzięki temu możesz zdalnie kontrolować urządzenie Router / modem . Automatyczna aktualizacja DNS: Jeśli...
Jeden przycisk (widełki telefonu) ma obsłużyć 3 funkcje: 1 - off - podniesienie widełek, możliwość wprowadzenia numeru do zmiennej realizowana do czasu krótkiego naciśnięcia widełek 2 - on (1-3 sek) - krótkie naciśnięcie widełek i zatwierdzenie wprowadzonego numeru, dalsza rozmowa już w trybie off przycisku do czasu długiego wciśnięcia widełek - odłożenie...
Cześć, Wykorzystałem poniższy działający kod makro z Excela, ale potrzebuje go przenieść do makra w Google Docs, App Script. W skrócie skrypt porównuje kolumnę F w arkuszu Zamowienia z kolumną A w arkuszu Urzadzenia . Jeśli wystąpi w tych kolumnach ten sam numer to usuwa cały wiersz zawierający ten numer ale tylko w arkuszu Urzadzenia . [syntax=vb]Sub...
Przykładowe makro: [syntax=vbscript]Sub numery() Dim coll As New Collection Dim ow As Long, i As Long ow = Range("A" & Rows.Count).End(xlUp).Row On Error Resume Next For i = 2 To ow If Range("A" & i).Value <> vbNullString Then coll.Add coll.Count + 1, Range("A" & i).Value If Err = 0 Then Range("B" & i).Value = coll.Count Else Err.Clear...
Mam problem z zakodowaniem kierownicy multifunkcyjnej. W oryginale wszystko hulało. Problem zaczął się wtedy, gdy uszkodziła się taśma (nie było klaksonu, airbag i sterowanie multi) Po zakupie o tych samych numerach koncówka 8K0953568F nie chce mi się zakodować w module 16 Po odznaczeniu w Long Coding Helper wyskakuje komunikat Coding rejected. error...
i dont knew exactly how long you shuld keep this radio on the freezer, me friend told me about one night but i think you try put the radio for one hour and heck what heppend if doesnt work put the radio for long time but remember its may be syriously damaged for your radio, good luck
Cześć wszystkim! Mam pewien problem, a mianowicie potrzebuję szybki (1 kHz) przetwornik A/C, obsługą RTC i karty SD. Zbudowałem takowy na Arduino UNO, ale częstotliwość próbkowania jaką uzyskuję to max 49 Hz. A/C na pinie A0. Macie jakiś pomysł? [syntax=c] #include <Timers.h> #include <Time.h> #include <TimeLib.h> #include <SPI.h>...
Tak jak to zapisałeś Zmb = Replace(zma, "AND(RC to raczej nie będzie działać poprawnie. Gdyby był załącznik, to by było widać. Funkcja Replace nie obsługuje znaków zastępczych, więc w taki sposób jak proponujesz tego nie zrobisz. Istotne jest czy ta fraza "AND(RC[" występuje zawsze na początku formuły i czy zawsze tam będą 2 cyfry. Jeśli tak, to można...
UWAGA na PLAY!!! Oto lista problemów jakie zgotował mi PLAY od początku trwania umowy zawartej na początku 2012 r. (taryfa Long Play II – przeniesienie numeru z Play Fresh na kartę do abonamentu + telefon Nokia C1-01) - na pierwszej fakturze bezpodstawne naliczenie opłaty za pakiet Play Online w telefonie w kwocie 48 zł, którego nigdy nie zamawiałam...
Ok. Niżej znajduje się definicja typu callbacka funkcji API pewnego urządzenia jaką ładuję z dll, dostarczonej przez producenta. long - definiujący baudrate transmisji i int - określający numer portu. Mam tutaj podobny problem jak z konwerterami. Urządzenie zgłasza się jako com30 i nie mam możliwości jego obsługi. Nie mam też możliwości sformatowania...
Zrób testy softem ST, SeaTools: http://www.seagate.com/pl/pl/support/dow... może wyświetli jakiś numer błędu. Który z testów mam zrobić? SMART CHECK? sHORT dRIVE sELF tEST? Short Generic,Long Generic? Advanced Tests? Czy Fix all? Dodano po 0
Witam. uczę się programowania od 2 dni bo potrzebowałem ułatwić sibie zadanie. stworzyłem takie program Sub konta() Dim numer As String Dim wiersz, kolumna As String Dim x, y As Long Dim a As Byte Dim varWcisniety, varID As Variant podaj: podajnr.Show numer = Range("A29") If numer = "" Then varWcisniety = MsgBox("Nie...
Spróbuj poniższego kodu. Co prawda napisałem go "na kolanie", sprawdziłem tylko czy się kompiluje, ale zapewne zawiera kupę błędów. Idea jest taka, że wywołujesz wielokrotnie funkcję IrReceive(), aby odczytać pojedynczy bit z IR. Funkcja zwróci true, gdy odczyta pełne 11 bitów (również bit startowy w pozycji LSB; musisz sam sprawdzić, czy bit startowy...
To w takim razie przesyłam mój kod: Sub Makro1() If Sheets("Umowy").Range("U4").Value >= Sheets("Umowy").Range("O4").Value Then MsgBox "Całość kwoty etapu została zafakturowana" Else Sheets("Umowy").Range("A4:O4").Copy With Worksheets("faktury") ActiveWorkbook.Worksheets("faktury").Ran... 0).PasteSpecial Paste:=xlValues...
Od razu zaznaczę, że nie znam się na elektryce samochodowej, mój temat to naprawa liczników, ale może coś uda się podpowiedzieć. Błąd w ECM moim zdaniem nie ma nic wspólnego z kontrolką ESP. Skoro masz VCDS, wejdź w 17 - Instruments (licznik), potem Coding, i w zależności czy masz Soft Coding czy Long Coding (raczej to pierwsze), jeżeli Soft to po najechaniu...
Dorzucam opis programu i sterownika: [syntax=c]// Deklaracja struktury danych przechowującej parametry silnika krokowego typedef struct {...} Stepper_t; // Inicjalizacja struktury danych przechowującej parametry silnika krokowego // me - wskaźnik na strukturę przechowującą parametry silnika krokowego // number_of_steps - parametr silnika określający,...
Witam, Mam problem z makrem. Zawiesiłem się w pewnym momencie i nie mogę iść dalej. Mam makro, które dopisuje dane w kolumnie A, B i C i dalej w kolumnie O jest dzień tygodnia, z którego pochodzą dane. Chce, żeby makro znalazło pierwszą wolną komórkę w kolumnie O, zapytało przez Inputbox o numer tygodnia a po wpisaniu numeru i kliknięciu ok, chce aby...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
Takie czyszczenie w pętli nie jest zbyt efektywne: lepiej od razu wyczyścić cały zakres, jak już, to możesz przecież napisać: Sporządził: , sprawdził, czy jest on większy niż 17, a jeżeli tak, usunął: Set arkO , jeżeli tego nie używasz - w zupełności wystarczy wrzucić nazwę tego arkusza bezpośrednio do With.
Witam na sprzedaż mam tarczę diamentową Firmy Tyrolit Sprzedaje ponieważ jej nie potrzebuje Cena takiej w sklepie to ponad 700 zł a u mnie o wiele taniej * Średnica tarczy : fi 350mm * wysokość segmentu: 10mm * średnica otworu: 25,4mm Tarcza STANDARD LL (long Life) Tarcza jest Nowa z opakowaniem , Książeczką kontakt GG 4394670 http://obrazki.elektroda.net/90_12850009...
(at) longines moze i nie rowny, ale Xetron napisal jasno, ze ma dokladnie savage4. btw, tak mam savage4 creativa, chcesz fotke? :P (at) childmaker fakt, powinno byc napisane w j.polskim :) ztcw savage4 to karta pracujaca z napieciem 3,3v. producent nie zaleca uzywania takich kart graficznych w tym modelu plyty glownej i wydaje mi się, ze to jest przyczyna...
Cześć, przełożyłem pompę ABS która posiada maksimum opcji w tym DDS (który zadziałał od strzała) oraz HSA który nie działa - pompa zgłasza błąd: - C0287-00 Longitudinal Acceleration Sensor Circuit Malfunction. Obstawiłem że mój Yaw Rate sensor jest tej funkcji pozbawiony (13 257 072 - AA), więc kupiłem 13 208 665 - BB. Problem jaki się pojawił to konektor...
Zwraca wartość liczbową numeru wiersza. Jest to pewniejsze niż formuła zastosowana przez Ciebie. No i na wszelki wypadek - zmienne typu Integer to wartość 32 tysiące z groszami. Jeżeli masz długą listę - bezpieczniej jest zastosować typ Long.
Witam. uczę się programowania od 2 dni bo potrzebowałem ułatwić sibie zadanie. stworzyłem takie program Sub konta() Dim numer As String Dim wiersz, kolumna As String Dim x, y As Long Dim a As Byte Dim varWcisniety, varID As Variant podaj: podajnr.Show numer = Range("A29") If numer = "" Then varWcisniety = MsgBox("Nie...
Brakuje chyba jeszcze jednej pętli zmieniającej kod sklepu. Hmm, raczej: na pewno ;) Spróbuj[syntax=vb]Sub asd() Dim wiersz, nr, ilosc As Integer Dim ostWrs As Long, w As Long, ile As Integer ostWrs = Range("B65536").End(xlUp).Row wiersz = 1 Range("C1:D1500").Clear For w = 1 To ostWrs nr = Cells(w, 1) ilosc = Cells(w, 2) For ile = 1 To ilosc Cells(wiersz,...
Witam. Pewnie zabrzmi to głupio aczkolwiek lubię się upewnić czy pewne rzeczy robię dobrze czy też źle. Jako iż nie dysponuję w tym momencie pod ręką programatorem to nawet nie mogę sprawdzić czy dobrze piszę czy nie. Rozchodzi się o zmianę programu napisanego na Atmegę16 tak aby pasował do Atmegi8. Jest to nadajnik podczerwieni o określonej częstotliwości...
No przy tablicach się nie upieram. Może jest jakiś lepszy sposób. A co chcę zrobić- chcę wysłać wynik pomiaru- obojętne czy to będzie jak w przykładzie licznik czy pomiar czegokolwiek innego na wyświetlacz sterowany przez MAX7219 przez SPI. Czyli z tego co dotychczas rozumiem- zamienić wynik na BCD i po kolei wysyłać na poszczególne wyświetlacze w pakiecie-...
Primo nikt nie bedzie łączył z biblioteką wielkich liczb, bo ten algorytm to część większego projektu, w którym zmienne większych rozmiarów nie są potrzebne. Secundo mój program działa nawet dla n=1000 i k=400 z tym, że nie da się uzyskać kombinacji o numerze większym niż 2 czy 4 miliardy, ale nie potrzebuje tego, bo maksymalny numer będzie ograniczony,...
Nie bardzo rozumiem, zdaje mi się, że long to zmienna całkowita. Poza tym tak jak napisałem, mam dedykowaną aplikację, która zawsze wysyła mi dane w takim formacie: pierwsza cyfra - numer instrukcji; A dalsze trzy (jeżeli używane, jak nie, to po prostu zera) dane przesyłane. Przykładowo po odebraniu 2000 program rozpisze to na 2 i 000, co spowoduje...
1. zakres F6:AJ95 ... 2. wykluczył czyszczenie co trzeciego wiersza, tz. żeby w powyższym zakresie nie wyczyścilem mi wierszy: 6, 11, 14, 17 itd. do końca zakresu ... ... (i - 2) Mod 3 <> 0 ... Trochę dziwnie to wykombinowaliście, bo właśnie czyścisz sobie zakres wiersza nr 6, a pozostawiasz nr 8 z zakresu początkowego, który miał być właśnie...
Witam serdecznie, ostatnio pisałem w tej sprawie w innym poście ale nie uzyskałem odpowiedzi. Mój problem jest następujący: -Pod koniec marca kończyła mi się umowa z operatorem sieci komórkowej PLAY, więc chciałem ją przedłużyć prez telefon bo salon jest oddalony o 64 km. ode mnie. I tak zrobiłem kurier z umową miał przyjechał na drugi dzieć Za 2 dni...
Można zadeklarować prawidłowo zmienną eeram W ten sposób Dim Adres_er(size_t_mac) As Eram Byte At Adres_p_mac Poprzez komende AT znam adres, po jaki będzie się odwoływać zmienna eeram w pamięci. Niestety, ale z Eepromem ten numer nie przejdzie , ponieważ Bascom ignoruje etykiety w Eepromie. Deklaruje, jakie wartości powinny być zapisane w eeram...
To czemu tych kodów nie ma w Twoim pliku przykładowym, jeśli do nich się odnosisz? Nie jest to może najprostsze rozwiązanie, ale nie będę Ci za bardzo mieszał w tym co działa. Możesz spróbować dodać zmienną ost do kodu w arkuszu "Pierwszy Tydzień" : [syntax=vbnet]Public ost As Long Private Sub Worksheet_Activate() If Range("H6") = "drukuj" Then Range("H7").Value...
Marka: RENAULT Model: Logan Sandero II Model: Logan Sandero II Rok produkcji: 05 2015 Typ pojazdu: B8AL Vehicle_fabrication_number A485455 Kod silnika: K9K612 Nr silnika: D292516 Gearbox_type_and_suffix JR5368 Gearbox_fabrication_number A094296 Drive: Z lewej strony Opcje: Typ pojazdu: B8AL; Numer fabryczny pojazdu:...
SimpleMAC ma możliwośc obsługi do 10 węzłów, Ja bym nie był taki pewny :) Panowie z EP napisali coś, o czym nie mają pojęcia. Każde urządzenie (każdy MCU) ma własny, unikalny numer (wykorzystywany w przykładowej aplikacji jako long address) - 8 Bajtów. Dodatkowo (w przykładowej aplikacji solar-system.c) adres tzw. krótki programiści ustalili na UINT16....
Interesuje mnie normalna dotacja wypłata z urzędu skarbowego nie jakieś z gminy. Montuje mi firma dzielimy się dotacją 50/50 i po sprawie. 4 panele to nie może kosztować kroci. 6 paneli do homylesa ok ale jaki jest sens phac 6 paneli 380 a nie 4 panele 500 czy 550. Do mikroinwertera 2000 4T. Raz miejsce dwa cena. Masz wprawdzie może 250 W więcej ale...
Witam. Posiadam telefon bezprzewodowy Swatch cordless II pochodzący z niemiec. Telefon ten nie występuje na polskim rynku. Zmieniłem piny w kablu, i mogę odbierać rozmowy, ale podczas wybierania numeru na początku samoczynnie wybiera cztery cyfry, które podejżewam, że są numerem kierunkowym (np.: 0048), po dalszym wybraniu numeru słyszę głos iż niema...
longines- a masz cosik takiego? to byłbym chętny......
Co do Geniusa - jaka inna centralka? G-Bat Brain JA592 to dokładna kopia Faaca 452 MPS - chyba że teraz jakieś jeszcze inne dokładają. I do niej bez problemu podpinasz 2 albo 3 pary fotek. Do Gadek80 - zworka 11-14 (lub przycisk STOP NC) jest w instrukcji ale na osobnym rysunku, na rysunki podpięcia fotek już jej nie ma a powinna być. Błąd instrukcji....
Witam, próbuję zrobić debuger, kompiluję w GCC taki przykładowy kod: [syntax=c] int Global1; int Global2; int Main() { int Var1; int Var2; Var1 = 100; Var2 = 200; puts("debug test.\n"); return Var1+Var2; } [/syntax] wychodzi coś takiego: [syntax=asm] .file"test.c" .section.debug_abbrev,"dr" Ldebug_abbrev0: .section.debug_info,"dr" Ldebug_info0: .section.debug_line,"dr"...
Poza tym nie ma czegoś takiego jak unsigned long long int, bo błąd kompilator wywala. Może zależeć od kompilatora. Swoją droga ciekawe czemu pseudo-twórcy C++ dali tylko możliwość do 4 miliardów obliczeń. To nie twórcy wymyslają takie ograniczenia, tylko matematyka (2^32=4mld) To jak są konta bankowe 25-cyfrowe bodajże to pewnie programiści pracujący...
Cześć, Posiadam kod, który z jednego folderu otwiera wszystkie pliki, które się w nim znajdują i kopiuje ich wartości do jednego pliku zbiorczego (oczywiście wszystkie pliki posiadają taką samą strukturę). Każdy plik posiada swoją własną unikalną nazwę np: 34_190_2023-05-19 Potrzebuję aby przy kopiowaniu danych z każdego arkusza dodatkowo wstawiał kolumnę...
A może chodzi o coś takiego: [syntax=vb] Option Explicit Sub Posklejaj_Klik() Dim i As Long Dim Wprowadzone As String Dim IloscArkuszy As Long Dim OstWierszArkusz1 As Long IloscArkuszy = ThisWorkbook.Sheets.Count Do While Not IsNumeric(Wprowadzone) Wprowadzone = InputBox("Wprowadź od którego arkusza chcesz sklejać dane", "Sklejanie", "2") Loop i = Wprowadzone...
Pomysł Projekt powstał w celu ułatwienia sobie życia 🙂. A mianowicie nie mam podświetlenia ambient light w TV, więc postanowiłem zamienić sobie lampkę stojącą obok TV na ładne podświetlenie za pomocą paska LED, które będzie wł./wył. za pomocą pilota IR. Jako że na pilocie mam przyciski, których nie używam przy standardowym oglądaniu (REC, REV,...
Jaka jest zależność prędkości obrotowej tego wiatraka ze zdjęcia od prędkości wiatru wyrażonej w m/s ? Z jakiego powodu uważasz, że aktualny sposób pomiaru nie jest "precyzyjny" ? Może i jest precyzyjny ale trzeba znać jego parametry, wiedzieć jak wpisać do wsadu Arduino odpowiednie cyferki, a ja tego nie wiem, bo sprzedający mi nie potrafił nic na...
Witam, Napisałem programik do wpisu szeregowego. Używam dwóch 16-bitowych rejestrów z zatrzaskiem MBI5029GD i steruję 32 diodami LED. Jak wpiszę poniższy program, to zaświeca się tylko pierwsze 16, pozostałe 16 milczy. Wymieniłem układ, to samo. Podobna procedurka w Bascomie zaświeca wszystkie LEDy. Dlaczego zaświecane jest tylko pierwsze 16 sztuk?...
Ciekawy projekt, jednak mam dwa pytanka :) Jak jest zasilany tranzystor Q4 ? Co z tymi węzłami (punktami) na schemacie? Wyglądają tak, jakby były trochę nie na swoim miejscu :wink: Faktycznie węzły się rozjechały :) https://obrazki.elektroda.pl/2617970900_... #define wylaczeniePin 3 #define klaksonkierunkiPin 9 #define syrenaPin A6...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
Zwróć uwagę że w Twoim kodzie nigdzie nie podajesz informacji prockowi gdzie ma zmierzyć napięcie. Przed konwersją musisz w rejestr ADMUX wpisać numer kanału ADC. Robi to tą linijką programu: Korzystam z ADC0, domyślnie ustawione są na 0 czyli powinno się zgadzać. że ustawienie w tym wypadku jest domyślne jest błędne, choć kanał autor swoim programem...
To zależy co masz zamiar zrobić? Tutaj masz kody: 10 RFPI 0075818441 11 1-4/3 Pauza wybierania 12 1-3/1 Pauza po naciśnięciu [R] 13 0-1/0 Automatic attenuation correction(dependant on country) 14 0-4/1 Time for end of call identification (to distinguish between 2 ringing pulses of one call with long pauses between pulses and 2 separate calls) 15 0-1/0...
Przykład ( fragmenty kodu ) jak to zrobić. [syntax=vb]'****************************... '* Klawisz ZAPISZ zapisanie danych do arkusza * '***************************************... Dim b As Integer, a As Integer Dim nazelem As String, typob As String, opisel As String, sztuk As String, magaz As String ' 'zapis danych do wybranego arkusza...
Zła definicja TXE_bb (brak volatile, zły numer bitu itp). obsługiwane złe SPI Brak czekania na koniec transmisji przed zwolnieniem CSa. Złe definicje czy złe SPI nie wchodzi w grę, skoro program bez optymalizacji działa. Nie wiem jak definiuje się bb z volatile - proszę o przykład. U mnie jest tak: #define m_BITBAND_PERIPH(address, bit) (BITBAND_PERIPH_BASE...
(at)clubs Masz rację, jak usuwam linijkę w kodzie z dodatkowym "findem" to pętla działa poprawnie. Poprawiłem trochę kod i praktycznie został mi tylko jeden "find" ale bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. A bez tego cały projekt do piachu.... Miałem wstawić plik, ale niestety z braku czasu...
Witam Mam problem z lokalizatorem GPS TK-102B (przez operatora Play urządzenie jest identyfikowane jako Deao TK108) Standardowo pozycję urządzenia uzyskuję poprzez połączenie na numer karty Play i tracker odsyła SMSa z pozycją np: lat:50.00000 long:19.00000 speed:000.4 T:05/23/20 14:14 http://maps.google.com/maps?f=q&q=50.000... BATTERY:...
panele longi longi panel fronius longi
mazda centralny filtr zasilania buczenie radio clarion zmieniarka
panasonic aquarea panasonic aquarea
Zawór upustowy i wąż turbo w Mercedes Viano 3.0 CDI: diagnostyka i naprawa Zgodność wynalazków Tesli z rzeczywistością techniczną