Wpisy 255 980 – 256 079

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ł

witam moje typy na 14:00
20,21,33,59,64(plus)
5,17,43,49,55,57,68,71,(plus)
zycze strzalu w 10

torsan....taaak,w snach chyba

hefajstos.....a co jest w maju?

predzej bozia da dziecko i na dziecko niz wygraną w multi

lila-trzeba wierzyć w zwycięstwo

szejdziesiątki będą

Może Danielek by tak krecił!

moje urodziny
lila

w jakimś twarzowym sweterku

Gała....trafne spostrzeżenie

torsan...ja już przestałam dawno wierzyć.

hefajstos.....aaaa

Witam wszystkich. 7 .8.18.29.30.31.43.51

hefajstos to juz 3x w tym roku

telly savalas ta łysa pała będzie

jak zwykle 18 tke mam

lila-przestan napewno wierzysz

arur123.....i dobrze,on przynosi mi szczęście

11,13,17,15,18

zaczynaja sie czary mary dzikie węże

Nio to let's go

hefajstos.....18-tkę który raz w życiu?

a bedzie 7 i 10 i 15 i 23i 34i 78 i 56

Agatka

18 do setki

66 i 74 ;>

do setki to mam jeszcze troche ale do setki dotrwam ,

Gała......,

agatki nikt sie nie spodziewał

a gdzie zerwanie banderoli ?

dupa blada

wszystko do kosza

witać
też zupa
hefajstos kup połóweczke
to zerwiesz banderole

2/6

1/8 i 5/8

xelom.....

Gała....

czas coś wymysleć

lila

Zaraz się chyba zastrzelę normalnie.Lipa po lipie