Novità

SerieFreq?

i legend

Premium Member
Codice:
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;)
 
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
 
Ultima modifica di un moderatore:
Ciao Luigi grazie per la risposta
ma non trovo aPos
Codice:
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
xPaolo.jpg
 
Ultima modifica:
ciao legend , parti da qui

Codice:
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
 
La soluzione proposta da Di Saronno è ottima .. molto piu esaustiva della mia.
ciao ...
 
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:)
 
LuigiB;n1892451 ha scritto:
ciao legend , parti da qui

Codice:
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.
 
Ciao a tutti, grazie all'illuminante script di disaronno, mi sto avvicinando alla soluzione che avevo in mente:)
Grazie lo posto quanto prima:)
 
Si che è possibile, basta usare dopo il call inittabella il set colorecella.
Codice:
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]
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02

Ultimi Messaggi

Indietro
Alto