Cercasi scriptmennespert

[Roby]

Buona sera!

Ho un piccolo problema.
Non sò come impostare una condizione al listato
Dopo aver eseguito i vari controlli delle altre condizioni
a condizione trovata dovrei dire :
"controlla le 3 estrazioni precedenti e se l'ambata é presente
salta la giocata"
Se qualcuno mi può aiutare ne sarei felice
Grazie


Solo

 

[maxma62]

Questo e' un listato di esempio, controlla se puo' andare bene:

Sub main()
Dim ruote(1),nn(1),nu1(1)
Dim poste(1)
poste(1)=5

For n=7000 To EstrazioneFin
If IndiceMensile(n)=1 Then 

r=1
a=Estratto(n,r,1)
nn(1)=a
ruote(1)=r
t=0
t=SerieFreq(n-3,n,nn,ruote,1)'<<<--- controllo -3 estr. precedenti
If t=1 Then

k=12:ruote(1)=1
nu1(1)=a
ImpostaGiocata 1,nu1,ruote,poste,k,1

Gioca n
End If
End If
Next
ScriviResoconto
End Sub

max

 

[imported_n/a]

Grazie mille max
Ora vedo che posso fare, se funziona posto la previsione e il metodo e pure il listato

Solo