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.
Call StatisticaFormazioneTurbo(acol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine,,posizioni)
Ciao mitico quale sarebbe tra questi esempi e come si utilizza per fare quello che ho descritto sopra?
Vedi l'allegato 2228711
Grazie
Ciao tom serie elenco uscite.
Tu che per pc hai un mostro, per impiegare 4 minuti di elaborazione quante combinazioni calcoli?
Tom l esempio è molto semplice e chiaro.
Tom , I Legend il codice simile a StatisticaFormazione è SerieStat.
Comunque Leggere sempre la descrizione dei codici fino a qui immessi in spazioLight,cosi da capire cosa fanno e come adoperarli correttamente.
P.s. per Tom , uno script per i ritardi posizionali l'ho già fatto in questo post , magari ti può servire circa il costrutto che vorresti ottenere.
Ciao
Ciao filotto.Piccola parentesi, legend oggi è "la giornata mondiale della pizza" !!! Mi è venuto spontaneo pernsare al forno e a Te . Come te la cavi con la pizza, ma la fai???
Chiedo scusa e chiudo la ")"
Sub Main
Dim Numeri(7)
Dim VetN(),VetQ()
Numeri(1) = 1
Numeri(2) = 88
Numeri(3) = 89
Numeri(4) = 1
Numeri(5) = 88
Numeri(6) = 89
Numeri(7) = 55
Scrivi "Numeri vettori.... " & StringaNumeri(Numeri),1
Call NumeriRipetutiRilevatiV(Numeri,VetN,VetQ)
Scrivi "Numeri Ripetuti... " & StringaNumeri(VetN)
Call EliminaRipetuti(Numeri)
Scrivi "Numeri con Elimina Ripetuti .... " & StringaNumeri(Numeri)
End Sub
Class Script
Sub Main
Dim Numeri(7) As Integer
Dim VetN() , VetQ() as integer
Numeri(1) = 1
Numeri(2) = 88
Numeri(3) = 89
Numeri(4) = 1
Numeri(5) = 88
Numeri(6) = 89
numeri(7) = 55
Scrivi ("Numeri vettori.... " & StringaNumeri(Numeri),1)
call NumeriRipetutiRilevatiV (Numeri , VetN, VetQ)
scrivi ("Numeri Ripetuti... " & stringanumeri (vetn))
call EliminaRipetuti( Numeri )
Scrivi ("Numeri con Elimina Ripetuti .... " & StringaNumeri(Numeri))
End Sub
End Class
Per Tom lo script sulle posizioni di ritardo è al post #93 anche se ho usato StatEstratto perche numeri singoli.
comunque vedi sempre la guida per le spiegazioni dei codici e come usarli.
Ciao
X tom.
Ho gli occhi stanchi, non riesco a stare davanti al pc.
Mi spiace
Ciao Tom, SerieStat potrebbe fare al caso tuo.Ciao Mike ci ho provato ma con la struttura spazio light non riesco a cambiare l'analisi per estratto di un singolo elemento in quello di un gruppo di classe voluta (es. terzina). E non trovo nemmeno la guida... relativa... a parte la striscia dinamica in basso che ricorda i parametri di ogni funzione... Ad ogni modo se non puoi/vuoi postare lo script relativo per spazio light non importa. Grazie comunque. Ciao big!
aNumeri | Array contenente i numeri oggetto di analisi |
Ruote | Array integer delle ruote in gioco o variabile Integer che identifca la ruota di gioco |
Ritardo | Torna il ritardo della combinazione |
RitardoMax | Torna il ritardo massimo della combinazione |
Frequenza | Torna la frequenza della combinazion intesa come la somma delle uscite favorevoli per la sorte specificata |
Presenze | Torna il numero di estrazioni in favorevoli per la sorte specificata |
IncrRitMax | Torna il valore dell'incremento dele ritardo massimo |
Inizio | Id progressivo dell'estrazione da cui inizia l'analisi |
Fine | Id progressivo dell'estrazione in cui finisce l'analisi |
aPos | Array boolean delle posizioni in gioco |
EstrEsaminate | Torna le estrazioni esaminate |
Inizio | IOd progressivo che indica la prima estrazione di gioco |
SoloPositivi | Se True mostra in output solo i casi positivi |
MantieniGiocate | Se False azzera tutte le giocate in memoria |
ModalitaMostraEstrazione | Mostra i numeri estratti sulla ruota in funzione della vincita |
bScriviInOutput | Se True scrive in output la giocata |
bVirtuale | Se True la giocata è registrata sul resoconto virtuale |
Sub Main
Dim Nu(1) , Ru(1)
Dim ini , fin , es
Dim posta(1)
posta(1) = 1
ini = EstrazioneFin - 160
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile (es) = 1 Then
Nu(1) = Fuori90 (Estratto(es,9,2)+3)
Ru(1) = 9
Call ImpostaGiocata (1,Nu,Ru,posta,13,1)
Call Gioca (es,True)
End If
Next
ScriviResoconto
End Sub
Class Script
Sub Main
Dim Nu(1) , Ru(1) as integer
dim ini , fin , es , r as integer
dim posta(1) as single
dim positivi as boolean = true
posta(1) = 1
ini = estrazioniarchivio - 160
fin = estrazioniarchivio
for es = ini to fin
if indicemensile (es) = 1 then
nu(1) = fuorix (estratto(es,9,2)+3,90)
ru(1) = 9
impostagiocata (1,nu,ru,posta,,13,1)
gioca (es+1,true)
end if
next
scriviresoconto
End Sub
End Class