Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 618 619 620 ... 780 781
Wyślij wiadomość do admina

Przewiń wpisy ↓

49's

2014-01-29 (19:37)

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

1386
wpis nr 749 373
[ CZCIONKA MONOSPACE ]

eMeL> baza musi być posortowana to primo,zawsze niezależnie od startu obliczeń ,czy to dziś liczysz ,czy za dwa tygodnie cofniesz obliczenia o dwa tygodnie,zestawy są takie same .

2014-01-29 (20:15)

status eMeL
Data rejestracji: 2008-11-24
Ilość postów: 12080

3906
wpis nr 749 394
[ CZCIONKA MONOSPACE ]

Dokładnie tak robię, zestawy wychodzą inne. Mamy inną bazę losowań, czy co?
2014-01-29 (20:30)

status eMeL
Data rejestracji: 2008-11-24
Ilość postów: 12080

3906
wpis nr 749 413
[ CZCIONKA MONOSPACE ]

Czwartek LT



FB i BB próg 10 - 23

BB próg 8 - 8 18 28 38 48

FB i BB próg 3 - 16 17 18
2014-01-29 (20:50)

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

1386
wpis nr 749 426
[ CZCIONKA MONOSPACE ]

eMEL > Nie wiem czy to masz ,ale szukaj jak na obrazku

2014-01-29 (23:26)

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

3794
wpis nr 749 552
[ CZCIONKA MONOSPACE ]

Czwartek LT

BB 9 + - 1
2014-01-30 (09:38)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 603
[ CZCIONKA MONOSPACE ]

@777ch



czy moglbys tutaj wrzucic kod funkcji do tej eliminacji 2/2 i tego drugiego parametru 2/3, co te zestawy tworzy?
2014-01-30 (11:16)

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

1386
wpis nr 749 647
[ CZCIONKA MONOSPACE ]

engee30> to było napisane dawno temu a ja nie mam ochoty na przeróbki,bo

nie mam na to czasu,nie miałem wtedy jeszcze takiej wiedzy jaką mam dziś

Boję się że mnie Sindbad wyśmieje

No ale wstawiam ,tu nie ma żadnych 2z3 ,bo to o czym pisze emel to co innego.



---------------baza arkusz 2-- nr,data,liczby----------------------------------------------------------------------------Sub Cover_superspeed6()





' Makro zarejestrowane 2010-01-01, autor LEO



MsgBox "Jeden ze sposobów uzyskania wielu trafień 4/6 ,czasem lepiej" & Chr(13) & _

Chr(13) & _

"Budowanie Coveru ZATRZYMUJESZ klawiszem [ESC], następnie wybierz[END]"

Dim stoper As Date, czas As String

Dim stoper1 As Date, czas1 As String

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 Liczba_STARTOWA As Byte

Dim tab5() As Long

Dim tab4() As Long

Dim TAB3() As Long

Dim tab2() As Long

Dim fs, A

Dim powt2 As Integer

Dim powt3 As Integer

Dim powt4 As Integer

Dim powt5 As Integer

Set fs = CreateObject("Scripting.FileSystemObject")

Set A = fs.CreateTextFile(ThisWorkbook.Path & "/" & "Leo.txt", True)

k = 0

zapis = 0

Liczba_STARTOWA = 1

ReDim tab5(300000, 80)





ReDim tab4(787980, 77)

ReDim TAB3(787980, 1)

ReDim tab2(7980, 1)

Liczba_KOŃCOWA = Int(InputBox("Wpisz [Max. Liczbę] dla LICZNIKA ", " od 6 do 80 "))

komb = Application.WorksheetFunction.Combin(Liczba_KOŃCOWA, 6)

MsgBox "Zaraz dostaniesz pytanie o [zakres los.]Brak 2/2 dla Par " & Chr(13) & _

Chr(13) & _

"---jeśli chcesz ten warunek pominąć ,to WPISZ [0]---" & Chr(13) & _

Chr(13) & _

"$$$ dla Multi Multi wpisz zakres = 20 .....moja sugestia $$$"

limittrpar = Int(InputBox(" Podaj ZAKRES > [ile LOSOWAŃ BRAK 2/2 dla par] ", "Pary z trf. 2/2 wyeliminuję "))

If limittrpar = 0 Then GoTo 333





stoper1 = Timer



cofka = Int(InputBox("Wpisz cofnięcie obliczeń w czasie ", " np. 0~100 losowań "))

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:V5000"))



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

ReDim tabgps(vlos, LICZB_GRY)







For los = vlos 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

















'teraz PARY

padły = 0

niepadły = 0

For lc1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 1

For lc2 = lc1 + 1 To Liczba_KOŃCOWA



For SPR = vlos To vlos - limittrpar - 1 Step -1



sc = tabgps(SPR, lc1) + tabgps(SPR, lc2)

If sc = 2 Then tab2(lc1 & lc2, 1) = 777

If sc < 2 And SPR = vlos - limittrpar Then tab2(lc1 & lc2, 1) = 0

If sc = 2 Then padły = padły + 1

If sc = 2 Then Exit For

Next SPR

If sc < 2 Then niepadły = niepadły + 1



Next lc2

Next lc1

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



MsgBox "Eliminacja Par które padły w ost." & limittrpar & "-los . " & padły & " takich par wystąpiło" & Chr(13) & _

"Par które nie wystapiły w ost. " & limittrpar & "-los = " & niepadły & Chr(13) & _

"Cover nie bedzie zawierał " & padły & " par które zanotowały 2/2" & Chr(13) & _

"W ZAKRESIE jaki ustawiłeś ,czyli [ " & vlos - limittrpar - 1 & "~" & vlos & " ]" & Chr(13) & _

"Ustawiony zakres brak 2/2 wynosił " & limittrpar & "-losowań"



333



przybyło = 0

777

If k > 0 And przybyło = 0 Then MsgBox " Musisz zwiększyć LIMITY POWTÓREK aby contynuować COVER"



If k > 0 And przybyło = 0 Then odp3 = MsgBox("naciśnij Tak jeśli chcesz kontynuować COVER " & Chr(13) _

& " jeśli chcesz zalończyć " & Chr(13) _

& "To wybierz nie Nie ", vbYesNo)

If k > 0 And przybyło = 0 And odp3 = vbNo Then GoTo 779 Else: GoTo 778



778

powt2 = Int(InputBox("ile par może się powt.w coverze ", " kolejno 0,1,2,3 itd. "))

powt3 = Int(InputBox("ile trójek może się powt.w coverze ", " kolejno 0,1,2,3 itd. "))

powt4 = Int(InputBox("ile czwórek może się powt.w coverze ", " kolejno 0,1,2,3 itd. "))

1

stoper = Timer

If przybyło > 0 Then powt2 = powt2 + 1

If przybyło = 0 And k > 1 Then powt3 = powt3 + 1

przybyło = 0



For l1 = Liczba_STARTOWA To Liczba_KOŃCOWA - 5

For l2 = l1 + 1 To Liczba_KOŃCOWA - 4

For l3 = l2 + 1 To Liczba_KOŃCOWA - 3

For l4 = l3 + 1 To Liczba_KOŃCOWA - 2

For l5 = l4 + 1 To Liczba_KOŃCOWA - 1

For l6 = l5 + 1 To Liczba_KOŃCOWA





If tab2(l1 & l2, 1) = 777 Then GoTo 2

If tab2(l1 & l3, 1) = 777 Then GoTo 3

If tab2(l2 & l3, 1) = 777 Then GoTo 3

If tab2(l1 & l4, 1) = 777 Then GoTo 4

If tab2(l2 & l4, 1) = 777 Then GoTo 4

If tab2(l3 & l4, 1) = 777 Then GoTo 4

If tab2(l1 & l5, 1) = 777 Then GoTo 5

If tab2(l2 & l5, 1) = 777 Then GoTo 5

If tab2(l3 & l5, 1) = 777 Then GoTo 5

If tab2(l4 & l5, 1) = 777 Then GoTo 5

If tab2(l1 & l6, 1) = 777 Then GoTo 6

If tab2(l2 & l6, 1) = 777 Then GoTo 6

If tab2(l3 & l6, 1) = 777 Then GoTo 6

If tab2(l4 & l6, 1) = 777 Then GoTo 6

If tab2(l5 & l6, 1) = 777 Then GoTo 6



If tab2(l1 & l2, 1) > powt2 Then GoTo 2

If tab2(l1 & l3, 1) > powt2 Then GoTo 3

If tab2(l2 & l3, 1) > powt2 Then GoTo 3

If tab2(l1 & l4, 1) > powt2 Then GoTo 4

If tab2(l2 & l4, 1) > powt2 Then GoTo 4

If tab2(l3 & l4, 1) > powt2 Then GoTo 4

If tab2(l1 & l5, 1) > powt2 Then GoTo 5

If tab2(l2 & l5, 1) > powt2 Then GoTo 5

If tab2(l3 & l5, 1) > powt2 Then GoTo 5

If tab2(l4 & l5, 1) > powt2 Then GoTo 5

If tab2(l1 & l6, 1) > powt2 Then GoTo 6

If tab2(l2 & l6, 1) > powt2 Then GoTo 6

If tab2(l3 & l6, 1) > powt2 Then GoTo 6

If tab2(l4 & l6, 1) > powt2 Then GoTo 6

If tab2(l5 & l6, 1) > powt2 Then GoTo 6



If TAB3(l1 & l2 & l3, 1) > powt3 Then GoTo 3

If TAB3(l1 & l2 & l4, 1) > powt3 Then GoTo 4

If TAB3(l1 & l3 & l4, 1) > powt3 Then GoTo 4

If TAB3(l2 & l3 & l4, 1) > powt3 Then GoTo 4

If TAB3(l1 & l2 & l5, 1) > powt3 Then GoTo 5

If TAB3(l1 & l3 & l5, 1) > powt3 Then GoTo 5

If TAB3(l1 & l4 & l5, 1) > powt3 Then GoTo 5

If TAB3(l2 & l3 & l5, 1) > powt3 Then GoTo 5

If TAB3(l2 & l4 & l5, 1) > powt3 Then GoTo 5

If TAB3(l3 & l4 & l5, 1) > powt3 Then GoTo 5



If tab4(l2 & l3 & l4, l1) > powt4 Then GoTo 4

If tab4(l2 & l3 & l5, l1) > powt4 Then GoTo 5

If tab4(l2 & l4 & l5, l1) > powt4 Then GoTo 5

If tab4(l3 & l4 & l5, l1) > powt4 Then GoTo 5

If tab4(l3 & l4 & l5, l2) > powt4 Then GoTo 5

If tab4(l2 & l3 & l6, l1) > powt4 Then GoTo 6

If tab4(l2 & l4 & l6, l1) > powt4 Then GoTo 6

If tab4(l2 & l5 & l6, l1) > powt4 Then GoTo 6

If tab4(l3 & l4 & l6, l1) > powt4 Then GoTo 6

If tab4(l3 & l5 & l6, l1) > powt4 Then GoTo 6

If tab4(l4 & l5 & l6, l1) > powt4 Then GoTo 6

If tab4(l3 & l4 & l6, l2) > powt4 Then GoTo 6

If tab4(l3 & l5 & l6, l2) > powt4 Then GoTo 6

If tab4(l4 & l5 & l6, l2) > powt4 Then GoTo 6

If tab4(l4 & l5 & l6, l3) > powt4 Then GoTo 6



If powt4 < 1 Then GoTo 22

For SPR5 = 1 To k

TR5 = tab5(SPR5, l1) + tab5(SPR5, l2) + tab5(SPR5, l3) _

+ tab5(SPR5, l4) + tab5(SPR5, l5) + tab5(SPR5, l6)

If TR5 >= 5 Then GoTo 6

Next SPR5

22

k = k + 1

przybyło = przybyło + 1



With A

.WriteLine (l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5 & " " & l6)

End With



tab2(l1 & l2, 1) = tab2(l1 & l2, 1) + 1

tab2(l1 & l3, 1) = tab2(l1 & l3, 1) + 1

tab2(l2 & l3, 1) = tab2(l2 & l3, 1) + 1

tab2(l1 & l4, 1) = tab2(l1 & l4, 1) + 1

tab2(l2 & l4, 1) = tab2(l2 & l4, 1) + 1

tab2(l3 & l4, 1) = tab2(l3 & l4, 1) + 1

tab2(l1 & l5, 1) = tab2(l1 & l5, 1) + 1

tab2(l2 & l5, 1) = tab2(l2 & l5, 1) + 1

tab2(l3 & l5, 1) = tab2(l3 & l5, 1) + 1

tab2(l4 & l5, 1) = tab2(l4 & l5, 1) + 1

tab2(l1 & l6, 1) = tab2(l1 & l6, 1) + 1

tab2(l2 & l6, 1) = tab2(l2 & l6, 1) + 1

tab2(l3 & l6, 1) = tab2(l3 & l6, 1) + 1

tab2(l4 & l6, 1) = tab2(l4 & l6, 1) + 1

tab2(l5 & l6, 1) = tab2(l5 & l6, 1) + 1







TAB3(l1 & l2 & l3, 1) = TAB3(l1 & l2 & l3, 1) + 1

TAB3(l1 & l2 & l4, 1) = TAB3(l1 & l2 & l4, 1) + 1

TAB3(l1 & l3 & l4, 1) = TAB3(l1 & l3 & l4, 1) + 1

TAB3(l2 & l3 & l4, 1) = TAB3(l2 & l3 & l4, 1) + 1

TAB3(l1 & l2 & l5, 1) = TAB3(l1 & l2 & l5, 1) + 1

TAB3(l1 & l3 & l5, 1) = TAB3(l1 & l3 & l5, 1) + 1

TAB3(l1 & l4 & l5, 1) = TAB3(l1 & l4 & l5, 1) + 1

TAB3(l2 & l3 & l5, 1) = TAB3(l2 & l3 & l5, 1) + 1

TAB3(l2 & l4 & l5, 1) = TAB3(l2 & l4 & l5, 1) + 1

TAB3(l3 & l4 & l5, 1) = TAB3(l3 & l4 & l5, 1) + 1



tab4(l2 & l3 & l4, l1) = 1

tab4(l2 & l3 & l5, l1) = 1

tab4(l2 & l4 & l5, l1) = 1

tab4(l3 & l4 & l5, l1) = 1

tab4(l3 & l4 & l5, l2) = 1

tab4(l2 & l3 & l6, l1) = 1

tab4(l2 & l4 & l6, l1) = 1

tab4(l2 & l5 & l6, l1) = 1

tab4(l3 & l4 & l6, l1) = 1

tab4(l3 & l5 & l6, l1) = 1

tab4(l4 & l5 & l6, l1) = 1

tab4(l3 & l4 & l6, l2) = 1

tab4(l3 & l5 & l6, l2) = 1

tab4(l4 & l5 & l6, l2) = 1

tab4(l4 & l5 & l6, l3) = 1

tab5(k, l1) = 1

tab5(k, l2) = 1

tab5(k, l3) = 1

tab5(k, l4) = 1

tab5(k, l5) = 1

tab5(k, l6) = 1

6

Next l6

5

Next l5

4

Next l4

3

Next l3

2

Next l2

Next l1

zapis = zapis + 1

n = 1

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

czas1 = Format(Timer - stoper1, " 00:00:00.00") & " sec."



'' MsgBox "Zakończono obliczenia 6 liczb z " & Liczba_KOŃCOWA & Chr(13) & _

''"czas obliczeń = " & czas & Chr(13) & _

''"zapisano kombincje bez powtórek 4/6" & Chr(13) & _

'' Chr(13) & _

''" aktualnie ustawione warunki spełniło " & k & " - kombinacji " & Chr(13) & _

'' Chr(13) & _

''" teraz przybyło nowych kombinacji = " & przybyło & Chr(13) & _

''" aktualnie powtórek par = " & powt2 & Chr(13) & _

''" aktualnie powtórek trójek = " & powt3 & Chr(13) & _

'' Chr(13) & _

''"kombinacje zapisane zostały do C:\Leo.txt "

Cells(n + 1, 1) = "Cover nr." & zapis

Cells(n + 2, 1) = "Cover zbioru = " & komb & "-kombinacji"

Cells(n + 3, 1) = "Max ilość powtórek par = " & powt2

Cells(n + 4, 1) = "Max ilość powtórek trójek = " & powt3

Cells(n + 5, 1) = "Max ilość powtórek czwórek = " & powt4

Cells(n + 6, 1) = "Warunki spełnił zbiór = " & k & " kombinacji 6z" & Liczba_KOŃCOWA

Cells(n + 7, 1) = "-nowych dopisał teraz = " & przybyło

Cells(n + 8, 1) = "czas wykonania " & czas & " TOTAL TIME procedury = " & czas1

Cells(n + 9, 1) = "########################################################################"



If przybyło = 0 Then ILZERO = ILZERO + 1

If przybyło > 0 Then ILZERO = 0

If przybyło = 0 And ILZERO >= 3 Then GoTo 777

GoTo 1

779



End Sub

2014-01-30 (11:32)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 649
[ CZCIONKA MONOSPACE ]

dzieki Leo za kodzik - idealnie, ze Excel uzywa VBA, co w praktyce rowna sie VB, z ktorego to ja korzystam na codzien
2014-01-30 (11:36)

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

1386
wpis nr 749 652
[ CZCIONKA MONOSPACE ]

gdy zapyta o kontnuowanie coveru to

No
2014-01-30 (11:50)

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

1386
wpis nr 749 656
[ CZCIONKA MONOSPACE ]

W excelu można wiele , w Delphi znacznie więcej,ale lubię excela.

2014-01-30 (12:05)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 676
[ CZCIONKA MONOSPACE ]

ja tez preferuje Excela do dzialan liczbowych

Delphi znam tylko z nazwy, ale przypuszczam, ze kodowanie jest podobne, jak w przypadku wiekszosci jezykow programowania
2014-01-30 (12:10)

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

1386
wpis nr 749 681
[ CZCIONKA MONOSPACE ]

engee30 > tylko się pochwal jak Ci wypluje te 433 z cofnięciem 4losowania

oczywiście zmienne możesz na stałe wpisać ,i wywalić nadpisywanie informacji do excela,to przyspieszy,ale zapewnie wiesz co robić
2014-01-30 (12:27)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 692
[ CZCIONKA MONOSPACE ]

zrobi sie, jakby co to bede pytal
2014-01-30 (14:21)

status eMeL
Data rejestracji: 2008-11-24
Ilość postów: 12080

3906
wpis nr 749 786
[ CZCIONKA MONOSPACE ]

Czwartek LT



FB i BB próg 10 - [23]



Czwartek TT



BB próg 9 - 8 18 28 38 48

FB i BB próg 4 - 16 17 18



Ale bliźniaki grasują jako FB lub BB.
2014-01-30 (14:26)

status tomcio1972
Data rejestracji: 2008-06-25
Ilość postów: 7715

3569
wpis nr 749 791
[ CZCIONKA MONOSPACE ]

Bliźniaki to nic



Parka 23-32 szaleje



Nie grane - szkoda
2014-01-30 (14:32)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 796
[ CZCIONKA MONOSPACE ]

tomcio, nic tam u ciebie ostatnio nie wpada?
2014-01-30 (14:36)

status tomcio1972
Data rejestracji: 2008-06-25
Ilość postów: 7715

3569
wpis nr 749 803
[ CZCIONKA MONOSPACE ]

Na razie nic.

Dwie gry bez wygranej.

Nie pomyślałem dziś aby dorzucić do gry sześć parek odwróconych
2014-01-30 (14:47)

status engee30
Data rejestracji: 2013-03-05
Ilość postów: 693

13757
wpis nr 749 815
[ CZCIONKA MONOSPACE ]

no zauwazylem, ze na wielu twoich typach takie parki wystepuja, chyba warto im sie blizej przyjzec, bo jak widac na zalaczonych przez ciebie obrazkach, licza sie
2014-01-30 (14:48)

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

1386
wpis nr 749 817
[ CZCIONKA MONOSPACE ]

o 14-tej cienko

----- Zestawienie trafień 433 kombinacji z pliku LEO.txt -----

Analiza traf.w zakresie losowań 9768 ~ 9768 [1 ] los. los. z dnia 2014-01-30



Trafień 0|6 = 123

Trafień 1|6= 214

Trafień 2|6 = 89

Trafień 3|6= 7

Trafień 4|6 = 0

Trafień 5|6 = 0

Trafień 6|6 = 0

2014-01-30 (16:20)

status eMeL
Data rejestracji: 2008-11-24
Ilość postów: 12080

3906
wpis nr 749 868
[ CZCIONKA MONOSPACE ]

777ch - jakim obrazku?



Chyba mamy różnice w bazie losowań. Zapuściłem to dzisiejsze makro i wypluło mi 420 zestawów. Są różnice w ilości par, które nie wystąpiły w ost. 22 los. Ja mam 422, na Twoim screenie jest 418. U mnie nie ma też 5/6.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 618 619 620 ... 780 781
Wyślij wiadomość do admina