Wpisy 255 942 – 256 041

policja?

robaczek tesh jush mam chyba wezme 43 albo 45

robaczek....hmmm....

aniga to juz niewiem jaka liczbe

lila

robaczku.....co jest?

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

lila

robaczku.....

robaczek-słabo Cie widac na tym zdjęciu moze dasz wyrazniejsze

Robaczek a co myslisz o 45

aga31 dodaj 25 i 18

aniga no niewiem wiesz

torsan pomysle

Wczoraj na kartce napisałam 35 ale nie jestem pewna

Nio właśnie niewiem i dlatego pytam sie eksperta

aniga ja i ekspert chociaz komus lepiej doradzam

aniga.....45 też może wskoczyć.

lila

spac mi sie chce

robaczek.....Dziękuje

liczba 30 jest na Dzis ciekawa

lila a wiesz co jest w srodku?

robaczku....właśnie miałam o to zapytać.

lila moje

robaczek.....tak szybko oddajesz mi swoje ????

aga a myślałas nad 50 ????

lila narazie to przyjazn

lila aga31 aniga dzis wygracie

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

lila wiesz co bedzie najgorsze jak przegram???

robaczku.....znamy się tylko z czatu,więc to raczej cyber przyjaźń.

aniga....co będzie najgorsze?

lila masz racje

robaczek,,,,,no nie wiem czy wygram bo ostatnio kiepsko mi idzie

robaczek....hmm.....wiem.

lila ze jak sie bo nie weszły moje cyfry i rozwale lotomat

lila to masz swego pana czy nie?

aniga.....to poślij temu lottomatowi ode mnie też.

robaczek.....nie pytaj mnie o takie rzeczy na czacie

to jak moge sie z Toba z kontaktowac?

robaczek.....dowiesz się w swoim czasie jak.

lila dobrze nie nalegam

robaczek-lili pan znajduje się na czacie

robaczek-więc uwazaj

chyba sie zdrzemne bo nic nie spalem

torsan to sorki

torsan.....nie kombinuj,żaden pan się na czacie nie znajduje.

robaczek.....on kłamie

dobra mykam poleze te 50 minut

lila-chciałem zobaczyć jego reakcje

robaczek.....to się połóż spać i już.

Masz to jak w banku a pozniej bede facetów z serwisu wolac bo mi lotomat nie dziala . Ale powiem ze warto i wolac

całe życie z wariatami ha ha ha

aniga....piszesz,że warto? A gdzie masz ten lottomat?

w kolekturze. Stoi na stoliku tuz za mna

a ja takego wariata poslalem
6,8,16,18,26,28,46,56,58,78

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

aga zobaczymy oczywiscie ja Ci zycze zeby weszly

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

aniga.....ale w jakim mieście?

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

Tym co obok nicku czyli Nysa

aniga.....a to nie chce mi się jechać

lila-

torsan.....

lila nie przejmuj sie jak cos to mu od Ciebie

aniga.....będziesz miała okazję dać mu ,zaraz po 14-tej.

to odemnie tez bedzie mozna

Jeszcze 16 minut .

dawajcie losowanie niech pani Ambrożko losuje

aga co zrezygnowałaś z szejdziesiątek

torsan.....nie Ambrożko tylko Wielebny dzisiaj będzie

Gała.....nie ma co tak mocno zacierać bo przetrzesz

Jeszce 14 minut i znowu będzie kupa

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

mm:
4,7,27,31,33,45,48,50,55,71
4,7,9,18,20,27,56,57,71,77
8,10,17,18,20,21,35,55,71,78
P.O.W.O.D.Z.E.N.I.A

Lila...

lila będzie dobrze mam 2 kupony to może coś pyknie

Polsko angielsko mieszanym ha ha ha

lila-to już wole łysego

szczęściara.....

Gała...no może coś pyknie albo zostanie pykniete

torsan.....ja też wolę łysego

ale najlepsza by byla Madzia

33,36,46,47,68,69,6,18,24,30

lila

torsan....mi to obojętne tak szczerze kto losuje

Gała....

lila ty to całuśna jesteś

lila-

Gała....cały czas

torsan.....nie ważne kto byle tylko strzelił w moje liczby

i zaraz ukarze nam się goła.... prawda kto co wygra

lila-no to najważniejsze jest

lila to super

torsan.....zaraz będzie taka lipa że masakra

Gała.....

lila-wygrasz ładna kase dzis

Aby do maja

tylko nie lipamoże jakieś 4 zł