Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 265 266 267 ... 1228 1229
Wyślij wiadomość do admina

Przewiń wpisy ↓

Programiki - Wspomagacze.....G-16

2007-12-17 (22:06)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 117 240
[ CZCIONKA MONOSPACE ]

i wynik, z automatu

wynik

5 / 10

5 / 10

2 / 10

5 / 10

5 / 10

3 / 10

5 / 10

0 / 10

1 / 10

2 / 10

2 / 10

2 / 10

2 / 10

Czyli całkiem nieźle

Kuba siedzę sobie nad samograjem v11 i porównuję z wersją 5

W czym jest lepsze v5 nad późniejszą wersją V11, czy ty ją w ogóle masz.

Janusz

2007-12-17 (22:12)

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

1386
wpis nr 117 242
[ CZCIONKA MONOSPACE ]

moje 9/30

pozdrawiam
2007-12-17 (22:36)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 117 245
[ CZCIONKA MONOSPACE ]

Leo, posiedziałem sobie nad twoim programem zakładka eksperyment,

i zastanawiam się dlaczego dla tak prostych wyliczeń układasz tak skomplikowane makra, o co tu chodzi .

Janusz
2007-12-18 (00:04)

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

1386
wpis nr 117 260
[ CZCIONKA MONOSPACE ]

miał być TESTER który po wprowadzeniu jeszcze kilku dodatkowych makr ,daje możliwość zapętlenia się ,aby sobie komputer liczył do póki nie znajdzie sam takich parametrów ,jakie dają wynik który podam jako minimum

pozdrawiam
2007-12-18 (08:27)

status rysex
Data rejestracji: 2004-11-07
Ilość postów: 1284

466
wpis nr 117 270
[ CZCIONKA MONOSPACE ]

witam

Janusz tak na szybko prześledziłem zbiór arkuszy i nie dopatrzyłem się wersji v11 no chyba że znów ja gdzieś nazwy pozmieniałem a ta co ci ja podesłałem to ma dodatkowe makro \"automat\" w stosunku do poprzednich.

2007-12-18 (09:35)

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

1386
wpis nr 117 272
[ CZCIONKA MONOSPACE ]

Janus > działamy wspólnie czy osobno,a może ci się już nie chce kombinować.



Kuba,jak chcesz pomagać ,to podeślę ci arkusz do testowania ustawień.

Megi,Bravo,Molek,Opal,Adrian,Koronka.......jak chcecie,to reaktywujemy temat.
2007-12-18 (13:13)

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

1386
wpis nr 117 301
[ CZCIONKA MONOSPACE ]

Zapomniałem zaprosić Zbyszka,Brązowego ,Nokizda może Trebor dołączy ?

a może jeszcze ktoś orientujący sie w excelu......

Czuję że bedzie ciekawy programik dla każdego inna alternatywa,a znajdzie ją każdy na własna rękę ,a Janus i ja złożymy to w jedno..i co WY na to ???

2007-12-18 (15:13)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 117 315
[ CZCIONKA MONOSPACE ]

Witajcie,

Leo, analiza testera zajęła mi trochę czasu, ładnie zrobione, ale wniosek jest jeden, bez obrazy........przerost formy nad treścią, zrobiłeś niesamowity postęp w pisaniu makr, kolorki wykorzystam w swoich, a co do treści, nie widzę nic

szczególnego, cel dość ogólnie sformułowany, uściślenia w tym programie

nie osiągniesz na poziomie wyższym niż 0,25 dla ML-a,

i co mi z niego zostało, eksperyment i frekwencja,wymaga bliższego poznania, histogram mało czytelny, zestawienie....... to twoje indywidualne (subiektywne) spojrzenie na liczby, mnie nie odpowiada, reasumując Leo, skupię się na swoich samograjach, prognozerach, Molkowych zakładkach w skosach, które wyglądają też zachęcająco , zestawieniach robionych przez Dylonga i Willego.............i byle do przodu z sukcesem.



Na dzisiaj wg prognozera gotowiec

1:- 4,9,13,17,21,24,27,31,35,40

2:- 6,11,15,19,24,27,31,33,36,40

3:- 3,7,8,14,19,26,29,32,35,39

4:- 3,8,11,15,18,22,25,29,32,38

5:- 4,10,14,18,24,27,31,34,38,42

6:- 3,7,9,15,16,18,22,26,29,34

7:- 2,4,7,12,17,21,24,28,31,37

8:- 3,7,11,14,18,24,27,30,34,36

9:- 4,10,13,17,21,24,27,30,35,40

10:- 45,47,53,57,61,64,66,69,76,78

11:- 46,48,54,59,61,65,67,70,75,78

12:- 41,44,48,51,55,58,63,68,73,76

13:- 40,43,47,50,55,58,63,68,73,76

14:- 46,48,53,57,61,65,66,69,75,78

15:- 47,49,53,56,60,64,65,68,75,78

16:- 40,44,48,51,55,58,64,68,74,76

można z tego skomponować 63 dwudziestki



Janusz





2007-12-18 (15:35)

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

1386
wpis nr 117 318
[ CZCIONKA MONOSPACE ]

nie zgadzam się z Tobą ,chyba jednak za mało poswięciłes czasu,chyba że 9/14

a nawet 10/12 uważasz za \"nietreściwe\"

wiem skąd się to bierze,patrzysz na bieżacy Typ i jego wynik,tu się zgodzę.ale wyobraź sobie iż jeśli wykonasz zapis .....podam ci przykładowe ustawienie\"

skok=1

skok2=4

skok3=5

skok4=5

skok5 =5



x=1

x1=0

x2=1

x3=1

x4=1



tak ustawione parametry

If X <> \"\" And Application.CountIf(Range(Arkusz1.Cells(Start1, 3), Arkusz1.Cells(koniec_zakresu1, 22)), szukana) <= X And Application.CountIf(Range(Arkusz1.Cells(Start2, 3), Arkusz1.Cells(koniec_zakresu2, 22)), szukana) <= X1 And Application.CountIf(Range(Arkusz1.Cells(Start3, 3), Arkusz1.Cells(koniec_zakresu3, 22)), szukana) >= X2 And Application.CountIf(Range(Arkusz1.Cells(Start4, 3), Arkusz1.Cells(koniec_zakresu4, 22)), szukana) >= X3 And Application.CountIf(Range(Arkusz1.Cells(Start5, 3), Arkusz1.Cells(koniec_zakresu5, 22)), szukana) >= X4 Then Cells(7, k + 1) = szukana

If X <> \"\" And Application.CountIf(Range(Arkusz1.Cells(Start1, 3), Arkusz1.Cells(koniec_zakresu1, 22)), szukana) <= X And Application.CountIf(Range(Arkusz1.Cells(Start2, 3), Arkusz1.Cells(koniec_zakresu2, 22)), szukana) <= X1 And Application.CountIf(Range(Arkusz1.Cells(Start3, 3), Arkusz1.Cells(koniec_zakresu3, 22)), szukana) >= X2 And Application.CountIf(Range(Arkusz1.Cells(Start4, 3), Arkusz1.Cells(koniec_zakresu4, 22)), szukana) >= X3 And Application.CountIf(Range(Arkusz1.Cells(Start5, 3), Arkusz1.Cells(koniec_zakresu5, 22)), szukana) >= X4 Then Arkusz20.Cells(2 + kw, k - 3) = szukana

If X <> \"\" And Application.CountIf(Range(Arkusz1.Cells(Start1, 3), Arkusz1.Cells(koniec_zakresu1, 22)), szukana) <= X And Application.CountIf(Range(Arkusz1.Cells(Start2, 3), Arkusz1.Cells(koniec_zakresu2, 22)), szukana) <= X1 And Application.CountIf(Range(Arkusz1.Cells(Start3, 3), Arkusz1.Cells(koniec_zakresu3, 22)), szukana) >= X2 And Application.CountIf(Range(Arkusz1.Cells(Start4, 3), Arkusz1.Cells(koniec_zakresu4, 22)), szukana) >= X3 And Application.CountIf(Range(Arkusz1.Cells(Start5, 3), Arkusz1.Cells(koniec_zakresu5, 22)), szukana) >= X4 Then Cells(7, 1) = Cells(7, 1) + 1





to znajdziesz np.9/14 ale nie w dniu bieżacego typu

niestety wartosci parametrów układają tak ciagi że w zaden sposób liczby które np. 9 dni nie wychodziły,nie wchodza od razu duza grupa razem........ale co innego ..po pewnym odczekaniu.........wkleiłem ci obrazek na którym masz 14/30 czy to Cię nie przekonywuje ?????????????





WSTAW NOWY ARKUSZ i podepnij takie makro......może wtedy zobaczysz

zamień ARKUSZ20. NA NUMER SWOJEGO



Sub skok_wstecz_frekwencja()

Arkusz20.Activate

Arkusz20.Cells.Select

Selection.ClearContents

Selection.Interior.ColorIndex = xlNone

Arkusz20.Range(\"A1\").Select

Arkusz14.Activate

ile = Cells(1, 13).Value

If ile = \"\" Then ile = 31

Cells(1, 13) = ile

For SKOK = 0 To ile \'cofnięcie, również długość ZAPISU typu w/g frekwencji ustawionej

Cells(1, 6) = SKOK

AA_FREKWENCJA

Arkusz20.Cells(SKOK + 2, 2) = Arkusz14.Cells(1, 1).Value + 1 \'numer losowania na który prognozujemy

Arkusz20.Cells(SKOK + 2, 1) = Arkusz14.Cells(7, 1).Value \'ile liczb spełnia warunki ustawione



Next SKOK

End Sub





FORMATOWANIE TRAFIEń:



Sub formatowanie_TYP_FREKWENCJA()

Arkusz20.Activate

Range(Cells(1, 1), Cells(ILE_ZESTAWÓW + 3000, 256)).Interior.ColorIndex = none

SKOK = Arkusz20.Cells(1, 1).Value

V = Application.WorksheetFunction.CountA(Arkusz1.Range(\"C:C\")) - SKOK

Arkusz20.Cells(1, 2) = V

ILE_ZESTAWÓW = Application.WorksheetFunction.CountA(Arkusz20.Range(\"A:A\"))

If ILE_ZESTAWÓW = \"\" Then Exit Sub







For wiersz = 2 To ILE_ZESTAWÓW + 1

ile_liczb = Cells(wiersz, 1).Value

For kolumna = 3 To 3 + ile_liczb



If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 3) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 4) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 5) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 6) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 7) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 9) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 11) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 11) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 12) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 13) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 14) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 15) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 16) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 17) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 18) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 19) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 20) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 21) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, kolumna) = Arkusz1.Cells(V + 3, 22) And Cells(wiersz, kolumna) <> \"\" Then Cells(wiersz, kolumna).Interior.ColorIndex = 46

If Cells(wiersz, 2) = Cells(1, 2).Value Then Cells(wiersz, 2).Interior.ColorIndex = 4

Next kolumna

Next wiersz

End Sub





PRZY FORMATOWANIU CELLS(1,1) odejmuje od V [BAZA]











no ......nie spodziewałem się TAKIEGO PODSUMOWANIA, a gdzieś to już czytałem ,,o przeroście formy nad treścią....



pozdrawiam i znikam

2007-12-18 (15:59)

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

1386
wpis nr 117 321
[ CZCIONKA MONOSPACE ]

2007-12-18 (17:13)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 117 325
[ CZCIONKA MONOSPACE ]

Dzięki Leo za makra, skupię się jednak na swoich programach.



Kuba v5 z twoimi dodatkami jest jednak lepszy niż v11 i wg niego

ale dla liczb ograniczonych do tab M25:S30 wsk Molka 1 wch



Ilość zliczeń 10 / Zakres dla pól 5 / siła miejsca 1 / = Liczb 6

13,30,33,56,70,73,,,,,,,,,,,,

Ilość zliczeń 10 / Zakres dla pól 5 / siła miejsca 2 / = Liczb 13

10,11,14,36,47,55,59,61,64,65,67,76,79,,,,

Ilość zliczeń 10 / Zakres dla pól 5 / siła miejsca 3 / = Liczb 6

3,23,25,31,38,78,,,,,,,,,,,,

Ilość zliczeń 10 / Zakres dla pól 5 / siła miejsca 4 / = Liczb 9

12,15,26,27,29,37,43,46,69,,,,,,,,,

Ilość zliczeń 10 / Zakres dla pól 5 / siła miejsca 5 / = Liczb 2

57,72,,,,,,,,,,,,,,,,



Janusz
2007-12-18 (20:25)

status rysex
Data rejestracji: 2004-11-07
Ilość postów: 1284

466
wpis nr 117 352
[ CZCIONKA MONOSPACE ]

witam

Leszek ja również dziękuję za twoje arkusze lecz niestety mamy całkowicie odmienny sposób patrzenia na multilotek.

Janusz pomyśl nad tanim systemem oraz wklejką mam nadzieje że grupa powoli się sama poskłada
2007-12-18 (20:43)

status Mariusz2
Data rejestracji: 2007-03-05
Ilość postów: 352

2577
wpis nr 117 357
[ CZCIONKA MONOSPACE ]

Pozdrowienia dla Rysexa z okazji Świąt .

Pamiętaj nie daj sie nabierać .

Totek to gra indywidualna .

Im więcej w grupie -tym mniej wygranych a totalizator się cieszy .



Nie daj się nabierać . Graj indywidualnie --bo nic nie wygrasz .

Grupa się sugeruje -jeden drugim .A to błąd . To są podstawy gier losowych .

To tylko rady . Nie daj się nabierać na granie grupowe -bo to pewna przegrana .

Czym mniej każdy się sugeruje innym -tym większa szansa .



Jak ktoś Cię namawia na głupotę -odmów .

Miej charakter i odwagę .



Najlepsze pozdrowienia i mniej gry grupowej i pewnych przegranych a więcej indywidualizmu -bo to sukces .



Mariusz
2007-12-18 (20:52)

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

1386
wpis nr 117 364
[ CZCIONKA MONOSPACE ]

Mariusz,ty jak coś napiszesz to nie wiadomo czy geniusz ,czy debil,jak to jest naprawdę.......

a na poważnie to może poklikamy gdzieś....na uboczu

pozdrawiam
2007-12-18 (20:57)

status Mariusz2
Data rejestracji: 2007-03-05
Ilość postów: 352

2577
wpis nr 117 365
[ CZCIONKA MONOSPACE ]

Leo



Ja nie klikam -bo to robią debile .Każda małpa od orangutana umie klikać .

Ja dyskutuję ale nie z wirtualnymi ludźmi -ale z prawdziwymi .

Ja dorośniesz i będziesz miał o czym porozmawiać na temat gier losowych -ale bez idiotyzmów i dziecięcych programów to zapraszam na stronę www.multilotek.vdd,pl , którą zresztą co parę dni studiujesz i dokładnie znasz .



Najlepsze Życzenia
2007-12-18 (21:07)

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

1386
wpis nr 117 367
[ CZCIONKA MONOSPACE ]

ale z Ciebie artysta,że tak ujmę.........nie powiem iż nie zaglądałem na Twoją stronę ,bo bym skłamał,a to nie w moim stylu.....ale już nie pamiętam kiedy ,wiec miesiąc lub więcej.......czemu jesteś tak jadowity.....albo jak to nazwać ,albo może masz jakieś kompleksy..........?

ja osobiście mam wiele szacunku dla Twoich \"idei multilotkowych\" ale nie dla jadowitychg wpisów,nie ważne czy są ripostą czy nie.......ale pouczać Cie nie mam zamiaru.......pisz co chcesz....byle szczerze......to wartość NADRZEDNA.

2007-12-18 (21:10)

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

1386
wpis nr 117 368
[ CZCIONKA MONOSPACE ]

no i wszystkiego dobrego.....dla Ciebie
2007-12-18 (21:20)

status Mariusz2
Data rejestracji: 2007-03-05
Ilość postów: 352

2577
wpis nr 117 377
[ CZCIONKA MONOSPACE ]

Leo

daj sobie spokój .

Ja jestem człowiekiem nauk ścisłych .

U mnie 2 razy 2 to cztery- bo tal mnie wykształcili . W dziedzinach technicznych nie ma pojecia szczerości czy nieszczerości . Jest tylko obiektywna wiedza naukowa .



Dwóch grających w dużego lotka to 2 / 14 milionowe .

A dwóch grających razem w dużego lotka to tylko 1,5 /14 milionowe

A dziesięciu grających razem w dużego lotka to tylko 3 /14 milionowe - bo dochodzi autosugestia .



Kazdą gre zespołową musi proponowaćc \" posłaniec \" totalizatora - i tak jest .

NIe mam nic więcej do dodania .

Ucz się ucz .

I Leo



Mniej arkuszy -a więcej myślenia .



Życzę Ci na Święta abyś miał odwagę i Excela wykasował - a zajął się myśleniem .

Do tego Excel nie jest potrzebny .

Pozdrowienia i indywidualizmu i odwagi w odcinaniu sie od wszelkich przegrywających \"grup \" .



Mariusz
2007-12-18 (21:32)

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

1386
wpis nr 117 382
[ CZCIONKA MONOSPACE ]

Po pierwsze dzięki za odpowiedź ,nie tak dawno jeszcze coś Cię hamowało....

Nie rozumiem dlaczego masz coś przeciwko EXCELOWI.......to fascynujace co można zrobić z jego pomocą,co jest ,jeszcze niedawno byłeś

jednym z ludzi posługujących się tym arkuszem........co takiego się stało że mi życzysz mniej Arkuszy...........ja posługuję sie tylko jednym od dawna,no nie powiem żebym w międzyczasie nie zrobił kilkunastu różnych,bo zrobiłem paręnaście ,ale trzymam sie jednego .
2007-12-18 (21:40)

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

1386
wpis nr 117 384
[ CZCIONKA MONOSPACE ]

jeszcze to o posłańcu,możesz językiem uproszczonym nie chcę sobie dopowiadać czy analizować Twojej.... sugesti......prosty język koi zmysły ,nie uważasz
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 265 266 267 ... 1228 1229
Wyślij wiadomość do admina