Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 184 185 186 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-01-25 (14:12)

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

1386
wpis nr 1 141 989
[ CZCIONKA MONOSPACE ]

fair_play



Niestety nie mogę się jeszcze kilka dni tymi problemami zainteresować,

muszę robić co innego....



sprawdzałem Twoim programikiem







728 0,006%

732 0,006%

732 0,023%

736 0,017%

736 0,052%

740 0,023%

740 0,081%

740 0,052%

744 0,029%

744 0,162%

744 0,006%

748 0,012%

748 0,127%

748 0,006%

752 0,006%

752 0,029%

752 0,023%

752 0,087%

756 0,006%

756 0,046%

756 0,041%

756 0,035%

760 0,023%

760 0,006%

760 0,052%

760 0,017%

764 0,035%

764 0,046%

768 0,046%

768 0,006%

768 0,012%

768 0,006%

772 0,012%

772 0,012%

772 0,006%

772 0,012%

776 0,012%

776 0,012%

780 0,058%

780 0,017%

784 0,035%

784 0,006%

788 0,029%

792 0,006%

792 0,012%

796 0,006%

796 0,006%

800 0,023%

804 0,006%

808 0,006%









--- wpis edytowano 2018-01-25 14:20 ---

2018-01-25 (21:18)

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

14865
wpis nr 1 142 078
[ CZCIONKA MONOSPACE ]

kleszek>



Trafienie 7-miu liczb w omawianym przykładzie daje takie gwarancje:







Czy taka wersja Cię interesuje ?

--- wpis edytowano 2018-01-25 21:19 ---

2018-01-26 (10:11)

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

2047
wpis nr 1 142 169
[ CZCIONKA MONOSPACE ]

fair_play, na screenie wygląda, że to jest to. Oczywiście, że ta wersja mnie i sądzę, że nie tylko mnie interesuje. Kawałek porządnej roboty. Pozdrawiam!
2018-01-26 (10:43)

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

14865
wpis nr 1 142 178
[ CZCIONKA MONOSPACE ]

kleszek>



To wypróbuj



http://uploadfile.pl/pokaz/1341787---nwhf.html



Pozdrawiam
2018-01-26 (11:07)

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

2047
wpis nr 1 142 188
[ CZCIONKA MONOSPACE ]

Pobrałem i ... pierwsze słowo jakie wypowiedziałem gdy to zobaczyłem, to było staropolskie "o k..wa" Pełny profesjonalizm. Jednak widzę, że postawiłes na swoją wersję, czyli dla 5 trafień liczysz dla bazy 8568. Być może masz rację, nie jestem matematykiem, być może tak jest prawidłowo. Zmieniają się szanse i procenty, a kwoty wypłat zostają te same, a w końcu to jest najważniejsze. Fair_play, pozostaje mi tylko jeszcze raz Ci podziękować, za trud włożony w tą aplikację. Full wypas, jest po prostu super. Mam w końcu narzędzie do sprawdzania jakości tworzonych systemów strefowych. Przyda się na pewno. Pozdrawiam!
2018-01-26 (11:13)

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

1386
wpis nr 1 142 189
[ CZCIONKA MONOSPACE ]

Range("M:Y").Cells.ClearContents



zamiast columns select selection



pobawię się na pewno,

pozdrawiam





2018-01-26 (11:15)

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

14865
wpis nr 1 142 191
[ CZCIONKA MONOSPACE ]

kleszek>



Są dwa arkusze.

Na Arkuszu1 jest wersja sprawdzania gwarancji w sytuacji gdy ilość trafień=ilości skreśleń, czyli z eliminatorem.

Na Arkuszu2 liczone są gwarancje gdy ilość trafień > ilości skresleń, czyli bez eliminatora.

Tak więc do sprawdzaj gwarancje odpowiednio do tych warunków.

Akurat dla załączonego przykładu gwarancje dla 5-ciu trafień licz na Arkuszu1.

--- wpis edytowano 2018-01-26 11:16 ---

2018-01-26 (11:28)

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

14865
wpis nr 1 142 195
[ CZCIONKA MONOSPACE ]

777ch>



Skoro chcesz sie pobawić, to spróbuj wyjaśnić problem, który się pojawił, a którego nie rozumiem

Jak zajrzysz do kodu funkcji "oblicz"

to zauważysz w grupach 'zamiana liczb na ciągi znakowe i 'sumowanie wygranych warunki pętli są :



For y = 1 To (wys + 0.5)

i For y = 1 To (wys + 0.5)



To 0.5 musiałem dodać ponieważ przy sprawdzaniu traf-9 i traf-7 petla kończyła się o 1 za wcześnie i w wykazie brakowało ostatniej pozycji.

Przy pozostałych trafieniach wszystko było poprawnie.



Za cholerę nie mogę dojść dlaczego.

2018-01-26 (11:39)

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

1386
wpis nr 1 142 196
[ CZCIONKA MONOSPACE ]

kawa



i niestety muszę co innego ,

ale wieczorem zajrzę do kodu .

...bo tylko dostawiłem sortowanie dla [ile], + to co wspomniałem,i chwilowo koniec.





Sub sort_maxile_max()

Arkusz1.Range("q10", Arkusz1.Cells(Rows.Count - 1, 23).End(xlUp).Offset(0, 1)).Sort Key1:=Arkusz1.Range("v10"), Order1:=xlDescending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub



Sub sort_maxile_min()

Arkusz1.Range("q10", Arkusz1.Cells(Rows.Count - 1, 23).End(xlUp).Offset(0, 1)).Sort Key1:=Arkusz1.Range("v10"), Order1:=xlAscending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub





2018-01-26 (11:48)

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

1386
wpis nr 1 142 198
[ CZCIONKA MONOSPACE ]

Option Base 1



tablica zadeklarowana w ten sposób posiada indeks pierwszego elementu zaczynający się od liczby 1



nie stosuję nigdy Option Base 1



to może być przyczyna problemu......



ale zapoznaj się z

http://www.mielk.pl/pl/kursy/kurs_vba/kurs_13_tablice.php

https://tomaszkenig.pl/kurs-excel-vba/tablice-vba-excel-podstawy/
2018-01-26 (11:52)

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

2047
wpis nr 1 142 199
[ CZCIONKA MONOSPACE ]

777ch, makra dodane. Fair_play, sprawdziłem w jaki sposób podaje wygrane dla "arkuszowego" systemu WG. I jest dokładnie tak jak u Ciebie. Miałeś rację, np. dla 7 trafień WG liczy gwarancję dla 31824 kombinacji. Kolumny Total i % są zgodne z Twoimi 'ile' i 'szansa'. Ukłony po pas Po prostu idealne narzędzie do sprawdzania systemów strefowych.
2018-01-26 (12:09)

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

14865
wpis nr 1 142 203
[ CZCIONKA MONOSPACE ]

777ch>



W Twoich dopisanych makrach lepiej wskazać zakres od:



"Arkusz1.Range("o10", ....



bo przy 10-ciu skreśleniach dane pojawią się od kolumny "O"

--- wpis edytowano 2018-01-26 12:21 ---

2018-01-26 (12:21)

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

1386
wpis nr 1 142 206
[ CZCIONKA MONOSPACE ]

fakt

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

to zmień sort ile i sort wygranej na:



ub sort_maxile_max()

Arkusz1.Range("o10", Arkusz1.Cells(Rows.Count - 1, 23).End(xlUp).Offset(0, 1)).Sort Key1:=Arkusz1.Range("v10"), Order1:=xlDescending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub



Sub sort_maxwyg_min()

Arkusz1.Range("o10", Arkusz1.Cells(Rows.Count - 1, 23).End(xlUp).Offset(0, 1)).Sort Key1:=Arkusz1.Range("w10"), Order1:=xlAscending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Sub sort_maxwyg_max()

Arkusz1.Range("o10", Arkusz1.Cells(Rows.Count - 1, 23).End(xlUp).Offset(0, 1)).Sort Key1:=Arkusz1.Range("w10"), Order1:=xlDescending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub



Sub sort_maxile_min()

Arkusz1.Range("o10", Arkusz1.Cells(Rows.Count - 1, 23).End(xlUp).Offset(0, 1)).Sort Key1:=Arkusz1.Range("v10"), Order1:=xlAscending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub
2018-01-26 (12:51)

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

1386
wpis nr 1 142 212
[ CZCIONKA MONOSPACE ]





1 2 3 4 5 6 7 8 9 12

1 2 3 4 5 6 8 10 11 12

1 2 3 4 6 7 8 10 11 12

1 2 3 4 6 7 8 9 10 11

1 2 3 4 5 7 8 9 10 12

1 2 3 5 6 7 9 10 11 12

1 2 4 5 6 7 8 9 10 11

1 2 3 4 5 7 8 9 11 12

1 2 4 5 6 8 9 10 11 12

1 3 4 5 6 7 9 10 11 12

2 3 5 6 7 8 9 10 11 12

2 3 4 5 6 7 9 10 11 12

1 3 5 6 7 8 9 10 11 12

3 4 5 6 7 8 9 10 11 12







==============================777ch=============================================

Sprawdzone 6-skr. liczb [12] zbiór =924-kombinacji





66-pln {60} ..co stanowi : 6,494 %

68-pln {180} ..co stanowi : 19,481 %

72-pln {140} ..co stanowi : 15,152 %

74-pln {180} ..co stanowi : 19,481 %

76-pln {80} ..co stanowi : 8,659 %

78-pln {20} ..co stanowi : 2,165 %

80-pln {60} ..co stanowi : 6,494 %

82-pln {148} ..co stanowi : 16,018 %

84-pln {4} ..co stanowi : 0,433 %

88-pln {20} ..co stanowi : 2,165 %

94-pln {4} ..co stanowi : 0,433 %

96-pln {20} ..co stanowi : 2,165 %

102-pln {8} ..co stanowi : 0,866 %

==============================fairplay============================================



ile wygrana szansa

60 66 6,494%

180 68 19,481%

140 72 15,152%

180 74 19,481%

20 76 2,165%

60 76 6,494%

20 78 2,165%

60 80 6,494%

8 82 0,866%

140 82 15,152%

4 84 0,433%

20 88 2,165%

4 94 0,433%

20 96 2,165%

8 102 0,866%



wychodzi na to samo.......







korciło mnie sprawdzenie efektywności...przeliczeń

w tym celu zmieniłem w ostatnim zakładzie liczbę 12 na 22

aby ........ czas relatywnie porównać.......



moje to układanka ,procedura all_6zysk_pełny()

Czas obliczeń 777ch wyniósł 00:00:03,33 sec.

Czas obliczeń fairplay wyniósł 00:00:06,19 sec.



ale ....zgadza się wynik......



no muszę niestety to zarzucić......
2018-01-26 (13:01)

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

1386
wpis nr 1 142 215
[ CZCIONKA MONOSPACE ]

zmieniając ostatnią na 35



Czas obliczeń wyniósł 00:00:44,76 sec.

Czas obliczeń wyniósł 00:01:81,93 sec.



to już duże różnice.... co jednak jest istotne

czasy mogą być ciut lepsze,bo u mnie chodzą 2 aplikacje exe w paskalu,co spowalnia...

a nie mogę chwilowo przerwać .....





2018-01-26 (14:27)

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

14865
wpis nr 1 142 236
[ CZCIONKA MONOSPACE ]

ile to jest:

00:01:81,93 sec.
2018-01-26 (14:33)

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

1386
wpis nr 1 142 238
[ CZCIONKA MONOSPACE ]

czas start minus czas now

to stoper.....
2018-01-26 (14:47)

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

14865
wpis nr 1 142 239
[ CZCIONKA MONOSPACE ]

dziwny format tego czasu:



czy 00:01:81,93 sec.



to 00:02:21,93 sec. ?
2018-01-26 (15:02)

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

1386
wpis nr 1 142 245
[ CZCIONKA MONOSPACE ]

dodaj







Option Base 1

Option Explicit

Dim stoper As Date, czas As String'<<<







a w procedurach



Sub od hit_ 2......10

'w pierwszej linni

stoper = Timer







koniec:

czas = Format(Timer - stoper, " 00:00:00.00") & " sec."

Cells(7, 16) = "Czas obliczeń wyniósł " & czas



czas może być też inaczej mierzony,to nieistotne,ważne jak szybko procedura się wykonuje.....



u ciebie jest sortowanie,u mnie nie ma

bo jest tylko wypis z tablic

--- wpis edytowano 2018-01-26 15:06 ---

2018-01-26 (15:18)

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

1386
wpis nr 1 142 247
[ CZCIONKA MONOSPACE ]

http://www.excelforum.pl/light.php/o_t__t_12492__jak-zmierzy%C4%87-czas-wykonywania-makra.html



można inaczej......

ale po co komplikować..jak to tylko kwestie porównawcze....
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 184 185 186 ... 554 555
Wyślij wiadomość do admina