Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 9 10 11 12
Wyślij wiadomość do admina

Przewiń wpisy ↓

Temat leo777ch

2013-01-11 (11:31)

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

1386
wpis nr 591 885
[ CZCIONKA MONOSPACE ]

makro wypisuje mi wynik do arkusza



w jakiej postaci ma wypisać .......trafienia kolejne,czy bilans trafień,czy progi trafień 2,3,4/5 ?



2013-01-11 (11:36)

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

2047
wpis nr 591 890
[ CZCIONKA MONOSPACE ]

777ch, chodzi mi o coś takiego: "Wynik >=3/5 w grze nr. [" & ODL & "] " & wyn & "/5"
2013-01-11 (13:09)

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

1386
wpis nr 591 938
[ CZCIONKA MONOSPACE ]

ok......szukaj wieczorem,teraz nie mogę
2013-01-11 (17:53)

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

1386
wpis nr 592 028
[ CZCIONKA MONOSPACE ]

kleszek> wyślij mi swój arkusz.... roboczy > na e-mail

....dołożę Ci co nieco

pozdrawiam
2013-01-11 (19:13)

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

1386
wpis nr 592 046
[ CZCIONKA MONOSPACE ]

chyba będę odpoczywał...trochę



kleszek> masz to makro..od razu trochę przerobiłem....do 20 liczb,bo jak znam siebie.to będziesz kombinował dla większej ilości liczb niż 5-liczb







Sub SPEED_co_dalej_do20skreśleń()



' Makro zarejestrowane 2013-01-10, autor LEO

Arkusz1.Activate









Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long



Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabgps() As Long



Dim tab6() As Variant

Dim tabprog2() As Variant

Dim tabprog3() As Variant

Dim tabprog4() As Variant

Dim ilezestawów As Long



cofka = Arkusz1.Cells(1, 11).value

vreal = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536"))

vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka

LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1"))

LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000"))



tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vreal, 100)).value

ilezestawów = Application.WorksheetFunction.CountA(Range("a2:a65536"))

Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 50)) = ""







ReDim tabgps(vreal, LICZB_GRY)



For los = vreal To 1 Step -1

For liczba = 1 To LICZB_GRY







tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba)

If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1







Next liczba



Next los

'tablica wyników gotowa





''tu wpiszemy do tablicy ... pobieramy piątki z arkusza1 wpisane od wiersza2 kolumna1



ReDim tab6(ilezestawów - 1, 19)



For wpis = 2 To ilezestawów + 1

For liczba = 1 To 5

tab6(wpis - 2, liczba - 1) = Arkusz1.Cells(wpis, liczba)

Next liczba

Next wpis

















'tablice dla progów powyżej 2 i powyżej 3 i powyżej 4 trafień



ReDim tabprog2(ilezestawów - 1, 0)

ReDim tabprog3(ilezestawów - 1, 0)

ReDim tabprog4(ilezestawów - 1, 0)

'co padło potem >=2TRAFNE

For typ2 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ2 + 1, 1), Arkusz1.Cells(typ2 + 1, 20)))

tabprog2(typ2 - 1, 0) = "nie odnotowano trafienia 2/" & dłzakładu



ODL2 = 0

wyn2 = 0

For spr2 = vlos + 1 To vreal





For skr2 = 1 To dłzakładu

trfwyn2 = tabgps(spr2, tab6(typ2 - 1, skr2 - 1))

wyn2 = wyn2 + trfwyn2

Next skr2



If wyn2 >= 2 Then tabprog2(typ2 - 1, 0) = "Wynik >=2/" & dłzakładu & " w grze nr. [" & ODL2 & "] " & wyn2 & "/" & dłzakładu



If wyn2 >= 2 Then Exit For

ODL2 = ODL2 + 1

Next spr2



If typ2 = ilezestawów + 1 Then Exit For

Next typ2



'co padło potem >=3TRAFNE

For typ3 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ3 + 1, 1), Arkusz1.Cells(typ3 + 1, 20)))

tabprog3(typ3 - 1, 0) = "nie odnotowano trafienia 3/" & dłzakładu



ODL3 = 0

wyn3 = 0

For spr3 = vlos + 1 To vreal





For skr3 = 1 To dłzakładu

trfwyn3 = tabgps(spr3, tab6(typ3 - 1, skr3 - 1))

wyn3 = wyn3 + trfwyn3

Next skr3



If wyn3 >= 3 Then tabprog3(typ3 - 1, 0) = "Wynik >=3/" & dłzakładu & " w grze nr. [" & ODL3 & "] " & wyn3 & "/" & dłzakładu



If wyn3 >= 3 Then Exit For

ODL3 = ODL3 + 1

Next spr3



If typ3 = ilezestawów + 1 Then Exit For

Next typ3



'co padło potem >=4TRAFNE

For typ4 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ4 + 1, 1), Arkusz1.Cells(typ4 + 1, 20)))

tabprog4(typ4 - 1, 0) = "nie odnotowano trafienia 4 /" & dłzakładu



ODL4 = 0

wyn4 = 0

For SPR4 = vlos + 1 To vreal





For skr4 = 1 To dłzakładu

trfwyn4 = tabgps(SPR4, tab6(typ4 - 1, skr4 - 1))

wyn4 = wyn4 + trfwyn4

Next skr4



If wyn4 >= 4 Then tabprog4(typ4 - 1, 0) = "Wynik >=4/" & dłzakładu & " w grze nr. [" & ODL4 & "] " & wyn4 & "/" & dłzakładu



If wyn4 >= 4 Then Exit For

ODL4 = ODL4 + 1

Next SPR4



If typ4 = ilezestawów + 1 Then Exit For

Next typ4







'-----------------------------------------------------------------------------

Range(Arkusz1.Cells(2, 40), Arkusz1.Cells(ilezestawów + 1, 40)) = tabprog3

Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 30)) = tabprog2

Range(Arkusz1.Cells(2, 50), Arkusz1.Cells(ilezestawów + 1, 50)) = tabprog4



End Sub

2013-01-11 (19:22)

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

1386
wpis nr 592 049
[ CZCIONKA MONOSPACE ]

sorry.........jak się człowiek spieszy to się djabeł .cieszy....poprawiłem





Sub SPEED_co_dalej_do20skreśleń()



' Makro zarejestrowane 2013-01-10, autor LEO

Arkusz1.Activate









Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long



Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabgps() As Long



Dim tab6() As Variant

Dim tabprog2() As Variant

Dim tabprog3() As Variant

Dim tabprog4() As Variant

Dim ilezestawów As Long



cofka = Arkusz1.Cells(1, 11).value

vreal = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536"))

vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka

LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1"))

LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000"))



tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vreal, 100)).value

ilezestawów = Application.WorksheetFunction.CountA(Range("a2:a65536"))

Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 50)) = ""







ReDim tabgps(vreal, LICZB_GRY)



For los = vreal To 1 Step -1

For liczba = 1 To LICZB_GRY







tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba)

If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1







Next liczba



Next los

'tablica wyników gotowa





''tu wpiszemy do tablicy ... pobieramy piątki z arkusza1 wpisane od wiersza2 kolumna1



ReDim tab6(ilezestawów - 1, 19)



For wpis = 2 To ilezestawów + 1

dłzakładuwpis = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(wpis, 1), Arkusz1.Cells(wpis, 20)))

For liczba = 1 To dłzakładuwpis

tab6(wpis - 2, liczba - 1) = Arkusz1.Cells(wpis, liczba)

Next liczba

Next wpis

















'tablice dla progów powyżej 2 i powyżej 3 i powyżej 4 trafień



ReDim tabprog2(ilezestawów - 1, 0)

ReDim tabprog3(ilezestawów - 1, 0)

ReDim tabprog4(ilezestawów - 1, 0)

'co padło potem >=2TRAFNE

For typ2 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ2 + 1, 1), Arkusz1.Cells(typ2 + 1, 20)))

tabprog2(typ2 - 1, 0) = "nie odnotowano trafienia 2/" & dłzakładu



ODL2 = 0

wyn2 = 0

For spr2 = vlos + 1 To vreal





For skr2 = 1 To dłzakładu

trfwyn2 = tabgps(spr2, tab6(typ2 - 1, skr2 - 1))

wyn2 = wyn2 + trfwyn2

Next skr2

ODL2 = ODL2 + 1

If wyn2 >= 2 Then tabprog2(typ2 - 1, 0) = "Wynik >=2/" & dłzakładu & " w grze nr. [" & ODL2 & "] " & wyn2 & "/" & dłzakładu



If wyn2 >= 2 Then Exit For



Next spr2



If typ2 = ilezestawów + 1 Then Exit For

Next typ2



'co padło potem >=3TRAFNE

For typ3 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ3 + 1, 1), Arkusz1.Cells(typ3 + 1, 20)))

tabprog3(typ3 - 1, 0) = "nie odnotowano trafienia 3/" & dłzakładu



ODL3 = 0

wyn3 = 0

For spr3 = vlos + 1 To vreal





For skr3 = 1 To dłzakładu

trfwyn3 = tabgps(spr3, tab6(typ3 - 1, skr3 - 1))

wyn3 = wyn3 + trfwyn3

Next skr3

ODL3 = ODL3 + 1

If wyn3 >= 3 Then tabprog3(typ3 - 1, 0) = "Wynik >=3/" & dłzakładu & " w grze nr. [" & ODL3 & "] " & wyn3 & "/" & dłzakładu



If wyn3 >= 3 Then Exit For



Next spr3



If typ3 = ilezestawów + 1 Then Exit For

Next typ3



'co padło potem >=4TRAFNE

For typ4 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ4 + 1, 1), Arkusz1.Cells(typ4 + 1, 20)))

tabprog4(typ4 - 1, 0) = "nie odnotowano trafienia 4 /" & dłzakładu



ODL4 = 0

wyn4 = 0

For SPR4 = vlos + 1 To vreal





For skr4 = 1 To dłzakładu

trfwyn4 = tabgps(SPR4, tab6(typ4 - 1, skr4 - 1))

wyn4 = wyn4 + trfwyn4

Next skr4

ODL4 = ODL4 + 1

If wyn4 >= 4 Then tabprog4(typ4 - 1, 0) = "Wynik >=4/" & dłzakładu & " w grze nr. [" & ODL4 & "] " & wyn4 & "/" & dłzakładu



If wyn4 >= 4 Then Exit For



Next SPR4



If typ4 = ilezestawów + 1 Then Exit For

Next typ4







'-----------------------------------------------------------------------------

Range(Arkusz1.Cells(2, 40), Arkusz1.Cells(ilezestawów + 1, 40)) = tabprog3

Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 30)) = tabprog2

Range(Arkusz1.Cells(2, 50), Arkusz1.Cells(ilezestawów + 1, 50)) = tabprog4



End Sub

2013-01-11 (19:35)

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

1386
wpis nr 592 054
[ CZCIONKA MONOSPACE ]

no



--------------ostatecznie tak.....



Sub SPEED_co_dalej_do20skreśleń()



' Makro zarejestrowane 2013-01-10, autor LEO

Arkusz1.Activate









Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long



Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabgps() As Long



Dim tab6() As Variant

Dim tabprog2() As Variant

Dim tabprog3() As Variant

Dim tabprog4() As Variant

Dim ilezestawów As Long



cofka = Arkusz1.Cells(1, 11).value

vreal = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536"))

vlos = Application.WorksheetFunction.CountA(Arkusz2.Range("A1:A65536")) - cofka

LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1"))

LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000"))



tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vreal, 100)).value

ilezestawów = Application.WorksheetFunction.CountA(Range("a2:a65536"))

Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 50)) = ""







ReDim tabgps(vreal, LICZB_GRY)



For los = vreal To 1 Step -1

For liczba = 1 To LICZB_GRY







tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba)

If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1







Next liczba



Next los

'tablica wyników gotowa





''tu wpiszemy do tablicy ... pobieramy piątki z arkusza1 wpisane od wiersza2 kolumna1

If ilezestawów = 0 Then MsgBox "brak zestawów"

If ilezestawów = 0 Then Exit Sub

ReDim tab6(ilezestawów - 1, 19)



For wpis = 2 To ilezestawów + 1

dłzakładuwpis = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(wpis, 1), Arkusz1.Cells(wpis, 20)))

For liczba = 1 To dłzakładuwpis

tab6(wpis - 2, liczba - 1) = Arkusz1.Cells(wpis, liczba)

Next liczba

Next wpis

















'tablice dla progów powyżej 2 i powyżej 3 i powyżej 4 trafień



ReDim tabprog2(ilezestawów - 1, 0)

ReDim tabprog3(ilezestawów - 1, 0)

ReDim tabprog4(ilezestawów - 1, 0)

'co padło potem >=2TRAFNE

For typ2 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ2 + 1, 1), Arkusz1.Cells(typ2 + 1, 20)))

tabprog2(typ2 - 1, 0) = "nie odnotowano trafienia 2/" & dłzakładu



ODL2 = 0



For spr2 = vlos + 1 To vreal

wyn2 = 0



For skr2 = 1 To dłzakładu

trfwyn2 = tabgps(spr2, tab6(typ2 - 1, skr2 - 1))

wyn2 = wyn2 + trfwyn2

Next skr2

ODL2 = ODL2 + 1

If wyn2 >= 2 Then tabprog2(typ2 - 1, 0) = "Wynik >=2/" & dłzakładu & " w grze nr. [" & ODL2 & "] " & wyn2 & "/" & dłzakładu



If wyn2 >= 2 Then Exit For



Next spr2



If typ2 = ilezestawów + 1 Then Exit For

Next typ2



'co padło potem >=3TRAFNE

For typ3 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ3 + 1, 1), Arkusz1.Cells(typ3 + 1, 20)))

tabprog3(typ3 - 1, 0) = "nie odnotowano trafienia 3/" & dłzakładu



ODL3 = 0



For spr3 = vlos + 1 To vreal

wyn3 = 0



For skr3 = 1 To dłzakładu

trfwyn3 = tabgps(spr3, tab6(typ3 - 1, skr3 - 1))

wyn3 = wyn3 + trfwyn3

Next skr3

ODL3 = ODL3 + 1

If wyn3 >= 3 Then tabprog3(typ3 - 1, 0) = "Wynik >=3/" & dłzakładu & " w grze nr. [" & ODL3 & "] " & wyn3 & "/" & dłzakładu



If wyn3 >= 3 Then Exit For



Next spr3



If typ3 = ilezestawów + 1 Then Exit For

Next typ3



'co padło potem >=4TRAFNE

For typ4 = 1 To ilezestawów

dłzakładu = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(typ4 + 1, 1), Arkusz1.Cells(typ4 + 1, 20)))

tabprog4(typ4 - 1, 0) = "nie odnotowano trafienia 4 /" & dłzakładu



ODL4 = 0



For SPR4 = vlos + 1 To vreal

wyn4 = 0



For skr4 = 1 To dłzakładu

trfwyn4 = tabgps(SPR4, tab6(typ4 - 1, skr4 - 1))

wyn4 = wyn4 + trfwyn4

Next skr4

ODL4 = ODL4 + 1

If wyn4 >= 4 Then tabprog4(typ4 - 1, 0) = "Wynik >=4/" & dłzakładu & " w grze nr. [" & ODL4 & "] " & wyn4 & "/" & dłzakładu



If wyn4 >= 4 Then Exit For



Next SPR4



If typ4 = ilezestawów + 1 Then Exit For

Next typ4







'-----------------------------------------------------------------------------

Range(Arkusz1.Cells(2, 40), Arkusz1.Cells(ilezestawów + 1, 40)) = tabprog3

Range(Arkusz1.Cells(2, 30), Arkusz1.Cells(ilezestawów + 1, 30)) = tabprog2

Range(Arkusz1.Cells(2, 50), Arkusz1.Cells(ilezestawów + 1, 50)) = tabprog4



End Sub

2013-01-11 (19:36)

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

3794
wpis nr 592 055
[ CZCIONKA MONOSPACE ]

LEO - Rozwiń mi ten skrót "hitminhist5/10".
2013-01-11 (21:15)

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

1386
wpis nr 592 079
[ CZCIONKA MONOSPACE ]

to te przerwy historyczne MultiLotka przerwa minimalna +-48 ? nie wiem czy znajdzie

do ok ~52 +- kilka maximum



ale jeśli by się dało to zakres{widełki} do przełączenia na przykład

minprzerwahist := StrToint(SpinEdit1.Text); // konwersja

maxprzerwahist := StrToint(SpinEdit2.Text); // konwersja



no i ta sprawa z zakresem dla liczydła ,aby klony policzyły wszystko

podzielone na kawałki,czyli zakres dla csn albo jakoś ,

żeby ustawić na każdym klonie inną działkę obliczeń.



pozdrawiam
2013-01-11 (21:41)

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

3794
wpis nr 592 091
[ CZCIONKA MONOSPACE ]

"to te przerwy historyczne MultiLotka przerwa minimalna +-48 ? nie wiem czy znajdzie

do ok ~52 +- kilka maximum"



Przepraszam, ale w dalszym ciągi jest dla mnie niezrozumiałe.
2013-01-11 (21:58)

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

1386
wpis nr 592 101
[ CZCIONKA MONOSPACE ]

o to mi chodzi



Policzyłem ile razy każda piątka wystąpiła.

Założyłem, że każda piątka w dziesiątce musiała wystąpić minimum 13 razy.

Dziesiątka z maksymalną przerwą 51 losowań (52 progi).



Nr.001 01,02,07,33,34,48,49,57,73,78 max = 52

Nr.002 01,05,14,15,16,18,33,34,59,63 max = 52

Nr.003 01,05,14,15,16,21,26,30,32,75 max = 52

Nr.004 01,05,14,15,16,30,40,46,47,61 max = 52

Nr.005 01,05,14,15,16,31,35,51,60,74 max = 52

Nr.006 01,05,14,15,16,37,70,74,75,76 max = 51

Nr.007 01,05,15,16,17,21,23,30,33,70 max = 51

Nr.008 01,05,15,16,17,21,32,33,43,46 max = 52

Nr.009 01,05,15,16,17,23,42,63,65,70 max = 50

Nr.010 01,05,15,16,17,25,42,63,71,74 max = 52

Nr.011 01,05,15,16,17,30,54,63,69,74 max = 52

Nr.012 01,05,15,16,17,31,32,33,43,69 max = 52

Nr.013 01,05,15,16,17,32,42,56,58,60 max = 52

Nr.014 01,05,15,16,17,32,43,69,70,71 max = 52

Nr.015 01,05,23,33,34,38,61,64,65,71 max = 52

Nr.016 01,05,23,33,34,55,65,73,75,76 max = 52

Nr.017 01,10,33,42,43,44,52,56,72,80 max = 52

Nr.018 01,10,33,42,43,57,61,67,72,75 max = 52

Nr.019 01,11,13,32,33,48,49,57,59,77 max = 51

Nr.020 01,15,16,33,34,35,46,55,57,64 max = 52

Nr.021 01,15,16,33,34,38,43,48,51,79 max = 52

Nr.022 01,15,16,33,35,43,48,56,63,66 max = 52

Nr.023 01,15,16,33,35,43,63,76,78,79 max = 52

Nr.024 01,16,31,33,34,42,56,62,65,76 max = 52

Nr.025 02,15,25,42,43,46,65,71,72,75 max = 52

Nr.026 02,18,20,47,48,57,62,69,77,78 max = 52

Nr.027 02,23,30,33,34,35,60,70,77,79 max = 52

Nr.028 02,23,30,33,34,36,39,60,72,75 max = 52

Nr.029 02,23,30,33,34,38,42,65,71,78 max = 52

Nr.030 03,04,20,36,37,38,48,62,65,75 max = 52

Nr.031 03,10,23,33,34,43,48,64,68,71 max = 51

Nr.032 03,10,23,33,34,57,66,68,71,72 max = 52

Nr.033 03,15,34,45,46,66,70,73,74,79 max = 50

Nr.034 03,20,29,33,34,35,47,56,68,71 max = 51

Nr.035 03,20,29,33,34,38,41,46,47,57 max = 50

Nr.036 04,07,13,36,37,60,64,72,75,78 max = 51

Nr.037 04,14,23,33,34,40,42,57,64,71 max = 52

Nr.038 04,14,23,33,34,40,49,51,66,68 max = 52

Nr.039 04,14,23,33,34,42,52,59,60,71 max = 49

Nr.040 04,14,23,33,34,42,57,61,64,71 max = 52

Nr.041 04,14,23,33,34,47,48,56,61,79 max = 52

Nr.042 04,15,16,36,37,38,41,51,73,78 max = 52

Nr.043 04,15,24,32,33,42,59,63,64,65 max = 52

Nr.044 04,15,24,32,33,43,47,49,62,78 max = 52

Nr.045 05,10,26,37,38,46,59,68,69,75 max = 52

Nr.046 05,14,15,16,17,20,42,57,59,70 max = 52

Nr.047 05,14,15,16,17,29,64,67,72,74 max = 52

Nr.048 05,14,15,16,17,37,38,52,56,67 max = 52

Nr.049 05,14,15,42,43,56,60,65,71,78 max = 51

Nr.050 05,15,34,41,42,45,59,61,63,68 max = 51

Nr.051 05,17,20,41,42,46,59,60,67,73 max = 51

Nr.052 05,33,36,70,71,73,74,75,77,80 max = 52

Nr.053 06,20,23,36,37,40,47,57,62,77 max = 52

Nr.054 07,14,26,30,31,34,40,44,51,65 max = 51

Nr.055 07,15,32,36,37,46,51,66,77,80 max = 52

Nr.056 07,15,32,36,37,47,48,59,60,71 max = 51

Nr.057 07,15,32,36,37,48,54,60,63,73 max = 52

Nr.058 07,23,28,33,34,36,37,40,54,74 max = 52

Nr.059 07,23,28,33,34,40,43,59,63,71 max = 52

Nr.060 08,11,16,18,19,24,26,27,36,42 max = 52

Nr.061 08,11,16,18,19,26,32,42,59,68 max = 52

Nr.062 08,13,15,16,17,23,33,63,67,79 max = 51

Nr.063 08,13,15,16,17,25,33,36,40,77 max = 49

Nr.064 08,13,15,16,17,28,36,40,56,71 max = 52

Nr.065 09,22,23,35,36,52,57,60,66,72 max = 51

Nr.066 10,14,23,33,34,42,54,60,68,71 max = 52

Nr.067 10,14,23,33,34,45,51,52,68,71 max = 51

Nr.068 10,14,23,33,34,49,57,68,71,72 max = 52

Nr.069 10,21,23,33,34,48,59,61,68,70 max = 52

Nr.070 10,22,44,47,48,53,61,65,72,80 max = 52

Nr.071 10,26,32,37,38,39,44,46,65,79 max = 52

Nr.072 11,23,48,59,60,67,72,73,74,75 max = 51

Nr.073 11,25,26,47,48,49,60,61,72,73 max = 52

Nr.074 11,46,57,59,60,61,65,71,72,75 max = 51

Nr.075 13,20,41,46,47,51,55,65,77,79 max = 51

Nr.076 13,22,30,42,43,48,56,61,67,69 max = 51

Nr.077 14,15,24,38,39,40,45,48,50,77 max = 52

Nr.078 14,21,29,42,43,52,58,71,74,77 max = 50

Nr.079 15,16,17,36,37,47,60,66,71,78 max = 52

Nr.080 15,16,23,36,37,42,47,71,72,78 max = 50

Nr.081 15,16,24,36,37,40,57,59,69,71 max = 52

Nr.082 15,16,24,36,37,53,57,65,67,73 max = 51

Nr.083 15,16,25,31,32,34,36,45,70,77 max = 52

Nr.084 15,16,25,31,32,40,42,60,63,64 max = 50

Nr.085 15,16,25,31,32,42,56,64,68,73 max = 52

Nr.086 15,16,31,33,34,36,38,41,64,72 max = 52

Nr.087 20,21,23,28,29,33,36,44,72,74 max = 51

Nr.088 20,21,23,28,29,33,40,43,60,71 max = 50

Nr.089 20,25,26,31,32,35,36,56,66,73 max = 51

Nr.090 20,25,26,31,32,36,46,65,66,70 max = 50

Nr.091 20,25,26,31,32,48,53,56,62,66 max = 52

Nr.092 20,25,26,31,32,57,58,60,66,70 max = 52

Nr.093 20,33,36,39,40,53,57,60,61,66 max = 51

Nr.094 24,32,33,42,43,48,62,72,74,75 max = 52

Nr.095 32,33,43,57,58,63,67,70,71,73 max = 51

Nr.096 33,35,57,59,60,64,69,71,73,78 max = 51

Nr.097 33,35,57,59,60,66,70,71,75,78 max = 52

Nr.098 38,42,48,59,60,64,68,71,73,75 max = 51
2013-01-11 (22:00)

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

1386
wpis nr 592 103
[ CZCIONKA MONOSPACE ]

......ale jeśli by się dało to zakres{widełki} do przełączenia na przykład

pomiedzy 48~~55
2013-01-12 (06:46)

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

2047
wpis nr 592 164
[ CZCIONKA MONOSPACE ]

Bardzo dziękuję 777ch za makro Sub SPEED_co_dalej_do20skreśleń(). To więcej niż się mogłem spodziewać . Działa znakomicie. Jeśli będę mógł kiedyś w czymś pomóc ( np. w liczeniu czegoś) to jestem zawsze do usług. Pozdrawiam!
2013-01-12 (11:52)

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

1386
wpis nr 592 240
[ CZCIONKA MONOSPACE ]

kleszek>pisałem szybko .....więc mogłem coś przeoczyć

pozdrawiam
2013-01-28 (15:42)

status mysliwy
Data rejestracji: 2010-11-05
Ilość postów: 818

12717
wpis nr 597 352
[ CZCIONKA MONOSPACE ]

Witam serdecznie Kolegów Sindbada i Leo 777ch. Wpadłem na taki pomysł i już od dłuższego czasu niemoge sobie z nim poradzić. Mianowicie zaczołem poszukiwania niewylosowanych zestawów MM 7/10 i niedaje rady.Dlatego zwracam sie z takim zadaniem do Was. Potrzebowałbym wszystkie kombinacje które pozostały niewylosowane. powodzenia
2013-01-28 (16:18)

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

3794
wpis nr 597 361
[ CZCIONKA MONOSPACE ]

Witaj

Zauważ że 7/80 jest 3 176 716 400.

Odbyło się 7070 losowań.

W 20 liczbach jest 77 520 siódemek.

Czyli 7070 x 77 520 = 548 066 400 (bez powtórzeń).

3 176 716 400 - 548 066 400 = 2 628 650 000 sódemek.

Poco Ci taka masa siódemek.
2013-01-28 (16:32)

status mysliwy
Data rejestracji: 2010-11-05
Ilość postów: 818

12717
wpis nr 597 364
[ CZCIONKA MONOSPACE ]

Sindbadzie masz racje,niebrałem tego pod uwage pod takim kątem. To zbyt duża masa zestawów,żeby coś z tym pózniej zrobić. Dzięki za ,,oświecenie,,
2013-01-28 (16:43)

status Pęsko
Data rejestracji: 2003-08-15
Ilość postów: 1684

5
wpis nr 597 365
[ CZCIONKA MONOSPACE ]

mysliwy na dodatek wpadają już coraz częściej 7/7 które już wypadły np dziś z 14.00 wpadło 10778 takich 7/7 co już co najmniej raz wpadły.

Pozdrawiam
2013-02-08 (12:14)

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

2047
wpis nr 600 908
[ CZCIONKA MONOSPACE ]

777ch, mam problem z Twoim makrem "Sub HISTprzerwa3() ", które zamieściłeś w tym temacie na stronie 5. Makro te podaje maksymalny czas oczekiwania na wypadnięcie 3 liczb z zestawu. Najlepiej podam to na przykładzie Multi. Wybrałem zestaw liczb:11,58,59,63 , ustawiłem cofkę na 0 (liczę najdłuższy czas oczekiwania na trójkę w historii na dzień dzisiejszy) i makro pokazuje mi historyczny max ont = 154. Następnie cofnąlem się do losowania 448 ( cofka = 6643) i wynik działania makra wychodzi hist. max ont = 448. Kiedy ustawię cofkę =6642 (czyli wybiorę losowanie 449) makro pokazuje mi wynik = 0. Za każdym razem ma inny wynik. Wydaje mi się,że przy cofce = 0 makro powinno pokazywać wynik = 448 bo tyle faktycznie wynosił maksymalny czas oczekiwania na wypadnięcie trójki w historii losowań. Czy możesz to sprawdzić na swoich arkuszach?
2013-02-08 (12:21)

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

1386
wpis nr 600 911
[ CZCIONKA MONOSPACE ]

sprawdzę

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 9 10 11 12
Wyślij wiadomość do admina