moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2020-05-08 (22:17) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 428 [ CZCIONKA MONOSPACE ] ok, też mam dość na dziś
2020-05-08 (22:17) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23259	wpis nr 1 291 429 [ CZCIONKA MONOSPACE ] koniec......jest lekko problematyczny o czym widzą kleszek i ...... inni
2020-05-08 (23:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23259	wpis nr 1 291 446 [ CZCIONKA MONOSPACE ] Czyli 40 mln adresów w min ... obciążeniu 👍 --- wpis edytowano 2020-05-08 23:29 ---
2020-05-09 (09:15) siger7 Data rejestracji: 2017-07-30 Ilość postów: 199	wpis nr 1 291 505 [ CZCIONKA MONOSPACE ] @fair_play Korzystajac z chwilowej przerwy w Twojej dyskusji z 777ch mam do Ciebie pytanie. W watku "Systemy strefowe by 777ch" kolega @edi8 zamiescil cztery systemy Twojego autorstwa n-0 z warunkiem, aby liczby w rzedach i kolumnach wystepowaly na roznych pozycjach / wpis nr 1017062 /. Czy "System #4 na 36 liczb w 6 strefach po 6 i z gwarancją n-0 na 720 zakładów" ukladales "recznie", czy tez korzystales z aplikacji ? Czy jestes w posiadaniu systemu na powyzszych warunkach na szesc stref po osiem liczb ? Z wyliczen wychodzi, ze jest to dosc duzy system. Pozdrawiam
2020-05-09 (13:57) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23259	wpis nr 1 291 547 [ CZCIONKA MONOSPACE ] fair_play jeśli w tablicy bazowych masz piątki brakujące a ustawisz compare 4 własne 4 losowe 6 to algorytm spod przycisku [4/4]tic szuka linii w których 4 pierwsze liczby są w linii coveru i pętla leci tylko po tych liniach inne pomija ale jak zmienisz wartość =0 na 1 obok baz nr: to zobaczysz że cztery liczby są niebieskie ,jedna czerwona stoi a jedna czerwona się zmienia te cztery to już wiadomo cztery pasujące czyli 4\|4 a ta co stoi to też własna z tych piątek ale jej nie bierze algorytm pod uwagę przy typowaniu linii codo zgodności a ta co się zmienia to losowa i teraz jeśli ustawisz compare 2 własne 2 a losowe 5 to szukamy linni gdzie mamy zgodność 2 pierwszych liczb 2\|2 a próbujemy wstawić 5 własnych w tym wypadku będzie jakby wszystko stało bo pasuje tę piątkę do linii które są godna -->2\|2 ale jak zwiększysz losowe do np do 7 to dwie losowe będą się zmieniać 2 niebieskie+3 czerwone będą stały........ tyle jeśli nie schodzimy niżej to trzeba usunąć jedna czasem więcej linii lub zdublować jedną lub kilka linii ...... ale o tym przy jakiejś okazji dziś ....może przed wieczorem ....... ale nie wiem kiedy po 19-tej na pewno mnie nie będzie jutro przed południem.....przy kawie ok 10~~11 spróbuję przełożyć tę brakująca funkcję i przetestować jej działanie,stosując ją .. tylko do wypisu na żądanie. --- wpis edytowano 2020-05-09 13:59 ---
2020-05-09 (14:44) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 563 [ CZCIONKA MONOSPACE ] siger7> Ręczna excelowska przesuwanka Niestety tego o co pytasz nie mam. Może spróbuję i to poprzesuwać... w wolnej chwili Tylko nie wiem czy jest sens bo chyba zamknie to się w ponad 20 000 zakładach. Pozdrawiam --- wpis edytowano 2020-05-09 14:57 ---
2020-05-09 (14:46) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 564 [ CZCIONKA MONOSPACE ] 777ch> Muszę to przeanalizować Ale jedna rzecz mnie ciekawi. Czy te losowe losujesz ze wszystkich 99 ? Bo migają wszystkie, a nieraz jak nacisnę Stop to wyświetla mi się na zielono liczba losowa spoza zakresu liczb. Pozdrawiam
2020-05-09 (15:31) siger7 Data rejestracji: 2017-07-30 Ilość postów: 199	wpis nr 1 291 573 [ CZCIONKA MONOSPACE ] @fair_play Chetnie bym sam "poprzesuwal to i owo", gdybys podpowiedzial 'jak' ?
2020-05-09 (16:42) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 586 [ CZCIONKA MONOSPACE ] siger 7> Umieść w arkuszu Excela w komórkach A1:F6 następująct układ : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 i uruchom takie makro: Sub przesuwanka6() x = 0 margines = 10 For n1 = 1 To 6 For n2 = 1 To 6 If n2 <> n1 Then For n3 = 1 To 6 If n3 <> n1 And n3 <> n2 Then For n4 = 1 To 6 If n4 <> n1 And n4 <> n2 And n4 <> n3 Then For n5 = 1 To 6 If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then For n6 = 1 To 6 If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then x = x + 1 Cells(x, margines + 1) = Cells(1, n1) Cells(x, margines + 2) = Cells(2, n2) Cells(x, margines + 3) = Cells(3, n3) Cells(x, margines + 4) = Cells(4, n4) Cells(x, margines + 5) = Cells(5, n5) Cells(x, margines + 6) = Cells(6, n6) End If Next End If Next End If Next End If Next End If Next Next End Sub Później w komórkach A1:H6 taki układ: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 i uruchom takie makro: Sub przesuwanka8() x = 0 margines = 10 For n1 = 1 To 8 For n2 = 1 To 8 If n2 <> n1 Then For n3 = 1 To 8 If n3 <> n1 And n3 <> n2 Then For n4 = 1 To 8 If n4 <> n1 And n4 <> n2 And n4 <> n3 Then For n5 = 1 To 8 If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then For n6 = 1 To 8 If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then x = x + 1 Cells(x, margines + 1) = Cells(1, n1) Cells(x, margines + 2) = Cells(2, n2) Cells(x, margines + 3) = Cells(3, n3) Cells(x, margines + 4) = Cells(4, n4) Cells(x, margines + 5) = Cells(5, n5) Cells(x, margines + 6) = Cells(6, n6) End If Next End If Next End If Next End If Next End If Next Next End Sub a na deser w komórkach A1:G7 taki układ: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 i takie makro: Sub przesuwanka7() x = 0 margines = 10 For n1 = 1 To 7 For n2 = 1 To 7 If n2 <> n1 Then For n3 = 1 To 7 If n3 <> n1 And n3 <> n2 Then For n4 = 1 To 7 If n4 <> n1 And n4 <> n2 And n4 <> n3 Then For n5 = 1 To 7 If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then For n6 = 1 To 7 If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then For n7 = 1 To 7 If n7 <> n1 And n7 <> n2 And n7 <> n3 And n7 <> n4 And n7 <> n5 And n7 <> n6 Then x = x + 1 Cells(x, margines + 1) = Cells(1, n1) Cells(x, margines + 2) = Cells(2, n2) Cells(x, margines + 3) = Cells(3, n3) Cells(x, margines + 4) = Cells(4, n4) Cells(x, margines + 5) = Cells(5, n5) Cells(x, margines + 6) = Cells(6, n6) Cells(x, margines + 7) = Cells(7, n7) End If Next End If Next End If Next End If Next End If Next End If Next Next End Sub Miłej zabawy
2020-05-09 (16:44) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23259	wpis nr 1 291 588 [ CZCIONKA MONOSPACE ] fair_play Ale jedna rzecz mnie ciekawi. Czy te losowe losujesz ze wszystkich 99 ? Bo migają wszystkie, a nieraz jak nacisnę Stop to wyświetla mi się na zielono liczba losowa spoza zakresu liczb. ------------------------------------------------------- fair_play To że widzisz liczby ,to zasługa Stringgrida ale ponieważ stosuję różne techniki,często połączone to żeby zobaczyć poprawność zrobiłem wczytywanie danych do grida ale niestety muszę go podczyszczać a podczyszczam cały ,ale ja tego nie włączam wcale jak coveruję...... tylko jak coś dostawiam czyli nowa procedurę ,to poglądam jak się wykonuje bo to procedury wewnętrzne grida select cell i draw cell ale możesz spokojnie repaint na checkbox-ie odznaczyć wtedy nie będziesz nic widział...... a program robi swoje -->to tylko niepotrzebny podgląd , bo liczby losują się w procedurach ale zawsze mona w trakcie działania zaznaczyć i zobaczyć co się dzieje grid ma również inne zastosowania ale to dla randomizera oraz ont --- wpis edytowano 2020-05-09 16:47 ---
2020-05-09 (19:28) siger7 Data rejestracji: 2017-07-30 Ilość postów: 199	wpis nr 1 291 609 [ CZCIONKA MONOSPACE ] @fair_play Wszystko odpalilo blyskawicznie i bezproblemowo, "bawie" sie dalej, dzieki, pozdrawiam
2020-05-09 (21:10) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4990	wpis nr 1 291 631 [ CZCIONKA MONOSPACE ] C(35,10,5,5) = 2562 zgłoszone. Walczymy dalej
2020-05-09 (21:36) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4990	wpis nr 1 291 645 [ CZCIONKA MONOSPACE ] C(35,10,5,5) = 2561 zgłoszone
2020-05-10 (01:24) siger7 Data rejestracji: 2017-07-30 Ilość postów: 199	wpis nr 1 291 684 [ CZCIONKA MONOSPACE ] @fair_play Przetestowalem system na 48 liczb w 6 strefach po 8 liczb n-0 z warunkiem, aby liczby w rzedach i kolumnach wystepowaly na roznych pozycjach, na niemieckim lotto / pominalem liczbe "20"/. Przetestowalem 5139 losowan, czyli od poczatku istnienia ichniego lotto. 12 razy wystapilo 6 trafien. Ale co najdziwniejsze, tylko raz zostal spelniony warunek wystepowania liczb na roznych pozycjach w rzedach i kolumnach !!! 11 szostek "olalo" warunek ! To daje do myslenia. Tu mozesz zobaczyc trafienia : https://megawrzuta.pl/download/cca0f6f022e3783ce30d507bc6d7a0ae.html Pozdrawiam
2020-05-10 (02:47) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23259	wpis nr 1 291 686 [ CZCIONKA MONOSPACE ] fair_play Dziś będę odsypiał więc dopiero jutro .. --> to co planowałem na dziś. Miłego dnia.
2020-05-10 (11:32) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 723 [ CZCIONKA MONOSPACE ] siger7> Albo źle wpisałeś te ósemki w komórki A1:H6, albo coś pozmieniałeś w procedurze przesuwanka8(). Bo w całym tym 20160 zakładowym rozpisie nie ma ani jednego zakładu, na którym występują jednocześnie 10 i 26, 24 i 48, 19 i 27, 16 i 48, 2 i 42, 17 i 33, 5 i 37, 9 i 25, 6 i 38, 3 i 27, 14 i 30, 18 i 34, 18 i 26, 13 i 37, 9 i 25 czy 3 i 43. z tych "szóstek" które przedstawiłeś. Sprawdź czy dobrze skopiowałeś procedurę i układ wyjściowy. Jak wykonałeś tę procedurę to w kolumnach "K:P" masz te 20 160 zakładów. Podaj w której linii masz trafioną pierwszą z przedstawionych szóstek: 3,10,24,26,28,48. Pozdrawiam --- wpis edytowano 2020-05-10 11:45 ---
2020-05-10 (13:16) siger7 Data rejestracji: 2017-07-30 Ilość postów: 199	wpis nr 1 291 754 [ CZCIONKA MONOSPACE ] @fair_play Wszystko jest w porzadku.Jak napisalem wyzej, testowalem niemieckie lotto. Schemat jest 6stref x 8liczb =48. Ja pod schemat podstawilem wlasne liczby, tzn wykluczylem liczbe '20', Ty pewnie '49'. Stad niescislosci. Tu jest wszystko, co powinno wyjasnic sprawe https://wrzucplik.pl/pokaz/2032745---ihso.html Daj znac jak pobierzesz Pozdrawiam
2020-05-10 (14:02) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 770 [ CZCIONKA MONOSPACE ] siger7> Ściągnąłem i widzę, że nie zrozumiałeś idei. Ten układ w komórkach A1:H6 to nie są liczby. To jest matryca! Skoro wyeliminowałeś liczbę 20 to ten układ powinien wyglądać tak: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 I w takim układzie nie mogą się powtarzać liczby w kolumnach ! Teraz wygeneruj rozpis i sprawdzaj. Możesz w dowolny sposób podstawić rzeczywiste liczby pod tę matrycę, wcale nie muszą to być kolejne liczby. Ale tak jak je podstawisz pod matrycę tak trafienia nie mogą się powtarzać w kolumnach. Pozdrawiam --- wpis edytowano 2020-05-10 14:17 ---
2020-05-10 (14:34) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23259	wpis nr 1 291 781 [ CZCIONKA MONOSPACE ] fair_play masz zmienną --> gwar adres = 0 For l1 = 1 To liczb - gwar co ukryłeś ? bo nie jest inicjowana nigdzie ?
2020-05-10 (14:36) fair_play Data rejestracji: 2016-05-12 Ilość postów: 9076	wpis nr 1 291 782 [ CZCIONKA MONOSPACE ] siger7> Nie przeczytałeś powyższego uważnie. To jest matryca. Możesz pod nią podstawić wybranych 48 liczb w dowolny sposób. Jeśli pominąć 20 to np tak: 10 6 19 25 37 2 35 27 3 43 15 48 12 41 16 8 22 31 34 1 40 32 46 21 14 38 45 28 7 36 4 30 33 23 49 11 47 29 39 44 26 5 9 17 18 42 24 13 I w takim układzie trafienia nie mogą się znajdować w tej samej kolumnie bo na pewno na żadnym kuponie się nie zejdą. Jeśli wygenerujesz rozpis wg tego układu to na zadnym kuponie nie będzie jednocześnie 1 i 11, 4 i 24, 15 i 45 itd.


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 341 342 343 ... 561 562 Idź do strony: Wyślij wiadomość do admina 🎱 MultiPairs 2027 – nowa wersja w przeglądarce, otwórz BETA Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]