Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 6 7 8 ... 56 57
Wyślij wiadomość do admina

Przewiń wpisy ↓

Gra precyzyjna DL + ML

2008-03-31 (13:13)

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

1386
wpis nr 130 234
[ CZCIONKA MONOSPACE ]

witam Małgosię

witaj Danusia



otrzymacie wiadomość



Dwie dziewczyny hazardzistki , miło zaczyna się nam ten tydzień .



pozdrawiam

2008-03-31 (14:10)

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

1386
wpis nr 130 240
[ CZCIONKA MONOSPACE ]

Chwilowo nie ma możliwości gry dla nowych zainteresowanych,aby zwiększyć rozpiętość PROGNOZY ,musiałbym dopisać KILKASET wierszy w formule zliczającej .



Jak dopisze się tu w temacie 7 kolejnych osób ,to zacznę nad tym pracować.



pozdrawiam
2008-03-31 (14:42)

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

1386
wpis nr 130 244
[ CZCIONKA MONOSPACE ]

Po namysle,zrobię dziś wieczorem rozszerzenie na razie dla nowych 7 chętnych.



Niech się nam rozwija ekipa.

pozdrawiam
2008-03-31 (22:21)

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

1386
wpis nr 130 303
[ CZCIONKA MONOSPACE ]

WITAM

na razie wszystko zostaje po staremu na jutro ,w MULTI- siódemkach

poczekamy ,wymiana zestawów prawdopodobnie jutro , bo jutro

będzie lepiej,przynajmniej tak zakładamy



* *



pozdrawiam
2008-04-01 (09:38)

status PARTNER
Data rejestracji: 2008-03-10
Ilość postów: 747

3260
wpis nr 130 348
[ CZCIONKA MONOSPACE ]

Również witam dziewczyny hazardzistki w naszych szeregach i bardzo miło mi z tego powodu, że zasiliły naszą grupę.

Dla jasności u nas jest całkiem sympatycznie, a będzie zdecydowanie lepiej.



Dziś kolejna grubsza gra i oby to była TA!

Wszystkim z grupy OCZKO - GRA PRECYZYJNA życzę \"dychy\"

Chociaż co za dużo, to nie zdrowo

Wystarczy 6/7 w DL



Pozdrawiam PARTNER
2008-04-01 (18:27)

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

1386
wpis nr 130 403
[ CZCIONKA MONOSPACE ]

witam



życzę szczęścia dzisiaj tym którzy wysłali swoje zakłady





kto ma ochotę grać na \"moje prognozy\"to jest taka możliwość

na razie dla kolejnych 7 graczy.



Reasumując :

4 grupy zestawów ,w każdym zestawie DL liczby od 1~49 występują

tylko raz ,czyli w 4 grupach każda występuje 4 razy. Jak są liczby zestawiane

to już sekret .....\"prezesa\"



pozdrawiam

2008-04-01 (18:33)

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

1386
wpis nr 130 405
[ CZCIONKA MONOSPACE ]

Jeszcze raz wyjaśniam,jeśli nie ma ode mnie w waszej poczcie nowej prognozy,

to oznacza że wysyłamy poprzednio przydzielone zakłady.
2008-04-01 (19:31)

status Danusia
Data rejestracji: 2005-12-02
Ilość postów: 424

1464
wpis nr 130 422
[ CZCIONKA MONOSPACE ]

Dzieki za mile powitanie:) powodzenia:)
2008-04-01 (20:02)

status Karamba1
Data rejestracji: 2008-03-10
Ilość postów: 174

3267
wpis nr 130 427
[ CZCIONKA MONOSPACE ]

777ch- Jaki to ma byc sekret skoro go sam zdradziles ?



To nie logiczne co piszesz.



A wiesz jak go zdradziles ?



Karamba
2008-04-01 (22:22)

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

1386
wpis nr 130 456
[ CZCIONKA MONOSPACE ]

witam

dziś skromnie ,jeden sie obronił



* *



pozdrawiam
2008-04-01 (22:32)

status NooX
Data rejestracji: 2008-03-27
Ilość postów: 10

3306
wpis nr 130 460
[ CZCIONKA MONOSPACE ]

To nie fart! Dobry zestaw Narazie 4/6 i 3/6. Jeszcze pozostały 5/6 i 6/6. Mam przeczucie, że na jakieś 3 losowania może wskoczyć 5/6.
2008-04-02 (10:47)

status PARTNER
Data rejestracji: 2008-03-10
Ilość postów: 747

3260
wpis nr 130 482
[ CZCIONKA MONOSPACE ]

NooX

Pisząc zestaw zapewne masz na myśli wszystkie 21 opcji

Podzielam Twoją opinie i uważam, że większa wygrana, to kwestia kilku losowań.

Pozdrawiam Partnerów Oczko - Gra Precyzyjna
2008-04-02 (14:26)

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

1386
wpis nr 130 514
[ CZCIONKA MONOSPACE ]

OPTYMIZM ,i wiara się przyda



miejcie primo -dystans do tej zabawy,

due - cierpliwość



a kto wie ,może sie jednej osobie uda ponownie 4/7 a może coś więcej .







dziś jeszcze nic nie zmieniamy,zestawy poprzednie grają dalej

jestem ciekaw kto gra ,a kto wszedł \"z innymi intencjami \"

ale o tym przekonamy sie jak zwycięski zestaw nie będzie miał pokrycia w postaci kuponu



pozdrawiam
2008-04-02 (14:46)

status PARTNER
Data rejestracji: 2008-03-10
Ilość postów: 747

3260
wpis nr 130 525
[ CZCIONKA MONOSPACE ]

Prezesie co Pan wypisujesz?

Mam nadzieję, że mamy do czynienia z poważnymi Partnerami i skoro się zdeklarowali, to po prostu grają.

Apeluje do tych, którzy myślą inaczej:

NIE CHCESZ GRAĆ DAJ PREZESOWI ZNAĆ

Dla jasności chętni na pewno wypełnią ewentualną lukę.





Pozdrawiam Drużyne Oczko
2008-04-02 (14:51)

status ;punto3
Data rejestracji:
Ilość postów:

wpis nr 130 526
[ CZCIONKA MONOSPACE ]

leo 777 wychodzę z gry.
2008-04-02 (16:23)

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

1386
wpis nr 130 537
[ CZCIONKA MONOSPACE ]

punto3 > ok .
2008-04-02 (16:41)

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

1386
wpis nr 130 538
[ CZCIONKA MONOSPACE ]

\"NIE CHCESZ GRAĆ DAJ PREZESOWI ZNAĆ \"...........dobre





2008-04-02 (23:57)

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

1386
wpis nr 130 604
[ CZCIONKA MONOSPACE ]

* *

W
2008-04-03 (01:03)

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

1386
wpis nr 130 606
[ CZCIONKA MONOSPACE ]

Zrobiłem symulację gry w DL,w ciągu 31 dni weszło 23x3/7 oraz 2x4/7 ,symulacja była dla 19 graczy ,nic ona jednak nie oznacza w praktyce na przyszłość ,

ponieważ realnie może wyjść ZNACZNIE LEPIEJ ,no i oczywiście znacznie gorzej ,tak jak przewidywałem ,jeden~ dwóch z graczy wychodzi na plus w DL ,reszta jest na minusie małym lub całkiem ,ponieważ trafienia rozkładają sie wśród grających nierównomiernie.



Jeszcze jutro bez zmian ,gramy na te same zakłady .



powodzenia w jutrzejszym los. DL

2008-04-03 (12:08)

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

1386
wpis nr 130 641
[ CZCIONKA MONOSPACE ]

Witam

Sporo osób zagląda ,rozjaśnię trochę,aczkolwiek nie do końca

jak zestawiamy kombinacje do gry,może komuś z buszujących w

liczbach się to przyda ,pod warunkiem iż zrozumie o czym napiszę poniżej.



1. Cała procedura obliczeń odbywa się przy pomocy arkusza Excel.

2. Do skoroszytu \"baza losowań\" wczytywana jest baza losowań z notatnika ,

za pomoca makra.

3.Do 3 wybranych komórek trafia informacja określająca parametry wczytanych danych :





k= Application.WorksheetFunction.CountA(Arkusz1.Range(Cells(2, 3), Cells(2, 22)))\'ile liczb losowane jest w grze ,

v = Application.WorksheetFunction.CountA(Arkusz1.Range(\"C1:C65536\")) \' ile losowań zostało wpisanych ,

m = Application.WorksheetFunction.Max(Arkusz1.Range(Cells(2, 3), Cells(V, 22)))\' jaki jest największy losowany element losowany.



dla DL będzie to :

k= 6

v= 4516

m= 49



następnie zostaje uruchomiony generator liczb ,używam generatora seed [z wariantami dla Function Random],

generuje tyle liczb ile mi potrzeba ,dla naszych potrzeb jest to siedem liczb.

kolejna faza to warunki dla kombinacji znalezionej, która ma zostać WPISANA .

Odbywa się to w ten sposób:







Sub próby()

Dim k As Integer



\'Arkusz2.Range(Cells(2, 1), Cells(65536, 256)).ClearContents \'usuwa zapisane kombinacje

Arkusz2.Range(Cells(1, 1), Cells(65536, 7)).Interior.ColorIndex = none



For i = 1 To 100000

Cells(1, = \"próba nr. \" & i





Generator_SEED



KROK_0\' makro poczatkowe oblicza pierwszy etap

k = Application.CountA(Range(Cells(1, 1), Cells(65536, 1))) + 1

Cells(1, 30) = \"Znalazł \" & k - 2 & \"-komb.\"

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_1

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_201

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_401

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_601

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_801

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_1001

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_1201

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) = \"\" And Cells(1, 12) = \"\" Then KROK_1401

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) >= 1000 And Cells(1, 12) >= \"\" _

Then sortuj_poziomo \'MAKRO DODATKOWE ustawia liczby kolejno

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) >= 1000 And Cells(1, 12) >= \"\" _

Then Range(Cells(k, 1), Cells(k, 18)) = Range(Cells(1, 1), Cells(1, 18)).Value

If Arkusz1.Cells(1, 26) = 49 And Cells(1, 9) <= 3 And Cells(1, 10) >= 65 And Cells(1, 11) >= 1000 And Cells(1, 12) >= \"\" _

Then Range(Arkusz4.Cells(k, 1), Arkusz4.Cells(k, 18)) = Range(Cells(1, 1), Cells(1, 18)).Value





next i

End sub







tak to wyglada

,szukamy SIEDMIU liczb w których nie wystapiła 4/7 ok .1300~2000

ponieważ wszystko leci na :

Application.ScreenUpdating = False

With Application

.Calculation = xlManual



wykorzystałem do obliczania odległości w trafieniach i liczby trafień makro własnej konstrukcji,które w nazwach ma KROK



BO KROK PO KROKU





PO PROSTU LECI KROK PO KROKU ,jeśli nie znajdzie tego co potrzeba ,robi kolejny krok,czyli zlicza kolejny zakres ,

wszystko po to aby nie stosować pętli ,w rodzaju for los = 1 to 4516



nawet wkleję makro które wyprodukuje wam formułę obliczeń składającą się z 45010 wierszy ,oczywiście formuła nie zadziała cała

bo jest za duża ,ale krok po kroku działa bardzo szybko wspólnie z generatorem. Trzeba ja poprzerywać



W notatniku z zapisanej formuły należy usunąć \"\",da się to automatycznie zrobić

,jeśli by ktoś chciał skorzystać _ ZAMIESZCZAM TO ROZWIĄZANIE

to wszystko dla tych którzy nigdy do naszej gry nie wejdą,bo maja mądre własne programy

******************************************************************************************************

Sub automat()

For i = 0 To 200

Cells(1, 2) = 1 + i * 25

Cells(1, 3) = 25 + i * 25

Makro1

Next i

End Sub





Sub Makro1()

Range(Cells(1, 1), Cells(65536, 1)).ClearContents

For i = 1 To 5000 \'Cells(1, 2).Value To Cells(1, 3).Value

For y = 1 To 7

b = Application.CountA(Range(Cells(1, 1), Cells(65536, 1)))

If i = Cells(1, 2).Value Then Cells(1, 1) = \" sub KROK_\" & Cells(1, 2).Value & \" ()\"

Cells(2, 1) = \"L1 = Cells(1, 1).Value\"

Cells(3, 1) = \"L2=CELLS(1,2).Value\"

Cells(4, 1) = \"L3=CELLS(1,3).Value\"

Cells(5, 1) = \"L4=CELLS(1,4).Value\"

Cells(6, 1) = \"L5=CELLS(1,5).Value\"

Cells(7, 1) = \"L6=CELLS(1,6).Value\"

Cells(8, 1) = \"L7=CELLS(1,7).Value\"

Cells(9, 1) = \"V = Application.CountA(Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(65536, 1))) + 2 - Arkusz1.Cells(1, 22).value\"

Cells(b + 1, 1) = \"T\" & i & \"_\" & y & \"=Application.CountIF(Range(Arkusz1.Cells(V-\" & i & \",3),Arkusz1.Cells(V-\" & i & \",22)),L\" & y & \")\"

If y = 7 Then Cells(b + 2, 1) = \"Los\" & i & \"=T\" & i & \"_\" & y - 6 & \"+T\" & i & \"_\" & y - 5 & \"+T\" & i & \"_\" & y - 4 & \"+T\" & i & \"_\" & y - 3 & _

\"+T\" & i & \"_\" & y - 2 & \"+T\" & i & \"_\" & y - 1 & \"+T\" & i & \"_\" & y

If y = 7 Then Cells(b + 3, 1) = \"cells(\" & i & \",256)= Los\" & i

Next y

Next i

Cells(b + 4, 1) = \"Krok_\" & Cells(1, 3).Value + 1

Cells(b + 5, 1) = \" End sub\"

zapisz \' zapisuje formułę po kawałku do notatnika

End Sub

Sub zapisz()

Dim Fname As String

Dim Path

Arkusz1.Select



Fname = Arkusz1.Cells(1, 2)





Fname = Fname & \".txt\"

Fname = UCase(Fname)

Range(Cells(1, 1), Cells(240, 1)).Select

Path = ThisWorkbook.Path

ChDir Path

Selection.Copy

Workbooks.Add

ActiveSheet.Paste

Application.CutCopyMode = False

Application.DisplayAlerts = False



ActiveWorkbook.SaveAs Filename:=Path & \"\\\" & Fname, FileFormat:=xlText, CreateBackup:=False



ActiveWindow.Close

Application.DisplayAlerts = True



\'scrON

\'On Error GoTo 0

Cells(1, 1).Select

Exit Sub





End Sub



*******************************************************************************************



jeszcze tylko dobry generator i macie ,oczywiscie nigdy nie będzie to to samo co mam ja

bo kombinacji siódemek jest \"duży worek\"



no i sekret jest już mniejszym sekretem



wiadomość dla sekretologów



zapraszam do gry nowych graczy

w multilotku zaprzestaniemy gry na wszystkie liczby ,to jest złe.

w Duzym podkręcimy parametry dla kombinacji



jeszcze dziś gramy po staremu



pozdrawiam

















| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 6 7 8 ... 56 57
Wyślij wiadomość do admina