AIUTO SCRIPT

[trivellatomariotretre33]

CHI MI AIUTA IN QUESTO SCRIPT
MI DEVE CHIEDERE CON IMPUT

ruote(1) = 1
For n = 8980 To EstrazioneFin
If IndiceMensile = 9 Then
numeri1(1) = Fuori90(Estratto(n,1,5) + 11)
ImpostaGiocata 1,numeri1,ruote,poste,9

ECCO LO SCRIPT GRAZIE



Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1) = 1
poste(2) = 0
ruote(1) = 1
For n = 8980 To EstrazioneFin
If IndiceMensile = 9 Then
numeri1(1) = Fuori90(Estratto(n,2,5) + 11)
ImpostaGiocata 1,numeri1,ruote,poste,9
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[Mike58]

Ti ho Messo gli InputBox richiesti, anche se ti devo dire che cambiare anche solo le ruote e gli indici Mensili per i quali gli algoritmi (calcoli dei numeri da mettere in gioco) sono stati creati può falsare la ricerca,

Visto la semplicità della richiesta ecco la correzione.

Sub Main()
 Dim ruote(10)
 Dim numeri1(10)
 Dim numeri2(10)
 Dim poste(5)
 Dim posta(5)
 r = InputBox("QUALE RUOTA",,1)
 da = CInt(InputBox("Da Quale Estrazione inizio",,8980))
 Ind = CInt(InputBox("Quale indice Mensile",,9))
 poste(1) = 1
 poste(2) = 0
 ruote(1) = r
 For n = da To EstrazioneFin
  'For n = 8980 To EstrazioneFin
  'If IndiceMensile(n) = 9 Then
  If IndiceMensile(n) = Ind Then
   numeri1(1) = Fuori90(Estratto(n,2,5) + 11)
   ImpostaGiocata 1,numeri1,ruote,poste,9
   Gioca n
  End If
 Next
 ScriviResoconto
End Sub

 

[trivellatomariotretre33]

GRAZIE Mike58 sei veloce e bravo scusa mike58 si potrebbe aggiungere anche questo a scelta
o magari solo dove ce il +
numeri1(1) = Fuori90(Estratto(n,2,5) + 11)

 

[trivellatomariotretre33]

TIPO SCEGLI NUMERI
ScegliNumeri(aNum)

 

[trivellatomariotretre33]

GRAZIE DISARONNO UNA STRETTA DI MANO A TE E MIKE58

 

[Mike58]

Purtroppo a volta non sempre si è presenti sul forum e le risposte a volte tardano ad arrivare.
Ma come vedi siamo sempre in pochi ad essere disponibili per analisi e correzioni script, anzi siamo sempre quei pochi e spero Buoni.

Ciao a te e un grazie a Disaronno per l'intervento risolutivo.