Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 139 140 141 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2017-09-20 (10:17)

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

1386
wpis nr 1 111 382
[ CZCIONKA MONOSPACE ]

Link do pliku: mini by 777ch.exe



http://uploadfile.pl/pokaz/1212715---msmd.html

=================================================







aby skorzystać z tego programiku

należy pobrać bazę mini od Pasko



https://www.multipasko.pl/wyniki-csv.php?f=minilotto-sortowane



i usunąć z pliku pierwszy wiersz z nagłówkami kolumn !!



potem odpalić mój programik

pobrać dane z pliku csv

i można się pobawić w szukanie od 3 do 12 liczb

przy pomocy prostego randomizera .



tylko do Mini



pochwalić się chociaż..

kto sie tym pobawił

--- wpis edytowano 2017-09-20 10:19 ---

2017-09-20 (11:44)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 111 386
[ CZCIONKA MONOSPACE ]

Witaj LEO,

Za dużo kolorów i to gęganie po angielsku a Polacy nie gęsi, i swój język mają.

2017-09-20 (12:49)

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

1386
wpis nr 1 111 400
[ CZCIONKA MONOSPACE ]

bo mi się polskie skróty jakoś nie mieszczą ,

a kolorki tak dla pozytywnego patrzenia ,

bo pogoda ostatnio szara



a ogólnie to po prostu testowałem kompilację procedur z excela

..... bo różnice jednak są

--- wpis edytowano 2017-09-20 12:51 ---

2017-09-20 (12:53)

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

1386
wpis nr 1 111 402
[ CZCIONKA MONOSPACE ]

sindbad > może pomógłbyś przy jednej procedurce

w pascalu

bo mi ten język jakoś nie leży
2017-09-20 (12:57)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 111 403
[ CZCIONKA MONOSPACE ]

No
2017-09-20 (13:01)

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

1386
wpis nr 1 111 404
[ CZCIONKA MONOSPACE ]

To albo mam wkleić procedurę jaka mam ,czy opisać co ma się wykonać ?



No

..no tak czy no nie ....

to miało być po polsku czy po angielsku

właściwie .... zrozumiałem



Ok

--- wpis edytowano 2017-09-20 13:09 ---

2017-09-20 (13:10)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 111 407
[ CZCIONKA MONOSPACE ]

To nasze no, czyli tak

Wklej to może więcej nas będzie do pomocy.

2017-09-20 (13:17)

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

1386
wpis nr 1 111 409
[ CZCIONKA MONOSPACE ]

problem w tym że wszystko działa bez zarzutu,

choć mocno namieszałem w tej procedurce



ale chciałbym to przyspieszyć to raz ,a drugi punkt ,to

aby numnew czyli próba podmiany liczby w tablicy

była wykonana dla kolejnych nie liczb a par liczb



czyli taki ślimak

który by próbował podmienić 2 liczby

jednak sprawdzając gwarancję dla każdej zmiany liczb

w tablicy roboczej a jeśli gwarancja się podniesie

to zostawiał w roboczej i w best nowe rozdanie.....



nie wiem czy nie lepiej było by opisać dokładnie cały proces.........



---------------------------------------------------------------------

procedure TForm1.BitBtn41Click(Sender: TObject);//podmiana 1-liczby

var



lina,linb,numstary,stanNUM,numnew,vm,spr,okm,nowbest:integer ;

label

GotoLabel1;

label

GotoLabel2;

label

GotoLabel3;

begin

stopi:=true;

radiobutton2.Checked:=true;

checkbox2.Checked:=true;

linb:=0;



b:=spinedit6.Value;

k:=spinedit3.Value;

vm:=spinedit1.Value;

//checkbox2.Checked:=true;

//radiobutton2.Checked:=true;

if stopi=true then repeat

GotoLabel2:

if stopi=false then linb:=b;

if stopi=false then goto GotoLabel3;

if linb>b then linb:=0;





for lina:= 0 to k-1 do begin

stanNUM:=0;

badana:=linb;

numstary:=tabbest[linb][lina];

GotoLabel1:

if stopi=false then goto GotoLabel3;

for numnew := stanNUM+1 to vm do begin

okm:=0;

for spr := 0 to k-1 do begin

badana:=linb;

if tabrobocza[linb][spr]=numnew then okm:=1;

if (tabrobocza[linb][spr]=numnew) and(numnew<vm) then stanNUM:=numnew;

if (tabrobocza[linb][spr]=numnew) and(numnew<vm) then goto GotoLabel1;

if (tabrobocza[linb][spr]=numnew) and(numnew>=vm) then inc(linb);

if (tabrobocza[linb][spr]=numnew) and(numnew>=vm) then goto GotoLabel2;

end;

if okm=0 then begin

badana:=linb;



if m=10 then Gwaranty10(Sender);

if m=9 then Gwaranty9(Sender);

if m=8 then Gwaranty8(Sender);

if m=7 then Gwaranty7(Sender);

if m=6 then Gwaranty6(Sender);

if m=5 then Gwaranty5(Sender);

if m=4 then Gwaranty4(Sender);

if m=3 then Gwaranty3(Sender);

if m=2 then Gwaranty2(Sender);

nowbest:=bestbrak;

tabrobocza[badana][lina]:= numnew;



panel4.Caption:=' linia ' +inttostr(linb)+' | '+inttostr(lina)+' stnum['+ inttostr(numstary)+'] new['+inttostr(numnew)+'] | brak='+inttostr(brakbadana)+ ' copre= '+inttostr(cop);



if m=10 then Gwaranty10(Sender);

if m=9 then Gwaranty9(Sender);

if m=8 then Gwaranty8(Sender);

if m=7 then Gwaranty7(Sender);

if m=6 then Gwaranty6(Sender);

if m=5 then Gwaranty5(Sender);

if m=4 then Gwaranty4(Sender);

if m=3 then Gwaranty3(Sender);

if m=2 then Gwaranty2(Sender);

Application.ProcessMessages;

if gw=100 then goto GotoLabel3;



if brakbadana <= nowbest then tabrobocza[badana][lina]:= numnew;

if brakbadana <= nowbest then tabbest[badana][lina]:= numnew;



if brakbadana > nowbest then tabrobocza[badana][lina]:= numstary;

Application.ProcessMessages;



end;

end;

end;

inc(linb) ;



until(linb=b) ;



GotoLabel3:



panel4.Caption:='koniec';





end;

2017-09-20 (13:19)

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

1386
wpis nr 1 111 410
[ CZCIONKA MONOSPACE ]

niestety ten język mi nie leży

bo piszę tylko w vb



co do innych kolegów.... to Ci co coś potrafią

chyba zeszli z zielonej...trawy

--- wpis edytowano 2017-09-20 13:21 ---

2017-09-20 (13:23)

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

1386
wpis nr 1 111 412
[ CZCIONKA MONOSPACE ]

o 15 20 wyjazd mam.... więc zajrzę później

2017-09-20 (13:58)

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

1386
wpis nr 1 111 418
[ CZCIONKA MONOSPACE ]

Sindbad



Chyba prościej by było napisać kod od zera



Np:warunki

v=18 [liczb]

sprawdzanie pokrycia 4-ek

dla zakładów 8 -skreśleń



ustawiana tylko liczba kombinacji

czyli np. 40 czy tam 80



tablica startowa obojętnie,

może być random



no i potem ten ślimak

podmiana liczby na każdej pozycji

oczywiście bez powtórek liczb

wyrzucenie aktualnie najlepszego pokrycia ...... w postaci ilości =brak pokrycia = brak
2017-09-20 (14:04)

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

1386
wpis nr 1 111 421
[ CZCIONKA MONOSPACE ]

zastosowanie



wygenerowanie zbioru z warunkami strefowymi



następnie próba pokrycia jak największej ilości elementów 3 czy 4

czyli próba uzyskania najwyższej gwarancji dla własnego zbioru.....



pozdrawiam



wpadnę po 18-tej
2017-09-20 (14:16)

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

1386
wpis nr 1 111 428
[ CZCIONKA MONOSPACE ]

coś takiego



Stref:= 12 po 7 Max = [2]

___Zone___

Zone |1| > 1-2-3-4-5-6-7

Zone |2| > 2-3-4-5-6-7-8

Zone |3| > 3-4-5-6-7-8-9

Zone |4| > 4-5-6-7-8-9-10

Zone |5| > 5-6-7-8-9-10-11

Zone |6| > 6-7-8-9-10-11-12

Zone |7| > 7-8-9-10-11-12-13

Zone |8| > 8-9-10-11-12-13-14

Zone |9| > 9-10-11-12-13-14-15

Zone |10| > 10-11-12-13-14-15-16

Zone |11| > 11-12-13-14-15-16-17

Zone |12| > 12-13-14-15-16-17-18



C(18,5,2,2) = 20



System [5] z [18] = 606-combinations

Veryf: [2] z [18] = 153-combinations



12 2 8 7 15

6 3 8 15 18

1 4 8 14 7

6 4 10 16 18

1 5 14 15 17

1 6 9 14 12

11 7 13 16 6

4 3 13 12 17

2 4 9 11 18

2 5 9 13 3

2 6 9 16 17

5 7 9 15 10

1 8 10 11 17

3 7 10 17 18

4 5 11 12 18

1 2 8 13 9

14 2 10 13 18

5 3 8 16 18

1 3 11 14 18

1 4 12 15 16



-- Gwaranty --

Gw. T=2 if M=2 = 96,7320261437908 %

nie pokryte [5]



20-09-2017 14:13:50

powered by Jamper 777ch





i teraz .... brakuje pokrycia 5

więc albo dokładamy zakład..... albo procedura podmiany za słaba.....
2017-09-20 (15:26)

status sindbad
Data rejestracji: 2008-10-13
Ilość postów: 20531

3794
wpis nr 1 111 442
[ CZCIONKA MONOSPACE ]

Niestety w tym ci nie pomogę.

To wymaga zbyt wiele czasu.

2017-09-20 (17:41)

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

1386
wpis nr 1 111 457
[ CZCIONKA MONOSPACE ]

sindbad> ok



Wiem ,i rozumiem...czas płynie jak rzeka ......
2017-09-21 (01:01)

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

1386
wpis nr 1 111 523
[ CZCIONKA MONOSPACE ]

Trochę smutne.....

Tablice danych zapamiętywanych wyników były niekompletne

... a nikt nie zauważył .....



tak jest prawidłowo...





Adres do pliku:

http://uploadfile.pl/pokaz/1213566---awp0.html
2017-09-21 (09:12)

status MLRandom
Data rejestracji: 2016-01-16
Ilość postów: 553

14699
wpis nr 1 111 548
[ CZCIONKA MONOSPACE ]

777ch, patrząc na siebie - pobrałem, sprawdziłem czy działa i zostawiłem sobie do rozgryzania na chwilę wolnego czasu (np. weekend). Stąd pewnie brak rzucenia okiem na szczegóły.

Moim zdaniem bardzo by pomogło, gdybyś np. pozamieszczał rozwijane komentarze lub w inny sposób, czytelny nawet dla "Zosi z mięsnego" (przepraszam Zosie i pracowników mięsnego), co który przycisk robi i co dokładnie "podaje". Moim zdaniem byłoby wielu fascynatów, gdyby dokładnie rozumieli co program robi i co można za jego pomocą uzyskać. Sorki za pouczanie, ale "kilka" instrukcji obsługi aplikacji w życiu spłodziłem, więc wiem jak ważne jest przystępne podanie "towaru" odbiorcy
2017-09-21 (09:32)

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

1386
wpis nr 1 111 556
[ CZCIONKA MONOSPACE ]

MLRandom> ten program wymaga instruktażu ?





--- wpis edytowano 2017-09-21 09:32 ---

2017-09-21 (09:48)

status MLRandom
Data rejestracji: 2016-01-16
Ilość postów: 553

14699
wpis nr 1 111 562
[ CZCIONKA MONOSPACE ]

Nie obraź się, ale dla osób z zewnątrz, oczywistości oczywiste dla twórcy, nie są oczywiste dla nietwórcy. Przerabiałem to już z działem IT, gdy musiałem ich wypociny przekładać na język humanistów

--- wpis edytowano 2017-09-21 09:49 ---

2017-09-21 (11:11)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 111 581
[ CZCIONKA MONOSPACE ]

777ch, przez przypadek wgrałem do programu bazę .csv multi i program też działa Co prawda analiza losowań kończy się na L5 bazy, ale to też może być wskazówka do wyboru liczb do gry.

>>> Tablice danych zapamiętywanych wyników były niekompletne <<<

Jak to rozumieć ? To znaczy, że program nie wczytywał wszystkich wyników z pliku .csv ?

Z mojego punktu widzenia, najbardziej wartościową opcją jest moduł sprawdzania co wypadło np. z moich liczb w historii losowań. Nie mam takiego narzędzia w excelu, choć mam możliwość sprawdzenia tego w innych programach. W nowej wersji programu doszedł button "paskudna". Kliknąłem na niego, coś szukał ale chyba nie znalazł, bo po 30 min wyłączyłem program. Z nazwy, mogę się domyślać, że program (chyba) szuka zestawu o najgorszych trafieniach. Napisałeś, że program działa "randomowo". To może być wadą i zaletą. Wiem, że ten program do tego nie służy, ale spróbuj znaleźć tym programem zestaw, czekający na 3z12, 140 losowań. To oczywiście nie jest zarzut. Nie to jest głównym zadaniem tego programu. Jakby nie było, fajnie, że chcesz dzielić się efektami Twojej pracy z innymi. Za to należą Ci się podziękowania. W dzisiejszych czasach mało kto robi takie rzeczy za free. Pozdrawiam!
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 139 140 141 ... 554 555
Wyślij wiadomość do admina