b = Estratto(estrazione,ruota,p)
ReDim numeri(0)
ScegliNumeri(numeri)
For c = 1 To UBound(numeri)
estrattovoluto = numeri(c)
For estrazione = EstrazioneFin - annidaverificare To EstrazioneFin
For ruota = ruotascelta To ruotascelta
If Mese(estrazione) = mesevoluto Then
For p = 1 To 5
b = Estratto(estrazione,ruota,p)
If Estrattovoluto = b Then
punti = 1
puntitotali = puntitotali + punti
End If
punti = 0
Next
punti = 0
End If
punti = 0
Next
punti = 0
Next
punti = 0
Scrivi "punti totali " & puntitotali b = Estratto(estrazione,ruota,p)
Sono sicuro... che un siffatto script possa essere molto utile per la 22ina abs di Cinzia, che saluto, ad esempio... e non solo... 
E' come ti dicevo ...
... hai confuso dati e risultati.
Puoi controllare la presenza in tutte le ruote (e/o posizioni) con SerieFreq.
Naturalmente non ti restituisce la frequenza ... ma il numero di presenze del numero
che hai fornito e prelevato pro-tempore come estrattovoluto (ci-esimo) dell'array numeri.
'Per <Lotto_Tom75 -Numero in Posizione determinata sulle 11 ruote (Cinzia27)
Sub main()
n=75 'numero
p=1 ' prima posizione
For es=7440 To EstrazioneFin
c=0
For r=1 To 11
If r=11 Then r=12
If Posizione(es,r,n)=p Then c=c+1
Next
If c>0 Then
casi=casi+1
Scrivi FormatSpace(casi,5,1)&") "&FormatSpace(es,5,1)&" "&n,0,0
If casi=1 Then exx=es-7440+1 Else exx=es-ex
Scrivi FormatSpace(exx-1,5,1)
If es>mx Then mx=es
ex=es
End If
Next
Scrivi
Scrivi " Att "&n&" "&EstrazioneFin-mx&" ",0,0
End SubGrazie mille joe, ma me la sostituiresti te la riga in oggetto... con Seriefreq? 🤪
Grazie comunque 👋
Ciao, Tom.
Codice:'Per <Lotto_Tom75 -Numero in Posizione determinata sulle 11 ruote (Cinzia27) Sub main() n=75 'numero p=1 ' prima posizione For es=7440 To EstrazioneFin c=0 For r=1 To 11 If r=11 Then r=12 If Posizione(es,r,n)=p Then c=c+1 Next If c>0 Then casi=casi+1 Scrivi FormatSpace(casi,5,1)&") "&FormatSpace(es,5,1)&" "&n,0,0 If casi=1 Then exx=es-7440+1 Else exx=es-ex Scrivi FormatSpace(exx-1,5,1) If es>mx Then mx=es ex=es End If Next Scrivi Scrivi " Att "&n&" "&EstrazioneFin-mx&" ",0,0 End Sub
'Per <Lotto_Tom75 -Numero in Posizione determinata sulle 11 ruote (Cinzia27)
Sub Main()
For a = 1 To 90
n = a 'numero
p = 1 ' prima posizione
For es = 7440 To EstrazioneFin
c = 0
For r = 1 To 11
If r = 11 Then r = 12
If Posizione(es,r,n) = p Then c = c + 1
Next
If c > 0 Then
casi = casi + 1
Scrivi FormatSpace(casi,5,1) & ") " & FormatSpace(es,5,1) & " " & n,0,0
If casi = 1 Then exx = es - 7440 + 1 Else exx = es - ex
Scrivi FormatSpace(exx - 1,5,1)
If es > mx Then mx = es
ex = es
End If
Next
Scrivi
Scrivi
Scrivi " Att " & n & " " & EstrazioneFin - mx & " ",0,0
Scrivi
Scrivi
Call AvanzamentoElab(1,90,a)
Next
End Sub'Per Lotto_Tom75 -Numeri in Posizione determinata sulle 11 ruote (Cinzia27)
Sub main()
For n=1 To 90 'numero
mx=0
mx1=0
c=0
casi=0
For p=1 To 5 ' prima posizione
mx=0
mx1=0
c=0
casi=0
For es=7440 To EstrazioneFin
c=0
For r=1 To 11
If r=11 Then r=12
If Posizione(es,r,n)=p Then c=c+1
Next
If c>0 Then
casi=casi+1
Scrivi FormatSpace(casi,5,1)&") "&FormatSpace(es,5,1)&" pos. "&p&" n. "&n,0,0
If casi=1 Then exx=es-7440+1 Else exx=es-ex
If exx>mx1 Then mx1=exx
Scrivi FormatSpace(exx-1,5,1)
If es>mx Then mx=es
ex=es
End If
Next
Scrivi
Scrivi " Posizione numero "&n&" = "&p
Scrivi " Att. numero "&n&" = "&EstrazioneFin-mx
Scrivi " St. numero "&n&" = "&mx1-1
Scrivi String(10,"-")
Next
Next
End SubScrivi
Scrivi " Posizione numero "&n&" = "&p
Scrivi " Att. numero "&n&" = "& EstrazioneFin-mx
Scrivi " St. numero "&n&" = "& mx1-1
Scrivi " Diff posizionale rsp-rap " & Int((mx1-1)) - Int(EstrazioneFin-mx)
Scrivi String(10,"-")Ciao Tom, quello che ha scritto Cinzia e quello che avevi scritto tu nel messaggio #6,
dovrebbero essere per sommi capi quello che dovrebbe e si potrebbe fare con SerieFreq.
Però SerieFreq nella versione a corredo di Spaziometria NON permette di inserire le posizioni.
Dunque quello che avevi scritto e si poteva fare considerando tutte e 5 le Posizioni unite,
se intendi considerarle, una ad una, con SerieFreq NON si può più fare.
E' un pò come la storia del lupo ululà si, uluqua no.
Però ... nessuno vieta di scrivere routine migliori di quelle già presenti.
Cioè dare un nome e dei parametri alla routine scritta da Cinzia e/o migliorarla ulteriormente.
Domani, se riesco, ti mando un semplice esempio, di quello che avevo scritto con un altro Pc
e che adesso non ho voglia di rifare ex-novo per stanchezza e mancanza di tempo.
Thanks!
'Per Lotto_Tom75 -Numeri in Posizione determinata sulle 11 ruote (Cinzia27) - i 90 con massimo storico e ritardo attuale
Sub Main()
'numerofinale = CInt(InputBox("numero finale",,90))
ReDim numeri(0)
Call ScegliNumeri(numeri)
For x = 1 To UBound(numeri) 'numero
n = numeri(x)
mx = 0
mx1 = 0
c = 0
casi = 0
For p = 1 To 5 ' prima posizione
mx = 0
mx1 = 0
c = 0
casi = 0
For es = 7440 To EstrazioneFin
c = 0
For r = 1 To 11
If r = 11 Then r = 12
If Posizione(es,r,n) = p Then c = c + 1
Next
If c > 0 Then
casi = casi + 1
Scrivi FormatSpace(casi,5,1) & ") " & FormatSpace(es,5,1) & " pos. " & p & " n. " & n,0,0
If casi = 1 Then exx = es - 7440 + 1 Else exx = es - ex
If exx > mx1 Then mx1 = exx
Scrivi FormatSpace(exx - 1,5,1)
If es > mx Then mx = es
ex = es
End If
Messaggio "n. " & n
AvanzamentoElab 1,numerofinale,n
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi " Posizione numero " & n & " = " & p
Scrivi " Att. numero " & n & " = " & EstrazioneFin - mx
Scrivi " St. numero " & n & " = " & mx1 - 1
Scrivi " Diff posizionale rsp-rap " & Int((mx1 - 1)) - Int(EstrazioneFin - mx)
If Int((mx1 - 1)) - Int(EstrazioneFin - mx) = 0 Then
Scrivi "<font size=7 color=red> " & " Diff posizionale rsp-rap " & Int((mx1 - 1)) - Int(EstrazioneFin - mx) & " -DIFFP0!- </font>"
End If
Scrivi String(10,"-")
Next
Next
Scrivi
Scrivi "Tt " & TempoTrascorso
Scrivi
End Sub'Per Lotto_Tom75 -Numeri in Posizione determinata sulle 11 ruote (Cinzia27)
Sub main()
For n=1 To 90 'numero
mx=0
mx1=0
c=0
casi=0
For p=1 To 5 ' prima posizione
mx=0
mx1=0
c=0
casi=0
For es=7440 To EstrazioneFin
c=0
For r=1 To 11
If r=11 Then r=12
If Posizione(es,r,n)=p Then c=c+1
Next
If c>0 Then
casi=casi+1
'Scrivi FormatSpace(casi,5,1)&") "&FormatSpace(es,5,1)&" pos. "&p&" n. "&n,0,0
If casi=1 Then exx=es-7440+1 Else exx=es-ex
If exx>mx1 Then mx1=exx
'Scrivi FormatSpace(exx-1,5,1)
If es>mx Then mx=es
ex=es
End If
Next
rap=EstrazioneFin-mx
rsp=mx1-1
dif=rsp-rap
dif1=rap-rsp
If Pari(n) Then ColoreTesto 1 Else ColoreTesto 2
Scrivi " N. "&n,1
Scrivi " Posizione "&p
ColoreTesto 0
Scrivi " Att."&formatspace(rap,3,1)
Scrivi " St. "&formatspace(rsp,3,1)
If rsp>rap Then Scrivi " rsp>rap " & dif
If rap>rsp Then Scrivi " rap>rsp " & dif1
If rsp=rap Then Scrivi " rap=rsp "
Scrivi String(14,"-")
Next
Next
End Sub
