Novità

AIUTO SCRIPT

trivellatomariotretre33

Super Member >PLATINUM<
CHI MI AIUTA IN QUESTO SCRIPT
MI DEVE CHIEDERE CON IMPUT

ruote(1) = 1
For n = 8980 To EstrazioneFin
If IndiceMensile(n) = 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(n) = 9 Then
numeri1(1) = Fuori90(Estratto(n,2,5) + 11)
ImpostaGiocata 1,numeri1,ruote,poste,9
Gioca n
End If
Next
ScriviResoconto
End Sub
 
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.

Codice:
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
 
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)
 
Ultima modifica:
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
Indietro
Alto