| Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 540 541 542 ... 560 561 Wyślij wiadomość do admina |
| Przewiń wpisy ↓ | moje ... oprogramowanie |
2025-02-15 (15:35) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 012 [ CZCIONKA MONOSPACE ] ![]() Ale nie zgadzamy się co do ilości braków Ja mam ver.9 i w niej mam tyle braków co w excelu. Ty prezentujesz wersję 10 z błędem, a i czas jest znacznie dłuższy. --- wpis edytowano 2025-02-15 15:39 --- |
2025-02-15 (15:40) Jacek_K1961Data rejestracji: 2017-03-29 Ilość postów: 13821 | wpis nr 1 553 015 [ CZCIONKA MONOSPACE ] Trzymam kciuki, bo widzę, że moc i chęć jest. |
2025-02-15 (16:00) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 017 [ CZCIONKA MONOSPACE ] fair_play To zapewne kwestia multi[t] pewnie w 6 nie poprawiłem kodu.. ale już dziś nie siadam do komputera. Teraz jest dodatkowe odwołanie wcześniej było jeśli =0 teraz jeśli >= multi[t]. |
2025-02-15 (16:23) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 019 [ CZCIONKA MONOSPACE ] A braki (gwarancje 6) dla takiego: 5 8 11 13 21 24 27 29 30 31 35 39 42 44 48 50 51 52 60 66 72 73 80 88 89 1 3 8 16 17 20 23 29 37 38 42 45 57 59 61 62 74 79 83 84 85 91 95 97 98 6 15 17 18 20 33 38 39 41 42 45 47 52 54 55 56 58 60 64 70 71 78 89 96 99 1 6 9 16 17 22 23 40 43 45 48 50 52 57 59 60 65 66 69 70 73 79 89 93 110 wyglądają tak ![]() |
2025-02-15 (16:46) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 020 [ CZCIONKA MONOSPACE ] fair_play no ....... nie wiem co Ty ....... reklamujesz ???? masz kolaż ![]() |
2025-02-15 (17:22) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 025 [ CZCIONKA MONOSPACE ] Ano reklamuję, bo u mnie jest tak: ![]() Pewnie coś pozmieniałeś w makro w unikaty.xlsm które Ci wysłałem. Poza tym w wersji 9 Rand_warr_777ch jest tyle braków co u mnie w excelu zarówno w unikatach jak i w bitowych. --- wpis edytowano 2025-02-15 17:26 --- |
2025-02-15 (17:54) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 032 [ CZCIONKA MONOSPACE ] Ty dalej sprawdzasz swoje a ja .....INNE też swoje wpis nr 1 553 007.....wpis nr 1 553 020 02 04 07 11 18 20 27 28 29 34 36 39 40 45 51 52 61 62 63 65 72 79 92 93 99 01 04 07 09 19 25 28 30 35 36 43 51 53 54 63 69 72 77 79 81 85 86 88 94 99 01 08 11 14 19 21 25 26 28 33 40 42 47 49 51 58 61 66 67 71 73 74 83 90 92 02 03 10 13 24 37 39 43 55 59 61 63 64 65 67 68 69 71 73 75 76 77 79 85 89 --- wpis edytowano 2025-02-15 17:56 --- |
2025-02-15 (17:58) MultiTestData rejestracji: 2020-08-05 Ilość postów: 6561 | wpis nr 1 553 034 [ CZCIONKA MONOSPACE ] Play Czy nie masz błędu w ilości braków w tym wpisie z 110 z gwarancją 6 ? ![]() --- wpis edytowano 2025-02-15 17:59 --- |
2025-02-15 (18:09) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 039 [ CZCIONKA MONOSPACE ] Multi> Tak, w tej wersji nad którą pracuję jest jeszcze jakiś błąd. W procedurze opartej na unikatach jest poprawnie: ![]() |
2025-02-15 (18:24) MultiTestData rejestracji: 2020-08-05 Ilość postów: 6561 | wpis nr 1 553 045 [ CZCIONKA MONOSPACE ] zmieścić nie jeden wynik czyli 0 lub 1 tylko --> 8 wyników [11110001]; // binary number] ---------------------------------------------------------------------- 777ch Używasz paskala, czy korzystasz może z delphi Community Edition ? Warto ! Jedyny warunek bezpłatnej licencji dla pojedyńczego programisty to nie zarobić więcej w roku niż 5000$ link : https://www.embarcadero.com/products/delphi/starter/free-download i żeby ten pomysł ruszyć z z miejsca var Bits: TBits; //uses Classes begin Bits := TBits.Create; Bits.Size := 100000;wielkość Bits[indeksCSN] := True;//ustawiam dla unikatowej kombinacji // end; i to powinno wystarczyć na 8X mniej. --- wpis edytowano 2025-02-15 18:35 --- |
2025-02-15 (21:34) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 090 [ CZCIONKA MONOSPACE ] MultiTest Co to ma być .... kolekcja czy manipulowanie bitami bo nie rozróżniam po tak krótkim kodzie. Jeśli tylko kolekcja to nie ta droga. Nie mam tej klasy. |
2025-02-15 (21:56) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 103 [ CZCIONKA MONOSPACE ] Bits[indeksCSN] To zwykła kolekcja false or true bo object bit ma inne property to widzę .. raczej nie bawiłeś się nigdy bitami, nie przejmuj się nie Ty jeden. Sprawdziłem tryb kolekcji bardzo szybki proces. |
2025-02-15 (22:09) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 106 [ CZCIONKA MONOSPACE ] Bitowo działa elegancko ![]() Dla siódemek nie tyle, że brak pamięci tylko overflow |
2025-02-15 (23:54) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 141 [ CZCIONKA MONOSPACE ] Dla siódemek wygląda to tak: Case 7 sprawdzane = "siódemki:" For y = 1 To zakładów For x1 = 1 To skreśleń - 6 L1 = zakłady(y, x1) For x2 = x1 + 1 To skreśleń - 5 L2 = zakłady(y, x2) For x3 = x2 + 1 To skreśleń - 4 L3 = zakłady(y, x3) For x4 = x3 + 1 To skreśleń - 3 L4 = zakłady(y, x4) For x5 = x4 + 1 To skreśleń - 2 L5 = zakłady(y, x5) For x6 = x5 + 1 To skreśleń - 1 L6 = zakłady(y, x6) For x7 = x6 + 1 To skreśleń L7 = zakłady(y, x7) kod = kombinacji - (adresy(L1, 1) + adresy(L2, 2) + adresy(L3, 3) + adresy(L4, 4) + adresy(L5, 5) + adresy(L6, 6) + adresy(L7, 7)) - 1 bajt = Int(kod / 8 ) bit = 1 + kod Mod 8 braki(bajt, 0) = braki(bajt, 0) Or 2 ^ (bit - 1) Next Next Next Next Next Next Next Next |
2025-02-15 (23:57) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 142 [ CZCIONKA MONOSPACE ] braki(bajt, 0) = braki(bajt, 0) Or 2 ^ (bit - 1) to jak wygląda w praktyce? dobra dzięki sprawdzę jutro przy kawie ... bez dymu --- wpis edytowano 2025-02-15 23:59 --- |
2025-02-16 (00:11) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 143 [ CZCIONKA MONOSPACE ] , 0 bo bez Option base 1 Powiedzmy że z tabeli adresów dla danej siódemki masz kod 123459876 To bajt, czyli 1/8 kombinacji wyniesie: Int(kod / 8 )=15 432 484 reszta z dzielenia kodu przez 8 to bit, może przyjmować wartości 0-7 dlatego jest +1 "OR" to binarne LUB, czyli ustawia w bajcie 1 na odpowiedniej pozycji 2^(bit-1) Jeżeli inny kod przypadnie na ten sam bajt to "OR" doda "1" na odpowiedniej pozycji. Jeśli już tam była jedynka to znaczy że to dubel więc nic się nie zmieni. --- wpis edytowano 2025-02-16 00:15 --- |
2025-02-16 (12:55) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 176 [ CZCIONKA MONOSPACE ] 777ch> poczta |
2025-02-16 (13:03) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 177 [ CZCIONKA MONOSPACE ] Ok idę włączyć lapka |
2025-02-16 (13:10) fair_playData rejestracji: 2016-05-12 Ilość postów: 8971 | wpis nr 1 553 178 [ CZCIONKA MONOSPACE ] w tym teście: a = 0 a = a Or 128 'ustawia ósmy bit a = a Or 16 'ustawia piąty bit a = a Or 1 'ustawia pierwszy bit ' powinieneś otrzymać a=145 --- wpis edytowano 2025-02-16 13:11 --- |
2025-02-16 (13:46) 777chData rejestracji: 2005-11-07 Ilość postów: 23087 | wpis nr 1 553 192 [ CZCIONKA MONOSPACE ] w tym teście: a = 0 a = a Or 128 'ustawia ósmy bit a = a Or 16 'ustawia piąty bit a = a Or 1 'ustawia pierwszy bit ' powinieneś otrzymać a=145 o czym piszesz o tym że zamiast 228 powinno być 145 ??? 145 | 10010001 | to inny rozkład bitów ale to ......nieważne ważne by algorytm przestawiał to co potrzeba i tam gdzie potrzeba |
| | Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 540 541 542 ... 560 561 Wyślij wiadomość do admina |