moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2025-02-15 (17:54) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	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) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 5909	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_play Data rejestracji: 2016-05-12 Ilość postów: 8694	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) MultiTest Data rejestracji: 2020-08-05 Ilość postów: 5909	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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	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_play Data rejestracji: 2016-05-12 Ilość postów: 8694	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_play Data rejestracji: 2016-05-12 Ilość postów: 8694	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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	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_play Data rejestracji: 2016-05-12 Ilość postów: 8694	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_play Data rejestracji: 2016-05-12 Ilość postów: 8694	wpis nr 1 553 176 [ CZCIONKA MONOSPACE ] 777ch> poczta
2025-02-16 (13:03) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 553 177 [ CZCIONKA MONOSPACE ] Ok idę włączyć lapka
2025-02-16 (13:10) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8694	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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	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
2025-02-16 (14:02) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8694	wpis nr 1 553 196 [ CZCIONKA MONOSPACE ] "ale to nieważne" Jak to nieważne??? Jakie 228? 228=128+64+32+4 czyli: \|1110\|0100\| Bity liczysz od prawej. Twój Rand_warr_777ch_V10 u mnie liczy tylko do war6, powyżej nic się nie dzieje.
2025-02-16 (14:14) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 553 198 [ CZCIONKA MONOSPACE ] Wiem bo procedury ponad limit =180000000 są blokowane. Zaraz wyślę Tobie versję 10 Zaglądnij niebawem na pocztę
2025-02-16 (14:25) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 553 204 [ CZCIONKA MONOSPACE ] Poszło po prostu jest jak jest…. --- wpis edytowano 2025-02-16 14:25 ---
2025-02-16 (14:28) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 553 206 [ CZCIONKA MONOSPACE ] fair_play Możesz podać jakiś algorytm który z bitów poda sumę byte czyli np 228 🫣🤭
2025-02-16 (14:45) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 1 553 211 [ CZCIONKA MONOSPACE ] Usunąłem własne ..”tasiemce „ bo źle się przewija w telefonie.📲
2025-02-16 (14:56) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8694	wpis nr 1 553 212 [ CZCIONKA MONOSPACE ] \|1110\|0100\| suma=0 for n=1 to 8 suma=suma+bit(n)*2^(n-1) next bity liczysz od prawej.


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

Forum strony www.multipasko.pl [Regulamin]