Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
[COLOR=#0000CD][B]Option Explicit
Class clsLunghetta
Private aNumeri ' contiene i numeri della lunghetta
Private mInizio,mFine,aRuote,mSorte ' parametri per il range analisi
' inizializza le proprietà dell'oggetto
Sub Init(sLunghetta,sChrSep,RangeInizio,RangeFine,vetRuote,SorteInGioco)
' acquisisco i parametri passati dal chiamante
mInizio = RangeInizio
mFine = RangeFine
aRuote = vetRuote
mSorte = SorteInGioco
' alimento il vettore con i numeri della lunghetta
Call AlimentaVettoreLunghetta(sLunghetta,sChrSep)
End Sub
Private Sub AlimentaVettoreLunghetta(sLunghetta,sChrSep)
' antepongo un carattere separatore per fare in modo che
' aNumeri si valorizzi dall'indice 1 (senno si sarebeb valorizzato dall'indice 0)
Call SplitByChar((sChrSep & sLunghetta),sChrSep,aNumeri)
End Sub
End Class
Sub Main
Dim clsL
Set clsL = New clsLunghetta
ReDim aRuote(1)
aRuote(1) = 1
Call clsL.Init("1.2.3",".",5000,8000,aRuote,1)
End Sub[/B][/COLOR]
come primo ringraziamento per tutto quello che state facendo sperando rispetti l'incredibile armoniosità simmetrica e di origine doc... e ci regali almeno... un A su TUTTE a colpo in attesa di ricavare soluzioni simili in "automatico" grazie al vostro codice magico... distillato con pazienza, incredibile intelligenza e altruismo. Grazie Grazie Grazie Amici 
... devi ringraziare legend che si presta alla realizzazione delllo script ...ciao
Un caro saluto a tutte/i.
Option Explicit
Class clsLunghetta
Private aNumeri ' contiene i numeri della lunghetta
Private mInizio,mFine,aRuote,mSorte ' parametri per il range analisi
Private MClasse, aElencoRit, aIdEstrElencoRit
' inizializza le proprietà dell'oggetto
Sub Init(sLunghetta,sChrSep,RangeInizio,RangeFine,vetRuote,SorteInGioco)
' acquisisco i parametri passati dal chiamante
mInizio = RangeInizio
mFine = RangeFine
aRuote = vetRuote
mSorte = SorteInGioco
' alimento il vettore con i numeri della lunghetta
Call AlimentaVettoreLunghetta(sLunghetta,sChrSep)
MClasse = ubound ( aNumeri )
Call getRitardi
End Sub
Private Sub AlimentaVettoreLunghetta(sLunghetta,sChrSep)
' antepongo un carattere separatore per fare in modo che
' aNumeri si valorizzi dall'indice 1 (senno si sarebeb valorizzato dall'indice 0)
Call SplitByChar((sChrSep & sLunghetta),sChrSep,aNumeri)
End Sub
Private Sub getRitardi
Call elencoritarditurbo ( aNumeri, aRuote, msorte ,mInizio, mFine, aElencoRit,aIdEstrElencoRit)
End sub
End Class
Sub Main
Dim clsL
Set clsL = New clsLunghetta
ReDim aRuote(1)
aRuote(1) = 1
Call clsL.Init ( " 1.2.3 ", ". " ,5000,8000,aRuote,1)Joe91;n1935785 ha scritto:Ciao Tom ...
... anch'io a ripetermi nell'avvertimento di stare in campana.
7.14.23.49 hanno un ritardo per Ambo a Tutte, ormai di 106 estrazioni.
Quindi un ritardo attuale sostanzialmente ... maggiore ... del doppio.
Lo storico era di 53.
Se il riferimento è ad un incremento ... di una dozzina di colpi ...
confrontando questo 12 Estrazioni con con più 53 Estrazioni ...
...rimarrebbero ... più di 40 estrazioni, di attesa per portarsi a questi ... livelli attuali.
Si è, al farsi del male.
Quanto costa una progressione persinseguire 4 numeri per Ambo a Tutte per 40 colpi ?
Chiaro ... posso scrivere ... che per questi 2 casi ... la sorte non sarà così cattiva.
Ma ... secondo me, si può ( ... leggi devi) fare di meglio che sfidare, un maratoneta,
mettendoti al suo passo, senza averne studiato le possibilità.
Altrimenti ... è possibile che questo camminatore instancabile, ti distacchi, a breve,
lasciandoti senza fiato.
rileggi bene il mio primo piccolo pensiero di ringraziamento per LuigiB e i legend . Come quasi tutte le mie previsioncine è a colpo o max 3 E non riguarda appunto l'RA che puo' raggiungere ritardi irrangiungibili e che ti lascia senza fiato ma l'incmax appunto molto più contenuto... almeno statisticamente parlando (anche se ovviamente mai certo) . Quindi massima prudenza ugualmente ma in soli 3 colpi massimo indipendentemente da RA maggiori! Un grande saluto e un abbraccio a te, Luigi e al bravissimo i legend 
ahah gia sono passati solo 3 minuti .... ... non devi fare a tamburo battente ehe mi raccomando fallo solo se e quando hai voglia ..buona cena anche a te
Option Explicit
Class clsLunghetta
Private aNumeri ' contiene i numeri della lunghetta
Private mInizio,mFine,aRuote,mSorte ' parametri per il range analisi
Private MClasse, aElencoRit, aIdEstrElencoRit
Private aElencoIncrRitMax
Private aIdEstrIncrRitMax
' inizializza le proprietà dell'oggetto
Sub Init(sLunghetta,sChrSep,RangeInizio,RangeFine,vetRuote,SorteInGioco)
' acquisisco i parametri passati dal chiamante
mInizio = RangeInizio
mFine = RangeFine
aRuote = vetRuote
mSorte = SorteInGioco
' alimento il vettore con i numeri della lunghetta
Call AlimentaVettoreLunghetta(sLunghetta,sChrSep)
MClasse = ubound ( aNumeri )
Call getRitardi
Call alimentaVettoreIncrRitMax
End Sub
Private Sub AlimentaVettoreLunghetta(sLunghetta,sChrSep)
' antepongo un carattere separatore per fare in modo che
' aNumeri si valorizzi dall'indice 1 (senno si sarebeb valorizzato dall'indice 0)
Call SplitByChar((sChrSep & sLunghetta),sChrSep,aNumeri)
End Sub
Private Sub getRitardi
Call elencoritarditurbo ( aNumeri, aRuote, msorte ,mInizio, mFine, aElencoRit,aIdEstrElencoRit)
End sub
Private sub alimentaVettoreIncrRitMax
Dim k
Dim nritmax ,nId, nIncr
For k = 1 To ubound ( aElencoRit )-1
If aElencoRit (k ) >NritMax then
If nritmax >0 Then
NIncr=aElencoRit (k)-nritmax
NId=nid+1
Redim preserv aElencoIncrRitMax (nId)
aElencoIncrRitMax (nid)=NIncr
Redim preserv aIdEstrIncrRitMax (nid)
aIdEstrIncrRitMax (nid)=aIdEstrElencoRit (k)
Else
NritMax =aElencoRit (k )
End if
End if
End sub
End Class
Sub Main
Dim clsL
Set clsL = New clsLunghetta
ReDim aRuote(1)
aRuote(1) = 1
Call clsL.Init ( "1.2.3",".",5000,8000,aRuote,1)
