Wpisy użytkownika aga31

Obstawiam 42

35 mi się bardzo podoba

Mogą być powtórki np 8 liczb

75 może się powtórzyć czy nie. Oto jest pytanie?

15 może się powtórzyć czy nie

Będzie coś z piątek 5,15,75 tylko która

Mam taką ładną trójkę i co tu dołożyć? 5,52,53

Piątka będzie bo mi się śniła

Nikt jej nie obstawia więc będzie

Zgadzam się z tobą matti. .Tylko zastanawiam się, jak dużo ludzi obstawi na 22 liczbę 25 to teraz padnie

Maykon jak ostatnio mi się śniło 41 i 45 to 41 dwa razy padło

matti z tych liczb, aż się proszą by zrobić odwrotność

Robaczek a co byś dołożył lub odjął od tych liczb?
5,52,53,

Wczoraj na kartce napisałam 35 ale nie jestem pewna

Aniqa 50 nie chce ze mną rozmawiać. Rozmawiać chcą przestawienia moich liczb z 5

Wczoraj wieczorem napisałam na kartce takie liczby po losowaniu 30,59,13,35, Ciekawe czy coś z nich będzie

Mam 5,52,53,35 i 13 ciekawe będzie?

Idę zagram tą trójką, może coś dopiszę a może nie

Czy ktoś z obecnych jest w stanie powiedzieć w jakim języku jest ten program?
Tylko....... po co Ci te ........csn-y .
------------------------------------------------------------------

Sub csn_kombinacji()
Dim C(80)
Dim Num(80)
Cells.Select
Selection.ColumnWidth = 2

b = Application.WorksheetFunction.CountA(Range("a:a") 'ile
masz kombinacji sprawdzam 1-sza kolumnę
'jeżeli v= 49 albo v = 80 a w kolumnie wpisanych nie zawiera się
najwyzsza liczba to wpisz V = naj. liczba w grze
V = Application.WorksheetFunction.Max(Range(Cells(1, 1), Cells(b, 80)))
' najwyższy nominał liczby w zakresie
k = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(1, 80)))
' ILE LICZB MA KOMBINACJA SPRAWDZA 1 WIERSZ

' poniżej ustawienie wielkości kolumn i koloru czcionki
Range("a:iv".Font.ColorIndex = 1
Range(Cells(1, k + 1), Cells(b, 256)) = ""
Range(Cells(1, k + 2), Cells(65536, k + 2)).ColumnWidth = 14
Range(Cells(1, k + 2), Cells(65536, k + 2)).NumberFormat = "0"
Range(Cells(1, k + 2), Cells(65536, k + 2)).Font.ColorIndex = 3
Cells(b, 1).Select

' no to sprawdz sobie cs-y wpisanych do arkusza kombinacji

For ILE = 1 To b 'SPRAWDZIMY CSN DLA ILOSCI KOMBINACJI = b




For i = 1 To k
Num(i) = Cells(ILE, i)
Next i

LI = 0
csn = 0
P1 = k - 1

For i = 1 To P1

C(i) = 0
If i <> 1 Then C(i) = C(i - 1)
777: C(i) = C(i) + 1

r = Combine(V - C(i), k - i)
LI = LI + r
If C(i) < Num(i) Then GoTo 777
LI = LI - r

Next i

csn = LI + Num(k) - Num(P1)
Cells(ILE, k + 2) = csn 'co oznacza ze cod csn zostanie wpisany dwie
kolumny obok kombinacji

Next ILE

End Sub

Function Combine(N, m)

FA = 1
For i = 1 To m: FA = FA * i: Next i
va = 1
For j = (N - m + 1) To N: va = va * j: Next j
Combine = va / FA

End Function

Artur napiszesz do mnie na gg czy nie

2 z 4 i załuję, że nie dopisałam 15 tak jak mówiłam na forum zamienić 51 na 15

Artur pilna sprawa odezwij się na gg

Macie jakieś pewniaki na 22?

Jesteście pewni! ja stawiam na 25

Jedna liczba mi się podoba u ciebie mirnam

tylko, że dziś jest 25 marca

Już odpisałam

Nie wiem co o tym powiedzieć romeczek. Najlepiej to ja będę sama typować i nie słuchać podpowiedzi, bo czasem kiepsko na tym wychodzę

bet zdradzisz jakiegoś pewniaka na 22?

Może to być po odjęciu tego za ile kupił zakłady i z jaką stawką

Witaj Artur ponownie. Odezwiesz się do mnie na gg

Tutaj to raczej nie
Bet jesteś dobry w typowaniu - może ty mi pomożesz rozgryźć pewien problem

W połączeniu pewnej metody z mapką

Witaj hefajstos

NA gg jesteś?

NA dziś stawiam na 26

Witajcie

Ja mam do wyboru z 43?

Z tych liczb może padnąć 10. Witaj bet5

tylko 4,10,11,21 mi sie tu podoba

21,22. Będzie 26 tylko nie wiem na które losowanie

Czy ktoś z was podzieli się pewniakami, które na pewno nie padną

53 będzie

Witaj Artur
Jestem

Witaj Artur
Szukałeś mnie więc jestem

Artur a czemu nie napiszesz na gg do mnie. Niedawno wróciłam i jakoś do końca cyfry nie chcą ze mną rozmawiać

22 i 36 typuję.

Na gg porozmawiamy o czymś bardzo ciekawym. Chyba,że na pocztę możemy pisać

Poczekam

Witajcie

Witaj Ulala
Na dziś 12

Widzę

Na dziś jest dużo cyferek, z których mogę wybrać. Ja to poproszę pewniaki na nie na 14

Ta liczba to raczej niemożliwa na dziś

9,19,39

73 bądź 33

te są możliwe i mogą być

Macie jakieś pewniaki na 22

Zgadzam się z tobą, tylko ja tyle mam, że nie wiem co wybrać

Trochę tego jest

Witaj hefajstos

JA po przerwie muszę się uważniej skupić, by wrócić do takiego typowania co niedawno i tak dobrze mi szło, że było 6 z 7

A może na gg ?

Zaciekawiłeś mnie. Tamtym się przyglądałam i porównywałam liczby z kodem. Nie jest ona wcale zła

Gratuluję Ci Marcinie dobrych typowań i mam nadzieję,że w realu

JA dziś myslę,że będzie 41,42,35,19

witaj Ryszard12

Ja na jutro proponuję 2

TO samo

Gratuluję tym bardziej ci Marcin i życzę 10/10

Zobaczę i cieszę się, że ci tak dobrze idzie. A grasz w realu?

jest duża szansa, że trafi 8/8

Jutro będzie 16. A co do tej liczby dodacie?

Jesteś pewna?

Jak 19 to i 21

to mamy trójkę - 16,19,21. Z 19 pada 21

Dobranoc Marcinie

Dobranoc wszyskim

Witajcie

TO ja daję 82

Witaj robaczek

36. A na jutro na 2 losowania 41

Witaj bet5

Robaczek tu nie dzielę się szczegółami

7,8,9 nie będą

TO znajdź mnie

3,4,31,49,27,36, A dziś o 14 była liczba 21 o której wczoraj pisałam

Ja lubię piwko z soczkiem

Artur 7 i 9 razem nie będzie dziś

A o co się zakładamy,że nie będzie

Zakład stoi

Marcin, a może coś wymyślimy na Dużego Lotka. Ciekawe czy to jest dobre co znalazłam

Jak tak to będzie coś z tych 70 i dalej

to mamy jedną wspólną 27

10 i 18 mogą być

Marcin a co teraz urzadzenie na granicy wchodzi?

Takie małe,będą go wypożyczać za kaucją i będzie coś sczytywać?

mam robaczku

Ogólnie. Tego nie będą sprzedawali celnicy

rozumiem