Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 341 342 343 ... 560 561
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-08 (22:05)

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

1386
wpis nr 1 291 423
[ CZCIONKA MONOSPACE ]

Ja zadałem
4z 5 z lini własne
innymi słowy 4 liczby pierwsze ostatnia pomijam
zaznaczyłem 6 w losowych
czyli dwie losowe do czterech z brakujących
i jazda

no i -3 do teraz
'
2020-05-08 (22:14)

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

14865
wpis nr 1 291 425
[ CZCIONKA MONOSPACE ]


Tzn że coś zmieniłeś w porównaniu z tym co mi polecałeś zrobić na starcie ?
2020-05-08 (22:16)

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

1386
wpis nr 1 291 426
[ CZCIONKA MONOSPACE ]

pisałem że próbuje to i owo
bo nie wiem .....co da efekt --> 0

idę na Tv ........ sorry
na dziś --> mam dość coverów
2020-05-08 (22:17)

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

14865
wpis nr 1 291 428
[ CZCIONKA MONOSPACE ]


ok, też mam dość na dziś
2020-05-08 (22:17)

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

1386
wpis nr 1 291 429
[ CZCIONKA MONOSPACE ]

koniec......jest lekko problematyczny
o czym widzą kleszek i ...... inni
2020-05-08 (23:28)

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

1386
wpis nr 1 291 446
[ CZCIONKA MONOSPACE ]

Czyli 40 mln adresów
w min ... obciążeniu 👍

--- wpis edytowano 2020-05-08 23:29 ---

2020-05-09 (09:15)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 505
[ CZCIONKA MONOSPACE ]

@fair_play

Korzystajac z chwilowej przerwy w Twojej dyskusji z 777ch mam do Ciebie pytanie. W watku "Systemy strefowe by 777ch" kolega @edi8 zamiescil cztery systemy Twojego autorstwa n-0 z warunkiem, aby liczby w rzedach i kolumnach wystepowaly na roznych pozycjach / wpis nr 1017062 /. Czy "System #4 na 36 liczb w 6 strefach po 6 i z gwarancją n-0 na 720 zakładów" ukladales "recznie", czy tez korzystales z aplikacji ? Czy jestes w posiadaniu systemu na
powyzszych warunkach na szesc stref po osiem liczb ? Z wyliczen wychodzi, ze jest to dosc duzy system.
Pozdrawiam
2020-05-09 (13:57)

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

1386
wpis nr 1 291 547
[ CZCIONKA MONOSPACE ]

fair_play

jeśli w tablicy bazowych masz piątki brakujące
a ustawisz
compare 4
własne 4
losowe 6

to algorytm spod przycisku [4/4]tic
szuka linii w których 4 pierwsze liczby są w linii coveru
i pętla leci tylko po tych liniach
inne pomija

ale
jak zmienisz wartość =0 na 1 obok baz nr:

to zobaczysz że cztery liczby są niebieskie ,jedna czerwona stoi
a jedna czerwona się zmienia

te cztery to już wiadomo
cztery pasujące czyli 4|4
a ta co stoi to też własna z tych piątek
ale jej nie bierze algorytm pod uwagę przy
typowaniu linii codo zgodności
a ta co się zmienia to losowa

i teraz jeśli ustawisz
compare 2
własne 2
a losowe 5

to szukamy linni gdzie mamy zgodność 2 pierwszych liczb 2|2
a próbujemy wstawić 5 własnych
w tym wypadku będzie jakby wszystko stało
bo pasuje tę piątkę do linii które są godna -->2|2

ale jak zwiększysz losowe do np do 7
to dwie losowe będą się zmieniać
2 niebieskie+3 czerwone będą stały........

tyle
jeśli nie schodzimy niżej
to trzeba
usunąć jedna czasem więcej linii
lub
zdublować jedną lub kilka linii
...... ale o tym przy jakiejś okazji
dziś ....może przed wieczorem
....... ale nie wiem kiedy
po 19-tej na pewno mnie nie będzie
jutro przed południem.....przy kawie ok 10~~11
spróbuję przełożyć tę brakująca funkcję
i przetestować jej działanie,stosując ją ..
tylko do wypisu na żądanie.











--- wpis edytowano 2020-05-09 13:59 ---

2020-05-09 (14:44)

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

14865
wpis nr 1 291 563
[ CZCIONKA MONOSPACE ]

siger7>

Ręczna excelowska przesuwanka
Niestety tego o co pytasz nie mam. Może spróbuję i to poprzesuwać... w wolnej chwili
Tylko nie wiem czy jest sens bo chyba zamknie to się w ponad 20 000 zakładach.

Pozdrawiam

--- wpis edytowano 2020-05-09 14:57 ---

2020-05-09 (14:46)

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

14865
wpis nr 1 291 564
[ CZCIONKA MONOSPACE ]

777ch>

Muszę to przeanalizować
Ale jedna rzecz mnie ciekawi. Czy te losowe losujesz ze wszystkich 99 ? Bo migają wszystkie, a nieraz jak nacisnę Stop to wyświetla mi się na zielono liczba losowa spoza zakresu liczb.

Pozdrawiam
2020-05-09 (15:31)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 573
[ CZCIONKA MONOSPACE ]


@fair_play

Chetnie bym sam "poprzesuwal to i owo", gdybys podpowiedzial 'jak' ?
2020-05-09 (16:42)

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

14865
wpis nr 1 291 586
[ CZCIONKA MONOSPACE ]

siger 7>

Umieść w arkuszu Excela w komórkach A1:F6 następująct układ :

1 2 3 4 5 6
7 8 9 10 11 12
13 14 15 16 17 18
19 20 21 22 23 24
25 26 27 28 29 30
31 32 33 34 35 36

i uruchom takie makro:

Sub przesuwanka6()
x = 0
margines = 10
For n1 = 1 To 6
For n2 = 1 To 6
If n2 <> n1 Then
For n3 = 1 To 6
If n3 <> n1 And n3 <> n2 Then
For n4 = 1 To 6
If n4 <> n1 And n4 <> n2 And n4 <> n3 Then
For n5 = 1 To 6
If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then
For n6 = 1 To 6
If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then
x = x + 1
Cells(x, margines + 1) = Cells(1, n1)
Cells(x, margines + 2) = Cells(2, n2)
Cells(x, margines + 3) = Cells(3, n3)
Cells(x, margines + 4) = Cells(4, n4)
Cells(x, margines + 5) = Cells(5, n5)
Cells(x, margines + 6) = Cells(6, n6)
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub

Później w komórkach A1:H6 taki układ:

1 2 3 4 5 6 7 8
9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24
25 26 27 28 29 30 31 32
33 34 35 36 37 38 39 40
41 42 43 44 45 46 47 48

i uruchom takie makro:

Sub przesuwanka8()
x = 0
margines = 10
For n1 = 1 To 8
For n2 = 1 To 8
If n2 <> n1 Then
For n3 = 1 To 8
If n3 <> n1 And n3 <> n2 Then
For n4 = 1 To 8
If n4 <> n1 And n4 <> n2 And n4 <> n3 Then
For n5 = 1 To 8
If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then
For n6 = 1 To 8
If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then
x = x + 1
Cells(x, margines + 1) = Cells(1, n1)
Cells(x, margines + 2) = Cells(2, n2)
Cells(x, margines + 3) = Cells(3, n3)
Cells(x, margines + 4) = Cells(4, n4)
Cells(x, margines + 5) = Cells(5, n5)
Cells(x, margines + 6) = Cells(6, n6)
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub

a na deser w komórkach A1:G7 taki układ:

1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 32 33 34 35
36 37 38 39 40 41 42
43 44 45 46 47 48 49

i takie makro:

Sub przesuwanka7()
x = 0
margines = 10
For n1 = 1 To 7
For n2 = 1 To 7
If n2 <> n1 Then
For n3 = 1 To 7
If n3 <> n1 And n3 <> n2 Then
For n4 = 1 To 7
If n4 <> n1 And n4 <> n2 And n4 <> n3 Then
For n5 = 1 To 7
If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then
For n6 = 1 To 7
If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then
For n7 = 1 To 7
If n7 <> n1 And n7 <> n2 And n7 <> n3 And n7 <> n4 And n7 <> n5 And n7 <> n6 Then
x = x + 1
Cells(x, margines + 1) = Cells(1, n1)
Cells(x, margines + 2) = Cells(2, n2)
Cells(x, margines + 3) = Cells(3, n3)
Cells(x, margines + 4) = Cells(4, n4)
Cells(x, margines + 5) = Cells(5, n5)
Cells(x, margines + 6) = Cells(6, n6)
Cells(x, margines + 7) = Cells(7, n7)
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub

Miłej zabawy
2020-05-09 (16:44)

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

1386
wpis nr 1 291 588
[ CZCIONKA MONOSPACE ]

fair_play
Ale jedna rzecz mnie ciekawi. Czy te losowe losujesz ze wszystkich 99 ? Bo migają wszystkie, a nieraz jak nacisnę Stop to wyświetla mi się na zielono liczba losowa spoza zakresu liczb.

-------------------------------------------------------
fair_play
To że widzisz liczby ,to zasługa Stringgrida
ale ponieważ stosuję różne techniki,często połączone
to żeby zobaczyć poprawność
zrobiłem wczytywanie danych do grida
ale niestety muszę go podczyszczać
a podczyszczam cały ,ale ja tego nie włączam wcale
jak coveruję...... tylko jak coś dostawiam
czyli nowa procedurę ,to poglądam jak się wykonuje
bo to procedury wewnętrzne grida

select cell
i draw cell

ale możesz spokojnie repaint na checkbox-ie odznaczyć
wtedy nie będziesz nic widział...... a program robi swoje

-->to tylko niepotrzebny podgląd ,
bo liczby losują się w procedurach
ale zawsze mona w trakcie działania
zaznaczyć i zobaczyć co się dzieje


grid ma również inne zastosowania
ale to dla randomizera oraz ont

--- wpis edytowano 2020-05-09 16:47 ---

2020-05-09 (19:28)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 609
[ CZCIONKA MONOSPACE ]

@fair_play

Wszystko odpalilo blyskawicznie i bezproblemowo, "bawie" sie dalej, dzieki, pozdrawiam
2020-05-09 (21:10)

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

2047
wpis nr 1 291 631
[ CZCIONKA MONOSPACE ]

C(35,10,5,5) = 2562 zgłoszone. Walczymy dalej
2020-05-09 (21:36)

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

2047
wpis nr 1 291 645
[ CZCIONKA MONOSPACE ]


C(35,10,5,5) = 2561 zgłoszone
2020-05-10 (01:24)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 684
[ CZCIONKA MONOSPACE ]

@fair_play

Przetestowalem system na 48 liczb w 6 strefach po 8 liczb n-0 z warunkiem, aby liczby w rzedach i kolumnach wystepowaly na roznych pozycjach, na niemieckim lotto / pominalem liczbe "20"/. Przetestowalem 5139 losowan, czyli od poczatku istnienia ichniego lotto. 12 razy wystapilo 6 trafien. Ale co najdziwniejsze, tylko raz zostal spelniony warunek wystepowania liczb na roznych pozycjach w rzedach i kolumnach !!! 11 szostek "olalo" warunek !
To daje do myslenia. Tu mozesz zobaczyc trafienia : https://megawrzuta.pl/download/cca0f6f022e3783ce30d507bc6d7a0ae.html
Pozdrawiam
2020-05-10 (02:47)

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

1386
wpis nr 1 291 686
[ CZCIONKA MONOSPACE ]

fair_play

Dziś będę odsypiał
więc dopiero jutro ..
--> to co planowałem na dziś.
Miłego dnia.
2020-05-10 (11:32)

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

14865
wpis nr 1 291 723
[ CZCIONKA MONOSPACE ]

siger7>

Albo źle wpisałeś te ósemki w komórki A1:H6, albo coś pozmieniałeś w procedurze przesuwanka8().
Bo w całym tym 20160 zakładowym rozpisie nie ma ani jednego zakładu, na którym występują jednocześnie 10 i 26, 24 i 48, 19 i 27, 16 i 48, 2 i 42, 17 i 33, 5 i 37, 9 i 25, 6 i 38, 3 i 27, 14 i 30, 18 i 34, 18 i 26, 13 i 37, 9 i 25 czy 3 i 43. z tych "szóstek" które przedstawiłeś.

Sprawdź czy dobrze skopiowałeś procedurę i układ wyjściowy.

Jak wykonałeś tę procedurę to w kolumnach "K:P" masz te 20 160 zakładów. Podaj w której linii masz trafioną pierwszą z przedstawionych szóstek: 3,10,24,26,28,48.

Pozdrawiam

--- wpis edytowano 2020-05-10 11:45 ---

2020-05-10 (13:16)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 754
[ CZCIONKA MONOSPACE ]

@fair_play
Wszystko jest w porzadku.Jak napisalem wyzej, testowalem niemieckie lotto. Schemat jest 6stref x 8liczb =48. Ja pod schemat podstawilem wlasne liczby, tzn wykluczylem liczbe '20', Ty pewnie '49'. Stad niescislosci. Tu jest wszystko, co powinno wyjasnic sprawe https://wrzucplik.pl/pokaz/2032745---ihso.html
Daj znac jak pobierzesz
Pozdrawiam
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 341 342 343 ... 560 561
Wyślij wiadomość do admina