Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 357 358 359 ... 561 562

Wyślij wiadomość do admina
🎱 MultiPairs 2027 – nowa wersja w przeglądarce, otwórz BETA

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-15 (21:04)

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

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

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

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

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

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

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

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

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

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

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

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

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
2020-05-15 (21:56)

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

1386
wpis nr 1 293 406
[ CZCIONKA MONOSPACE ]

fair_play
ale przecież powstały OSOBNE procedury dla 6-tek,
5-tek, a w planach są dla 7-ek i 8-ek,
---------------------------------------------

wszystko ładuję do gwarall(sender);
gdzie w zależności od ustawień v,k,t,m
wykonuje się odpowiedni proces........

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

2020-05-15 (21:57)

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

14865
wpis nr 1 293 407
[ CZCIONKA MONOSPACE ]

ok, może podeślę Ci bardziej przejrzystą procedurę

"wszystko ładuję do gwarall(sender);
gdzie w zależności od ustawień v,k,t,m
wykonuje się odpowiedni proces........"

ale to do bicia rekordów nie jest potrzebne

ale rozumiem, że bicie rekordów to tylko kropla w morzu tego co ten program robi

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

2020-05-15 (21:58)

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

1386
wpis nr 1 293 408
[ CZCIONKA MONOSPACE ]

Ale dziś już piłem
więc i tak jutro......... najwcześniej
2020-05-15 (22:03)

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

14865
wpis nr 1 293 413
[ CZCIONKA MONOSPACE ]


ok to do jutra
spokojnej nocy
2020-05-15 (22:12)

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

1386
wpis nr 1 293 416
[ CZCIONKA MONOSPACE ]

I tobie życzę spokojnej
mój dalej na -1 i mieli..........
2020-05-15 (22:35)

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

1386
wpis nr 1 293 422
[ CZCIONKA MONOSPACE ]

a przy okazji

jak widać nauka wiąże się z ...porażką
masz szczęście że mnie --> cieszy Twój sukces
bo jakby nie było to i mój sukces
bo potwierdziłeś że się --> da
nawet autorowi programu odebrać rekord

dobrej nocki zusamen

--- wpis edytowano 2020-05-15 22:35 ---

2020-05-16 (02:28)

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

14865
wpis nr 1 293 442
[ CZCIONKA MONOSPACE ]


C(48,25,6)=250 - zgłoszone
2020-05-16 (02:40)

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

2623
wpis nr 1 293 443
[ CZCIONKA MONOSPACE ]

fair_play, ależ żeś zasmakował w tym byciu rekordzistą
Gratulacje!
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 357 358 359 ... 561 562

Wyślij wiadomość do admina
🎱 MultiPairs 2027 – nowa wersja w przeglądarce, otwórz BETA