Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 540 541 542 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2025-02-15 (01:36)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5909

16235
wpis nr 1 552 931
[ CZCIONKA MONOSPACE ]

777ch
Wszystko ma swoje plusy i minusy , jak to mówią
wyniki mają być poprawne
ale zawsze coś jakimś kosztem,


tu akurat jestem dobry

zdjęcie

zdjęcie

zdjęcie

zdjęcie
2025-02-15 (02:32)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 932
[ CZCIONKA MONOSPACE ]

ok


fair_play

może te przykłady pomogą
trzeba by pomyśleć jak zakodować
liczbę w masce
tak by liczba determinowała wynik
ale ...... sam muszę to ogarnąć
bo nie robiłem nic podobnego.

function HasMultipleBitsSetInByte ( b: byte ): boolean;
begin
result := not ( b in [ 0, 1, 2, 4, 8, 16, 32, 64, 127 ] );
end;
function BoolToStr(Value : Boolean) : String;
begin
if Value then
result := '1'
else
result := '0';
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
a:byte;
b:string;
begin
SetLength(maska, spinedit8.value);
a:=spinedit8.value;
maska[1]:=a;
memowarr.lines.Add('test bit in mask['+inttostr(1)+'],value w masce= ('+inttostr(a)+') --> results: '+BoolToStr(HasMultipleBitsSetInByte(maska[1]))) ;
maska:=nil;
end;



i takie wyniki;

test bit in mask[1],value w masce= (1) --> results: 0 .......[HasMultipleBitsSetInByte jest value=1]
test bit in mask[1],value w masce= (2) --> results: 0.......[HasMultipleBitsSetInByte jest value=2]
test bit in mask[1],value w masce= (3) --> results: 1
test bit in mask[1],value w masce= (4) --> results: 0.......[HasMultipleBitsSetInByte jest value=4]
test bit in mask[1],value w masce= (5) --> results: 1
test bit in mask[1],value w masce= (6) --> results: 1
test bit in mask[1],value w masce= (7) --> results: 1
test bit in mask[1],value w masce= (8) --> results: 0.......[HasMultipleBitsSetInByte jest value=8]
test bit in mask[1],value w masce= (9) --> results: 1
test bit in mask[1],value w masce= (10) --> results: 1
test bit in mask[1],value w masce= (11) --> results: 1
test bit in mask[1],value w masce= (12) --> results: 1
test bit in mask[1],value w masce= (13) --> results: 1
test bit in mask[1],value w masce= (14) --> results: 1
test bit in mask[1],value w masce= (15) --> results: 1
test bit in mask[1],value w masce= (16) --> results: 0.......[HasMultipleBitsSetInByte jest value=16]
test bit in mask[1],value w masce= (17) --> results: 1
test bit in mask[1],value w masce= (18) --> results: 1
test bit in mask[1],value w masce= (19) --> results: 1
test bit in mask[1],value w masce= (20) --> results: 1
test bit in mask[1],value w masce= (21) --> results: 1
test bit in mask[1],value w masce= (22) --> results: 1
test bit in mask[1],value w masce= (23) --> results: 1
test bit in mask[1],value w masce= (24) --> results: 1
test bit in mask[1],value w masce= (25) --> results: 1
test bit in mask[1],value w masce= (26) --> results: 1
test bit in mask[1],value w masce= (27) --> results: 1
test bit in mask[1],value w masce= (28) --> results: 1
test bit in mask[1],value w masce= (29) --> results: 1
test bit in mask[1],value w masce= (30) --> results: 1
test bit in mask[1],value w masce= (31) --> results: 1
test bit in mask[1],value w masce= (32) --> results: 0.......[HasMultipleBitsSetInByte jest value=32]
test bit in mask[1],value w masce= (33) --> results: 1
test bit in mask[1],value w masce= (34) --> results: 1
test bit in mask[1],value w masce= (35) --> results: 1
test bit in mask[1],value w masce= (36) --> results: 1
test bit in mask[1],value w masce= (37) --> results: 1
test bit in mask[1],value w masce= (38) --> results: 1
test bit in mask[1],value w masce= (39) --> results: 1
test bit in mask[1],value w masce= (40) --> results: 1
test bit in mask[1],value w masce= (41) --> results: 1
test bit in mask[1],value w masce= (42) --> results: 1
test bit in mask[1],value w masce= (43) --> results: 1
test bit in mask[1],value w masce= (44) --> results: 1
test bit in mask[1],value w masce= (45) --> results: 1
test bit in mask[1],value w masce= (46) --> results: 1
test bit in mask[1],value w masce= (47) --> results: 1
test bit in mask[1],value w masce= (48) --> results: 1
test bit in mask[1],value w masce= (49) --> results: 1
test bit in mask[1],value w masce= (50) --> results: 1
test bit in mask[1],value w masce= (51) --> results: 1
test bit in mask[1],value w masce= (52) --> results: 1
test bit in mask[1],value w masce= (53) --> results: 1
test bit in mask[1],value w masce= (54) --> results: 1
test bit in mask[1],value w masce= (55) --> results: 1
test bit in mask[1],value w masce= (56) --> results: 1
test bit in mask[1],value w masce= (57) --> results: 1
test bit in mask[1],value w masce= (58) --> results: 1
test bit in mask[1],value w masce= (59) --> results: 1
test bit in mask[1],value w masce= (60) --> results: 1
test bit in mask[1],value w masce= (61) --> results: 1
test bit in mask[1],value w masce= (62) --> results: 1
test bit in mask[1],value w masce= (63) --> results: 1
test bit in mask[1],value w masce= (64) --> results: 0.......[HasMultipleBitsSetInByte jest value=64]
test bit in mask[1],value w masce= (65) --> results: 1
test bit in mask[1],value w masce= (66) --> results: 1
test bit in mask[1],value w masce= (67) --> results: 1
test bit in mask[1],value w masce= (68) --> results: 1
test bit in mask[1],value w masce= (69) --> results: 1
test bit in mask[1],value w masce= (70) --> results: 1
test bit in mask[1],value w masce= (71) --> results: 1
test bit in mask[1],value w masce= (72) --> results: 1
test bit in mask[1],value w masce= (73) --> results: 1
test bit in mask[1],value w masce= (74) --> results: 1
test bit in mask[1],value w masce= (75) --> results: 1
test bit in mask[1],value w masce= (76) --> results: 1
test bit in mask[1],value w masce= (77) --> results: 1
test bit in mask[1],value w masce= (78) --> results: 1
test bit in mask[1],value w masce= (79) --> results: 1
test bit in mask[1],value w masce= (80) --> results: 1
test bit in mask[1],value w masce= (81) --> results: 1
test bit in mask[1],value w masce= (82) --> results: 1
test bit in mask[1],value w masce= (83) --> results: 1
test bit in mask[1],value w masce= (84) --> results: 1
test bit in mask[1],value w masce= (85) --> results: 1
test bit in mask[1],value w masce= (86) --> results: 1
test bit in mask[1],value w masce= (87) --> results: 1
test bit in mask[1],value w masce= (88) --> results: 1
test bit in mask[1],value w masce= (89) --> results: 1
test bit in mask[1],value w masce= (90) --> results: 1
test bit in mask[1],value w masce= (91) --> results: 1
test bit in mask[1],value w masce= (92) --> results: 1
test bit in mask[1],value w masce= (93) --> results: 1
test bit in mask[1],value w masce= (94) --> results: 1
test bit in mask[1],value w masce= (95) --> results: 1
test bit in mask[1],value w masce= (96) --> results: 1
test bit in mask[1],value w masce= (97) --> results: 1
test bit in mask[1],value w masce= (98) --> results: 1
test bit in mask[1],value w masce= (99) --> results: 1
test bit in mask[1],value w masce= (100) --> results: 1
test bit in mask[1],value w masce= (101) --> results: 1
test bit in mask[1],value w masce= (102) --> results: 1
test bit in mask[1],value w masce= (103) --> results: 1
test bit in mask[1],value w masce= (104) --> results: 1
test bit in mask[1],value w masce= (105) --> results: 1
test bit in mask[1],value w masce= (106) --> results: 1
test bit in mask[1],value w masce= (107) --> results: 1
test bit in mask[1],value w masce= (108) --> results: 1
test bit in mask[1],value w masce= (109) --> results: 1
test bit in mask[1],value w masce= (110) --> results: 1
test bit in mask[1],value w masce= (111) --> results: 1
test bit in mask[1],value w masce= (112) --> results: 1
test bit in mask[1],value w masce= (113) --> results: 1
test bit in mask[1],value w masce= (114) --> results: 1
test bit in mask[1],value w masce= (115) --> results: 1
test bit in mask[1],value w masce= (116) --> results: 1
test bit in mask[1],value w masce= (117) --> results: 1
test bit in mask[1],value w masce= (118) --> results: 1
test bit in mask[1],value w masce= (119) --> results: 1
test bit in mask[1],value w masce= (120) --> results: 1
test bit in mask[1],value w masce= (121) --> results: 1
test bit in mask[1],value w masce= (122) --> results: 1
test bit in mask[1],value w masce= (123) --> results: 1
test bit in mask[1],value w masce= (124) --> results: 1
test bit in mask[1],value w masce= (125) --> results: 1
test bit in mask[1],value w masce= (126) --> results: 1
test bit in mask[1],value w masce= (127) --> results: 0.......[HasMultipleBitsSetInByte jest value=127]




2025-02-15 (02:36)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 933
[ CZCIONKA MONOSPACE ]

dobrej nocki

MultiTest
tam gdzie zmieścisz się z ...... ilością
zawsze będziesz miał szybszy czas
ale......... to nie działa zawsze
na bank od a do z
a musi
2025-02-15 (02:44)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 934
[ CZCIONKA MONOSPACE ]

test bit in mask[1],value w masce= (1) --> results: 0 .......[HasMultipleBitsSetInByte jest value=1]
test bit in mask[1],value w masce= (2) --> results: 0.......[HasMultipleBitsSetInByte jest value=2]
test bit in mask[1],value w masce= (3) --> results: 1
test bit in mask[1],value w masce= (4) --> results: 0.......[HasMultipleBitsSetInByte jest value=4]
test bit in mask[1],value w masce= (5) --> results: 1

zakodować czyli
zamiast maska[adr]:=1 lub 0

zrobić tak:
maska[adres]:=1 czyli -->results=0
maska[adres]:=3 czyli -->results=1
maska[adres]:=4 czyli -->results=0
maska[adres]:=5 czyli -->results=1

na pewno rozumiesz
tylko ...... to trzeba ogarnąć w całości
2025-02-15 (03:12)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 935
[ CZCIONKA MONOSPACE ]

najlepiej by było
aby w masce typu jak poniżej

maska: Array of Shortint;

///
Shortint is a signed integer
in the range of -128 to 127.
The shortint is 8 bits long.
///


zmieścić nie jeden wynik czyli 0 lub 1

tylko --> 8 wyników [11110001]; // binary number]

czyli 8x więcej danych wejdzie do tablicy

tylko trzeba to jeszcze potem na końcu odczytać jako 8 kodów csn
każdy kod z [11110001] to

np. dla maski[1]=[liczba ?]=kod8bitów = [11110001]

bit1:= csn=adres =0000000001- sekwencja =true
bit2:= csn=adres =1800000000- sekwencja =true
bit3:= csn=adres =3600000000- sekwencja =true
bit4:= csn=adres =5400000000- sekwencja =true

bit5:= csn=adres =7200000000- sekwencja =false
bit6:= csn=adres =9000000000- sekwencja =false
bit7:= csn=adres =10800000000- sekwencja =false
bit8:= csn=adres =12600000000- sekwencja =true


może ogarniemy to ......kiedyś

--- wpis edytowano 2025-02-15 03:25 ---

2025-02-15 (03:19)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 936
[ CZCIONKA MONOSPACE ]

trzeba tylko zakodować jeszcze
te --> 8 wyników [11110001]; //
w jednej liczbie do 255
lub stringu do 255
ja ma ten typ: shortint dla maski
ale mogę zmienić na typ: byte

i tyle zachodu ......
w niedochodowym pomyśle

--- wpis edytowano 2025-02-15 03:19 ---

2025-02-15 (10:02)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 954
[ CZCIONKA MONOSPACE ]

hejka

szkolenie
i ciekawy kod
https://jonlennartaasenden.wordpress.com/2018/08/10/building-a-delphi-database-engine-part-one/

--- wpis edytowano 2025-02-15 10:06 ---

2025-02-15 (12:49)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5909

16235
wpis nr 1 552 974
[ CZCIONKA MONOSPACE ]

777ch
Problem czy używać tablicy ?
niech limit to rozmiar wynikający z liczby kombinacji po 10 z 99 czyli 15579278510796 bajtów
i używając Tbits zmiejszysz 8 krotnie ten rozmiar a i tak można wykończyć system taką tablicą.
Zarządzanie dynamiczne ?
Ostatecznie można podzielić to wiele tablic, dla delphin32 po 2 GB.
Raczej to nie przyśpieszy.
Inne rozwiązanie poza tablicą też potrzebuje dużo RAM .
Więc co pozostaje ?
Tak i czy owak wygląda to że na razie i moim i Twoim rozwiązaniu ...za krótka kołdra
Niemniej może warto jeszcze inne pomysły przestudiować.
Ja też mam nowego pomysła na bazie tego co juz jest .

--- wpis edytowano 2025-02-15 13:04 ---

2025-02-15 (13:31)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8694

14865
wpis nr 1 552 980
[ CZCIONKA MONOSPACE ]


777ch>

Może spróbuj tak:

Sub bitowo()

For y = 2 To 5006
adres = Cells(y, 2)
bajt = Int(adres /
Cells(y, 3) = bajt
bit = 1 + adres Mod 8
Cells(y, 4) = bit
Cells(y, 13 - bit) = 1
Next

End Sub


zdjęcie
2025-02-15 (13:43)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 552 981
[ CZCIONKA MONOSPACE ]

fair_play
Potestuj to sam ,w tablicy z adresami .
Tak aby 8 bitów miało wynik dla 8 adresów

odpowiedź w postaci 8 bitów
jak poniżej


bit1:= csn=adres =0000000001- sekwencja =true
bit2:= csn=adres =1800000000- sekwencja =true
bit3:= csn=adres =3600000000- sekwencja =true
bit4:= csn=adres =5400000000- sekwencja =true

bit5:= csn=adres =7200000000- sekwencja =false
bit6:= csn=adres =9000000000- sekwencja =false
bit7:= csn=adres =10800000000- sekwencja =false
bit8:= csn=adres =12600000000- sekwencja =true

2025-02-15 (13:58)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8694

14865
wpis nr 1 552 988
[ CZCIONKA MONOSPACE ]


Próbujesz załatwić wiele spraw jednocześnie.
Raz zależy Ci na czasie, innym razem na pamięci a jeszcze innym razem na brakach.
Nie da się zoptymalizować wszystkiego.

To co wstawiłem dotyczy wyliczenia ilości braków, bez zapisywania czegokolwiek w tabeli CSN.

U mnie procedura oparta na tym pomyśle działa znakomicie i znacznie szybciej od adresowej, chociaż tabela "adresy jest wykorzystywana.


2025-02-15 (14:37)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8694

14865
wpis nr 1 552 996
[ CZCIONKA MONOSPACE ]


Dla 4 linii z wpisu 1 552 928
warr6 (na 7 nie starczyło pamięci) wyszła tak:

zdjęcie
2025-02-15 (15:08)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 553 003
[ CZCIONKA MONOSPACE ]


ale na razie nie dodaje do paskala
trochę wpierw poznam i potestuje tematykę bitów
2025-02-15 (15:13)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 553 007
[ CZCIONKA MONOSPACE ]

fair_play
No to już w excelu
.....zbliżasz się do czasu rand_war6

to sprawdzałem

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


a jak to u Ciebie czasowo wykonuje
rand_warr[6]
2025-02-15 (15:35)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8694

14865
wpis nr 1 553 012
[ CZCIONKA MONOSPACE ]

zdjęcie

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)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8963

15220
wpis nr 1 553 015
[ CZCIONKA MONOSPACE ]

Trzymam kciuki, bo widzę, że moc i chęć jest.
2025-02-15 (16:00)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8694

14865
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

zdjęcie
2025-02-15 (16:46)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 553 020
[ CZCIONKA MONOSPACE ]

fair_play

no ....... nie wiem co Ty
....... reklamujesz ????
masz kolaż
2025-02-15 (17:22)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8694

14865
wpis nr 1 553 025
[ CZCIONKA MONOSPACE ]

Ano reklamuję, bo u mnie jest tak:

zdjęcie

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 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 540 541 542 ... 554 555
Wyślij wiadomość do admina