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
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18

Ultimi Messaggi

Indietro
Alto