X Codice e toon e tutti.
Provate questa impostazione se va bene.
Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)
poste(1) = 1
post(2) = 1
ruote(1) = 1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2) = 10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k = 15'----------------------------------------------------------------------------->cambiare qui per i colpi
For n = 10145 To EstrazioneFin
If IndiceMensile
= 1 Then'------------------------------------------------------->cambiare qui per indice mensile
a1(1) = Fuori90(Estratto(n,3,4) + Estratto(n,2,5) + 12)
rt = SerieRitardo(n - 252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è " & rt & " Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub