Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 177 178 179 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-01-10 (21:37)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 138 092
[ CZCIONKA MONOSPACE ]

fair_play, prawdopodobnie rozpis, który sprawdzasz ma mniej niż 7 skreśleń w linii. Jeśli tak jest, uzupełnij makro w liniach :

If skr = 7 Then actstan ....

dla mniejszej ilości skreśleń.
2018-01-10 (21:38)

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

1386
wpis nr 1 138 094
[ CZCIONKA MONOSPACE ]

fair_play > możliwe że coś źle zmieniłem,nie testowałem tego .





ale ,raz już miałem źle ,a to Ty zgubiłeś liczbę



sprawdź zakres podczyszczania

może za duże rozpisy wprowadziłeś ,i widzi max .gdzieś dalej......





---------------------------------------------------------------------------

rozumiesz if hit=5 to znaczy sprawdzenie wszystkich piątek

i odnotowanie wszystkich możliwych wariantów wygranych..........



ale sprawdź ,czy nie potrzebujesz dodatkowych linni

'okreslamy wygrane dla ilosci skresleń <<<<<<

If skr = 10 Then actstan = (btr5 * 4) + (btr4 * 2)

If skr = 9 Then actstan = (btr5 * + (btr4 * 2)

If skr = 8 Then actstan = (btr5 * 20) + (btr4 * 4)



dla 7 skreśleń i niżej nie dodałem........... trzeba samemu popracować

----------------------------------------------------------------------------

Sprawdzone 5-skr. liczb [22] zbiór =26334-kombinacji

bo sprawdza wszystkie piątki





Sprawdzone 6-skr. liczb [22] zbiór =74613-kombinacji

bo sprawdza wszystkie szóstki



Sprawdzone 7-skr. liczb [22] zbiór =170544-kombinacji

bo sprawdza wszystkie siódemki

--- wpis edytowano 2018-01-10 21:52 ---

2018-01-10 (21:57)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 104
[ CZCIONKA MONOSPACE ]

777ch>



sprawdzałem znany SMI z 22 liczb gwarantujący 3-ke przy 3 trafionych:



1 2 3 4 5 6

1 2 7 8 9 10

1 2 11 12 13 14

1 2 15 16 17 18

1 2 19 20 21 22

1 3 7 11 15 19

1 3 8 12 16 20

1 3 9 13 17 21

1 3 10 14 18 22

1 4 7 12 17 22

1 4 8 11 18 21

1 4 9 14 15 20

1 4 10 13 16 19

1 5 7 13 18 20

1 5 8 14 17 19

1 5 9 11 16 22

1 5 10 12 15 21

1 6 7 14 16 21

1 6 8 13 15 22

1 6 9 12 18 19

1 6 10 11 17 20

2 3 7 12 18 21

2 3 8 11 17 22

2 3 9 14 16 19

2 3 10 13 15 20

2 4 7 11 16 20

2 4 8 12 15 19

2 4 9 13 18 22

2 4 10 14 17 21

2 5 7 14 15 22

2 5 8 13 16 21

2 5 9 12 17 20

2 5 10 11 18 19

2 6 7 13 17 19

2 6 8 14 18 20

2 6 9 11 15 21

2 6 10 12 16 22

3 4 7 8 13 14

3 4 9 10 11 12

3 4 15 16 21 22

3 4 17 18 19 20

3 5 7 10 16 17

3 5 8 9 15 18

3 5 11 14 20 21

3 5 12 13 19 22

3 6 7 9 20 22

3 6 8 10 19 21

3 6 11 13 16 18

3 6 12 14 15 17

4 5 7 9 19 21

4 5 8 10 20 22

4 5 11 13 15 17

4 5 12 14 16 18

4 6 7 10 15 18

4 6 8 9 16 17

4 6 11 14 19 22

4 6 12 13 20 21

5 6 7 8 11 12

5 6 9 10 13 14

5 6 15 16 19 20

5 6 17 18 21 22

7 8 15 17 20 21

7 8 16 18 19 22

7 9 11 14 17 18

7 9 12 13 15 16

7 10 11 13 21 22

7 10 12 14 19 20

8 9 11 13 19 20

8 9 12 14 21 22

8 10 11 14 15 16

8 10 12 13 17 18

9 10 15 17 19 22

9 10 16 18 20 21

11 12 15 18 20 22

11 12 16 17 19 21

13 14 15 18 19 21

13 14 16 17 20 22

--- wpis edytowano 2018-01-10 21:58 ---

2018-01-10 (22:00)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 138 109
[ CZCIONKA MONOSPACE ]

Dodaj do makra linię

If skr = 6 Then actstan = (btr6 * 1300) + (btr5 * 120) + (btr4 * + (btr3 * 2)



i będzie OK!
2018-01-10 (22:10)

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

1386
wpis nr 1 138 115
[ CZCIONKA MONOSPACE ]

lepiej od razu



If skr = 6 Then actstan = (btr6 * 1300) + (btr5 * 120) + (btr4 * + (btr3 * 2)

If skr = 5 Then actstan = (btr5 * 700) + (btr4 * 20) + (btr3 * 4)

If skr = 4 Then actstan = (btr4 * 84) + (btr3 * + (btr2 * 2)

If skr = 3 Then actstan = (btr3 * 54) + (btr2 * 2)

If skr = 2 Then actstan = (btr2 * 16)



2018-01-13 (17:09)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 764
[ CZCIONKA MONOSPACE ]

777ch>



Masz jakiś pomysł na procedurę tworzącą listę wszystkich kombinacji dla rozpisu strefowego, przy różnej ilości liczb w strefach (dla max=1), z parametrami ilość stref i ilość liczb w poszczególnych strefach ?

--- wpis edytowano 2018-01-13 17:16 ---

2018-01-13 (20:14)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
wpis nr 1 138 814
[ CZCIONKA MONOSPACE ]

fair_play>>

na moją prośbę ralfek zamieścił kiedyś u siebie taki kalkulator, tak więc on zna tę procedurę:



Program, który z podanych przez Ciebie stref stworzy system pełny (strefowy) o zakładach z ilością liczb równej ilości stref

http://www.wynikilotto.net.pl/narzedzia/systemy-strefowe/



Ponadto kalkulator systemów strefowych (element programu LottoCAD) od Kmicica

http://lc.yum.pl/ams/zone.php

(demo do 100 zakładów)

http://lc.yum.pl/ams/zonehelp.htm



--- wpis edytowano 2018-01-13 20:24 ---

2018-01-13 (22:41)

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

1386
wpis nr 1 138 843
[ CZCIONKA MONOSPACE ]

fair_play

-------------------------------------------------------------------------------

777ch>



Masz jakiś pomysł na procedurę tworzącą listę wszystkich kombinacji

dla rozpisu strefowego, przy różnej ilości liczb w strefach (dla max=1),

z parametrami ilość stref i ilość liczb w poszczególnych strefach ?

---------------------------------------





System strefowy liczb[19], stref[4]

system = 987 kombinacji [4]-skreśleń



Zone 1: #1#2#3#... Min= 1 | Max= 1

Zone 2: #4#5#6#7#... Min= 0 | Max= 1

Zone 3: #8#9#10#11#12#... Min= 0 | Max= 1

Zone 4: #13#14#15#16#17#18#19#... Min= 1 | Max= 2







3876 kombinacji z zakresu 1 ~ 19

pozostalo 987 kombinacji

Kilka dobrych lat temu,

kolega Starak prosił o emiminatora dla szóstek

tak powstały procedury dla stref......

i to już wielokrotnie udostępniałem





to się już ...nie nadaje czy jak?



---------

edit

zajrzę jutro ....ponownie

--- wpis edytowano 2018-01-13 22:43 ---

2018-01-14 (01:34)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 856
[ CZCIONKA MONOSPACE ]

edi8>



Przy równej ilości liczb we wszystkich strefach to drobiazg.

Chciałem tutaj zamieścić procedurę, która to załatwia, ale niestety edytor Pasko eliminuje znak "back slash" w niej używany, który w excelu oznacza moduł z dzielenia (MOD), a w kodzie VBA jest przedstawiany tym właśnie znakiem, więc procedura byłaby nieczytelna.

Np. przy traf(ieniu) trzech liczb w różnych strefach, przy 5-ciu strefach, po 3 liczby w każdej ilość kobminacji= liczb_w_strefach ^ traf * Application.WorksheetFunction.Combin(stref, traf).

Problem pojawia się przy różnej ilości liczb w strefach (chociażby tylko przy warunku max=1 w strefie).

2018-01-14 (01:53)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 859
[ CZCIONKA MONOSPACE ]

777ch>



Ale ja mam pytanie ile (i jakich) jest możliwych wszystkich kombinacji, w Twoim zamieszczonym powyżej przykładzie, przy trafieniu określonej ilości liczb tzn, jak rozpisać Twój system na wszystkie możliwe trójki przy trafieniu 3 liczb, wszystkie możliwe czwórki przy trafieniu 4 liczb itd.?

--- wpis edytowano 2018-01-14 01:57 ---

2018-01-14 (03:12)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 861
[ CZCIONKA MONOSPACE ]

777ch>



Poza tym w wyżej przedstawionym przez Ciebie systemie jest możliwych 1407, a nie 987 kombinacji 4-ech skreśleń. Podejrzewam, że brakuje w nim możliwych kombinacji po 1 liczbie ze stref 2 i 3 oraz dwóch ze strefy 4 czyli 4*5*21 (2z7)=420.

Czyli sprawa nie taka prosta.

--- wpis edytowano 2018-01-14 03:13 ---

2018-01-14 (09:33)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 138 875
[ CZCIONKA MONOSPACE ]

fair_play, nie ma błędu w wyliczeniu 777ch. Jako dowód masz screen z WG, który wygenerowałem dla systemu :

System strefowy liczb[19], stref[4]

system = 987 kombinacji [4]-skreśleń



Zone 1: #1#2#3#... Min= 1 | Max= 1

Zone 2: #4#5#6#7#... Min= 0 | Max= 1

Zone 3: #8#9#10#11#12#... Min= 0 | Max= 1

Zone 4: #13#14#15#16#17#18#19#... Min= 1 | Max= 2

Zielona komórka w zakładce Total o tym świadczy. A jak będziesz się upierał, że jest inaczej, to mogę wstawić wszystkie 987 czwórek spełniających te założenia.



--- wpis edytowano 2018-01-14 09:34 ---

2018-01-14 (11:34)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 138 918
[ CZCIONKA MONOSPACE ]

Nie musisz mi wysyłać swoich czwórek. Nie masz racji. Twoja czwórka 7,12,18,19 najzwyczajniej w świecie nie spełnia założeń systemu ! Zauważ, że czwórka MUSI zawierać jedną liczbę z zestawu:

Zone 1: #1#2#3#... Min= 1 | Max= 1

Warunek min = 1 mówi, że liczba z tej linii musi być w kazdej linii rozpisu. Żadna z liczb 7,12,18,19 nie należy do strefy 'Zone 1'

edit:

fair_play widzę, że usunąłeś swój wpis:

"Twoje wstawienie 987 komórek nic tu nie da, bo ja je wszystkie mam. Mam ponadto 420 czwórek więcej od Ciebie. Nie będę wrzucał wszystkich 1407 czwórek, ale sprawdź w swoim wydruku, czy masz w nim po uporządkowaniu najwyższą z możliwych czwórek 7,12,18,19. "

Ja swój wpis na wszelki wypadek zostawię.

--- wpis edytowano 2018-01-14 11:49 ---

2018-01-14 (11:36)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 919
[ CZCIONKA MONOSPACE ]

kleszek>



Masz rację. W swoim zestawieniu popełniłem błąd, zakładając w pierwszej strefie Min=0. Mea culpa.

Usunąłem swój wpis zanim Ty napisałeś.

Mówiono mi, żeby po kilku głębszych nie robić niczego poważnego zwłaszcza o 3-ciej w nocy

--- wpis edytowano 2018-01-14 11:38 ---

2018-01-14 (12:12)

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

1386
wpis nr 1 138 926
[ CZCIONKA MONOSPACE ]

fair_play



Też mi się zdarza popełnić błąd,jak to mówią,nie ma ludzi nieomylnych

a przy drinku to najczęściej ,choć nie jest to wcale regułą.

Poczytałem ,ale właściwie nie wiem o co Ci dokładnie chodzi.....
2018-01-14 (12:31)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 935
[ CZCIONKA MONOSPACE ]

777ch>



Jak napisałem wyżej popełniłem błąd licząc ilość możliwych kombinacj czwórek w zamieszczonym przez Ciebie przykładzie. Błąd polegał na przyjąciu dla strefy pierwszej warunku min=0. Na skutek tego wyszło mi o 420 możliwych czwórek więcej. Oprotestował to kleszek, i po sprawdzeniu przyznałem się do błędu.



Ale to tak na marginesie, bo chodzi mi wciąż o jedną uniwersalną procedurę obliczającą te kombinacje przy różnej ilości stref i różnej ilości liczb w strefach, o co pytałem wczoraj, a czemu obiecałeś się przyjrzeć dzisiaj.

2018-01-14 (12:45)

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

1386
wpis nr 1 138 946
[ CZCIONKA MONOSPACE ]

uniwersalną procedurę obliczającą te kombinacje przy różnej ilości stref i różnej ilości liczb w strefach



--------------------------------------



System strefowy liczb[70], stref[24]

system = 196 kombinacji [4]-skreśleń

Zone 1: #10#20#30#40#50#60#70#... Min= 0 | Max= 1

Zone 2: #9#19#29#39#49#59#69#... Min= 0 | Max= 1

Zone 3: #8#18#28#38#48#58#68#... Min= 0 | Max= 1

Zone 4: #7#17#27#37#47#57#67#... Min= 0 | Max= 1

Zone 5: #6#16#26#36#46#56#66#... Min= 0 | Max= 1

Zone 6: #5#15#25#35#45#55#65#... Min= 0 | Max= 1

Zone 7: #4#14#24#34#44#54#64#... Min= 0 | Max= 1

Zone 8: #3#13#23#33#43#53#63#... Min= 0 | Max= 1

Zone 9: #2#12#22#32#42#52#62#... Min= 0 | Max= 1

Zone 10: #1#11#21#31#41#51#61#... Min= 0 | Max= 1

Zone 11: #1#... Min= 0 | Max= 1

Zone 12: #1#2#... Min= 0 | Max= 1

Zone 13: #3#4#5#... Min= 0 | Max= 1

Zone 14: #6#7#8#9#... Min= 0 | Max= 1

Zone 15: #10#11#12#13#14#... Min= 0 | Max= 1

Zone 16: #15#16#17#18#19#20#21#22#23#24#... Min= 0 | Max= 1

Zone 17: #10#9#8#7#6#5#4#3#2#1#... Min= 0 | Max= 1

Zone 18: #20#19#18#17#16#15#14#13#12#11#... Min= 0 | Max= 1

Zone 19: #30#29#28#27#26#25#24#23#22#21#... Min= 0 | Max= 1

Zone 20: #40#39#38#37#36#35#34#33#32#31#... Min= 0 | Max= 1

Zone 21: #50#49#48#47#46#45#44#43#42#41#... Min= 0 | Max= 1

Zone 22: #60#59#58#57#56#55#54#53#52#51#... Min= 0 | Max= 1

Zone 23: #70#69#68#67#66#65#64#63#62#61#... Min= 1 | Max= 1

Zone 24: #7#18#... Min= 2 | Max= 2



Tablica = 24 warunków !



czas obliczen 916895 kombinacji z zakresu 1 ~ 70 = 00:00:03,66 sec.

pozostało 196 kombinacji



czy o to Ci chodzi ,

bo to już udostępniłem



procedura >> ELIMIN4() albo Eliminator4()



umożliwia obliczenia dla 65536 stref od 1 do 80 liczb w strefie ,kazda strefa inny warunek ilości...



2018-01-14 (13:02)

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

1386
wpis nr 1 138 951
[ CZCIONKA MONOSPACE ]

inny przykład dla 4-ek



oto przykład ,8 ostatnich losowań Muli



System strefowy liczb[80], stref[8]



Zone 1: #3#10#18#19#20#22#23#26#29#35#36#38#50#51#55#61#65#68#71#77#... Min= 3 | Max= 3

Zone 2: #15#27#30#31#34#35#36#42#48#49#51#55#59#63#64#73#75#76#77#78#... Min= 1 | Max= 1

Zone 3: #4#8#19#20#22#25#27#30#34#36#47#48#49#56#58#64#67#68#69#75#... Min= 1 | Max= 1

Zone 4: #2#12#15#17#21#22#24#34#39#43#46#53#55#61#63#65#68#74#76#78#... Min= 3 | Max= 3

Zone 5: #1#2#7#19#20#25#29#36#37#38#39#43#49#54#61#67#74#76#78#79#... Min= 1 | Max= 1

Zone 6: #3#10#17#19#23#25#27#30#31#43#48#52#53#59#60#64#74#77#79#80#... Min= 1 | Max= 1

Zone 7: #3#5#7#13#16#17#28#32#43#45#46#50#52#58#62#65#66#71#76#80#... Min= 1 | Max= 1

Zone 8: #7#15#16#17#23#27#31#36#38#40#47#51#56#59#61#65#66#68#74#76#... Min= 3 | Max= 3





czas obliczen 1581580 kombinacji z zakresu 1 ~ 80 = 00:00:00,38 sec.

pozostalo 10 kombinacji





3 15 61 68

17 22 51 61

17 35 61 68

17 38 55 68

22 31 61 65

22 51 65 74

22 59 61 65

23 34 61 65

23 65 68 78

35 65 68 74





3,15,61,68,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

17,22,51,61,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

17,35,61,68,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

17,38,55,68,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

22,31,61,65,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

22,51,65,74,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

22,59,61,65,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

23,34,61,65,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

23,65,68,78,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

35,65,68,74,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,1,1,1,3,1,1,3

2018-01-14 (13:14)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
wpis nr 1 138 957
[ CZCIONKA MONOSPACE ]

777ch>



Tak, o coś takiego jak procedurę dla warunków z wpisu nr 1 138 946 mi chodzi.

Wczoraj napisałeś, że publikowałeś to lata temu, a ja jestem na forum pól roku, więc znalezienie tego nie jest proste.

Tym bardziej, że lata temu mogłeś używać innego nicka



Więc jeśli to nie stanowi problemu to poproszę o replay tutaj lub na pocztę

--- wpis edytowano 2018-01-14 13:15 ---

2018-01-14 (13:37)

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

1386
wpis nr 1 138 969
[ CZCIONKA MONOSPACE ]

Możesz to okroić o zapis tylko do 1-go pliku

-------------------------------------------------





Sub ELIMIN4()

'

' TABLICA_ELIMINATOR Makro

Dim vlos As Long

Dim tabgps() As Long

Dim tabwyn() As Variant

Dim Liczba_STARTOWA As Byte, Liczba_KOnCOWA As Byte

Dim komb As Long

Dim l1 As Byte, l2 As Byte, l3 As Byte, l4 As Byte

Dim fs, a, ab, ac

Dim spr As Long, TR As Byte

Dim tabwar() As Variant

Dim tabwar2() As Variant

Dim stoper As Date, czas As String

Dim k As Long



Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile(ThisWorkbook.Path & "/" & "leo4.txt", True)

Set ab = fs.CreateTextFile(ThisWorkbook.Path & "/" & "system4.txt", True)

Set ac = fs.CreateTextFile(ThisWorkbook.Path & "/" & "własne10.txt", True)

Cells(1, 86) = ""

'DANE LOSOWAn GPS

Liczba_STARTOWA = Application.WorksheetFunction.Min(Range("A1:CB65536"))

Liczba_KOnCOWA = Application.WorksheetFunction.max(Range("A1:CB65536"))



vlos = Application.WorksheetFunction.CountA(Range("A1:A65536"))

If vlos = 0 Then GoTo 1000

tabwyn = Range(Cells(1, 1), Cells(vlos, 80)).Value

tabwar = Range(Cells(1, 82), Cells(vlos + 1, 82)).Value

tabwar2 = Range(Cells(1, 84), Cells(vlos + 1, 84)).Value

stoper = Timer





ReDim tabgps(vlos, 80)



For los = 1 To vlos

For liczba = 1 To 80







tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba)

If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1







Next liczba



Next los



'WPISANO DANE do tablicy losowan GPS



Cells(1, 86) = " Tablica = " & vlos & " warunków" & _

" Obliczanie kombinacji mieszczących sie w normach w TOKU !!! "

Cells(1, 86).Font.ColorIndex = 2

komb = 0

k = 0



Range("cg:cg") = ""



For l1 = Liczba_STARTOWA To Liczba_KOnCOWA - 3

For l2 = l1 + 1 To Liczba_KOnCOWA - 2

For l3 = l2 + 1 To Liczba_KOnCOWA - 1

For l4 = l3 + 1 To Liczba_KOnCOWA





komb = komb + 1



For spr = 1 To vlos

TR = 0

TR = tabgps(spr, l1) + tabgps(spr, l2) + tabgps(spr, l3) + tabgps(spr, l4)

If TR < tabwar(spr, 1) Then GoTo 100

If TR > tabwar2(spr, 1) Then GoTo 100

Next spr



k = k + 1

With a

.WriteLine (l1 & " " & l2 & " " & l3 & " " & l4)

End With



With ab

.WriteLine (l1 & " " & l2 & " " & l3 & " " & l4)

End With



With ac

.WriteLine ("#" & l1 & "#" & l2 & "#" & l3 & "#" & l4 & "#")

End With



' poniżej linia obliczeń z podglądem ale czas obliczeń wydłuży

'Cells(1, 86) = " Tablica = " & vlos & " warunków" &

'" Obliczanie zawierających się w normach kombinacji w TOKU !!! " & " " & komb & " / " & k

100





Next l4

Next l3

Next l2

Next l1

1000

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

Cells(1, 86) = " czas obliczen " & komb & " kombinacji z zakresu " & Liczba_STARTOWA & " ~ " & Liczba_KOnCOWA & " = " & czas & " pozostalo " & k & " kombinacji"



Cells(5, 94) = "system = " & k & " kombinacji [4]-skreśleń"



Cells(2, 94) = k

End Sub
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 177 178 179 ... 554 555
Wyślij wiadomość do admina