Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 103 104 105 ... 195 196
Wyślij wiadomość do admina

Przewiń wpisy ↓

GRA PRECYZYJNA-DUŻY LOTEK-WIĘKSZE SZANSE NA GŁÓWNĄ WYGRANĄ

2009-08-27 (10:08)

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

1386
wpis nr 224 163
[ CZCIONKA MONOSPACE ]

dyskutujcie....., ale chyba należy zostawić tak jak jest



będziemy rozpisywać TE KILKANAŚCIE ZAKŁADÓW utrzymując zasadę ,

1. dwóch liczb preferowanych

oraz rozpis na bazie ok.30~36 liczb

np bo jeśli rozpiszemy wszystkie 49 ,to zawsze mamy w zakładach te kilka

.....błędnych

szkoda że nie da rady stale utrzymać w wybranej+-30-ce liczb ,poziomu trafień 5~6......bo w końcu byśmy depnęli na te 2 wskazane i było by ...kolorowo



u mnie w testerze do DL ....

OSTATNIE kilka losowań niewyraźnie,TYLKO MAX 4 trafione z prognozowanych .....

co daje nadzieję na odbicie w kolejnych prognozach.

Wygenerowane zakłady z łańcucha liczb ,poddamy sprawdzeniu na ont 2/6,3/6,4/6,5/6....oraz kilka jeszcze tajnych sortowań no i czekać POZOSTAJE......NA WYNIK



do wieczora
2009-08-27 (10:37)

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

1386
wpis nr 224 168
[ CZCIONKA MONOSPACE ]

wiem ,że to wam nic nie da ,poza tym formuła makra nikomu się nie uruchomi,bo

składniki ~ cody makr pomocniczych ,nie są dołączone

ale .....

....tak ...\"popieprzona\" formuła szuka nam zestawów

Sub aaatotalhit()



\' Makro zarejestrowane 2009-07-21, autor leo777ch

Dim K As Long

Dim A, b, C, d, E, f, s, i, y, i8, y8, s8, liczb_wgrze As Byte

Dim ipar, ypar, spar, itrójek, ytrójek, strójek, iczwórek, yczwórek, sczwórek As Byte

Dim itrójkol, strójkol, ytrójkol, ykońcówki, ikońcówki, skońcówki, i10, y10, s10 As Byte

Dim wpisane As Long

Dim stoper As Date, czas As String



Dim tab_zest() As Variant \'ZESTAW WYBRANYCH LICZB tu musi paść MINIMUM 5-LICZB



Dim tab_4() As Variant \'CZWÓRKI ,8-WYBRANYCH NAJDŁUZEJ OCZEKUJACYCH na 2/4

\'w tych czwórkach nie moze wystapić WIĘCEJ JAK 2/4 w każdej



Dim tab_3() As Variant \' Trójki,15-wybranych najdłuzej oczek. na 2/3

\'w tych trójkach zakładamy max trafienie 1/3 we wszystkich 15-tu



Dim tab_2() As Variant \'pary liczb,16par w których najdłuzej nie padło 2/2

\'zakładamy że nie wystapi wiecej niz 1/2

Dim tab_8() As Variant \'zakładamy brak trójki w ost. 8 losowaniach





Dim tab_trzy() As Variant \'zakładamy max 2 liczby z trójek kolejnych

Dim tab_siedem() As Variant \'zakładamy max 3 liczby w kolejnych 7-mkach

Dim tab_dziesięć() As Variant \'zakładamy max 3 liczby z dziesiatek kolejnych

Dim tab_KOŃCÓWEK() As Variant \'zakładamy max 2 liczby z taką samą końcówką

Dim tab_ont() As Variant \'zakładamy max 2 liczby z tym samym ont

\'_____________________________________________________________________________________________

\'startujemy kolejne makra ustawiajace liczby według zazdanych kryteriów



NAJLEPSZE_ZESTAWIENIE36 \'ustawienie ilości liczb i trafialnosci według własnych kryteriów[1]

SZYBKIE_DYLONG \'to makro ustawi trójki ont 2/3 najdłuzej oczekiwane bez powtórek[2]

oczekiwanie_dwa_nacztery \' to makro ustawia czwórki brak 2/3 najdłużej bez powtórek liczb[3]

paryONT2 \' tu ustawia sie pary liczbowe najdłuzej oczekujace bez powtórek liczb [4]

konfiguracja_liczb \' to makro ustawi tablicę liczb z ont oczekiwania na trafienie[5]



Arkusz17.Activate

MsgBox \" Obliczenia zostały przygotowane,czas na selekcje kombinacji ,co trochę trwa !!! \"

scrON

\'koniec wstepnych obliczeń________________________________________________________________________________________________

VBAZA = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(2, 3), Arkusz1.Cells(65536, 3)))

dłzest = Application.WorksheetFunction.CountA(Range(Arkusz4.Cells(7, 7), Arkusz4.Cells(7, 88)))

tab_zest = Range(Arkusz4.Cells(7, 7), Arkusz4.Cells(7, dłzest + 6)).value



tab_4 = Range(Arkusz17.Cells(19, 2), Arkusz17.Cells(26, 5)).value

tab_3 = Range(Arkusz17.Cells(2, 2), Arkusz17.Cells(16, 4)).value

tab_2 = Range(Arkusz17.Cells(35, 2), Arkusz17.Cells(50, 3)).value

tab_8 = Range(Arkusz1.Cells(VBAZA + 1, 3), Arkusz1.Cells(VBAZA - 6, ).value

tab_siedem = Range(Arkusz27.Cells(1, 27), Arkusz27.Cells(7, 33)).value

tab_trzy = Range(Arkusz27.Cells(1, 12), Arkusz27.Cells(17, 14)).value

tab_dziesięć = Range(Arkusz27.Cells(1, 1), Arkusz27.Cells(5, 10)).value

tab_KOŃCÓWEK = Range(Arkusz27.Cells(1, 21), Arkusz27.Cells(10, 25)).value

tab_ont = Range(Arkusz22.Cells(4, 2), Arkusz22.Cells(24, 16)).value









Dim fs, aaa

Set fs = CreateObject(\"Scripting.FileSystemObject\")



\'zamiast Mateusz wstaw nazwę użytkownika !!!!!!!!!!!!!!!!!

Set aaa = fs.CreateTextFile(\"C:\\Documents and Settings\\user\\Pulpit\\Snaiper kombinacje.txt\", True)

stoper = Timer



liczb_wgrze = 49



wpisane = 0

K = 0

For A = 1 To liczb_wgrze - 5

For b = A + 1 To liczb_wgrze - 4

For C = b + 1 To liczb_wgrze - 3

For d = C + 1 To liczb_wgrze - 2

For E = d + 1 To liczb_wgrze - 1

For f = E + 1 To liczb_wgrze

K = K + 1









\'filtr zakresu liczb

If A > 1 And A < 10 And b > 1 And b < 10 And C > 1 And C < 10 _

And d > 1 And d < 10 And E > 1 And E < 10 And f > 1 And f < 10 Then GoTo 100



If A > 10 And A < 20 And b > 10 And b < 20 And C > 10 And C < 20 _

And d > 10 And d < 20 And E > 10 And E < 20 And f > 10 And f < 20 Then GoTo 100



If A > 20 And A < 30 And b > 20 And b < 30 And C > 20 And C < 30 _

And d > 20 And d < 30 And E > 20 And E < 30 And f > 20 And f < 30 Then GoTo 100



If A > 30 And A < 40 And b > 30 And b < 40 And C > 30 And C < 40 _

And d > 30 And d < 40 And E > 30 And E < 40 And f > 30 And f < 40 Then GoTo 100



If A > 40 And A < 50 And b > 40 And b < 50 And C > 40 And C < 50 _

And d > 40 And d < 50 And E > 40 And E < 50 And f > 40 And f < 50 Then GoTo 100



\'filtr odległości pomiędzy liczbami

od1 = b - A

od2 = C - b

od3 = d - C

od4 = E - d

od5 = f - E



If od1 = od2 Or od1 = od3 Or od1 = od4 Or od1 = od5 Or od2 = od3 Or od2 = od4 Or od2 = od5 _

Or od3 = od4 Or od3 = od4 Or od3 = od5 Or od4 = od5 Then GoTo 100



If od1 + od2 + od3 < 10 Then GoTo 100

If od1 + od2 + od4 < 10 Then GoTo 100

If od1 + od2 + od5 < 10 Then GoTo 100

If od1 + od3 + od4 < 10 Then GoTo 100

If od1 + od3 + od5 < 10 Then GoTo 100

If od1 + od4 + od5 < 10 Then GoTo 100



If od2 + od3 + od4 < 10 Then GoTo 100

If od2 + od3 + od5 < 10 Then GoTo 100

If od2 + od4 + od5 < 10 Then GoTo 100

If od3 + od4 + od5 < 10 Then GoTo 100







If od1 + od2 + od3 + od4 + od5 < 21 Then GoTo 100

If od1 + od2 + od3 + od4 + od5 > 42 Then GoTo 100



If od1 = od2 Then GoTo 100

If od1 = od3 Then GoTo 100

If od1 = od4 Then GoTo 100

If od1 = od5 Then GoTo 100

If od2 = od3 Then GoTo 100

If od2 = od4 Then GoTo 100

If od2 = od5 Then GoTo 100

If od3 = od4 Then GoTo 100

If od3 = od5 Then GoTo 100

If od4 = od5 Then GoTo 100











































\'wykluczamy szóstki zawierajace więcej jak 2 liczby z trójek kolejnych







For itrójkol = 1 To 13

strójkol = 0

For ytrójkol = 1 To 3



If tab_trzy(itrójkol, ytrójkol) = A Then strójkol = strójkol + 1

If tab_trzy(itrójkol, ytrójkol) = b Then strójkol = strójkol + 1

If tab_trzy(itrójkol, ytrójkol) = C Then strójkol = strójkol + 1

If tab_trzy(itrójkol, ytrójkol) = d Then strójkol = strójkol + 1

If tab_trzy(itrójkol, ytrójkol) = E Then strójkol = strójkol + 1

If tab_trzy(itrójkol, ytrójkol) = f Then strójkol = strójkol + 1

If strójkol > 2 Then GoTo 100



Next ytrójkol

strójkol = 0

Next itrójkol











\'wykluczamy szóstki zawierajace więcej jak 2 liczby z tą samą końcówką







For ikońcówki = 1 To 10

skońcówki = 0

For ykońcówki = 1 To 5



If tab_KOŃCÓWEK(ikońcówki, ykońcówki) = A Then skońcówki = skońcówki + 1

If tab_KOŃCÓWEK(ikońcówki, ykońcówki) = b Then skońcówki = skońcówki + 1

If tab_KOŃCÓWEK(ikońcówki, ykońcówki) = C Then skońcówki = skońcówki + 1

If tab_KOŃCÓWEK(ikońcówki, ykońcówki) = d Then skońcówki = skońcówki + 1

If tab_KOŃCÓWEK(ikońcówki, ykońcówki) = E Then skońcówki = skońcówki + 1

If tab_KOŃCÓWEK(ikońcówki, ykońcówki) = f Then skońcówki = skońcówki + 1

If skońcówki > 2 Then GoTo 100



Next ykońcówki

skońcówki = 0

Next ikońcówki





\'wykluczamy szóstki zawierajace więcej jak 2 liczby z kolejnej dziesiątki







For i10 = 1 To 5

s10 = 0

For y10 = 1 To 10



If tab_dziesięć(i10, y10) = A Then s10 = s10 + 1

If tab_dziesięć(i10, y10) = b Then s10 = s10 + 1

If tab_dziesięć(i10, y10) = C Then s10 = s10 + 1

If tab_dziesięć(i10, y10) = d Then s10 = s10 + 1

If tab_dziesięć(i10, y10) = E Then s10 = s10 + 1

If tab_dziesięć(i10, y10) = f Then s10 = s10 + 1

If s10 > 2 Then GoTo 100



Next y10

s10 = 0

Next i10





\'wykluczamy szóstki zawierajace więcej jak 2 liczby z tym samym ont







For i11 = 1 To 21

s11 = 0

For y11 = 1 To 15



If tab_ont(i11, y11) = A Then s11 = s11 + 1

If tab_ont(i11, y11) = b Then s11 = s11 + 1

If tab_ont(i11, y11) = C Then s11 = s11 + 1

If tab_ont(i11, y11) = d Then s11 = s11 + 1

If tab_ont(i11, y11) = E Then s11 = s11 + 1

If tab_ont(i11, y11) = f Then s11 = s11 + 1

If s11 > 2 Then GoTo 100



Next y11

s11 = 0

Next i11





\'wykluczamy szóstki zawierajace więcej jak 2 liczby z par



For ipar = 1 To 16

spar = 0

For ypar = 1 To 2



If tab_2(ipar, ypar) = A Then spar = spar + 1

If tab_2(ipar, ypar) = b Then spar = spar + 1

If tab_2(ipar, ypar) = C Then spar = spar + 1

If tab_2(ipar, ypar) = d Then spar = spar + 1

If tab_2(ipar, ypar) = E Then spar = spar + 1

If tab_2(ipar, ypar) = f Then spar = spar + 1

If spar > 1 Then GoTo 100



Next ypar

spar = 0

Next ipar



\'wykluczamy szóstki zawierajace więcej jak 2 liczby z trójek



For itrójek = 1 To 15

strójek = 0

For ytrójek = 1 To 3



If tab_3(itrójek, ytrójek) = A Then strójek = strójek + 1

If tab_3(itrójek, ytrójek) = b Then strójek = strójek + 1

If tab_3(itrójek, ytrójek) = C Then strójek = strójek + 1

If tab_3(itrójek, ytrójek) = d Then strójek = strójek + 1

If tab_3(itrójek, ytrójek) = E Then strójek = strójek + 1

If tab_3(itrójek, ytrójek) = f Then strójek = strójek + 1

If strójek > 2 Then GoTo 100



Next ytrójek

strójek = 0

Next itrójek

















\'wykluczamy szóstki zawierajace więcej jak 2 liczby z czwórek

For iczwórek = 1 To 8

sczwórek = 0

For yczwórek = 1 To 4



If tab_4(iczwórek, yczwórek) = A Then sczwórek = sczwórek + 1

If tab_4(iczwórek, yczwórek) = b Then sczwórek = sczwórek + 1

If tab_4(iczwórek, yczwórek) = C Then sczwórek = sczwórek + 1

If tab_4(iczwórek, yczwórek) = d Then sczwórek = sczwórek + 1

If tab_4(iczwórek, yczwórek) = E Then sczwórek = sczwórek + 1

If tab_4(iczwórek, yczwórek) = f Then sczwórek = sczwórek + 1

If sczwórek > 2 Then GoTo 100



Next yczwórek

sczwórek = 0

Next iczwórek







\'wykluczamy szóstki zawierajace więcej jak 2 liczby z ost.8 losowań



For i8 = 1 To 8

s8 = 0

For y8 = 1 To 6



If tab_8(i8, y8) = A Then s8 = s8 + 1

If tab_8(i8, y8) = b Then s8 = s8 + 1

If tab_8(i8, y8) = C Then s8 = s8 + 1

If tab_8(i8, y8) = d Then s8 = s8 + 1

If tab_8(i8, y8) = E Then s8 = s8 + 1

If tab_8(i8, y8) = f Then s8 = s8 + 1

If s8 > 2 Then GoTo 100



Next y8

s8 = 0

Next i8















\'wykluczamy szóstki zawierajace mniej jak 5 liczb z zestawu wybranych 36 liczb albo dłuzszego

\' zależy ile liczb znajdzie się w wyznaczonym wierszu czyli wierszu 7 arkusz4.

s = 0

i = 1

For y = 1 To dłzest

If tab_zest(i, y) = A Then s = s + 1

If tab_zest(i, y) = b Then s = s + 1

If tab_zest(i, y) = C Then s = s + 1

If tab_zest(i, y) = d Then s = s + 1

If tab_zest(i, y) = E Then s = s + 1

If tab_zest(i, y) = f Then s = s + 1



Next y

If s < 5 Then GoTo 100

wpisane = wpisane + 1



With aaa

.WriteLine (A & \" \" & b & \" \" & C & \" \" & d & \" \" & E & \" \" & f)

End With





100



Next f

Next E

Next d

Next C

Next b

Next A





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

T = \" obliczenia trwały \" & czas & \"ilość kombinacji przeliczonych = \" & K & \" spełniających parametry = \" & wpisane



With aaa

.WriteLine (T)

End With







MsgBox \" obliczenia trwały \" & czas & \"ilość kombinacji przeliczonych = \" & K & \" spełniających parametry = \" & wpisane





End Sub
2009-08-27 (12:35)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 224 206
[ CZCIONKA MONOSPACE ]

leo, wykonujesz max robote,ale grajmy tak dalej jak dotychczas inni napewno dobiją te dwie pewne a reszte pomieszac, a wyniki będa
2009-08-27 (22:45)

status Cygan
Data rejestracji: 2009-08-18
Ilość postów: 76

5067
wpis nr 224 395
[ CZCIONKA MONOSPACE ]

Swiętujecie już najwyższą wygraną, że nawet wyników nie zamieściliście?
2009-08-27 (23:26)

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

1386
wpis nr 224 419
[ CZCIONKA MONOSPACE ]

CYGAN > JESZCZE LOSOWANIE TRWA

DZIŚ BEZ KOLORU.NIESTETY



2009-08-27 - traf. 2/6=7 , traf. 3/6=0 , traf. 4/6=0 , traf. 5/ 6=0 , traf. 6/6=0 Wylosowane liczby - 25,13,37,40,42,5

2009-08-27 (23:32)

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

3260
wpis nr 224 420
[ CZCIONKA MONOSPACE ]

Partnerzy raport (rozliczenie miesięczne) za miesiąc VIII-2009 własnie trafił na Wasze skrzynki e-mail.



Termin wykupu udziałów na miesiąc wrzesień mija 31.08.2009 r.



Wspólna Precyzyjna Gra w Dużego Lotka. Szczegóły i regulamin na podanej niżej stronie.



* http://www.6-49.witryna.info/ * Kontakt * baza-partner@wp.pl *
2009-08-28 (00:22)

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

1386
wpis nr 224 445
[ CZCIONKA MONOSPACE ]

Już po północy

ale dziś mi numer nowy program odstawił,

.......co go męczę dla jednego .....kolegi

wskazał 2 liczby na nowych parametrach .....i weszły obie



ciekawe .....jak będzie dalej

zobaczymy we wrześniu



dobranoc

2009-08-28 (05:53)

status Szunaj
Data rejestracji: 2003-08-15
Ilość postów: 1005

8
wpis nr 224 467
[ CZCIONKA MONOSPACE ]

Leo myślę że we wrześniu to będzie mód co losowanie wyskoczy tak 2ka.

Oczywiście jak to dopracujesz a wiem że potrafisz.

Pozdrawiam i miłej pracy jedno losowanie masz jeszcze testowe w sierpniu.
2009-08-28 (08:50)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 224 478
[ CZCIONKA MONOSPACE ]

waldi,ja juz wplacilem,
2009-08-28 (10:22)

status Friend
Data rejestracji: 2008-05-04
Ilość postów: 570

3463
wpis nr 224 484
[ CZCIONKA MONOSPACE ]

Również się zgłaszam, udziały poszły.

2009-08-28 (14:07)

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

1386
wpis nr 224 560
[ CZCIONKA MONOSPACE ]

Szunaj > a daj Boże, żebyś miał rację ,

za samą wytrwałość się nam ..chyba już należy .



Waldi> NOWE ZAKŁADY przygotuję po los 29.09.2009 .
2009-08-28 (14:17)

status icemario
Data rejestracji: 2005-01-07
Ilość postów: 6391

561
wpis nr 224 565
[ CZCIONKA MONOSPACE ]

...jestem z wami

...PozdrawiamSolidnaGrupe!!!

pzdr.nara:)
2009-08-28 (15:28)

status Szunaj
Data rejestracji: 2003-08-15
Ilość postów: 1005

8
wpis nr 224 585
[ CZCIONKA MONOSPACE ]

777ch pamiętaj - Że historia się lubi powtarzać... . I co losowanie zmiana typów. Powodzenia
2009-08-28 (16:52)

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

1386
wpis nr 224 609
[ CZCIONKA MONOSPACE ]

tu jest problem........co losowanie to czasem niewskazane,a czasem było by dobrze ,aby nagle zmienić....ALE .....jest Waldi ,i jakoś sobie z tym poradzimy.

2009-08-29 (13:45)

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

1386
wpis nr 224 999
[ CZCIONKA MONOSPACE ]

Icemario > w Sts ....też zawiesili ,

więc chwilowo.. \"...nic nie wyrwiemy na trójkach DL\"
2009-08-29 (18:11)

status hektor55
Data rejestracji: 2008-01-05
Ilość postów: 1513

3110
wpis nr 225 051
[ CZCIONKA MONOSPACE ]

Ja nie bylbym za tym aby co losowanie zmieniac numery bo wtedy waldi ma problem aby kazdemu wysylac te skany jest dobrze jak jest czyli co najwyzej co 3 tyg zmieniac te numery a obecnie jestem w niemczech w Padeborn pozdro dla solidnej grupy
2009-08-30 (13:00)

status icemario
Data rejestracji: 2005-01-07
Ilość postów: 6391

561
wpis nr 225 227
[ CZCIONKA MONOSPACE ]

...leo nie wiem skond masz takie informacje...bo ja na 01.09.2009 moge normalnie zawrzec zaklad na DL w STS-ie

pzdr.nara:)
2009-08-31 (08:11)

status chippi
Data rejestracji: 2008-05-19
Ilość postów: 614

3495
wpis nr 225 405
[ CZCIONKA MONOSPACE ]

ode mnie kasa dzisiaj idzie do Waldiego...Jak zawsze zaksiegowana będzie popołudniem....pozdrawiam....
2009-08-31 (10:04)

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

1386
wpis nr 225 419
[ CZCIONKA MONOSPACE ]

icemario > od 1-go września jest jakaś nowa ?? oferta, jeszcze nie wiem czym to się różni ....... wiem tylko że na 29-go w sts odmówili mi przyjęcia zakładów ,zawieszono ich przyjmowanie do 1 września.
2009-08-31 (11:01)

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

3260
wpis nr 225 429
[ CZCIONKA MONOSPACE ]

Ostatecznie listę graczy, którzy będą grali wspólnie w miesiącu wrześniu zamykamy w dniu jutrzejszym (01.09.2009) o godzinie 19:00

Wszyscy partnerzy, którzy mają wątpliwości, że ich przelew dotrze na czas proszeni są o krótką informację na e-mail podając jednocześnie przekazaną kwotę.

Osoby, które są zainteresowane wstąpieniem w nasze szeregi informuję, że jeszcze istnieje taka możliwość.



Wspólna Precyzyjna Gra w Dużego Lotka. Szczegóły i regulamin na podanej niżej stronie.



* http://www.6-49.witryna.info/ * Kontakt * baza-partner@wp.pl *
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 103 104 105 ... 195 196
Wyślij wiadomość do admina