moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2025-02-04 (23:30) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 5909	wpis nr 1 551 419 [ CZCIONKA MONOSPACE ] Jeżeli powiększać rozmiar zadeklarowanej pustej tablicy kolejnymi elementami tak jak to jest przy instrukcji SetLength to w VBA można spróbować tak: DIM NewSize as integer Newsize=UBound(Unikaty) + 1 Redim Preserve Unikaty(1 To newSize) i dodać nowy element : Unikaty(newsize) =123; Powinno zadziałać... ...Było nie do mnie ale 777ch chyba potwierdzi. --- wpis edytowano 2025-02-04 23:34 ---
2025-02-05 (00:19) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 422 [ CZCIONKA MONOSPACE ] hej o tej porze to się śpi przykład w Twoim module Option Base 1 Public adresy() Public Sub pokazbraki() Cells(1, 2) = adresy(1, 1) End Sub 'itd itd Sub sprawdź() 'itd............................. =========================== deklaracja zmiennej czy tablicy lub też procedury ,powoduje że zmienna,czy tablica czy procedura sa widziane w całym projekcie a nie tylko w jednym module stąd po kliknięciu w przycisk pod którym będzie przykładowa procedura o nazwie Sub pokazbraki() -->Cells(1, 2) = adresy(1, 1) wskoczy csn do [b1]czyli jeden adres z tablicy adresy ale!! musi być [coś] najpierw w tej tablicy czasem to stosowałem Public Sub scrOF() Application.ScreenUpdating = False End Sub Public Sub scrON() Application.ScreenUpdating = True End Sub ===================================== Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems Sub pary_snaiper_test_visualny() For cof = 50 To 1 Step -1 Arkusz31.Cells(1, 6) = cof * 10 Zmienianie oczekiwanie_pary_pierwsze_snaiper_1w2 Sleep 5000 'delay in milliseconds oczekiwanie_pary_snaiper_1w2 Sleep 5000 'delay in milliseconds Next cof End Sub --- wpis edytowano 2025-02-05 00:21 ---
2025-02-05 (00:27) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 423 [ CZCIONKA MONOSPACE ] fair_play Czyżbyś chciał uzyskać [resultat globalny] czyli wynik z kilku obliczeń dostępnych za pomocą deklaracji public po zakończonych kilku procesach obliczeń ? dobrej nocki --- wpis edytowano 2025-02-05 00:27 ---
2025-02-05 (08:57) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 439 [ CZCIONKA MONOSPACE ] a......tablica z nie znanym .... UBound nie wiem jak to będzie w excelu bo nigdy tak nie deklarowałem w paskalu wiem ...... musisz testować....... Użyj polecenia ReDim Preserve , aby rozszerzyć tablicę, zachowując jednocześnie istniejące wartości w tablicy. ReDim Preserve varArray(UBound(varArray) + 1) np: Option Base 1 Public Sub test_Redim_Preserve2() Public a_braki() Public tabbraki() End Sub Sub a_braki() Dim arr() As Variant ReDim arr(10, 10) arr = Range("a1:b100") ReDim Preserve arr(UBound(arr, 1), UBound(arr, 2) + 1) ReDim tabbraki(UBound(arr, 1), UBound(arr, 2)) Cells(1, 10) = UBound(arr, 2) Cells(1, 11) = UBound(arr, 1) End Sub tu: ReDim Preserve arr(UBound(arr, 1), UBound(arr, 2) +1) '......to wynik=3 ReDim Preserve arr(UBound(arr, 1), UBound(arr, 2) ) '..........to wynik =2 --- wpis edytowano 2025-02-05 09:00 ---
2025-02-05 (11:43) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8687	wpis nr 1 551 461 [ CZCIONKA MONOSPACE ] 777ch> Problem rozwiązany. Popełniłam błąd deklarując tabelę jako Public już wstępnie zwymirowaną. Później stosując w procedurze Redim, pojawiał się błąd, że została już ona zwymiarowana. Po prostu trzeba zadeklarować tablicę tylko tak: PUBLIC piątki(), a dopiero później w procedurze ją zwymiarować: ReDim piątki(piątek,1). W trakcie procedury nie zmieniam rozmiaru tablicy więc Preserve niepotrzebne. --- wpis edytowano 2025-02-05 11:45 ---
2025-02-05 (12:15) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8687	wpis nr 1 551 464 [ CZCIONKA MONOSPACE ] Czy pętlę: For Each (element) In (grupa) instrukcje Next da się zastosować do tabeli w pamięci jako (grupa)? A jeśli tak to jak określić (element) tablicy wielowymiarowej? --- wpis edytowano 2025-02-05 12:17 ---
2025-02-05 (15:35) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 485 [ CZCIONKA MONOSPACE ] fair_play Nie wiem co robisz ........ jeśli masz tablicę wielowymiarową i w dodatku public , to po zapełnieniu tablicy masz pełny dostęp do danych zawartych w tablicy . A na jakim etapie jesteś to nie mam bladego dawno nie piszę w vba , choć wydaje mi się że sporo pamiętam . Zapewne wiesz .... o co Ci chodzi.
2025-02-05 (16:02) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8687	wpis nr 1 551 486 [ CZCIONKA MONOSPACE ] 777ch> Aktualnie sen z powiek spędza mi kwestia duplikatów. Napisałeś: "Liczba duplikatów nie załatwia sprawy. Bo dalej nie znasz ilości [4 czy 5 czy 6]..... które nie występują w zbiorze." Czy na pewno? Jeśli np. w zbiorze C(40,10,5) rozłożysz wszystkie wiersze na piątki i usuniesz z nich duplikaty to odejmując od kombinacji 40 po 5 = 658008 liczbę piątek, które pozostały po usunięciu duplikatów otrzymasz liczbę braków. Wtedy zbędne jest odnotowywanie piątek w tablicy CSN. Kwestia czasu tego procesu to coś nad czym pracuję na bazie kolekcji.
2025-02-06 (10:54) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 571 [ CZCIONKA MONOSPACE ] fair_play Aktualnie sen z powiek spędza mi kwestia duplikatów. Napisałeś: "Liczba duplikatów nie załatwia sprawy. Bo dalej nie znasz ilości [4 czy 5 czy 6]..... które nie występują w zbiorze." Czy na pewno? ================================== Liczba duplikatów to problem natury wielkości listy Otóż lista ta nie mogła by przyrastać w wielki rozmiar bo się sprzęt ..... powiedzmy sfajczy istnieje bardzo szybkie rozwiązanie indexof () Raportuje zerowy indeks pierwszego wystąpienia określonego łańcucha w łańcuchu wejściowym. Jeśli łańcuch wyszukiwania lub łańcuch wejściowy nie jest typu łańcuch , funkcja wymuszając rzutowanie wartości na łańcuch. Metoda IndexOf zwraca lokalizację pierwszego znaku pierwszego wystąpienia podciągów. Indeks jest oparty na 0, co oznacza, że pierwszy znak ciągu ma indeks 0. Jeśli IndexOf podciąg nie zostanie odnaleziony, zwraca wartość -1. mamy zadeklarowana tablicę dynam_list_csn: array of string; //deklarujemy tablice dynamiczną typu string [255znaków] musimy w procedurze wykonawczej zainicjować rozmiar tej tablicy zmienna=ilelinii SetLength(dynam_list_csn,ilelinii); if (dynam_list_csn[v_lista].IndexOf(csn[xxx])>-1)and(csn[xxx]<>'') then w tym przypadku ten csn w tablicy pomocniczej csn[xxx] już istnieje bo..... >-1 oznacza że jest na liście if (dynam_list_csn[v_lista].IndexOf(csn[xxx])=-1)and(csn[xxx]<>'') then w tym przypadku ten csn w tablicy pomocniczej csn[xxx] jeszcze nie istnieje bo..... -1 oznacza że nie ma go na liście jedno zapytanie i masz odpowiedź czy na liście unikatów jest np. kod 1646492110120 [10-ka] Jeśli nie ma to dopisujesz go na listę ale zobacz na ten csn. Taka lista musiała by być podczyszczana ale ilości jakie na niej były ,musiały by być zliczane przed usuwaniem z listy. Nie wiem ile to może trwać podejrzewam że długo ........ raczej to kwestia ilości możliwości --> maxcsn niestety In VBA IndexOf does not exist. czyli ......... nie zastosujesz w excelu.............. --- wpis edytowano 2025-02-06 10:54 ---
2025-02-06 (13:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 588 [ CZCIONKA MONOSPACE ] PYTANIE do kolegi kleszka Jakie największe [v] wraz z najwyższym [k] możesz ustawić i sprawdzić gwarancję. i przy okazji .........jaki masz tam limit [b] Bo nie pamiętam pozdrawiam
2025-02-06 (13:38) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8687	wpis nr 1 551 589 [ CZCIONKA MONOSPACE ] 777ch> Powoli zaczynam się w tym gubić. Czy możesz opisać słowami jak w trakcie realizacji programu, np. "korelacje" korzystasz z procedury adresowej? Obliczasz ilość braków na starcie programu, ale jak korzystasz z niej w trakcie? Jedno zasadnicze pytanie" Interesuje Cię ILOŚĆ czy JAKOŚĆ unikatów? --- wpis edytowano 2025-02-06 13:42 ---
2025-02-06 (14:01) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 5909	wpis nr 1 551 596 [ CZCIONKA MONOSPACE ] "Jakie największe [v] wraz z najwyższym [k] możesz ustawić i sprawdzić gwarancję. i przy okazji .........jaki masz tam limit [b] 777ch czy chodzi Ci o pobawienie się kodem aby poznać możliwią najwyższą wydajność w kodzie przy maksymalnych v,k ?
2025-02-06 (14:04) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 5909	wpis nr 1 551 597 [ CZCIONKA MONOSPACE ] coś takiego na przykład gwaracja dla 10 dla systemu z 10000 zakładów z 40 liczb v 80
2025-02-06 (14:05) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 551 598 [ CZCIONKA MONOSPACE ] 777ch, parametry programu Wheeling System Validator są takie jak na screenie, w tym że : ilość bloków, które program przyjmuje zależy pozostałych parametrów rozpisu. Screen pokazuje (chyba) max. parametrów dla V=90 ale tego tak naprawdę nie jestem pewien
2025-02-06 (14:15) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 599 [ CZCIONKA MONOSPACE ] Obliczasz ilość braków na starcie programu, ale jak korzystasz z niej w trakcie? ============================================================= fair_play w korelacjach braki są liczone w locie jeśli jest odwołanie w procedurze do weryfikacji sekwencji braku w porównaniu do linni 20 liczb czy innej ilości dla warunku no np 4z5 zgodne ..... wtedy jesli zgodność.... się zgadza ta [niezgodna] liczba czyli ta przykładowo 5-ta jest próbkowana....... do wymiany za wszystkie inne możliwe w tej linni przy czym każdorazowo po wymiane liczby w linni coveru jest sprawdzana ....nowa gwarancja dla całego coveru !!!!!!!! jeśli jest słabsza lub identyczna to stara liczba wraca na pozycję tej wstawionej ............ a powinna być sprawdzana gwarancja dla linni w zsumowaniu z resztą unikatów z pozostałych linni tak by niepotrzebnie nie liczyć kazdej linni bo przeciez zmiany zaszły tylko w jednej ale........... tego jak dotychczas ..... nie zrobiłem. ============================================================= MultiTest ja nie mam........ praktycznie limitów w programie czyli mogę np. załadować 1mln linni i liczyć .... v=99[max], k=60 [max],t=10 [max] b= np. 1mln stąd moje pytanie do kleszka bo ja nie używam żadnych programów oprócz własnych do ........ tych zabaw bo tak ogólnie ........... to wiadomo iż korzystam z róznego oprogramowania ale nie do lotto czy układanek liczbowych.......o czym wpomniałem.
2025-02-06 (14:17) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 600 [ CZCIONKA MONOSPACE ] kleszek tylko vmax=47 nie da się policzyć wyżej ??? Ja mogę dla 7,8,9,10 dla kmax =60 do v=99
2025-02-06 (14:19) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 602 [ CZCIONKA MONOSPACE ] kleszek to ten zakres dla [V] dla 8-ek to tylko 47=max ?????
2025-02-06 (14:32) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8687	wpis nr 1 551 607 [ CZCIONKA MONOSPACE ] "ale........... tego jak dotychczas ..... nie zrobiłem." Nie zrobiłeś bo Ci się nie chciało, czy nie masz póki co pomysłu? Tak z doświadczenia circa jaka ilość dubli może wystąpić w tych rozpisach? Deklaracja Integer wystarczy?
2025-02-06 (14:41) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 608 [ CZCIONKA MONOSPACE ] Nie zrobiłeś bo Ci się nie chciało, czy nie masz póki co pomysłu? ======================================== bo w kwestii podmiany lub powrotu do starej liczby zmieniają się wszystkie adresy dla starej i nowej liczby w kwestii ilości występowania adresu i ............ pomysł CZYLI powroty i zamiany w adresach ..... musi być połączony z liczeniem gwarancji dla coveru na bazie czy zasadzie zsumowane unikaty z tablicy wszystkich linii w tablicy podręcznej oprócz tej buforowanej --> z unikatami z linii buforowanej no i ............ gdzieś tam w tym ........ poległem
2025-02-06 (14:43) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 551 609 [ CZCIONKA MONOSPACE ] Deklaracja Integer musi być Bo wyskakują przy dużych rozpisach ponad 300 i znacznie znacznie .......... wyżej ale to dane sumaryczne dla linii każdej z osobna --- wpis edytowano 2025-02-06 14:44 ---


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 535 536 537 ... 554 555 Wyślij wiadomość do admina Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]