Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 3 4 5 6 ... 11 12
Wyślij wiadomość do admina

Przewiń wpisy ↓

Temat leo777ch

2012-12-30 (14:23)

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

1386
wpis nr 588 028
[ CZCIONKA MONOSPACE ]

2012-12-30 (14:35)

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

1386
wpis nr 588 039
[ CZCIONKA MONOSPACE ]

nieźle łapały te zestawy trafienia



----- Zestawienie trafień 98 kombinacji z pliku Dziesiątki.txt -----

Trafienia w zakr. los. 7012 ~ 1 [7012 ] los. 2012-12-30 ~ 1996-03-18 [ Spr.wstecz = 0 ]



Trafień 0|10 = 31039

Trafień 1|10 = 121528

Trafień 2|10 = 201317

Trafień 3|10 = 182445

Trafień 4|10 = 101477

Trafień 5|10 = 38979

Trafień 6|10 = 8881

Trafień 7|10 = 1356

Trafień 8|10 = 146

Trafień 9|10 = 8

Trafień 10|10 = 0

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

dziś nie było tragicznie

----- Zestawienie trafień 98 kombinacji z pliku Dziesiątki.txt -----

Analiza traf.w zakresie losowań 7012 ~ 7012 [1 ] los. los. z dnia 2012-12-30



Trafień 0|10 = 5

Trafień 1|10= 13

Trafień 2|10 = 26

Trafień 3|10= 24

Trafień 4|10 = 19

Trafień 5|10 = 8

Trafień 6|10 = 2

Trafień 7|10 = 1

Trafień 8|10 = 0

Trafień 9|10 = 0

Trafień 10|10 = 0

2012-12-30 (23:16)

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

1386
wpis nr 588 257
[ CZCIONKA MONOSPACE ]

no cóż ,wysłałem najdłuzej oczekiwaną,

bez efektu ..na razie



za to w całej grupie piękny wynik



----- Zestawienie trafień 98 kombinacji z pliku Dziesiątki.txt -----

Analiza traf.w zakresie losowań 7013 ~ 7013 [1 ] los. los. z dnia 2012-12-30



Trafień 0|10 = 1

Trafień 1|10= 7

Trafień 2|10 = 11

Trafień 3|10= 27

Trafień 4|10 = 24

Trafień 5|10 = 17

Trafień 6|10 = 9

Trafień 7|10 = 2

Trafień 8|10 = 0

Trafień 9|10 = 0

Trafień 10|10 = 0

2013-01-01 (12:05)

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

1386
wpis nr 588 619
[ CZCIONKA MONOSPACE ]

układ zaliczony 5/10

43+





2013-01-01 (18:18)

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

2047
wpis nr 588 780
[ CZCIONKA MONOSPACE ]

777ch, fajne jest to Twoje makro liczące kolejne ONT zestawu. Obserwując screen z Twojego postu z dnia 29-12 -2012 15:35 wpadłem na pewien pomysł analizy zestawów. Chodzi mi o podawanie przez makro tylko kolejnych MAX ONT zestawu. Mój pomysł polega na obserwacji o ile zwiększa się kolejny MAX ONT zestawu w kolejnych losowaniach. Pozwoliło by to ustalić ile maksymalnie trzeba czekać na wypadnięcie zestawu po osiągnięciu kolejnego MAX ONT. Dla większego zrozumienia o co mi chodzi, posłużę się Twoim screenem. Pierwszy MAX ONT był 6, kolejny 18, następne 25 -> 40 -> 47-> 48. Widać więc, że najwięcej trzeba było czekać 15 losowań na wypadnięcie po osiągnięciu MAX ONT =25. Czyli teoretycznie następny MAX ONT nie powienien być większy niż 63 (48 +15).Ten pomysł chciałbym wykorzystać do analizy zestawów 3-liczbowych. Sprawdzałem, praktycznie w kazdym losowaniu MM znajdują się zestawy trójek, które właśnie przekraczają swój MAX ONT. Sądzę,że podobnie jest w grze 49`s. Taka analiza zestawu ułatwi podjąć decyzję w którym momencie wejść do gry. A wypłata za trafienie "3" w 49`s jest zachęcaja. Czy masz może makro ( i czy mógłbyś je udostępnić) które podaje kolejne MAX ONT zestawów? Sądzę,że z Twoją wiedzą stworzenie takiej procedury nie sprawiło by Ci większych problemów. Dziękuję za życzenia noworoczne. Tobie również życzę udanego 2013 roku. Pozdrawiam!
2013-01-01 (19:21)

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

1386
wpis nr 588 794
[ CZCIONKA MONOSPACE ]

kleszek> jestem po paru .głębszych......

co nie oznacza że nie myślę,ale skupienie uwagi jest deczko mniejsze



mogę napisać to i owo nie ma problemu ,ale dziś zostanę przy drinku



co do algorytmu to się zastanów dokładnie i napisz czy algorytm miał by wypisać TRÓJKI O PARAMETRACH X,Y,Z czy chcesz wstawić własne trójki

a algorytm ma obliczyć np x ,y z

i co ma być tym .......x-em,y-iem,z-em
2013-01-01 (19:29)

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

1386
wpis nr 588 796
[ CZCIONKA MONOSPACE ]

kleszek> aha chodzi o trójki pr\zekraczające max dla 49s



primo to baza losowań ,coś te dane są w sieci .pomieszane odrobine

due to oczywiscie trójki z historycznym maxem to nie problem,z tym że muszę

zerknąć na symulator ,bo taki dla 49s juz zrobiłem ,dochodzenie do 3/3 jest

dla grupy układów trójek oczywiste,ale .........niektóre wpadają w .....długi komin
2013-01-01 (19:40)

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

1386
wpis nr 588 803
[ CZCIONKA MONOSPACE ]

uruchomiłem symulator dla 3/3 dla 49s



niestety wartość jaka ustawiłem tj 6500 nie dała rezultatu ,nie wiem czy to był max dla tych trójek,ale wynik przy cofnieciu 100 losowań wstecz nie dał trafienia 3/3 w zadnej



Na starcie bylo : 26 kombinacji bez trafienia 3/3 >= 6500

Po {100} -losowaniach zostalo : 26 bez trafienia 3/3 >= 6500

Obliczenia 3/3 Lotto 7 z 49 od los. nr.= 8969

Kombinacji do obliczenia[3z49] = 82160



###### kolejne sprawdzenie oczekiwania na 3/3 ######

Nr.1 --- 2,11,47, --- ont = 6758

Nr.2 --- 2,16,18, --- ont = 6920

Nr.3 --- 3,17,32, --- ont = 7080

Nr.4 --- 4,14,48, --- ont = 7565

Nr.5 --- 4,30,42, --- ont = 6732

Nr.6 --- 4,32,36, --- ont = 6833

Nr.7 --- 4,33,45, --- ont = 7623

Nr.8 --- 6,15,41, --- ont = 8206

Nr.9 --- 6,20,29, --- ont = 6510

Nr.10 --- 6,35,46, --- ont = 7046

Nr.11 --- 8,10,28, --- ont = 7635

Nr.12 --- 8,10,47, --- ont = 7155

Nr.13 --- 8,16,17, --- ont = 8183

Nr.14 --- 8,16,38, --- ont = 6851

Nr.15 --- 8,24,39, --- ont = 6625

Nr.16 --- 11,30,46, --- ont = 7178

Nr.17 --- 13,18,35, --- ont = 6595

Nr.18 --- 14,19,48, --- ont = 7130

Nr.19 --- 18,22,29, --- ont = 6858

Nr.20 --- 18,36,42, --- ont = 7361

Nr.21 --- 18,37,46, --- ont = 7284

Nr.22 --- 20,22,43, --- ont = 7341

Nr.23 --- 24,32,41, --- ont = 6726

Nr.24 --- 24,32,43, --- ont = 7252

Nr.25 --- 29,36,46, --- ont = 8545

Nr.26 --- 32,44,47, --- ont = 6753



Wykonanie obliczeń 82160 kombinacji zajęło: 27,0039907306655 ms







________/ Podsumowanie skutecznosci /________



Na starcie bylo : 26 kombinacji bez trafienia 3/3 >= 6500

Po {101} -losowaniach zostalo : 26 bez trafienia 3/3 >= 6500





czyli wszystkie 26 kombinacji czeka na 3/3
2013-01-01 (19:42)

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

1386
wpis nr 588 804
[ CZCIONKA MONOSPACE ]

ustawiłem 7500



Obliczenia 3/3 Lotto 7 z 49 od los. nr.= 8969

Kombinacji do obliczenia[3z49] = 82160



Nr.1 --- 2,16,18, --- ont = 7622

Nr.2 --- 2,38,49, --- ont = 7711

Nr.3 --- 4,14,48, --- ont = 7565

Nr.4 --- 4,33,45, --- ont = 7623

Nr.5 --- 6,15,41, --- ont = 8206

Nr.6 --- 8,10,28, --- ont = 7635

Nr.7 --- 8,16,17, --- ont = 8183

Nr.8 --- 29,36,46, --- ont = 8545



Wykonanie obliczeń 82160 kombinacji zajęło: 12,3845349059727 ms

o ile baza jest prawidłowa to tyle tójek czeka powyzej 7500
2013-01-01 (19:48)

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

1386
wpis nr 588 806
[ CZCIONKA MONOSPACE ]

________/ Podsumowanie skutecznosci /________



Na starcie bylo : 609 kombinacji bez trafienia 3/3 >= 4500

Po {101} -losowaniach zostalo : 593 bez trafienia 3/3 >= 4500



co oznacza że sumulator znalazł 609 sztuk a po 101 losowaniach weszło

609-593 czyli 16 kombinacji ....... czyli ......
2013-01-01 (19:51)

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

1386
wpis nr 588 808
[ CZCIONKA MONOSPACE ]

stworzenie takiej procedury nie sprawi mi większych problemów chcesz aby tylko max dla 3/3 ?
2013-01-01 (19:57)

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

1386
wpis nr 588 810
[ CZCIONKA MONOSPACE ]

kleszek> zestawy wpisujesz w arkuszu 1



kolejno od wiersza 2



może być do 20 liczb



baza w arkuszu 2 od wiersza 1 jak pobrałeś mój



oto max 3-ek dla zestawów od 3 do 20



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



Sub HISTprzerwa3()

'

' GPS Makro

' Makro zarejestrowane 2009-09-05, autor User

'

Dim l1, l2 As Integer

Dim t0, t1, t2 As Integer

Dim s As Integer, z As Long

Dim LICZB_LOSOWANYCH As Integer

Dim LICZB_GRY As Integer

Dim vlos As Long

Dim los As Long

Dim liczba As Integer

Dim tabwyn() As Variant

Dim tabzest() As Variant

Dim TABobliczeń() As Variant

Dim tabgps() As Long

Dim tabtr0() As Variant

Dim stoper As Date, czas As String

Dim dłzest As Byte

Dim maxZEST As Byte, zakr As Integer

Dim tabont() As Variant



Dim zakres As Long

Dim cofnięcie_obliczeń As Integer

Dim Liczba_STARTOWA, Liczba_KOŃCOWA As Byte

Dim SKREŚLEŃ As Byte



Arkusz1.Activate



cofka = Arkusz1.Cells(1, 11).value

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

Range("AF:AF") = ""

SKREŚLEŃ = Application.WorksheetFunction.CountA(Range("A2:T2"))

LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1"))

LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V5000"))



tabwyn = Range(Arkusz2.Cells(1, 3), Arkusz2.Cells(vlos, 100)).value

ZEST = Application.WorksheetFunction.CountA(Arkusz1.Range("A2:A65536"))

dłzest = Application.WorksheetFunction.CountA(Arkusz1.Range("A2:T2"))

tabzest = Range(Arkusz1.Cells(2, 1), Arkusz1.Cells(ZEST + 1, dłzest)).value



zakres = vlos

ostatni = ZEST

If ZEST > 1 Then tabont = Range(Cells(2, 32), Cells(ZEST + 1, 32)).value

If ZEST = 1 Then tabont = Range(Cells(2, 32), Cells(ZEST, 32)).value

Liczba_STARTOWA = 1

Liczba_KOŃCOWA = 80











ReDim tabgps(vlos, LICZB_GRY)









For los = vlos To 1 Step -1

For liczba = 1 To LICZB_GRY







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









For zestaw = 1 To ostatni



If dłzest >= 1 Then l1 = tabzest(zestaw, 1)

If dłzest >= 2 Then l2 = tabzest(zestaw, 2)

If dłzest >= 3 Then l3 = tabzest(zestaw, 3)

If dłzest >= 4 Then l4 = tabzest(zestaw, 4)

If dłzest >= 5 Then l5 = tabzest(zestaw, 5)

If dłzest >= 6 Then l6 = tabzest(zestaw, 6)

If dłzest >= 7 Then l7 = tabzest(zestaw, 7)

If dłzest >= 8 Then l8 = tabzest(zestaw,

If dłzest >= 9 Then l9 = tabzest(zestaw, 9)

If dłzest >= 10 Then l10 = tabzest(zestaw, 10)

If dłzest >= 11 Then l11 = tabzest(zestaw, 11)

If dłzest >= 12 Then l12 = tabzest(zestaw, 12)

If dłzest >= 13 Then l13 = tabzest(zestaw, 13)

If dłzest >= 14 Then l14 = tabzest(zestaw, 14)

If dłzest >= 15 Then l15 = tabzest(zestaw, 15)

If dłzest >= 16 Then l16 = tabzest(zestaw, 16)

If dłzest >= 17 Then l17 = tabzest(zestaw, 17)

If dłzest >= 18 Then l18 = tabzest(zestaw, 18)

If dłzest >= 19 Then l19 = tabzest(zestaw, 19)

If dłzest >= 20 Then l20 = tabzest(zestaw, 20)





trafione = 0

















s = 0

d = 0

hit = 0

hitbest = 0

superhit = 0

trafione = 0

kp = 0

For SPR = vlos To 1 Step -1

s = 0





If dłzest = 20 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) + tabgps(SPR, l14) _

+ tabgps(SPR, l15) + tabgps(SPR, l16) + tabgps(SPR, l17) + tabgps(SPR, l18) + tabgps(SPR, l19) + tabgps(SPR, l20)





If dłzest = 19 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) _

+ tabgps(SPR, l14) + tabgps(SPR, l15) + tabgps(SPR, l16) + tabgps(SPR, l17) + tabgps(SPR, l18) + tabgps(SPR, l19)







If dłzest = 18 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) _

+ tabgps(SPR, l14) + tabgps(SPR, l15) + tabgps(SPR, l16) + tabgps(SPR, l17) + tabgps(SPR, l18)





If dłzest = 17 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) _

+ tabgps(SPR, l14) + tabgps(SPR, l15) + tabgps(SPR, l16) + tabgps(SPR, l17)



If dłzest = 16 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) _

+ tabgps(SPR, l14) + tabgps(SPR, l15) + tabgps(SPR, l16)



If dłzest = 15 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) _

+ tabgps(SPR, l14) + tabgps(SPR, l15)



If dłzest = 14 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13) + tabgps(SPR, l14)



If dłzest = 13 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12) + tabgps(SPR, l13)



If dłzest = 12 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11) + tabgps(SPR, l12)





If dłzest = 11 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10) + tabgps(SPR, l11)



If dłzest = 10 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) _

+ tabgps(SPR, l9) + tabgps(SPR, l10)



If dłzest = 9 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8) + tabgps(SPR, l9)



If dłzest = 8 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7) + tabgps(SPR, l8)



If dłzest = 7 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6) + tabgps(SPR, l7)



If dłzest = 6 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5) + tabgps(SPR, l6)



If dłzest = 5 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4) _

+ tabgps(SPR, l5)



If dłzest = 4 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3) + tabgps(SPR, l4)



If dłzest = 3 Then s = tabgps(SPR, l1) + tabgps(SPR, l2) + tabgps(SPR, l3)

If dłzest = 2 Then s = tabgps(SPR, l1) + tabgps(SPR, l2)

If dłzest = 1 Then s = tabgps(SPR, l1)

If s > 0 Then trafione = trafione + 1



If s > 2 Then hit = d

If s > 2 And d >= 11 Then kp = kp + 1

If hitbest < hit And d > 0 Then hitbest = hit

If superhit < hitbest Then superhit = hitbest

If s > 2 Then d = 0

d = d + 1

Next SPR



If superhit > 0 Then tabont(zestaw, 1) = superhit - 1 Else: tabont(zestaw, 1) = vlos



2



d = 0

hit = 0

hitbest = 0

superhit = 0

'Cells(zestaw + 1, 41) = trafione

'Cells(zestaw + 1, 40) = kp

Next zestaw

Range(Cells(2, 32), Cells(ZEST + 1, 32)) = tabont



End Sub





mam nadzieje że działa

2013-01-01 (19:58)

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

2047
wpis nr 588 811
[ CZCIONKA MONOSPACE ]

777ch, chodzi mi o sprawdzenie jakiejś mojej trójki. Wpisuję w komórki np. (A1:A3) liczby, a makro wypisuje mi kolejne ONT zestawu w historii losowań. I jeżeli kolejny ONT jest mniejszy od tego, który go poprzedza to usuwa go. W ten sposób każdy kolejny ONT będzie większy od poprzedniego. Fajnie by było gdyby można było wypisać te ONT-y dla 1 z3, i 2 z 3. Nie wiem czy piszę wystarczająco zrozumiale, jeżeli nie, zawsze mogę coś dodatkowo wyjaśnić. Dzięki za Twoją chęć niesienia pomocy innym.
2013-01-01 (19:58)

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

1386
wpis nr 588 812
[ CZCIONKA MONOSPACE ]

to możesz jeszcze wywalić



If dłzest = 2 Then s = tabgps(SPR, l1) + tabgps(SPR, l2)

If dłzest = 1 Then s = tabgps(SPR, l1)



bo wiadomo iż lizymy od 3 liczb wzwyż



2013-01-01 (20:00)

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

1386
wpis nr 588 813
[ CZCIONKA MONOSPACE ]

w makrze zmienisz 3 na 2 i będziesz miał max 2z3



bystry jestes ......poradzisz sobie.ale pytaj jakby co



2013-01-01 (20:01)

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

1386
wpis nr 588 814
[ CZCIONKA MONOSPACE ]

If s > 2 Then hit = d

If s > 2 And d >= 11 Then kp = kp + 1

If hitbest < hit And d > 0 Then hitbest = hit

If superhit < hitbest Then superhit = hitbest

If s > 2 Then d = 0









podpowiadam

tu musisz zmienić 2 na 1 jak chcesz liczyć max dla 2 trafień
2013-01-01 (20:12)

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

1386
wpis nr 588 818
[ CZCIONKA MONOSPACE ]

każdy kolejny ONT większy od poprzedniego,ten algorytm ....następnym razem
2013-01-01 (20:17)

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

1386
wpis nr 588 820
[ CZCIONKA MONOSPACE ]

.........chodzi mi o sprawdzenie jakiejś mojej trójki. Wpisuję w komórki np. (A1:A3) liczby, a makro wypisuje mi kolejne ONT zestawu w historii losowań. I jeżeli kolejny ONT jest mniejszy od tego, który go poprzedza to usuwa go. W ten sposób każdy kolejny ONT będzie większy od poprzedniego. Fajnie by było gdyby można było wypisać te ONT-y dla 1 z3, i 2 z 3. Nie wiem czy piszę wystarczająco zrozumiale, jeżeli nie, zawsze mogę coś dodatkowo wyjaśnić. Dzięki za Twoją chęć niesienia pomocy innym.







piszesz zrozumiale ,ale wytłumacz mi jaki to ma sens? a raczej jhaki Ty widzisz w tym sens





>> ze zobaczysz ten wypis kolejnych [każdy kolejny ONT będzie większy od poprzedniego]





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

{nie trzeba nic usuwać oczywiście ,wystarczy warunek że dany wynik musi być wyższy}
2013-01-01 (20:18)

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

2047
wpis nr 588 821
[ CZCIONKA MONOSPACE ]

Ok, dzięki za te makro. Działa Makro podaje MAX ONT zestawu w historii losowań. A mi chodziło o coś innego. 777ch, zobacz na Twój screen z 29-12-2012 15:53. Wpisałeś tam w zielone pole 10 liczb. Pod spodem makro Ci wypisało kolejne ONT tego zestawu dla 5 z 10. Właśnie coś podobnego chciałbym mieć ( jeśli można) dla 3 liczb. Tylko nie muszę miec wypisanych wszystkich kolejnych ONT zestawu a tylko te, które są większe od poprzednich ( czyli miałbym wypisane tylko liczby 3;18;25;40;47;48)
2013-01-01 (20:20)

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

1386
wpis nr 588 823
[ CZCIONKA MONOSPACE ]

ok



a jaki w tym .sens ? widzisz

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 3 4 5 6 ... 11 12
Wyślij wiadomość do admina