Novità

Richiesta Script agli esperti del settore.

  • Creatore Discussione Creatore Discussione dbr
  • Data di inizio Data di inizio

dbr

Advanced Member >PLATINUM PLUS<
Ciao
Di Script e programmazione non capisco nulla per questo chiedo aiuto.
Cerco uno Script che mi segnali l'ultima uscita di un numero a scelta
ruota per ruota (esclusa Nazionale) con la possibilità di cambiare numero
forse qualcosa esiste già ma non riesco a trovarlo
vedo di spiegarmi con un esempio.

Ess. numero 44 uscito ultima volta a

Ba 14/09/2023
Ca 09/09/2023
Fi 20/10/2023
.............
.............
.............

Grazie Renzo (dbr)
 
Ciao Renzo.

Prova con questo.

Richiede Spaziometria.

Codice:
Option Explicit
Sub Main
   Dim S,E,R,Es
   S = CInt(InputBox("Esempio : 44 ","QUALE NUMERO ?",44))
   For R = 1 To 12
      If R = 11 Then R = 12
      Es = EstrazioneFin - EstrattoRitardo(R,S,1,EstrazioneFin)
      Scrivi SiglaRuota(R) & " " & DataEstrazione(Es,,,"/")
   Next
End Sub

:)
 
Ciao joe
grazie 1000 a prima vista sembra ok
faccio altre prove eventualmente ......
Si era per spaziometria mi sono dimenticato di scriverlo

Renzo (dbr)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 14 agosto 2025
    Bari
    86
    54
    27
    49
    68
    Cagliari
    29
    79
    63
    87
    34
    Firenze
    63
    43
    77
    65
    41
    Genova
    01
    04
    28
    19
    76
    Milano
    77
    29
    38
    12
    86
    Napoli
    85
    83
    52
    63
    37
    Palermo
    56
    57
    50
    62
    52
    Roma
    48
    29
    01
    41
    43
    Torino
    81
    79
    19
    53
    48
    Venezia
    56
    27
    01
    45
    79
    Nazionale
    28
    75
    74
    89
    62
    Estrazione Simbolotto
    Nazionale
    30
    35
    08
    43
    17

Ultimi Messaggi

Indietro
Alto