Cerco script spia x joe91

[Antonin]

Buongiorno joe91
Cerco se possibile uno script spia credo semplice.
Dopo il n°1 in 9 colpi su bari o a scelta ruote,quante volte gli 89 numeri rimanenti sono usciti in 9 colpi.
In ordine verticale.
Esempio:
Spia 1
il 2 e' uscito 7 volte in 9 colpi
il 3 e' uscito 5 volte in 9 colpi
e cosi'via fino al 89.
Grazie.

 

[Joe91]

Ciao Antonio,

Ho modificato un pochino uno script che avevo in archivio:

'Presenze a seguito spia by Joe 

Sub Main()
 Dim Num(90)
 S = CInt(InputBox("Quale Spia ? 1-90",,1))
 R = CInt(InputBox("Su quale ruota ? 1-10",,1))
 Q = CInt(InputBox("Quante estrazioni ? 155",,155))
 C = CInt(InputBox("Quanti Colpi successivi? 9",,9))
 Fin = EstrazioneFin : Ini = Fin - Q + 1
 Scrivi String(40,"=") & "  By Joe",1
 co = 0
 For es = ini To fin
  If Posizione(es,r,s) > 0 Then
   co = co + 1
   For a = es + 1 To es + C
    For e = 1 To 5
     n = Estratto(a,r,e)
     Num(n) = Num(n) + 1
     If Num(N) > Mx Then MX = Num(n)
    Next
   Next
  End If
 Next
 Scrivi "Numero spia: " & s & " su " & NomeRuota(r) & "; Estratto " & Co & " volte"
 Scrivi "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
 Scrivi
 Scrivi "Num. Volte"
 For Ord = Mx To 0 Step - 1
  For i = 1 To 90
   If Num(i) = Ord Then
    Scrivi Format2(i) & "   " & CInt(Num(i))
   End If
  Next
 Next
End Sub

Spero sia giusto.

 

[Antonin]

Grazie e'perfetto.