Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 280 281 282 ... 560 561
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2019-07-29 (11:47)

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

14865
wpis nr 1 241 711
[ CZCIONKA MONOSPACE ]

kleszek>

Dziękuję - przeanalizuję to, ale na pierwszy rzut oka wygląda to mało przejrzyście.
Skoro używałeś tego kiedyś, to może podpowiesz co i gdzie (w które komórki) trzeba wpisać, aby otrzymać wszystkie kombinacje (v po k).

Ale wracając do copre.
Tego Veryficatore ściągnąłem dopiero jak rozpoczęła się dyskusja, więc kilka dni temu i nie znam wszystkich jego możliwości. Ale wydaje mi się, że jak naciśniesz "Analizza Copertura" i wyświetlą Ci się "copre" dla poszczególnych linii rozpisu, to nie ma możliwości wyświetlenia tych kombinacji, które kryje unikalnie dana linia. Chyba się nie mylę ?
Jeśli tak to te "copre" dl poszczególnych linii są liczone w sposób jaki podałem:
copre dla danej linii=colone non coperte bez danej linii - colone non coperte dla całego rozpisu.

Pozdrawiam
2019-07-29 (12:40)

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

2047
wpis nr 1 241 717
[ CZCIONKA MONOSPACE ]

Znalazłem instrukcje obsługi makra na stronie
http://makravba.pl/?go=forum&go2=zobacz&id_watek=1659
cyt.
makro to generuje zarówno kombinacje jak i permutacje; kod możesz wkleić to zwykłego modułu;
w komórce A1 wpisujesz "C" albo "P" w zależności od tego czy mają to być kobinacje czy też permutacje;
w A2 wpisujesz np. liczbę 6 w przypadku kiedy chcesz uzyskać kombincje 6-elementowe
od A3 do A51 wpisuejsz w tym przypadku ciąg liczbowy od 1 do 49
U mnie to nie działa. Nie wiem dlaczego, być może jest to spowodowane tym, że używam excela 2016. Kiedyś jednak na na starszych wersjach programu działało bez zarzutu.
Wracając do copre Verificatore nie ma możliwości podglądu tych kombinacji, które kryje unikalnie dana linia. Nie ma tej funkcji także program Wheeling System Checker, który jest następcą Verificatore. WSC posiada jednak kilka innych przydatnich funkcji. Można np podejrzeć ile razy dany blok jest pokryty w rozpisie i które linie rozpisu go pokrywają. Warto zapoznać się z tym programem, choć szczerze mówiąc nie wiem czy wersja FREE ma odblokowaną tą opcję ( ja mam wersję 3.8.2)

--- wpis edytowano 2019-07-29 12:42 ---

2019-07-29 (13:57)

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

14865
wpis nr 1 241 725
[ CZCIONKA MONOSPACE ]

"U mnie to nie działa. Nie wiem dlaczego, być może jest to spowodowane tym, że używam excela 2016. "

Nieśmiało zapytam czy używasz tej procedury w Sheet1 czy Arkusz1 ?

--- wpis edytowano 2019-07-29 14:10 ---

2019-07-29 (14:54)

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

2047
wpis nr 1 241 736
[ CZCIONKA MONOSPACE ]

Oczywiście w Arkusz1, makro pobrałem ze strony makravba.pl a nie z ozgrid. com, a tam w procedurze jest Arkusz1. Makro zawsze wywala się na linii If n > Cells.Count Then z komentarzem Cells.Count = overflow dla dowolnych parametrów w arkuszu. W sumie taki generator kombinacji nie jest mi do niczego potrzebny, więc to nie problem.

--- wpis edytowano 2019-07-29 14:54 ---

2019-07-29 (15:21)

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

14865
wpis nr 1 241 739
[ CZCIONKA MONOSPACE ]

Możesz przesłać mi to makro, bo w makravba.pl trudno znaleźć.
2019-07-29 (15:28)

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

2047
wpis nr 1 241 741
[ CZCIONKA MONOSPACE ]

fair_play, przecież link podałem wyżej
http://makravba.pl/?go=forum&go2=zobacz&id_watek=1659
post
napisał: markos97
postów: 114


umieszczony:
20 października 2008
11:30
ostatnie makro w znaczniku 'code' zaczynające się od
Option Explicit

Dim vAllItems As Variant
Dim Buffer() As String
Dim BufferPtr As Long
Dim Results As Worksheet
'
' Myrna Larson, July 25, 2000, Microsoft.Public.Excel.Misc

to jest to samo makro co na ozgrid tylko z zamienionym Sheet1 na Arkusz1
2019-07-29 (16:11)

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

14865
wpis nr 1 241 745
[ CZCIONKA MONOSPACE ]

Jeśli zaremujesz tę linię to zadziała
2019-07-29 (16:24)

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

2047
wpis nr 1 241 746
[ CZCIONKA MONOSPACE ]

Faktycznie działa Jak widać najprostsze rozwiązania są najlepsze To może jeszcze podpowiesz co zmienić w makrze aby wygenerowane liczby pojawiały się w oddzielnych komórkach ?
2019-07-29 (17:44)

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

14865
wpis nr 1 241 758
[ CZCIONKA MONOSPACE ]

Z treści komunikatu błędu przypisanego zaremowanej linii wynika, że powinna ona sprawdzać czy w arkuszu jest wystarczająca ilość wierszy do "wydrukowania" wszystkich kombinacji.

Z próby wynika, że nie można zadać stworzenie kombinacji 6 z 49 bo zawiera ona 13 983 816 pozycji, podczas gdy w arkuszu Excel2007 maksymalna ilość wierszy to "tylko" 1 048 576 (2^20).

Aby ta linia spełniała zamierzone przez autora zadanie powinna wyglądać tak:

If n > Rows.Count Then GoTo DataError

Co do Twojego pytania o osobne komórki przyjrzę się temu, bo też tego potrzebuję

--- wpis edytowano 2019-07-29 17:49 ---

2019-07-30 (00:32)

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

1386
wpis nr 1 241 819
[ CZCIONKA MONOSPACE ]

Niestety .....
......cirka do 10 września ,nie mam możliwości nic pomóc,
po prostu do komputera siadam tylko na chwilę po 23-ej albo później
zależy kiedy wrócę......,
4~5 minut
i ...... idę spać .
pozdrawiam
2019-07-30 (10:52)

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

2623
wpis nr 1 241 853
[ CZCIONKA MONOSPACE ]

Po najlepszym wyniku uzyskanym przez TarulliG'a
25,7,4,7=40 szansa >> 99,4636988

zrobiłem test dla 25,7,4,7=30 i mam 97,40670%

6 7 8 9 18 21 22
6 7 11 14 15 19 24
2 6 10 16 18 19 20
2 3 12 19 22 24 25
3 5 6 10 13 14 24
1 2 5 6 8 11 17
1 3 7 8 14 16 24
4 5 6 12 15 16 23
2 3 7 13 15 17 20
1 9 10 11 12 13 19
11 13 15 16 18 21 25
1 3 4 7 19 21 23
2 4 8 13 18 23 24
3 4 6 9 17 21 25
5 7 9 12 13 14 20
4 8 11 12 14 20 22
3 4 7 10 11 18 22
1 2 4 9 14 15 25
2 5 9 16 21 22 24
1 6 13 20 22 23 25
5 8 10 15 19 20 21
9 10 15 17 22 23 24
1 3 5 12 15 18 22
7 8 10 12 16 17 25
3 8 9 11 16 20 23
5 14 17 18 19 23 25
4 13 14 16 17 19 22
2 10 11 12 14 21 23
4 5 7 11 20 24 25
1 12 17 18 20 21 24
..........
a tu z copre z Verificatora

04 08 11 12 14 20 22 copre 2 488
04 05 07 11 20 24 25 copre 2 842
05 07 09 12 13 14 20 copre 2 929
03 04 07 10 11 18 22 copre 2 941
01 03 07 08 14 16 24 copre 3 162
01 03 05 12 15 18 22 copre 3 210
03 05 06 10 13 14 24 copre 3 624
06 07 11 14 15 19 24 copre 3 735
02 05 09 16 21 22 24 copre 3 742
01 03 04 07 19 21 23 copre 3 874
02 03 12 19 22 24 25 copre 3 917
03 04 06 09 17 21 25 copre 4 068
04 13 14 16 17 19 22 copre 4 112
02 10 11 12 14 21 23 copre 4 156
06 07 08 09 18 21 22 copre 4 242
04 05 06 12 15 16 23 copre 4 254
03 08 09 11 16 20 23 copre 4 276
02 03 07 13 15 17 20 copre 4 327
01 12 17 18 20 21 24 copre 4 369
01 09 10 11 12 13 19 copre 4 544
05 14 17 18 19 23 25 copre 4 615
09 10 15 17 22 23 24 copre 4 652
07 08 10 12 16 17 25 copre 4 689
05 08 10 15 19 20 21 copre 4 740
01 02 04 09 14 15 25 copre 4 834
02 06 10 16 18 19 20 copre 4 951
01 02 05 06 08 11 17 copre 4 953
01 06 13 20 22 23 25 copre 5 004
02 04 08 13 18 23 24 copre 5 016
11 13 15 16 18 21 25 copre 5 287
..........................................

2019-07-31 (11:27)

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

2623
wpis nr 1 241 974
[ CZCIONKA MONOSPACE ]

25,07,04,07 = 30 >> szansa 97,6005%

01 02 04 08 13 18 25
01 02 05 06 19 20 24
01 03 04 07 14 17 20
01 03 08 15 19 21 24
01 05 07 10 13 15 23
01 06 11 16 18 20 22
01 09 12 14 21 22 23
01 10 11 12 16 17 25
02 03 06 07 15 22 25
02 03 10 14 16 17 19
02 03 10 14 18 20 21
02 04 09 11 12 15 19
02 05 11 13 17 21 22
02 07 09 16 18 23 24
02 08 12 17 20 23 25
03 04 05 06 09 10 12
03 05 08 09 11 17 18
03 11 12 13 20 23 24
03 13 16 19 22 23 25
04 05 08 14 16 22 24
04 06 17 18 19 21 23
04 07 10 11 21 24 25
04 13 14 15 16 18 20
05 07 12 14 18 19 25
05 09 15 16 20 21 25
06 07 08 12 13 16 21
06 08 10 11 14 15 23
06 09 13 14 17 24 25
07 08 09 10 19 20 22
10 12 15 17 18 22 24

autor: Evandro De Simone
2019-07-31 (12:31)

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

2623
wpis nr 1 241 980
[ CZCIONKA MONOSPACE ]

Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers;
warranty: 2 if 3 x 1from3 (system on 3 numbers in line)

Zone #1numbers: 01,02,03 ... Min= 0 | Max= 1
Zone #2numbers: 04,05,06 ... Min= 0 | Max= 1
Zone #3numbers: 07,08,09 ... Min= 0 | Max= 1
Zone #4numbers: 10,11,12 ... Min= 0 | Max= 1
Zone #5numbers: 13,14,15 ... Min= 0 | Max= 1

System on 14 lines:

1 4 11
1 5 14
1 6 9
2 4 9
2 5 11
2 6 14
3 4 14
3 5 9
3 6 11
7 10 15
7 12 13
8 10 13
8 12 15
9 11 14

author: Alessandro Jurcovich
................
....................

777ch,
na 35. stronie tego wątku jest Twego autorstwa
system o tych parametrach, ale na 16 zakładów:
https://forum.multipasko.pl/n_viewtopic.php?id=4811&page=35&sort=&dir=

--- wpis edytowano 2019-07-31 12:37 ---

2019-07-31 (12:39)

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

2623
wpis nr 1 241 981
[ CZCIONKA MONOSPACE ]

Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers;
warranty: 2 if 2x 1from3 (system on 3 numbers in line)

Zone #1numbers: 01,02,03 ... Min= 0 | Max= 1
Zone #2numbers: 04,05,06 ... Min= 0 | Max= 1
Zone #3numbers: 07,08,09 ... Min= 0 | Max= 1
Zone #4numbers: 10,11,12 ... Min= 0 | Max= 1
Zone #5numbers: 13,14,15 ... Min= 0 | Max= 1

System on 30 lines:
(Questo sistema è perfetto)

1 4 7
1 5 8
1 6 10
1 9 14
1 11 15
1 12 13
2 4 12
2 5 7
2 6 14
2 8 11
2 9 13
2 10 15
3 4 14
3 5 13
3 6 11
3 7 15
3 8 10
3 9 12
4 8 15
4 9 10
4 11 13
5 9 11
5 10 14
5 12 15
6 7 12
6 8 13
6 9 15
7 10 13
7 11 14
8 12 14

author: Alessandro Jurcovich
2019-07-31 (20:11)

status pir2
Data rejestracji: 2018-06-11
Ilość postów: 63

15725
wpis nr 1 242 033
[ CZCIONKA MONOSPACE ]

System idealny o takich parametrach jak wyżej umieściłem we
wpisie nr 1 216 365 strona 257 tego wątku.
2019-07-31 (21:14)

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

2623
wpis nr 1 242 041
[ CZCIONKA MONOSPACE ]

pir2,
zanim Alessandro Jurcovich zamieścił dziś swój
wpis z tym systemem, konsultował ze mną to,
czy takiego systemu już nie mamy - na co ja mu
odpisałem (po sprawdzeniu zawartości wątku
"Systemy strefowe by 777ch") że nie, gdyż nie
ma w nim tego Twojego rozpisu z lutego'19 i
został widocznie przeoczony przez moderatora
w/w wątku i dlatego nie został przeniesiony do
jego wątku z systemami strefowymi.

Powiem więcej: następnie za pomocą lokalnej
wyszukiwarki dodatkowo jeszcze przeszukałem
zawartość forum multipasko i też nie znalazłem
tego systemu, ale to już możesz jedynie sobie
zawdzięczać, bowiem nie zachowałeś staranności
w opisie tego systemu i nie podałeś jego metryczki
w sposób w jaki to się robi, czyli w określonym
porządku, zarówno przy pisaniu w j. polskim czy
też angielskim.

Ale Twoje pierwszeństwo w publikacji
tego systemu łatwo dowieść, gdyż ja
zaraz po przeczytaniu go na multipasko,
zamieściłem ten rozpis na włoskim forum
w dniu 20/02/2019 w dziale o systemach
strefowych, oczywiście z podaniem tam
Ciebie jako autora:
https://wheels.forumcommunity.net/?t=60786523&st=90#entry437503877
2019-07-31 (22:05)

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

2623
wpis nr 1 242 052
[ CZCIONKA MONOSPACE ]

777ch,
usuń proszę mój wpis nr 1 241 983
a ten poniższy z podaniem pir2 jako autora,
dodaj w wolnym czasie do "Systemów strefowych"
..........
Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers,
warranty 2 if 2x 1from3 (system on 4 numbers in line)

Zone #1numbers: 01,02,03,... Min= 0 | Max= 1
Zone #2numbers: 04,05,06,... Min= 0 | Max= 1
Zone #3numbers: 07,08,09,... Min= 0 | Max= 1
Zone #4numbers: 10,11,12,... Min= 0 | Max= 1
Zone #5numbers: 13,14,15,... Min= 0 | Max= 1

System on 15 lines:

4 7 10 13
5 8 11 14
6 9 12 15
1 7 11 15
2 8 12 13
3 9 10 14
1 4 12 14
2 5 10 15
3 6 11 13
1 5 9 13
1 6 8 10
2 4 9 11
2 6 7 14
3 4 8 15
3 5 7 12

author: pir2
2019-07-31 (23:09)

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

2623
wpis nr 1 242 066
[ CZCIONKA MONOSPACE ]

pir2,
sprawa autorstwa tego systemu została już
przeze mnie wyjaśniona na włoskim forum,
czego dowodem jest ten wpis Alessandro Jurcovicha:
https://wheels.forumcommunity.net/?t=60786523&st=135#newpost
2019-08-01 (02:53)

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

14865
wpis nr 1 242 076
[ CZCIONKA MONOSPACE ]

kleszek>

Spróbuj tego:

Option Base 1
Sub Kombinacje_v_po_k()
Dim v As Integer
Dim k As Integer
Dim n As Double
Dim błąd As String

k = Cells(1, 1)
v = Application.WorksheetFunction.CountA(Range("a1:a65536")) - 1

If v Rows.Count Then GoTo błąd_danych

Kombinuj v, k

Exit Sub

błąd_danych:
If n = 0 Then
błąd = "Procedura tworzy kombinacje v po k." _
& String$(2, 10) _
& "Komórka A1 powinna zawierać wartość k." _
& String$(1, 10) _
& "Komórki poniżej v liczb, z których tworzone są kombinacje."
Else
błąd = "Kombinacje wymagają " & Format$(n, "#,##0") & _
" wierszy, więcej niż dostępne w arkuszu!"
End If
MsgBox błąd, vbOKOnly, "BŁĄD DANYCH"
Exit Sub

End Sub

Sub Kombinuj(Optional v As Integer = 0, Optional k As Integer = 0, Optional n_w As Integer = 0, Optional n_p As Integer = 0)

Static iv As Integer
Static ik As Integer
Static kombinacja() As Integer
Static y As Double
Dim i, x As Integer

If v 0 Then
iv = v
ik = k
ReDim kombinacja(ik) As Integer
n_w = 1
n_p = 1
y = 0
End If
For i = n_p To iv
kombinacja(n_w) = Cells(i + 1, 1)
If n_w ik Then
Kombinuj , , n_w + 1, i + 1
Else
y = y + 1
Range(Cells(y, 3), Cells(y, 2 + ik)) = kombinacja
End If
Next i

End Sub
2019-08-01 (14:48)

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

2047
wpis nr 1 242 144
[ CZCIONKA MONOSPACE ]

fair_play, jest tak jak pisał 777ch. Edytor forum obcina makra. Błąd jest w linii
If v 0 Then
i w linii If n_w ik Then

W pierwszym przypadku powinno chyba być
If v = 0 Then
a w drugim nie wiem ale co bym tam nie wstawił makro wywala się na linii
kombinacja(n_w) = Cells(i + 1, 1) z komentarzem 'Subscript out of range'

Pewnie coś jeszcze z makra zostało obcięte przez edytor.

--- wpis edytowano 2019-08-01 14:49 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 280 281 282 ... 560 561
Wyślij wiadomość do admina