aiuto script per frequenza estratti

[lla]

ciao a tutti

qualcuno può aiutarmi per uno scriptino che verifichi i numeri + frequenti in un certo numero di estrazioni?

intendo lafrequenza di tutti i numeri estratti nelle 50 estrazioni
con un risultato magari come questo:

numeri 10,20,45,69,78,8,9,23,34 --> presenza 20estrazioni su 50
numeri 4,5,7,22,12,11,14,15,17-->18 estrazioni su 50

e così via

grazie

 

[Cinzia27]

Ciao Ila.
Ecco lo script.

Cinzia

'Ila :numeri più frequenti in un certo numero di estrazioni
'script Cinzia
Sub main()
Dim ambate(90,4), nn(1), ru(1)
w=50'imposta numero di estrazioni
ini=EstrazioneFin -w
fin=EstrazioneFin 'imposta estrazione finale
For r=1 To 11
If r=11 Then r=12
ru(1)=r 'tutte
co=0
For i=1 To 90
    co=co+1
    nn(1)=i
      ambate(co,1)=co
      ambate(co,2)=nn(1)
      fr=Seriefreq(ini,fin,nn,ru,1)    
    ambate(co,3)=fr
    ambate(co,4)=w
    Next
OrdinaMatrice ambate,-1,3
For x=1 To 10
Scrivi SiglaRuota(r)& Space(2)& Format2(ambate(x,2))&"  fr "& Formatspace(ambate(x,3),4,1)&"  su "& Formatspace(ambate(x,4),4,1)

Next
Scrivi
Next
End Sub

 

[lla]

grazie mille, mi sono resa conto di di doverlo riadattare con una condizione ad esempio se la somma dell'estratto 3 e 5 = 11 e che verifichi la frequenza solo in quelle estrazioni in cui è presente la condizione

una domanda perchè mette solo 10 risultati? se porto x =1 a 90 può verificarli tutti?

 

[adispo2000]

Ciao carla non si puo' adattare per il 10elotto5m?

 

[Cinzia27]

Si, può verificarli.
Ho modificato lo script inserendo la tua condizione.
Fai qualche controllo e dimmi se va.
Ciao
Cinzia

Sub main()
'Ila :numeri più frequenti in un certo numero di estrazioni
'script Cinzia
Dim ru(2), ru1(1), n(90,2)
dd=CInt(InputBox("Differenza?",,11))
r=CInt(InputBox("Ruota?",,1))
nn=CInt(InputBox("numeri da visualizzare?",,10))
ee=CInt(InputBox("Estrazione di partenza?",,9500))
c=CInt(InputBox("colpi?",,50))
casi=0
co=0
fin=EstrazioneFin
ini=ee
For es=ini To fin
a=Estratto(es,r,3)
b=Estratto(es,r,5)
dif=(a+b)
If dif=dd Then
Scrivi es
casi=casi+1
ess=es+c
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
n(d,1)=d
n(d,2)=n(d,2)+1
cc=1
Next
Next
End If
Next
co=0
Scrivi
Scrivi "Dalla "& (ini)&" alla "& EstrazioneFin,1
Scrivi "1°estratto + 5°estratto= "&dd&" su "& NomeRuota(r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Più frequenti nei "&c&" colpi successivi",1
OrdinaMatrice n,-1,2
ColoreTesto 2
Scrivi "   N° Fr "
ColoreTesto 0
For x=1 To nn
riga=" "&Format2(n(x,1))&"---"& Format2(n(x,2)):Scrivi riga
riga=""
Next
Scrivi "----------------------------------------------------------"
For cc=1 To 90
n(cc,1)=0
n(cc,2)=0
Next

End Sub

 

[adispo2000]

Cinzia scusami di nuovo ma si puo' applicare per 10elotto5m, superenalotto..ecc

 

[lla]

grazie
mi sembra che prende tutte le presenze però, non conteggia in quante estrazioni è uscito un numero per condizione
su 50 casi per esempio riporta che il 10 è uscito 90 volte quindi così prende anche le ripetizioninella stessa estrazione, io invece vorrei vedere quante volte il 10, per es. , è uscito nei 50 casi trovati per condizione

si può fare?

 

[Cinzia27]

Non so se ho capito.
Prova così

Sub main()
'Ila :numeri più frequenti in un certo numero di estrazioni
'script Cinzia
Dim ru(2), ru1(1), n(90,2)
dd=CInt(InputBox("Differenza?",,11))
r=CInt(InputBox("Ruota?",,1))
nn=CInt(InputBox("numeri da visualizzare?",,10))
ee=CInt(InputBox("Estrazione di partenza?",,9500))
c=CInt(InputBox("colpi?",,50))
casi=0
co=0
fin=EstrazioneFin
ini=ee
For es=ini To fin
a=Estratto(es,r,3)
b=Estratto(es,r,5)
dif=(a+b)
If dif=dd Then
Scrivi es
casi=casi+1
ess=es+c
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
n(d,1)=d
n(d,2)=n(d,2)+1
cc=1
Next
Next
co=0
Scrivi
Scrivi "Dalla "& (ini)&" alla "& EstrazioneFin,1
Scrivi "1°estratto + 5°estratto= "&dd&" su "& NomeRuota(r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Più frequenti nei "&c&" colpi successivi",1
OrdinaMatrice n,-1,2
ColoreTesto 2
Scrivi "   N° Fr "
ColoreTesto 0
For x=1 To nn
riga=" "&Format2(n(x,1))&"---"& Format2(n(x,2)):Scrivi riga
riga=""
Next
Scrivi "----------------------------------------------------------"
For cc=1 To 90
n(cc,1)=0
n(cc,2)=0
Next
End If
Next

End Sub

 

[Cinzia27]

Per Adispo2000: sugli altri giochi mi cimento poco.
Proverò col superenalotto.
Spero che nel frattempo qualche anima buona ti accontenti.
Ciao
Cinzia

 

[lla]

Ciao Cinzia
innanzitutto grazie
il programma va benissimo ma non è così che lo intendevo
Lo script verifica il numero + frequente x ogni estrazione non il numero che si è verificato + spesso x tutte quelle dove c'è la condizione intendevo questo per frequente fors emi sono espressa male.

per es.ora lo script x la somma 11 di e3+e5 dice che nell'estrazione ..che so..7500 l'87 è uscito 8 volte, il 70 7 volte , 6 5 volte ecc, e poi passa all'estrazione successiva in cui trova la condizione e dice che il 9 è uscito 5 volte,il 43 4 volte ecc...
in sostanza trova i + frequenti ad ogni estrazione..

invece io vorrei che lui trovasse il numero + frequente in tutte le estrazioni a seguire quella in cui c'è la condizione..per esempio

somma 3+5= 11 , verifico che dall'estrazione 7000 ad oggi quella condizione è presente in 20 estrazioni in tutto
a quel punto voglio sapere qual 'è il numero che si è verificato + spesso..diciamo che è il 70 che è uscito in 16 casi su 20

è un pò come la funzione scrivi resoconto che ti dice in quante estrazioni si è verificata la tua previsione...io qui non ho messo calcoli xchè è x ricerca, ed è il programma a dovermi dire quali sono i numeri o il numero che si +è verificato + spesso.
pensavo fosse semplice ma forse non è così

 

[joe]

Ciao lla, Cinzia,

Lo script di Cinzia fa quello che chiedi,

(non l'ho eseguito ma vedo che controlla

dall'estrazione successiva a quella della condizione spia ... in poi).

Tu forse volevi un conteggio in "cicli-positivi" su "cicli-totali".

Pertanto forse non è corretto definirla "frequenza" senza ulteriori specificazioni.

So che Cinzia non ha bisogno di aiuto per correggere lo script,

sconsiglio anche piuttosto vivamente sia il sommare numeri

che affidarsi a percentuali di probabilità indotte da regole artificiose.

Ho modificato, lo script, sperando di non aver commesso errori,

di interpretazione nella composizione dei risultati.

sub Main()
'Ila : numeri più presenti in un certo numero di estrazioni
'script Cinzia
'Rev. By Joe del 03/08/2019
Dim ru(1),ru1(1),n(90,2)
Dim nu(1)
dd = CInt(InputBox("Risultato della Somma?",,11))
r = CInt(InputBox("Ruota?",,1))
nn = CInt(InputBox("numeri da visualizzare?",,10))
ee = CInt(InputBox("Estrazione di partenza?",,3950))
c = CInt(InputBox("colpi?",,18))
casi = 0
co = 0
ru(1) = R
fin = EstrazioneFin
ini = ee
Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
Scrivi " (1° estratto ""+"" 5° Estratto = " & dd & ") su " & NomeRuota(r),True
Scrivi
For es = ini To fin
a = Estratto(es,r,3)
b = Estratto(es,r,5)
dif =(a + b)
If dif = dd Then
Scrivi es
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If
''
For d = 1 To 90
nu(1) = d
If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
n(d,1) = d
n(d,2) = n(d,2) + 1
End If
Next
''
End If
Next
Scrivi
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi
ColoreTesto 2
Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
Scrivi Space(1) & String(34,"-")
OrdinaMatrice n,True,2
Scrivi " N° - PC ",True
For x = 1 To nn
Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
Next
End Sub

 

[fillotto]

Volevo segnalare un piccolo errore nell'output c'è scritto che si fa la somma tra il 1° estratto e il 5° estratto nel codice invece la somma viene fatta tra il 3° eil 5° estratto ......
a = Estratto(es,r,3) b = Estratto(es,r,5) piccola cosa, solo che nelle prove non ne azzeccavo nessuna!!! Volevo chiedere a Joe o a Cinzia di, fermo restrando di indicare una somma ,avere 10 output cioè avere il 1° estratto con il 2° estratto il 1° con il terzo ... ecc fino al 4°+ il 5° in modo di valutare quale somma degli estratti sia, a giudizio dell'utente,più conveniente.

 

[lla]

grazie joe fa quello che mi serve e non mi ero espressa correttamente
in realtà lo script mi serviva x una ricerca da affiancare ad altri controlli e prima lo facevo a occhio..roba da diventare cieca..
che poi le 10 somme e le 10 differenze ogni tanto diano un ambo o un ternuzzo ( una percentuale bassa in realtà..troppo bassa xchè sia conveniente) è di facile verifica, ma non era questo che cercavo di capire ..sto solo incrociando dati su dati

 

[fillotto]

non ho capito io o questa istruzione "
dif =(a + b)" deve essere "
dif = Fuori90(a + b)"?

 

[Cinzia27]

Ciao, Ila, Joe, Filotto.
Per Ila : Joe ha saputo interpretare magnificamente la tua richiesta.
In una cosa lo contraddico : a volte ho bisogno di aiuto.
Per Filotto : se vuoi il fuori 90 devi aggiungerlo perché nella richiesta non era contemplato.
Quindi devi sostituirlo come correttamente hai proposto : dif = Fuori90(a + b)
Per analizzare da 1-2 fino a 4-5 posizioni (10 posizioni in tutto ), il modo più semplice è
aggiungere 2 input box che chiedano le posizioni da analizzare e sostituire le posizioni fisse con quelle variabili , dovrai farlo girare 10 volte
ma dato che è un lampo non dovrebbe essere un problema.
Cinzia

 

[fillotto]

Ciao, Ila, Joe, Filotto.
Per Ila : Joe ha saputo interpretare magnificamente la tua richiesta.
In una cosa lo contraddico : a volte ho bisogno di aiuto.
Per Filotto : se vuoi il fuori 90 devi aggiungerlo perché nella richiesta non era contemplato.
Quindi devi sostituirlo come correttamente hai proposto : dif = Fuori90(a + b)
Per analizzare da 1-2 fino a 4-5 posizioni (10 posizioni in tutto ), il modo più semplice è
aggiungere 2 input box che chiedano le posizioni da analizzare e sostituire le posizioni fisse con quelle variabili , dovrai farlo girare 10 volte
ma dato che è un lampo non dovrebbe essere un problema.
Cinzia

quando mi trovo difronte ai cicli for sono sempre in difficoltà ci arrivo sempre con un giro + lungo. Facendo qualche modifica compreso il fuori90
ottengo quello che voglio cioè tutte e 10 le posizioni ma facendo un abbinazione alla volta.Qualcuno mi fa vedere come fare?
In particolare come modificare con i cicli for il sottonotato script (già modificato).Io per utilizzare questo script fisso in basso la barra delle estrazioni ad esempio alla estrazione 09650 in modo da fare delle prove
l'ultima estrazione che lo script vede è dunque: [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 204"]
[TR="class: cke_show_border"]
[TD="width: 54, align: right"]9650[/TD]
[TD="width: 35, align: right"]79[/TD]
[TD="class: xl64, width: 74, align: right"]02/07/2019[/TD]
[TD="width: 21, align: right"] 8[/TD]
[TD="width: 21, align: right"]19[/TD]
[TD="width: 21, align: right"]54[/TD]
[TD="width: 21, align: right"]46[/TD]
[TD="width: 22, align: right"]31[/TD]
[/TR]
[/TABLE]
8+19 =27 faccio esaminare 27 in prima e seconda posizione
questo è l0utput:

 [FONT=Courier New][SIZE=2][COLOR=#000000][B]Dalla 8000 alla 9650[/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000][B]  1° Estratto "+"  2° Estratto = 27) su Bari[/B][/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]8031[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8148[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8162[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8181[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8331[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8571[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8716[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8768[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8833[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8846[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]8977[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9141[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9348[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9390[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9429[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9454[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9455[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9456[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9511[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]9550[/COLOR][/SIZE][/FONT]  (nel 9550 abbiamo 59 e 58 = 27) [FONT=Courier New][SIZE=2][COLOR=#000000]9650[/COLOR][/SIZE][/FONT]  (nel 9650 abbiamo  8 e 19 = 27)  [FONT=Courier New][SIZE=2][COLOR=#000000][B]N° casi: 21[/B][/COLOR][/SIZE][/FONT]   [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] Positivi in Cicli di 9 Estrazioni[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000] ----------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] N° - PC [/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] 01 - 15[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] 16 - 13[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] 76 - 13[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] 61 - 12[/B][/COLOR][/SIZE][/FONT]

metto in gioco i quattro numeri 8 19 58 59 ho messo questo esempio non perchè sia particolarmente efficace ma perchè sono questi quattro numeri che spesso escono come estratti determinati nelle due posizioni o addirittura per ambo, inoltre abbinando 8 e 19 con i 4 numeri+frequenti 1 16 76 61 abbiamo l'ambo dopo 3 colpi con 8 e 1 !!! Provate con le alte posizioni ......

Sub Main()
'Ila : numeri più presenti in un certo numero di estrazioni
'script Cinzia
'Rev. By Joe del 03/08/2019
Dim ru(1),ru1(1),n(90,2)
Dim nu(1)
dd = CInt(InputBox("Risultato della Somma?",,1))
r = CInt(InputBox("Ruota?",,1))
nn = CInt(InputBox("numeri da visualizzare?",,4))
ee = CInt(InputBox("Estrazione di partenza?",,8000))
c = CInt(InputBox("colpi?",,9))
po1 = CInt(InputBox("posiz del 1° estratto?",,1))
po2 = CInt(InputBox("posiz del 2° estratto?",,2))
casi = 0
co = 0
ru(1) = R
fin = EstrazioneFin
ini = ee
Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
Scrivi "  " & po1 & "° Estratto ""+""  " & po2 & "° Estratto = " & dd & ") su " & NomeRuota(r),True
Scrivi
For es = ini To fin
a = Estratto(es,r,po1)
b = Estratto(es,r,po2)
dif = Fuori90(a + b)
If dif = dd Then
Scrivi es
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If
''
For d = 1 To 90
nu(1) = d
If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
n(d,1) = d
n(d,2) = n(d,2) + 1
End If
Next
''
End If
Next
Scrivi
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi
ColoreTesto 2
Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
Scrivi Space(1) & String(34,"-")
OrdinaMatrice n,True,2
Scrivi " N° - PC ",True
For x = 1 To nn
Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
Next
End Sub

 

[joe]

I 2 cicli migliori sono quelli di ottimizzati

per ottenere le 10 combinazioni.

Devi togliere gli inputbox e sostituirli con :

For Po1 = 1 to 4
For Po2 = Po1 +1 To 5

'pulitura variabili ... e

' ... tutta la parte dello script da eseguirsi 10 volte.

Next
Next

Però devi notare che le variabili (non tutte MA ALCUNE)

devono essere "ripulite" perché altrimenti conserveranno

i valori già calcolati precedentemente.

Hai fatto molto bene ad inserire automaticamente il valore delle posizioni in output.

Così ... in un solo colpo hai corretto l'errore ed avrai anche tutti i titoli

o legende esatte per ogni coppia di posizioni. Cioè per ognuna delle tabelle.

Oltre il poter controllare ... se saranno quelle 10 che si erano previste e volute.

Buona serata a tutte/i.

 

[fillotto]

Scusa Joe ma "pulitura variabili ... e ... tutta la parte dello script da eseguirsi 10 volte." non capisco queste spiegazioni se potessi essere più esplicito ..... Ho modificato lo scipt mi fa le 10 posizioni i numeri delle estrazioni sono quelli giusti ma i 4 numeri dei "
Positivi in Cicli di 9 Estrazioni " sono errati o meglio sono giusti solo quelli del primo abbinamento cioè 1° estratto+ 2° estratto gli altri abbinamenti si sommano a quelli precedenti e alla fine 4°+5° vengono 4 numeri sempre bassi tipo 1 100 2 89 5 80 4 76

Sub Main()
'Ila : numeri più presenti in un certo numero di estrazioni
'script Cinzia
'Rev. By Joe del 03/08/2019
Dim ru(1),ru1(1),n(90,2)
Dim nu(1)
dd = CInt(InputBox("Risultato della Somma?",,1))
r = CInt(InputBox("Ruota?",,1))
nn = CInt(InputBox("numeri da visualizzare?",,4))
ee = CInt(InputBox("Estrazione di partenza?",,8000))
c = CInt(InputBox("colpi?",,9))

For Po1 = 1 To 4 ' prima po1 = CInt(InputBox("posiz del 1° estratto?",,1))
For Po2 = Po1 + 1 To 5 ' prima po2 = CInt(InputBox("posiz del 2° estratto?",,2))
casi = 0
 co = 0
ru(1) = R
fin = EstrazioneFin
ini = ee
Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
Scrivi "  " & po1 & "° Estratto ""+""  " & po2 & "° Estratto = " & dd & ") su " & NomeRuota(r),True
Scrivi
For es = ini To fin
a = Estratto(es,r,po1)
b = Estratto(es,r,po2)
dif = Fuori90(a + b)
If dif = dd Then
Scrivi es
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If
''
For d = 1 To 90
nu(1) = d
If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
n(d,1) = d
n(d,2) = n(d,2) + 1
End If
Next
''
End If
Next
Scrivi
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi
ColoreTesto 2
Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
Scrivi Space(1) & String(34,"-")
OrdinaMatrice n,True,2
Scrivi " N° - PC ",True
For x = 1 To nn
Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
Next
Next
Next
End Sub

 

[joe]

Ciao Filotto,

è la ragione per cui ti ho anticipato quello che ti si sarebbe trasformato in "problema".

Cioè, se non pulisci il contenitore dei/dai risultati precedenti,

quelli precedentemente raccolti ... si sommano ... a quelli attuali di ogni ciclo.

E... rimane giusto solo il primo ciclo.

Ini / Fin / Ruota sono variabili che rimangono uguali per tutti i 10 cicli ...

Mentre la matriace N deve conteggiare solo quelli del ciclo corrente.

Nello script di Cinzia, al fondo, c'era (se ricordo bene)

un doppio ciclo For/Next dedicato ad azzerare la matrice n(90,2)

Ho preferito scrivere ReDim n(90,2)

che ridimensionando ... azzera ... allo stesso modo.

E' bene indentare il programma per avere in evidenzia (mettendo nella stessa colonna)

la parte dello script su cui si sta agendo e che deve essere eseguita 10 volte.

Sub Main()
   'Ila : numeri più presenti in un certo numero di estrazioni
   'script Cinzia
   'Rev. By Joe del 03/08/2019
   Dim ru(1),ru1(1)',n(90,2)
   Dim nu(1)
   dd = CInt(InputBox("Risultato della Somma?",,1))
   r = CInt(InputBox("Ruota?",,1))
   nn = CInt(InputBox("numeri da visualizzare?",,4))
   ee = CInt(InputBox("Estrazione di partenza?",,8000))
   c = CInt(InputBox("colpi?",,9))
   'casi = 0
   co = 0
   ru(1) = R
   fin = EstrazioneFin
   ini = ee
   For Po1 = 1 To 4 ' prima po1 = CInt(InputBox("posiz del 1° estratto?",,1))
      For Po2 = Po1 + 1 To 5 ' prima po2 = CInt(InputBox("posiz del 2° estratto?",,2))
         ColoreTesto 0
         Scrivi : Scrivi String(65,"="),True
         ReDim n(90,2)
         Casi = 0
         Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
         Scrivi "  " & po1 & "° Estratto ""+""  " & po2 & "° Estratto = " & dd & ") su " & NomeRuota(r),True
         Scrivi
         For es = ini To fin
            a = Estratto(es,r,po1)
            b = Estratto(es,r,po2)
            dif = Fuori90(a + b)
            If dif = dd Then
               ' Scrivi es
               casi = casi + 1
               ess = es + c
               If ess > fin Then ess = fin End If
               ''
               For d = 1 To 90
                  nu(1) = d
                  If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
                     n(d,1) = d
                     n(d,2) = n(d,2) + 1
                  End If
               Next
               ''
            End If
         Next
         Scrivi
         Scrivi "N° casi: " & CInt(casi),1 : Scrivi
         Scrivi
         ColoreTesto 2
         Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
         Scrivi Space(1) & String(34,"-")
         OrdinaMatrice n,True,2
         Scrivi " N° - PC ",True
         For x = 1 To nn
            Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
         Next
      Next 'Po2
   Next 'Po1
End Sub

 

[fillotto]

Grazie Joe ora è + chiaro