Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-15 (20:02)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 357 358 359 ... 560 561
Wyślij wiadomość do admina