Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 357 358 359 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-15 (16:09)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
wpis nr 1 293 314
[ CZCIONKA MONOSPACE ]

Zamieściłem na włoskim forum w wątku o grze Eurojackpot
info o tym systemie na 35 liczb z warunkową gwarancją N-0
czyli 5 if 5x 1from7 wraz z Twoim makrem, bo stamtąd miałem
o to zapytanie a że rozpis to kobyła na 2520 linii to mi się nie
chce tego na serwer wrzucać aby linka podawać.

--- wpis edytowano 2020-05-15 16:10 ---

2020-05-15 (16:09)

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

1386
wpis nr 1 293 315
[ CZCIONKA MONOSPACE ]

pisałem wszystko ad hoc
luźne myśli.......
ale teraz przez ok 3 godziny nie będzie mnie
2020-05-15 (17:31)

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

1386
wpis nr 1 293 321
[ CZCIONKA MONOSPACE ]

fair_play
Jestem już .....
Czy ja coś źle tłumaczę ?
2020-05-15 (17:37)

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

14865
wpis nr 1 293 324
[ CZCIONKA MONOSPACE ]

"bo liczenie szóstek w pętli to co najmniej 1,5 s dla sprawdzenia Stan
a to 10x za długo"

Chyba tego co wysłałem nie sprawdziłeś, bo u mnie procedura test() zajmuje 90ms w excelu.
Oczywiście pomijając pierwszą linię tej procedury, bo to początkowa analiza rozpisu z listingiem braków.

Sub test()

gwarancje6 ' początkowa analiza z listingiem braków
stoper1 = Timer
linia = 11 ' podmiana w 11-tej linii
brak_przed = brak

Cells(10, 41) = brak_przed

a = przed_podmianą(linia)

'podmiana

liczba = mat(linia, 25) ' podmiana 25 liczby w linii
mat(linia, 25) = 46 '46 liczba podstawiana

a = po_podmianie(linia)
brak_po = brak

Cells(11, 41) = brak_po
czas1 = Format(Timer - stoper1, "00.0000000") & "sek."
Cells(12, 41) = czas1

If brak_po >= brak_przed Then
mat(linia, 25) = liczba ' przywrócenia stanu sprzed podmiany
Else ' podmiana z sukcesem
brak = 0 ' tutaj ponowny listing braków
For y = 1 To adr0
If maska(y) = 0 Then
brak = brak + 1
a = liczby_6(y, brak)
End If
Next
End If

End Sub

--- wpis edytowano 2020-05-15 17:51 ---

2020-05-15 (18:36)

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

1386
wpis nr 1 293 340
[ CZCIONKA MONOSPACE ]

fair_play
Chyba tego co wysłałem nie sprawdziłeś,

no nie sprawdziłem...................
ale przyjmij moje uwagi poniżej
=============================
czy to jest to co już mam

bo rzeczywiście nie miałem czasu sprawdzić tego

chodziło mi o to
abyś rozdzielił
sprawdzanie gwarancji -->jedna procedura
sprawdzanie jednej linni --> druga osobna procedura

zależy mi na tym
bo skoki w moich procedurach są
zastosowaniem starej sekwencji ze zmianami
lub
w innych przypadkach
losowa zmiana liczb na pozycji
czyli np zmieniam
tabbest [badana][37]=0 na 1
ale również zmieniam jednocześnie jedna losowo
tabbest [badana][1]=1 na 0

oczywiście o ile w pierwszym przypadku mam 0
a w drugim mam w tablicy 1

inaczej by mi się skracały lub wydłużały sekwencje.........

dlatego proszę o propozycję
procedurę sprawdzenia gdy wybrałem jakaś linię
dlaczego ją wybrałem to .......słodka tajemnica
skacze do niej zmieniam w linii badana co chcę
czasem dwie,czasem trzy czasem 5,czasem tylko jedną liczbę
ale zmiana jednej liczby to jak nadmieniałem wcześniej:

czyli np zmieniam
tabbest [badana][37]=0 na 1
ale również zmieniam jednocześnie jedna losowo
tabbest [badana][1]=1 na 0

stad potrzebny nieustanny proces weryfikacji
ale w oparciu o stan całości
plus lub minus ........... dane gwarancji dla tej linii w której.......grzebiemy

czy to jasne czy nie ?

--- wpis edytowano 2020-05-15 18:38 ---

2020-05-15 (19:24)

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

14865
wpis nr 1 293 349
[ CZCIONKA MONOSPACE ]


Nie rozumiem w jaki sposób zamianę 0 na 1 czy odwrotną odnieść do tablicy adresów ?
Rozumiałbym zamianę liczby 22 na liczbę 33.

Teraz ja opiszę słowami:

1. Wybierasz linię do podmiany wg ... słodkiej tajemnicy.
2. zapamiętujesz aktualną ilość braków: brak_przed=brak
3. w tablicy adresów odejmujesz wszystkie szóstki z wybranej linii. Funkcja przed_podmianą(linia), która jednocześnie koryguje liczbę braków.
4. Zamieniasz w wybranej linii tyle liczb ile chcesz, ale zapamiętujesz pozycje i wartość tych liczb sprzed podmiany.
5. Po podmianie zapisujesz wszystkie szóstki ze zmodyfikowanej linii w tablicy adresów modyfikując jednocześnie ilość braków: Funkcja po_podmianie(linia) i zapisujesz ich ilość w brak_po=brak
6. Teraz porównujesz brak_przed z brak_po
- Jeśli brak_po<brak przed co oznacza pozytywną podmianę to pozostawiasz podmienioną linię bez zmian i wywołujesz nowy listing braków.
- W przeciwnym razie (negatywna podmiana) przywracasz stan linii sprzed podmiany przywracając zapamiętane liczby na ich zapamiętanych pozycjach.

To jeden cykl podmiany.

Teraz mnie nie będzie przez pewien czas
2020-05-15 (20:02)

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

1386
wpis nr 1 293 357
[ CZCIONKA MONOSPACE ]

Zaraz dotrę do domu
to ci odpowiem 😏
10-min.
📲
2020-05-15 (20:51)

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

1386
wpis nr 1 293 373
[ CZCIONKA MONOSPACE ]

Nie rozumiem w jaki sposób zamianę 0 na 1 czy odwrotną odnieść do tablicy adresów ?
Rozumiałbym zamianę liczby 22 na liczbę 33.
--> tak własnie próbujemy
ale technicznie to jest wstawienie 0 do tabbest[linia][22]
z jednoczesnym wstawieniem 1 do tabbest[linia][33]
to jest moja zamiana 22 na 33
jak się nie powiedzie to cofam ale ........ najpierw
to-->sprawdzenie gwarancji dla linii albo całośc jak dotychczas

to tak ad hoc
tabrand[linia][kolejna liczba].........
przyjmuje liczby tylko celem pokazania danych w zółtku
co tylko spowalnia proces
oraz do wpisu do plików txt


już resztę przeczytam....... ale widzę
Teraz ja opiszę słowami:

1. Wybierasz linię do podmiany wg ... słodkiej tajemnicy.
2. zapamiętujesz aktualną ilość braków: brak_przed=brak
3. w tablicy adresów odejmujesz wszystkie szóstki z wybranej linii. Funkcja przed_podmianą(linia), która jednocześnie koryguje liczbę braków.
4. Zamieniasz w wybranej linii tyle liczb ile chcesz, ale zapamiętujesz pozycje i wartość tych liczb sprzed podmiany.
i tu mamy problem
jeden algorytm zmienia jedną liczbę
inny dwie ......
zawsze po komendzie zmiany jest wywołana gwarall(sender)--> czyli sprawdzenie gwarancji
ale ........ wywołanie gwarall to 1,5 s


5. Po podmianie zapisujesz wszystkie szóstki ze zmodyfikowanej linii w tablicy adresów modyfikując jednocześnie ilość braków: Funkcja po_podmianie(linia) i zapisujesz ich ilość w brak_po=brak
6. Teraz porównujesz brak_przed z brak_po
- Jeśli brak_po<brak przed co oznacza pozytywną podmianę to pozostawiasz podmienioną linię bez zmian i wywołujesz nowy listing braków.
- W przeciwnym razie (negatywna podmiana) przywracasz stan linii sprzed podmiany przywracając zapamiętane liczby na ich zapamiętanych pozycjach.

To jeden cykl podmiany.

Teraz mnie nie będzie przez pewien czas


Ja wiem jak to zrobić.......
ale wolałem abyś pomyślał i napisał to sam
tak abym mógł to--> zagnieździć
w miejscu gdzie chciałbym wywołać sprawdzenie dla linni badanej
bo tak ja napisałem
w przypadku zmiany całej linii ....... pyk sprawdź
w przypadku zmiany jednej liczby ..pyk sprawdź


osobna procedura zagnieżdżona jak makro w makrze
była by bardzo przydatna ....

do jutra

--- wpis edytowano 2020-05-15 20:52 ---

2020-05-15 (21:04)

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

14865
wpis nr 1 293 380
[ CZCIONKA MONOSPACE ]

"ale ........ wywołanie gwarall to 1,5 s"

to Twoja procedura gwarall - co ona robi ?
Moja jest inna i nie zależy od ilości podmienianych liczb.

Jedno istotne pytanie:

Czy po podmianie liczby w linii pozostają uporządkowane rosnąco ?

Czytając to co piszesz odnoszę wrażenie, że chciałbyś pozostać przy swoim byle by było szybciej

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

2020-05-15 (21:32)

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

1386
wpis nr 1 293 388
[ CZCIONKA MONOSPACE ]

Czy po podmianie liczby w linii pozostają uporządkowane rosnąco ?

podmiana następuje w tabbest
która zawiera tylko zera i jedynki
do niej jest normalnie odwolanie w tablicach
ale że twoja procedura wymaga liczb dla uzyskania adresu
to jakby od razu zrobiłem zrzut czyli aktualizację
danych do tabrand gdzie te liczby lądują
jakby z automatu poukładane .......ale o tym
już pisałem wcześniej
2020-05-15 (21:38)

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

14865
wpis nr 1 293 394
[ CZCIONKA MONOSPACE ]


Co robi Twoja procedura gwarall, że trwa aż 1,5 sekundy ?
2020-05-15 (21:38)

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

1386
wpis nr 1 293 395
[ CZCIONKA MONOSPACE ]

Czytając to co piszesz odnoszę wrażenie, że chciałbyś pozostać przy swoim byle by było szybciej

no oczywiście

skoro mam wiele opcji pod gwarancje all
to mogę ciut przerobić
bo jak mam wszystko przerabiać
to....... wolę osobny program do samych szóstek.......
ale ....... nie chce mi się powielać błędów
więc jak znam życie wszystko zrobił bym inaczej
a to znaczy wszystko odnowa....... no i tu ....... ?
2020-05-15 (21:40)

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

1386
wpis nr 1 293 396
[ CZCIONKA MONOSPACE ]

procedura gwarall
to zestawienie
wszystkich gwarancji

procedure TForm1. gwarall(Sender: TObject);
var
maxspr,i:integer;
zaklad:string;
label
gwarpln;
begin
maxspr:=spinedit4.Value;
mt:=spinedit10.Value;
if (gw=0)or(gw=100 )and(mt<>1) then self.BitBtn36.Click;
vmax:= SpinEdit3.value;


if (stref.IloscSTREF>0)and(checkbox26.Checked=true) then begin
gwarstrefy(Sender); //<-- przełaczenie na sprawdzanie zbioru z pliku
exit;
end;

if (checkbox49.checked=true)and(maxspr> 0)and(mt=0) then goto gwarpln ;

if (maxspr= 0)and(mt=0) then Gwartraf(Sender);
if mt= 1 then self.bitbtn31.Click(); //losowe sprawdz
if (maxspr= 2)and(mt=2) then Gwar2if2(Sender);
if (maxspr= 3)and(mt=2) then Gwar2if3(Sender);
if (maxspr= 4)and(mt=2) then Gwar2if4(Sender);
if (maxspr= 5)and(mt=2) then Gwar2if5(Sender);
if (maxspr= 6)and(mt=2) then Gwar2if6(Sender);
if (maxspr= 7)and(mt=2) then Gwar2if7(Sender);
if (maxspr= and(mt=2) then Gwar2if8(Sender);
if (maxspr= 9)and(mt=2) then Gwar2if9(Sender);
if (maxspr= 10)and(mt=2) then Gwar2if10(Sender);
if (maxspr= 20)and(mt=2) then Gwar2if20(Sender);

if (maxspr= 3)and(mt=3) then Gwar3if3(Sender);
if (maxspr= 4)and(mt=3) then Gwar3if4(Sender);
if (maxspr= 5)and(mt=3) then Gwar3if5(Sender);
if (maxspr= 6)and(mt=3) then Gwar3if6(Sender);
if (maxspr= 7)and(mt=3) then Gwar3if7(Sender);
if (maxspr= and(mt=3) then Gwar3if8(Sender);
if (maxspr= 9)and(mt=3) then Gwar3if9(Sender);
if (maxspr= 10)and(mt=3) then Gwar3if10(Sender);
if (maxspr= 12)and(mt=3) then Gwar3if12(Sender);
if (maxspr= 15)and(mt=3) then Gwar3if15(Sender);
if (maxspr= 20)and(mt=3) then Gwar3if20(Sender);
//if (maxspr= 4)and(mt=4) then list4if4(Sender);
if (maxspr= 4)and(mt=4) then Gwar4if4(Sender);
if (maxspr= 5)and(mt=4) then Gwar4if5(Sender);
if (maxspr= 6)and(mt=4) then Gwar4if6(Sender);
if (maxspr= 7)and(mt=4) then Gwar4if7(Sender);
if (maxspr= and(mt=4) then Gwar4if8(Sender);
if (maxspr= 9)and(mt=4) then Gwar4if9(Sender);
if (maxspr= 10)and(mt=4) then Gwar4if10(Sender);
if (maxspr= 11)and(mt=4) then Gwar4if11(Sender);
if (maxspr= 12)and(mt=4) then Gwar4if12(Sender);
if (maxspr= 13)and(mt=4) then Gwar4if13(Sender);

if (maxspr= 5)and(mt=5)and(vmax<=49) then Gwar5if5(Sender);
if (maxspr= 5)and(mt=5)and(vmax>49) then gwar5nospeed5(sender);
if (maxspr= 6)and(mt=5) then Gwar5if6(Sender);
if (maxspr= 7)and(mt=5) then Gwar5if7(Sender);
if (maxspr= and(mt=5) then Gwar5if8(Sender);
if (maxspr= 9)and(mt=5) then Gwar5if9(Sender);
if (maxspr= 10)and(mt=5) then Gwar5if10(Sender);
if (maxspr= 11)and(mt=5) then Gwar5if11(Sender);
if (maxspr= 12)and(mt=5) then Gwar5if12(Sender);

if (maxspr= 6)and(mt=6)and (vmax<=26) then Gwar6if6(Sender);
if (maxspr= 7)and(mt=6)and (vmax<=26) then Gwar6if7(Sender);
if (maxspr= and(mt=6)and (vmax<=26) then Gwar6if8(Sender);
if (maxspr= 9)and(mt=6)and (vmax<=26) then Gwar6if9(Sender);
if (maxspr= 10)and(mt=6)and (vmax<=26) then Gwar6if10(Sender);


if (maxspr= 6)and(mt=6)and (vmax>26) then Gwar6nospeed6(Sender); //nowa

if (maxspr= 7)and(mt=7) then Gwar7if7(Sender);
if (maxspr= and(mt=8) then Gwar8if8(Sender);
if (maxspr= 9)and(mt=9) then Gwar9if9(Sender);
if (maxspr= 10)and(mt=10) then Gwar10if10(Sender);


if (maxspr= 12)and(mt=10) then Gwar10if12(Sender);
if (maxspr= 11)and(mt=10) then Gwar10if11(Sender);
if (maxspr= 31)and(mt=25) then gwar25if31(Sender);
if (maxspr= 35)and(mt=30) then gwar30if35(Sender);
//if (maxspr= 0)and(mt=4) then LIST4if4(Sender);
//if memo6.Lines[1]<>button40.Caption then memo6.lines[1]:= button40.Caption;
gwarpln:
if (maxspr= 7)and(checkbox49.checked=true)and(mt=0)and(weryfhit=7) then zysk7run(Sender);
if (maxspr= 7)and(checkbox49.checked=true)and(mt=0)and(weryfhit=6) then zysk6run(Sender);
if (maxspr= 7)and(checkbox49.checked=true)and(mt=0)and(weryfhit=8) then zysk8run(Sender);
if (maxspr= 7)and(checkbox49.checked=true)and(mt=0)and(weryfhit=9) then zysk9run(Sender);
// if checkbox51.Checked=true then zysk7run(Sender);

end;



2020-05-15 (21:44)

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

14865
wpis nr 1 293 397
[ CZCIONKA MONOSPACE ]

i to wszystko jest potrzebne w kwestii rekordów ???

Czy po prostu przy okazji liczysz inne rzeczy ?
PO co liczysz jakieś zyski ?

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

2020-05-15 (21:45)

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

1386
wpis nr 1 293 399
[ CZCIONKA MONOSPACE ]

może lepiej było by
case of .....co-śtam

ale tak jest od początku
tylko przyrasta if-ów...........
2020-05-15 (21:49)

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

1386
wpis nr 1 293 401
[ CZCIONKA MONOSPACE ]

fair_play

każda procedura sprawdza inne tablice
albo kasę ....albo co innego
stad wolałbym odwołanie aby zamiast wywołania
gwarancji globalnej .......... która jest zawsze wywołana
zagnieździć przy jakiejś nowej wersji
weryfikacji szóstek .......
gwarancje stałą jeśli sprawdzam jakiś plik

i gwarancję liniową6
jeśli działam na szóstkach .......
i nie chce sprawdzać całości .........

pewnie nie widzisz tego globalnie i lokalnie
a o to mi chodzi.........
2020-05-15 (21:51)

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

14865
wpis nr 1 293 402
[ CZCIONKA MONOSPACE ]


wydaje mi się, że moje funkcje są jak najbardziej lokalne
2020-05-15 (21:52)

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

1386
wpis nr 1 293 403
[ CZCIONKA MONOSPACE ]

fair_play

w gwarall wykonuje sie tylko jedna procedura
w zalezności od ustawieniach na formie <--

to zbiór procesów jak u ciebie case of
a sprawdzasz tylko wygrane dla 10-skresleń
2020-05-15 (21:54)

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

14865
wpis nr 1 293 404
[ CZCIONKA MONOSPACE ]


ale przecież powstały OSOBNE procedury dla 6-tek, 5-tek, a w planach są dla 7-ek i 8-ek, więc bez case
2020-05-15 (21:55)

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

1386
wpis nr 1 293 405
[ CZCIONKA MONOSPACE ]

Na razie dajmy sobie spokój
jutro jak wrócę ......z wyjazdu ok 16-tej
to zrobię sobie kawę
i zobaczę na to co mi podesłałeś.......
bo dziś odpada......
może coś mi --> zaświta
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 357 358 359 ... 554 555
Wyślij wiadomość do admina