moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2021-02-05 (22:27) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 686 [ CZCIONKA MONOSPACE ] kleszek wyników podobnych jest......wiecej 1,6,9,16,19,22,27,28,29,32,37,43,50,53,60,61,64,72,75,80 Trf.4z20 = 1 Trf.3z20 = 42 Trf.2z20 = 239 Trf.1z20 = 367 Trf.0z20 = 144 188 PLN , 1,6,9,16,19,22,27,30,33,39,44,46,50,54,55,57,64,65,66,69 Trf.4z20 = 2 Trf.3z20 = 37 Trf.2z20 = 252 Trf.1z20 = 360 Trf.0z20 = 142 188 PLN .............................................................. Twój 1,6,9,16,19,22,27,28,29,32,37,43,50,53,60,61,64,72,75,80 Trf.4z20 = 1 Trf.3z20 = 42 Trf.2z20 = 239 Trf.1z20 = 367 Trf.0z20 = 144 TERAZ zauważyłem że mój to wcześniejszy Twój --- wpis edytowano 2021-02-05 22:31 ---
2021-02-05 (22:31) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8791	wpis nr 1 344 688 [ CZCIONKA MONOSPACE ] kleszek> dziękuję
2021-02-06 (00:01) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8791	wpis nr 1 344 700 [ CZCIONKA MONOSPACE ] No to zjeżdżamy dalej: 9745 -272
2021-02-06 (08:59) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 729 [ CZCIONKA MONOSPACE ] 777ch, Twoje makro świetnie daje radę Gratulacje! To wersja "non public" ?
2021-02-06 (10:11) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 744 [ CZCIONKA MONOSPACE ] hej Makro zarejestrowane 2013-07-23 to już kiedyś udostępniłem , mam gdzieś te dane na Hd teraz tylko dodałem linijkę aby kryterium akceptacji zamiany liczby w sekwencji to była suma [w tym przypadku wygrane za 5] a te nieważne linijki wyłączyłem poznajesz to ext spr TABTR(z, 1) = TR TABTR(z, 3) = HIT TABTR(z, 2) = Straf TABTR(z, 4) = kasapln Next z Range(Cells(2, 47), Cells(zest + 1, 50)) = TABTR 'wypis ilości Trafień oraz dodana suma w pln 'If Cells(3, 47) < Cells(2, 47) Then _ 'Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value 'If Cells(3, 47) = 0 Then Exit Sub 'If (Cells(3, 48) < Cells(2, 48).value) And Cells(3, 47) <= Cells(2, 47) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value 'If (Cells(3, 49) < Cells(2, 49).value) And Cells(3, 48) <= Cells(2, 48) _ 'And Cells(3, 47) <= Cells(2, 48) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value 'If (Cells(3, 50) < Cells(2, 50).value) And Cells(3, 49) <= Cells(2, 49) _ 'And Cells(3, 48) <= Cells(2, 48) And Cells(3, 47) <= Cells(2, 47) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ '= Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value If (Cells(3, 50) < Cells(2, 50).value) Then Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)) _ = Range(Arkusz51.Cells(3, 1), Arkusz51.Cells(3, SKREsLEn)).value If maxkasa > kasapln Then maxkasa = kasapln If kasapln > maxkasa Then Exit For Next POZB Next poz 12 Next b 11 Next a 987 Range(Arkusz31.Cells(7, 7), Arkusz31.Cells(7, 6 + SKREsLEn)) _ = Range(Arkusz51.Cells(2, 1), Arkusz51.Cells(2, SKREsLEn)).value itd itd poznajesz to ? --- wpis edytowano 2021-02-06 10:15 ---
2021-02-06 (10:26) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 747 [ CZCIONKA MONOSPACE ] Z pewnością tego nie widziałem. Pierwszy raz widzę taki fragment kodu. Pamięc mam dobrą do takich rzeczy Jeśli to możliwe, wyślij mi ten arkusz. Jeśli nie ... no problem Testuję evolvera na systemie 20730. Evolver wykorzystuje algorytm genetyczny ( colkolwiek by to miało znaczyć ) I bingo. Po 3 minutach znalazł tą 20-stkę z wartością 7728. To albo kwestia szczęścia, albo właściwego doboru parametrów. Tego jeszcze nie wiem Ale wiem, że to świetne narzędzie do takich rzeczy. Dokładnie tak samo jak Twoje makro Pozdrawiam!
2021-02-06 (10:28) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 344 748 [ CZCIONKA MONOSPACE ] Algorytm genetyczny http://home.agh.edu.pl/~vlsi/AI/gen_t/
2021-02-06 (11:22) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 767 [ CZCIONKA MONOSPACE ] Ten arkusz jest privat poszukam tego arkusza który bodajże na prośbę MrRandom kiedyś udostępnłem , albo zrobię nowy ....... ale trochę musisz poczekać bo dziś tylko zaglądam , "siedzę" akurat ......w paskalu
2021-02-06 (11:23) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 768 [ CZCIONKA MONOSPACE ] 777ch, nie ma problemu. Miłego weekendu życzę
2021-02-06 (17:16) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 842 [ CZCIONKA MONOSPACE ] kleszek Skoro ten program zrobił to w 3 min to nie ma co szukać innego . A możesz podać 10 Multi dla [12932 losowań czyli do dziś 14] dla warunku min. suma wygranych . Molek jak by ci się chciało ,to podaj 10 z Twojego narzędzia .
2021-02-06 (17:25) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 844 [ CZCIONKA MONOSPACE ] Może jednak nie warto tego sprawdzać, bo nikt tego nie .....zamawiał, a zwłaszcza że to zakres.....bez sensu .
2021-02-06 (17:31) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 344 846 [ CZCIONKA MONOSPACE ] 777ch, ale Twoje narzędzie - niczym diamenty - będzie wieczne, zaś program Evolver to 15-dniowy trial, zaś płatna wersja jest w abonamencie i sporo grosza w funtach kosztuje: https://www.palisade.com/evolver/default.asp https://www.palisade.com/cart/decisiontools_suite.asp --- wpis edytowano 2021-02-06 17:32 ---
2021-02-06 (17:38) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 849 [ CZCIONKA MONOSPACE ] Cyt. "Może jednak nie warto tego sprawdzać, bo nikt tego nie .....zamawiał, a zwłaszcza że to zakres.....bez sensu ." Myślę, że warto Dla sportu. Zobaczymy co wyjdzie. Zaraz przygotuję arkusz do wyliczeń i odpalę evolvera
2021-02-06 (17:38) Molek Data rejestracji: 2005-12-12 Ilość postów: 4801	wpis nr 1 344 850 [ CZCIONKA MONOSPACE ] Witam Leszek, dla tego rozpisu 793 5-tki ,to masz racje. Jest dużo układów spełniających warunek 188. Poniżej zejść to ciężka sprawa. A 10- tka ? No można się pobawić w szukanie minimum WYGRANA. Kto da mniej ,ale do określonego Losowania. pozdrawiam
2021-02-06 (17:45) Molek Data rejestracji: 2005-12-12 Ilość postów: 4801	wpis nr 1 344 854 [ CZCIONKA MONOSPACE ] A może jakiś zakres losowań wstecz ? np.200 czy 400 lub inny ?
2021-02-06 (17:47) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 855 [ CZCIONKA MONOSPACE ] Molek, 777ch podał warunek cyt. "dla [12932 losowań czyli do dziś 14] Ja już liczę . Mam na tą chwilę 8492 --- wpis edytowano 2021-02-06 17:49 ---
2021-02-06 (19:44) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 871 [ CZCIONKA MONOSPACE ] liczę
2021-02-06 (19:46) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 872 [ CZCIONKA MONOSPACE ] Ile masz na tą chwilę ?
2021-02-06 (19:57) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 344 873 [ CZCIONKA MONOSPACE ] 8004pln
2021-02-06 (20:02) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 344 874 [ CZCIONKA MONOSPACE ] wow, ja zszedłem do 2210 i odpuściłem. Teraz mam motywację


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

Forum strony www.multipasko.pl [Regulamin]