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ć...
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.
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
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]);...
Pętla (lub dwie zagnieżdżone w zależności od układu) i warunkowe przypisanie (tekst = tekst & ", " & nextTekst).
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...
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.
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...
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"...
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...
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.
Makro + pętla zagnieżdżona.
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).
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...
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ą...
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......
a jak wykonałeś to menu ? Kilka pętli zagnieżdżonych w sobie. Wejście do podmenu to wejścia do pętli, natomiast powrót to wyjście z pętli.
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ć.
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"
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
jak mniej wygląda taki wiersz poleceń z tymi pętlami zagnieżdżonymi?
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
Też to miałem. Dodam tylko, że skrypt zupełnie podstawowy, z jednej tylko kwerendy zwyczajnie wypisać rekordy w 1 pętli. Żadnych akcji typu pobieranie danych z 2 kwerend i jedna pętla zagnieżdżona w drugiej //zestaw generalnie spacer w parku w porównaniu do tego co było w zimie
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...
No dobra ale jak np mamy 4-6 pętli zagnieżdżonych? Jak z tego profesjonalnie wyjść? Najłatwiej chyba goto, aż tak dużo nie pisze żeby mi to przeszkadzało ale zwykle dodaje jakiś warunek pętli tylko że strasznie topornie wg mnie to wygląda.
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....
No to zrób 4 zagnieżdżone pętle for...
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...
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 <...
Małe sprostowanie do poprzednika: w VBA porównanie można wykonać za pomocą dwóch pętli (zagnieżdżonych) - każdą kom. z Arkusza1 należy porównać z każdą kom. Arkusza2. No chyba, że zastosujemy funkcje wyszukujące, ale raczej myślałem o najprostszym porównywaniu każdej z każdą.
Takie rzeczy to najlepiej tworzyć dynamicznie i trzymać w tablicy. Jeśli jednak już stworzyłeś to ręcznie, to wystarczy użyć własności Controls elementu klasy TForm i badać typ (is TImage) oraz nazwę [syntax=Delphi](Controls[i] as TImage).Name = 'Foto'+IntToStr(j)[/syntax] Zwróć uwagę, że wymagana tu będzie pętla zagnieżdżona.
A tutaj wujek G. nie zabrał?? :) For i = 1 To Len(text) If Mid$(text, i, 1) = "a" Then count = count + 1 Next
Był ostatnio temat [url=http://www.elektroda.pl/rtvforum/to... w którym maglowanych było kilka rozwiązań. Kod jest logiczny i łatwy do zaadoptowania. Fakt, nie ma tam nic o podfolderach. Do pierwszego poziomu można "dobrać się" Np w ten sposób [syntax=vb]Sub Lista1() Dim path1 As String, path2 As String, plik As String Dim folder As...
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...
Najpierw znajdź ostatni wiersz. Metod jest kilka(naście), najprostsza [syntax=vb]Range("B:" & Rows.count).end(xlup).row[/syntax]Następ... dodaj do siebie wartości z komórek i podziel przez ich ilość, albo wykorzystaj Worksheetfunction.average, gdzie podstawiasz argument jak w funkcji arkuszowej czyli (dla średniej z trzech) [syntax=vb]Range(cells(ostatni_wiersz,.....
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/...
Nieuzasadniony optymizm - for (j=0;j<X;j++); - to kilkanaście instrukcji procesora '51 zajmujących po 1 lub 2 cykle, czyli ponad 20 cykli na jeden obieg. Takie opóźnienia, jeśli już ktoś bardzo nie chce używać timerów, robi się wyłącznie w asemblerze w postaci kilku pętli zagnieżdżonych z 8-bitowymi licznikami powtórzeń. Inaczej zmiana wersji kompilatora,...
"Napisałem" czy "skopiowałem i wkleiłem"? Przecież oczywistą oczywistością jest, że pętla podwójnie zagnieżdżona spowoduje przeczesanie i modyfikację obu wymiarów tablicy...
Cześć, rozwiązanie Twojego problemu jest bardzo proste. Używany przez Ciebie pakiet keyboard pozwala na akceptację kombinacji klawiszy, nie tylko pojedynczego jak tylda. Ja regularnie stosuję takie rozwiązanie, że jakąś kombinację klawiszy stosuję do "przechwytywania" sygnału, np. ALT+F3, albo CTRL+SHIFT+~ itd,, a nie sama tylda. Sprawdź sobie w dokumentacji...
wiariacyjnie - iloczyn kartezjański wszystkich możliwości przez wszystkie możliwości, czyli tabela o wymiarach tyle, ile argumentów wchodzi w zakres działania i długości odpowiadającej ilości kombinacji. A bardziej po polsku: p q wynik 0 0 ? 0 1 ? 1 0 ? 1 1 ? Dodano po 6 PS. Programistyczne iloczyn taki dla znanej liczby wymiarów tworzy się przy użyciu...
Sposobów może być kilka, ale jak już tak zacząłeś, to można to kontynuować. Można zacząć od oczyszczenia zakresu komórek przeznaczonych na wynik (żeby przy powtórnym wywołaniu procedury było widać, że coś się dzieje). [syntax=vbscript]ActiveCell.Resize(11, 11).ClearContents[/syntax]Wielkość czyszczonego obszaru można dopasować do sytuacji. Jeśli zacząłeś...
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,...
Przecież to podstawy są. Zaraz po wykonaniu drugiej zagnieżdżonej pętli ma być wyświetlona nowa linia. Tyle
Tak samo, jak break nie przerwie Ci wszystkich poziomów pętli zagnieżdżonych, tak samo jest z rekurencją. Dokładnie jak kolega wyżej radzi - funkcja musi zwracać wynik, który będzie decydował o przerwaniu każdego z wyższego poziomu po kolei. Np tak: [syntax=c]int f(int a) { if (rand()%a==0) return 1; if (f(a+1)) return 1; if (f(a-1)) return 1; if (f(a))...
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.
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...
Chodzi tu akurat o to, żeby czas trwania był najkrótszy. Chyba napiszę do autora artykułu w EP, jak tą pętlę wykombinował ;-) Przecież jest krótki. 4 cykle jak na pętlę powyżej 255 cykli to MEGA krótko. Szybciej się nie da. Tutaj: http://www.elektroda.pl/rtvforum/topic24... masz opisane jak się liczy inne pętle, bardziej zagnieżdżone.
a: po przekątnych (indeks x=indeks y) dwójki, chyba, że indeks x lub indeks y = 1 lub 5 b: jeśli indeks x=indeks y ->2, jeśli indeks y>indeks x -> 3 w obu przypadkach pętla podwójna zagnieżdżona.
zagnieżdżony pętel funkcja zagnieżdżony przerwać zagnieżdżony
gniazdo subwoofer płyta grzewcza ariston gramofon wieża
interfejs diagnostyczny interfejs diagnostyczny
Kyocera M3655idn błąd 3200 - przyczyny i rozwiązania Jak nawinąć linki i naciągnąć sprężyny w bramie segmentowej Hörmann, Wiśniowski, Big-Tor – instrukcja krok po kroku
