SerieFreq?

[i legend]

fP1 = SerieFreqTurbo(Ini,Fin,aNum,aRuote,1) 'frequenza complessiva
            fP2 = SerieFreqTurbo(Ini,Fin,aNum,aRuote,6) ' Freq estratto determinato 1 pos
se scrivo l'indice 6 restituisce =0
Dove sbaglio?

Ciao vorrei fare uno script per Paolo , maa non riesco a fare la statistica per posizione.
Devo usare questa funzione perchè c' è array Numero
es: Sceglinumeri(aNum)
Calcolare la frequenza dei numeri in 1 pos

Grazie e ciao

 

[LuigiB]

ciao legend con quella funzione non si puo , devi usare StatisticaFormazione
l'ultimo parametro di questa funzione è un array
redim aPos(5)
aPos(1) = true
aPos(2) = false
aPos(3) = false
aPos(4) = false
aPos(5) = false

oppure
redim aPos(1)
aPos(1) = 1


e poi lo passi come parametro

 

[i legend]

Ciao Luigi grazie per la risposta
ma non trovo aPos

StatisticaFormazione(aNumeri, aRuote, Sorte, Ritardo, RitardoMax, IncrRitMax, Frequenza, Optional inizio = 0, Optional fine = 0, Optional idArchivio = 0)

Help

in pratica
vorrei scrivere quante volte i numeri/o è uscito in tutte le sue posizioni

 

[LuigiB]

ciao legend , parti da qui

Option Explicit
Sub Main
    Dim nRetRit,nRetRitMax,nRetIncrRitMax,nRetFreq
    ReDim aPos(5)
    aPos(1) = True
    aPos(2) = False
    aPos(3) = False
    aPos(4) = False
    aPos(5) = True
    ReDim aN(1)
    aN(1) = 45
    ReDim aR(1)
    aR(1) = BA_
    Call StatisticaFormazione(aN,aR,1,nRetRit,nRetRitMax,nRetIncrRitMax,nRetFreq,EstrazioneIni,EstrazioneFin,0,aPos)
    Scrivi "Il numero " & aN(1) & " ritarda da " & nRetRit & " estrazioni, è uscito " & nRetFreq & " volte in posizioni " & ArrayBToString(aPos)
End Sub

 

[LuigiB]

La soluzione proposta da Di Saronno è ottima .. molto piu esaustiva della mia.
ciao ...

 

[i legend]

Ciao ottimo lo script di Disaronno, complimenti
Luigi ho spaziometria 1.5.4, i parametri di statistica formazione sono differenti,
Non riesco a fare gli aggiornamenti, perchè una lumaca è piu vbeloce del mio pc
Grazie ad entrambi,
il quesito resta .
come posso verificare una formazione per ogni posizione, con la versione vecchia?
sicuramente si puo fare, ci penso su

 

[Alien.]

ciao legend , parti da qui

Option Explicit
Sub Main
Dim nRetRit,nRetRitMax,nRetIncrRitMax,nRetFreq
ReDim aPos(5)
aPos(1) = True
aPos(2) = False
aPos(3) = False
aPos(4) = False
aPos(5) = True
ReDim aN(1)
aN(1) = 45
ReDim aR(1)
aR(1) = BA_
Call StatisticaFormazione(aN,aR,1,nRetRit,nRetRitMax,nRetIncrRitMax,nRetFreq,EstrazioneIni,EstrazioneFin,0,aPos)
Scrivi "Il numero " & aN(1) & " ritarda da " & nRetRit & " estrazioni, è uscito " & nRetFreq & " volte in posizioni " & ArrayBToString(aPos)
End Sub

ottimo,che per caso LUIGIB.,POTRESTI ampliarmi lo script che mi dia i 5 numeri con maggior frequenza su ogni singola ruota e suo ritardo ?Grazie.

 

[i legend]

Ciao a tutti, grazie all'illuminante script di disaronno, mi sto avvicinando alla soluzione che avevo in mente
Grazie lo posto quanto prima

 

[i legend]

Ciao vorrei intestare la tabella come da disegno,è possibile?

 

[Mike58]

Si che è possibile, basta usare dopo il call inittabella il set colorecella.

Sub Main

Dim t,v

t = Array(t,"1111","2222","3333")

Call InitTabella(t,,,3,0)

Call SetColoreCella(2,2,4)

Call SetColoreCella(3,3,1)

v = Array(v,"1","2","ccc")

Call AddRigaTabella(v,,,3)

Call SetColoreCella(1,4,2)

CreaTabella

End Sub

Io questo script lo avrei realizzato se ti serve input vedi videata.

[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #0000ff, align: center"]Numero [/TD]
[TD="bgcolor: #0000ff, align: center"]Ritardo TT Pos [/TD]
[TD="bgcolor: #0000ff, align: center"]Freq. TT Pos [/TD]
[TD="bgcolor: #0000ff, align: center"]storico TT [/TD]
[TD="bgcolor: #0000ff, align: center"]Data Storico [/TD]
[TD="bgcolor: #0000ff, align: center"]RD1 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD2 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD3 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD4 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD5 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD1 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD2 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD3 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD4 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD5 [/TD]
[TD="bgcolor: #0000ff, align: center"]St1 [/TD]
[TD="bgcolor: #0000ff, align: center"]St2 [/TD]
[TD="bgcolor: #0000ff, align: center"]St3 [/TD]
[TD="bgcolor: #0000ff, align: center"]St4 [/TD]
[TD="bgcolor: #0000ff, align: center"]st5 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]31 [/TD]
[TD="bgcolor: #ffffff, align: center"]127 [/TD]
[TD="bgcolor: #ffffff, align: center"]481 [/TD]
[TD="bgcolor: #ffffff, align: center"]167 [/TD]
[TD="bgcolor: #ffffff, align: center"]15.04.2000 [/TD]
[TD="bgcolor: #ffff00, align: center"]145 [/TD]
[TD="bgcolor: #ffff00, align: center"]244 [/TD]
[TD="bgcolor: #ff0000, align: center"]127 [/TD]
[TD="bgcolor: #ffff00, align: center"]190 [/TD]
[TD="bgcolor: #ffff00, align: center"]188 [/TD]
[TD="bgcolor: #00ff00, align: center"]104 [/TD]
[TD="bgcolor: #00ff00, align: center"]96 [/TD]
[TD="bgcolor: #00ff00, align: center"]91 [/TD]
[TD="bgcolor: #00ff00, align: center"]94 [/TD]
[TD="bgcolor: #00ff00, align: center"]96 [/TD]
[TD="bgcolor: #ffffff, align: center"]395 [/TD]
[TD="bgcolor: #ffffff, align: center"]426 [/TD]
[TD="bgcolor: #ffffff, align: center"]513 [/TD]
[TD="bgcolor: #ffffff, align: center"]478 [/TD]
[TD="bgcolor: #ffffff, align: center"]471 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]54 [/TD]
[TD="bgcolor: #ffffff, align: center"]77 [/TD]
[TD="bgcolor: #ffffff, align: center"]493 [/TD]
[TD="bgcolor: #ffffff, align: center"]100 [/TD]
[TD="bgcolor: #ffffff, align: center"]13.05.2014 [/TD]
[TD="bgcolor: #ffff00, align: center"]165 [/TD]
[TD="bgcolor: #ffff00, align: center"]340 [/TD]
[TD="bgcolor: #ffff00, align: center"]111 [/TD]
[TD="bgcolor: #ff0000, align: center"]77 [/TD]
[TD="bgcolor: #ffff00, align: center"]152 [/TD]
[TD="bgcolor: #00ff00, align: center"]106 [/TD]
[TD="bgcolor: #00ff00, align: center"]95 [/TD]
[TD="bgcolor: #00ff00, align: center"]102 [/TD]
[TD="bgcolor: #00ff00, align: center"]100 [/TD]
[TD="bgcolor: #00ff00, align: center"]90 [/TD]
[TD="bgcolor: #ffffff, align: center"]303 [/TD]
[TD="bgcolor: #ffffff, align: center"]434 [/TD]
[TD="bgcolor: #ffffff, align: center"]380 [/TD]
[TD="bgcolor: #ffffff, align: center"]429 [/TD]
[TD="bgcolor: #ffffff, align: center"]378 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]18 [/TD]
[TD="bgcolor: #ffffff, align: center"]67 [/TD]
[TD="bgcolor: #ffffff, align: center"]489 [/TD]
[TD="bgcolor: #ffffff, align: center"]105 [/TD]
[TD="bgcolor: #ffffff, align: center"]30.04.1876 [/TD]
[TD="bgcolor: #ffff00, align: center"]105 [/TD]
[TD="bgcolor: #ffff00, align: center"]72 [/TD]
[TD="bgcolor: #ff0000, align: center"]67 [/TD]
[TD="bgcolor: #ffff00, align: center"]88 [/TD]
[TD="bgcolor: #ffff00, align: center"]143 [/TD]
[TD="bgcolor: #00ff00, align: center"]93 [/TD]
[TD="bgcolor: #00ff00, align: center"]99 [/TD]
[TD="bgcolor: #00ff00, align: center"]100 [/TD]
[TD="bgcolor: #00ff00, align: center"]97 [/TD]
[TD="bgcolor: #00ff00, align: center"]100 [/TD]
[TD="bgcolor: #ffffff, align: center"]547 [/TD]
[TD="bgcolor: #ffffff, align: center"]496 [/TD]
[TD="bgcolor: #ffffff, align: center"]488 [/TD]
[TD="bgcolor: #ffffff, align: center"]428 [/TD]
[TD="bgcolor: #ffffff, align: center"]344 [/TD]
[/TR]
[/TABLE]

 

[i legend]

Ciao GrandeMike, al momento con la nuova statisticaFormazione si puo fare tutto, spero di riuscire a scaricare la nuova versione, ma oggi ci ho messo 35 minuti per accedere qui....non so
ciao a tutti