Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
Aby wykonywać zagnieżdżone pętle musisz skorzystać ze stosu, czyli z funkcji pop i push , bo pętla korzysta z cx więc każda zmiana tego rejestru wewnątrz pętli może popsuć pętlę. Rozwiązaniem jest wrzucenie cx na stos i użycie jej w drugiej pętli a później odczytanie cx. Przykład taki "mniej więcej", bo już dawno nie pisałem w asemblerze (może nie działać...
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]);...
Coś więcej o tych liczbach? Czy się powtarzają w obrębie wiersza? Czy liczbę z kolumny A chcesz porównywać tylko z innymi w kolumnie A? Czy są uporządkowane rosnąco w wierszu? W każdym razie - w załączniku przykład takiej metody "brute-force" z zagnieżdżonymi pętlami.
Teraz wystarczy stworzyć: 1. Wzorzec figury w pamięci RAM (6x6 ze spacjami i *) 2. 2 zagnieżdżone pętle po 6 kroków do odczytu wierszy i kolumn wzorca 3. Wydruk znaku z wzorca w RAM (addr=wiersz*6+kolumna) 4. Wydruk znaku o kodzie 13 i 10 (powrót karetki i nowa linia) 5. Skok do #2 6. HLT lub rozbić figurę na pojedyncze kroki.
No to samemu chcesz się nauczyć, czy czekasz na gotowe rozwiązanie?? Jeżeli to pierwsze, to z czym masz teraz problem? Możesz teraz użyć dwóch zagnieżdżonych pętli for - jedną po wszystkich wpisanych liczbach, i dla każdej z nich drugiej, po wszystkich wylosowanych (jeżeli to w ogóle o to chodzi...). Jeżeli wpisana = wylosowana, zwiększasz jakiś licznik...
Zobacz sobie uważnie !! Przez pomyłkę w drugiej zagnieżdżonej pętli for dałeś i++ zamiast j++ , więc pętla zrobiła się nieskończona !! :D Jeżeli to poprawisz powinno działać, ale chyba masz świadomość, że ten programik będzie migał tylko diodą podłączoną do P0.0 ... Dobra rada: :idea: Używanie jako indeksy zagnieżdżających się pętli liter "i" i "j"...
Niestety kod działa w taki sposób, że zapalają się wszystkie zadeklarowane LEDy, a nie jedna po drugiej (oczywiście migają). Wszystko się zgadza. Tak, właśnie napisałeś kod :) Musiałbyś w pętli loop obsługiwać dwie dodatkowe zmienne, które wskazują na konkretny kolumnę i rząd dla leda, która ma się zapalić, a po 500ms zgasnąć - te zmienne musiałaby...
Temat jest bardzo popularny, poszukaj na google pod hasłem C# datatable export csv , znajdziesz gotowe przykłady. Skoro dane masz już pobrane do tabeli, to nie lepiej eksportować tabelę? Zwykły zapis do pliku tekstowego + dwie zagnieżdżone pętle: foreach po wierszach tabeli, a dla każdego wiersza pętla foreach po kolejnych komórkach, a w odpowiednich...
4 piętra to chyba jeszcze nie wieżowiec?? :D Jest wiele możliwości na stworzenie tego programu, ciężko jedną wybrać... Możesz tworzyć kontrolki "dynamicznie", jak pisałaś (do tego bym wykorzystał TableLayoutPanel). Dlaczego uważasz, że to "za duuuużo kodu i obliczeń" ?? Deklarujesz dwuwymiarową tablicę z losowymi liczbami, dwie zagnieżdżone pętle for......
3 to zostanie ukryty wiersz nr 3. Co do tych Twoich zagnieżdżonych pętli to nie mam pojęcia o co Ci może chodzić.
Dwie pętle zagnieżdżone - jedna dla wysokości, druga szerokości. Teraz porównujesz kolory pikseli (własność Pixel). Jeśli się nie zgodzą - przerywasz pętle i wyświetlasz komunikat o braku zgodności.
Witam Chodzi o bascoma i atmega16 Mam takie pytanko Czy w takim programie będzie mi się przepełniał stos? do If A = 3 Then A = 0 End If Incr A Select Case A case 1: do ................. ............... loop until sw=0 case 2: do ................. ............... loop until sw=0 loop Naciśniecie sw powoduje wyjście z jednego case i przejście...
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
Te Dwa przykłady które są na stronie z zadaniami rozumiem. "for(j = 0; j < 20; j++)" Określa ile wierszy pionowych. "for(i = 20; i > j; i--) cout << "X";": Pierwsza kolumna z wartością X równa się 20-ścia ("X") jeśli i jest większe od 20 odejmij Po Jednym "X'' z każdej kolumny. Opracowałem na razie: [syntax=cpp]{ int j,i; for(j = 0; j <...
Witam, Czy chodzi Ci o coś takiego jak w załączniku? Makro napisane na szybko, "na kolanie", z bezczelnie zagnieżdżonymi 5 pętlami FOR (gdzie aż się prosi aby użyć jakiejś rekurencji...), dodatkowo operacje wykonywane na liczbach całkowitych, żeby uniknąć problemów z sumowaniem i porównywaniem liczb zmiennoprzecinkowych (czyli 1 = 0.1, 2 = 0.2 etc).
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
Dopisanie pętli nadrzędnej musi poskutkować. Oczywiście jej licznik musi być niezależny od liczników pętli zagnieżdżonych. Jest kilka możliwych rozwiązań, a najprostszym chyba będzie użycie stosu, czyli: .startup mov cx, 10 petla_glowna: push cx ... pop cx loop petla_glowna .exit
Pętla (lub dwie zagnieżdżone w zależności od układu) i warunkowe przypisanie (tekst = tekst & ", " & nextTekst).
Tak na szybko to zamiast "efekciarskiego" paska, ja zwykle wstawiam wewnątrz pętli takie coś: [syntax=vbscript]For w = 2 to ost_wiersz Application.StatusBar = "Wykonywanie operacji " & w - 1 & " z " & ost_wiersz - 1 DoEvents 'operacja właściwa... Next w Application.StatusBar = False[/syntax] Natomiast wdaje mi się, że Twój program działa wolno, bo nie...
Na pierwszy rzut oka widać, że robisz podstawowy błąd w łączeniu stringów. Wszędzie o tym piszą, ale jak widać za mało... ;) Jak masz więcej niż +/- 10 złączeń tekstu, nie rób nigdy : StringBuilder i metody Append() , AppendLine() i / lub AppendFormat() . [url=http://www.cezarywalenciuk.pl/post/...
czas wykonania procedury skrócił się z 10 minut do 1,01 minuty Aż za bardzo ;) Można też wcześniej obliczyć sumę z pierwszych pętli (wynik częściowy)... to nie za bardzo rozumiem jakby to miało wyglądać w kodzie by było efektywne Myślałem o tej linii: If x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 = 34 Then Ty poszedłeś po całości ;) Jeśli zapamiętalibyśmy...
No to zrób 4 zagnieżdżone pętle for...
Nie bardzo rozumiem czemu ? (..) I za każdym razem liczby wychodzą posortowane. Myślę, ze warto trochę teorii wspomnieć, bo może ja coś pokręciłem i dlatego nie bardzo rozumiem. (..) Kiedy profesor taki własnie sposób na sortowanie nam podał ;) Moje kondolencje. Tak po prostu się nie powinno robić - nie chodzi koniecznie o kwestię działa/nie działa,...
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
A tutaj wujek G. nie zabrał?? :) For i = 1 To Len(text) If Mid$(text, i, 1) = "a" Then count = count + 1 Next
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
Hmmm, szczerze mówiąc nie bardzo mi się chce analizować program bo troszkę go zamieszałeś i właściwie to już nie bardzo wiem jakie zrobiłeś założenia działania tego progsa. W każdym razie widzę tu badanie krótki/długi przycisk i pomieszanie bezpośredniego czytania pinu z Debounce... jak dla mnie trochę to demotywujące. Rzuć jeszcze raz okiem na moje...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
nie pytajcie się mnie o jakieś szczegóły 0. Załatwione :) Ja nie będę pytał. 1. Nie liczenie wcale nie nastąpi. 2. Nie, O będzie miało stale wartość 0. 3. Daje to tyle, że wynik będzie z sufitu. A teraz kilka słów wyjaśnienia: Ad.1. W funkcji main, masz pętlę opartą o while(1). Ta pętla zostanie przerwana tylko brakiem zasilania. Program nigdy nie...
No problem polega na tym, że masz tam dużo zagnieżdżonych pętli, algorytm jest interpretowany a nie skompilowany, więc z zasady będzie działał wolniej.
Przecież to podstawy są. Zaraz po wykonaniu drugiej zagnieżdżonej pętli ma być wyświetlona nowa linia. Tyle
Inkrementacja nie może być w bloku warunkowym. Poza tym co tu jest grane z tymi strzałkami? Z jednego bloku rozchodzą się w dwie strony? Nie spotkałem się z pojęciem "złożoności czasowej". Jest po prostu "złożoność" i tyle. Żeby przeliczać to na czas, to by trzeba uwzględniać też czas wykonywania poszczególnych instrukcji. Tymczasem złożoność algorytmu...
Najwygodniej chyba zrobić to na zagnieżdżonych pętlach while/do-while... Zreszta było już kiedyś na forum o menu w C... Trzeba się wysilić i poszukać...
Przed tą zieloną pętlą musisz dać tę linię kodu a w zasadzie przenieś ją z sprzed czerwonej pętli $wykonaj_produkt=mysql_query(select.... bo za drugim razem tablica mysql_fetch_array jest już pusta i pętla while się już nie wykona
Potrzebne są dwie zagnieżdżone pętle. Zewnętrza, sprawdzająca wartość komórek w kolumnie 'A' oraz w bloku instrukcji warunkowej wewnętrzna, przeliczająca wartości w komórkach wiersza. Użyj wyszukiwarki, przykładów ci u nas dostatek.
Ogólnie mówiąc program będzie wymagał użycia 2 zagnieżdżonych pętli, i w nich wypisywania znaku, zależy jak te pętle zaprojektujesz z warunkiem lub bez, jeśli chcesz to mogę to opisać jak ja to widzę w pseudokodzie.
Ten program nie działa dobrze, bo czasy zaświecania kolumn są różne. Poza tym masz pięć zagnieżdżonych pętli, zupełnie nie wiadomo, do czego. Tego nie da się zrobić dobrze bez przerwania timera - przeczytaj to, co napisałem wyżej i zastosuj. To nie takie trudne.
No jak jeden przebieg pętli jest obarczony 20ms opóźnieniem to może się tego nazbierać. Zagnieżdżające się warunki to też nie do końca dobre rozwiązanie. Rozbiłbym to na funkcję obsługującą tylko samo rozjaśnianie wywoływaną gdy spełnione są warunki, a delay odpuścił i korzystał z normalnego timera. Dodatkowo zagnieżdżenie pętli pewnie powoduje, że...
Wszystko zależy od środowiska. Jeżeli chodzi ci o program w którym miało by to być napisane to dowolny... No to napisz w Pythonie - w sieci jest b. dużo przukładów, kursów, bibliotek. Sam program będzie b. prosty - trzy zagnieżdżone pętle for przechodzące przez tablicę zawierającą prefiksy, podstawy i postfiksy.
Na litość, oducz się etykiet i instrukcji goto! To nie jest tak do końca. Chodzi o to, że instrukcji goto używamy w ostateczności. Można jej użyć do wyjścia z mocno zagnieżdżonej pętli. W tym przypadku, goto używamy w ostateczności.
Dlaczego nie zastosowałeś porady kolegi z użyciem HashSeta? Było by bardziej optymalnie. Zamiast tablicy o stałej długości już lepiej użyć List<string> i metody Add... A błąd masz dlatego, że zagnieździłeś pętle. Po dojściu na koniec pliku 1 kursor nie wraca na początek, dlatego pętla się nie wykonuje. Rozwiązanie: nie zagnieżdżaj pętli, w pierwszej...
W tym przypadku trzeba sprawdzać po kolei. String dla porównania należałoby składać z litery (A-Z, wg. potrzeb, lub z InputBox'ów) i liczby (1-999), wypełniając zerami do długości 4 znaków. Dwie zagnieżdżone pętle For i metoda Range(zakres).Find(argumenty) . Jeżeli wyszukiwanie zakończy się błędem (Err>0), mamy wolny...
if komorka>256 then komorka=0 ppp=ppp+1 endif ale to nie ma prawa zadziałać ... Niby dlaczego ? to znaczy zadziała przy inkrementacji, ale wtedy trzeba dać inny warunek pętli i zastosować inną pętlę, lub dać zagnieżdżone pętle
Znaki "<" i ">" występują tylko jako nawiasy i nie ma ich nigdzie więcej niż w znacznikach. Modyfikację makra rozpocząłem od usunięcia tablicy znaków, jednak z modyfikacją pętli "do" nie było tak dobrze. Logicznie to tak: Skanuj komórki, jeżeli napotkasz "<" wtedy rozpocznij podkreślanie. Czyli wykonaj nasz kod z pętli do while. Po napotkaniu...
Po poprawkach działa pętla zagnieżdżona, natomiast nie działa pętla zewnętrzna, tzn. "...Później to samo tylko z D2 i F2, D3 i F3 itd. aż do pustej komórki"
Forum wymaga minimum wkładu własnego. Próbowałeś chociaż czegokolwiek? Szukałeś jakiś rozwiązań? Potrzebne będą, no oko, dwie-trzy zagnieżdżone pętle z zastosowaniem jednej z wielu metod wyszukiwania. Na chwilę obecną z tytułu pkt. 3.1.17, wątek nadaje się do usunięcia. P.S. Każdy tutaj zdecydował się pewnego dnia na napisanie swojej pierwszej pętli....
Są jeszcze funkcje INDEKS, PODAJ POZYCJĘ i kilka innych, które dałoby się wykorzystać. Oczywiście wiąże się to z liczeniem wystąpień, kolumną pomocniczą i dodatkowym arkuszem wynikowym. Jeśli kolega ma na myśli zautomatyzowanie czynności, to zagnieżdżone pętle z licznikiem wstawianych wierszy, porównywaniem, przypisywaniem, etc. Kilka przykładów podobnych,...
Makro + pętla zagnieżdżona.
Ewindentnie nie radzisz sobie z algorytmem.żadne indeksy ani ich odejmowanie nie są tu potrzebne. To jest do zrobienia w dwóch zagnieżdżonych pętlach, przy użyciu czterech wskaźników/adresów, w tym jednego stałego - początku szukanego wzorca. Jedyną potrzebną 16-bitową operacją arytmetyczną jest inkrementacja wskaźnika. Gdybyś skorzystał z rady Freddiego...
pętel zagnieżdżony funkcja zagnieżdżony przerwać zagnieżdżony
uszkodzić hamulec silnik dodge światła renault scenic światła
Moment dokręcania chłodnicy oleju Opel Vectra C benzyna Moment dokręcania chłodniczki oleju Opel Vectra C 1.8