Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 362 363 364 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-21 (10:32)

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

1386
wpis nr 1 294 412
[ CZCIONKA MONOSPACE ]

fair_play
Tak przy kawie ,przekodowałem na paskal,
i zaimplementowałem
search line to delete dla gwarancji 6,
wykonuje błyskawicznie.
Co do czasu kiedy to do Ciebie trafi ,to dziś wieczorem ,
ale jak dorobię wersję pod jeden przycisk
dla 5,6,7,8
Pod buttonem powinno dojść wyszukanie dla 5,7,8
ale na dziś powielę tylko dla gwarancji 5 ,więc będzie 5 i 6
Dodam odświeżenie dla okna bestbrak
co powinno pomóc ,
ale sam musisz przetestować.

Step by step ..... z przerwami ,bo to ma być tylko
odskocznia dla zabawy ,
a nie ......dodatkowa robota .


2020-05-21 (11:18)

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

14865
wpis nr 1 294 418
[ CZCIONKA MONOSPACE ]


777ch>

"wykonuje błyskawicznie."
To cieszy

A co z tym błędem "Invalid pointer operation" przy próbach zatrzymania programu buttonem "Stop" ?
2020-05-21 (14:07)

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

1386
wpis nr 1 294 441
[ CZCIONKA MONOSPACE ]

To zatrzymanie i ten błąd
to bardziej skomplikowane.
We wszystkich,albo w większości procedur jest
odwołanie typu boolean
a zmienna przechodzi w false albo
true w zależności od motylka
na checkboksie stop
kliknięcie raz normalnie zatrzymuje większość
pętli ,ale kliknięcie raz za razem
może spowodować błąd,
To u mnie się nie zdarza prawie
wcale,jedynie gdy mam tasowanie
randomizerem ze sprawdzaniem
ilości powtórzeń i kliknę na stop.

Być może u ciebie się odświerzanie
zawiesza ,to wtedy boolean się nie wykona.
Zobaczysz jak dostaniesz,najwyżej Ci wytnę tablice dla 2,3,4
bo tu już ....prawie pozamiatane 📲
2020-05-21 (15:08)

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

1386
wpis nr 1 294 447
[ CZCIONKA MONOSPACE ]

fair_play

Słowo korelacje jest użyte celowo .
Komercyjne programy ....."pakują"
lecąc po kolejnych sekwencjach
kombinacji kolejnymi zbiorami
lub pętlami kolejnych liczb

Do jakiejś wąskiej przestrzeni to się sprawdza ,
w mocno już upakowanym rozpisie
nie idzie wtedy nic wymienić ,stosując zasady kolejności .....
TYLKO zasada korelacji ,czyli zgodności segmentu
i przejechanie tylko tych sekwencji ,w których ta korelacja występuje
z zasadą losowej dostawki liczb do segmentu zgodnego
powoduje tasowanie bez zwiększenia gwarancji ,do momentu
prawidłowego ustawienia , czyli np wchodzę z 5-ka
1,2,3,4,5 szukając zgodności 4
i tam skaczę ,próbując wpasować 5 czyli jedną niezgodną + liczbę losową
bo kolejne 1,2,3,4,5,6,7,8,9 nie zaburzą całego bloku kombinacji
a skakanie +losowa to właśnie czyni....
a tylko z chaosu ......może powstać "nowy początek"
z porządku nie powstanie nowy układ.

Co do przerwania stop jednej pętli ......... a stosuję wyłącznie
repeat
until(granica);

niema problemu

ale jeśli masz pętle w pętli
a pomiędzy odwołania typu case do wielu procedur....... albo boolean
bo po wykonaniu jakiejś procedury jakaś zmienna zmienia się z false na true
to już masz problem.........
w momencie jak klikniesz stop !


--> zbyt wiele if-ów w liniach ...... spowalnia procesy
stąd unikam ich wielokrotnego stosowania,
co powoduje że czasem proces zatrzyma się ale nie od razu
a klikanie .....kilka razy w stop
......tylko .....zużywa myszkę
2020-05-21 (15:43)

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

14865
wpis nr 1 294 452
[ CZCIONKA MONOSPACE ]

Ja klikam jednokrotnie w "Stop", a wielokrotnie dopiero na "OK" w oknie komunikatu o błędzie (nieraz 10 razy żeby je zamknąć).

--- wpis edytowano 2020-05-21 15:44 ---

2020-05-21 (15:53)

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

1386
wpis nr 1 294 454
[ CZCIONKA MONOSPACE ]

procedure TForm1.searchdelete(Sender: TObject);
var
maust:byte;
begin
maust:=spinedit4.Value; // value=[m]

case maust of
0: exit ;
1: exit ;
2: exit ; ///search2
3: exit ; //search3
4: exit ; //search4
5: search5todelete(Sender); //Find5
6: search6todelete(Sender); //Find6
7: exit ; //search7
8: exit ; //search8
end;
end;



zrobiłem to .......
na razie tyle ,Find5 albo Find6 jest obok starego search line
link sprawdzaj w poczcie ,
melduj jak pobierzesz

--- wpis edytowano 2020-05-21 15:54 ---

2020-05-21 (16:04)

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

14865
wpis nr 1 294 455
[ CZCIONKA MONOSPACE ]

777ch>
" czyli np wchodzę z 5-ka 1,2,3,4,5 szukając zgodności 4 i tam skaczę ,próbując wpasować 5 czyli jedną niezgodną + liczbę losową"

Gdybyś jeszcze podpowiedział które z 21 pozostałych liczb (przy rozpisie 25 skreśleniowym) podmieniasz tymi 5-tą i losową. Ile prób podmiany w wybranej linii przeprowadzasz i na których miejscach?

W poczcie niczego nie ma

--- wpis edytowano 2020-05-21 16:09 ---

2020-05-21 (16:18)

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

1386
wpis nr 1 294 459
[ CZCIONKA MONOSPACE ]

jest link
sprawdź odpowiedziałem na ostatnią pocztę
2020-05-21 (16:21)

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

14865
wpis nr 1 294 460
[ CZCIONKA MONOSPACE ]


Dotarło, ale Avast znów sprawdza
2020-05-21 (16:22)

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

1386
wpis nr 1 294 461
[ CZCIONKA MONOSPACE ]

Gdybyś jeszcze podpowiedział które z 21 pozostałych liczb (przy rozpisie 25 skreśleniowym) podmieniasz tymi 5-tą i losową

próbuję wpasować po kolei
zamieniając każdą kolejną w sekwencji w tablicach
na startowa z własne +losowa
ale to jakby taki proces z mijanką
ale..... nie opiszę w szczegółach
--> jak to zrobiłem .......
2020-05-21 (16:24)

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

1386
wpis nr 1 294 462
[ CZCIONKA MONOSPACE ]

fair_play

proponuję wstaw do folderu samo exe
ana pultip tylko skrót dopliku
i odpal oba z takim samym rozpisem

jaksię któryś zawiesi to znaczy że masz problem z
przydziałem pamięci,u mnie bez problemu
chodzą dwa albo i trzy........równocześnie !
2020-05-21 (16:27)

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

14865
wpis nr 1 294 464
[ CZCIONKA MONOSPACE ]


OK
Z tego no napisałeś wnioskuję, że w 25 skreśleniowej linii dokonujesz 20 podmian (jeśli 1 losowa) jeżeli wcześniej nie ma sukcesu ?

Avast zaakceptował
2020-05-21 (16:31)

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

1386
wpis nr 1 294 465
[ CZCIONKA MONOSPACE ]

Nie ciąg mnie za język


testuj czy Ci się wiesza

-->aha

zrzuca dane dla load5 oraz load6
nie bezpośrednio do baza.txt
żeby dane wpadły do tablic
należy po obliczeniu kliknąć w Zapisz cl3DLight to baza.txt
i kliknąć w Restart aby załadował te dane........

--- wpis edytowano 2020-05-21 16:34 ---

2020-05-21 (16:38)

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

1386
wpis nr 1 294 466
[ CZCIONKA MONOSPACE ]

C(40,17,5,5)
https://ljcr.dmgordon.org/show_cover.php?v=40&k=17&t=5
jedna spada i jazda
2020-05-21 (16:38)

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

14865
wpis nr 1 294 467
[ CZCIONKA MONOSPACE ]


Ciągnę za język, bo chciałbym coś popróbować w excelu, ale ok już nie ciągnę.

A to z zapisem do bazy.txt to tak było i poprzednio i tak robię
2020-05-21 (16:44)

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

1386
wpis nr 1 294 469
[ CZCIONKA MONOSPACE ]

ok
coś zapuścimy .....czy bawisz się sam ?
bo......... nie chcę Cię zmuszać do roboty
-->
2020-05-21 (16:46)

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

14865
wpis nr 1 294 470
[ CZCIONKA MONOSPACE ]


Coś z tym find5 jest nie tak, bo w excelu znajduje 64 linię, a tutaj 1-szą
2020-05-21 (16:47)

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

1386
wpis nr 1 294 471
[ CZCIONKA MONOSPACE ]

Jak Ci się widzi........
te same problemy masz czy jest lepiej ?

możesz zmieniać miejsce formy
w trakcie działania ,oraz zmniejszać liczbę losowych płynnie
czy zmniejszać lub zwiększać formę ?
2020-05-21 (16:48)

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

1386
wpis nr 1 294 472
[ CZCIONKA MONOSPACE ]

find5 zrobiłem kopiując z find6 ....teraz sobie przypomniałem
że nie pozmieniałem --> skresleń -nn
2020-05-21 (16:52)

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

14865
wpis nr 1 294 473
[ CZCIONKA MONOSPACE ]

Co to "miejsce formy" ?

-10

Wpadłem na pewien pomysł, ale muszę go sprawdzić

--- wpis edytowano 2020-05-21 16:55 ---

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