Novità

per cortesia script

Talia

Advanced Member >PLATINUM PLUS<
buon pomeriggio a tutte/i
per cortesia sapete se qualcuno ha postato uno script che va a ricercare i numeri sortiti nelle estrazioni per esempio a passo 9 ossia i numeri sortiti nell estrazione 9769 poi i numeri sortiti nell estrazione 9760(-9) poi ancora -9 poi ancora -9 per esempio per 18 volte.
oppure ogni 18 estrazioni (un ciclo ) per verificare chi periodicamente a passo si è presentato
ossia non nel ciclo di x numero estrazioni ma nell'estrazone specifica a passo fisso per c estrazioni
grazie
 
Ciao Mafalda, prova a vedere se questo è quello che chiedi.

Codice:
Sub Main
   Dim frequenze(90)
   r = InputBox("QUALE RUOTA",,5)
   stp = CInt(InputBox("QUALE STEP o CICLO",,18))
   QE = InputBox("QUANTI CICLI",,10)
   Tot = stp*QE
   Ini = EstrazioneFin - Tot
   fin = EstrazioneFin
   Scrivi "Ruota analizzata..." & NomeRuota(r),True,False,2,4,3
   Scrivi "  Step Ciclo..." & stp & "   ",True,False,4,2,3
   Scrivi " Estrazioni totali analizzate  " & fin - Ini,True,True,3,1,3
   Scrivi
   For es = Ini To fin Step stp
      cc = cc + 1
      Scrivi GetInfoEstrazione(es) & " - " & StringaEstratti(es,r) & "    RitardoCrono > " & fin - es,True,True,,1,3
   Next
   Scrivi
   Scrivi "casi trovati..." & cc,1
   Scrivi
   For n = Ini To fin Step stp
      For i = 1 To 5
         e = Estratto(n,r,i)
         If Posizione(n,r,e) > 0 Then
            frequenze(e) = frequenze(e) + 1
         End If
      Next
   Next
   For n = 0 To 9
      s = "numeri sortiti " & CStr(n) & " volte: "
      c = 0
      For i = 1 To 90
         If frequenze(i) = n Then
            s = s & Format2(i) & " "
            c = c + 1
         End If
      Next
      If c > 0 Then
         Scrivi Format2(c) & " - " & s,True,True,,2,2
      End If
   Next
   Scrivi
   Scrivi "****** listed by Mike58 ******* for Forum LottoCed ******* ",True,True,1,5,3
End Sub
 
è non male senti Mike58 potresti fare una variabile, da input 10/100 ed oltre i numeri usciti con max frequenza come nello script sopra ed inoltre eventuali ambi ,terzine ecc + frequenti, inoltre solo numeri pari e solo dispari , se puoi,grazie.
 
Alien quello che chiedi in questo script non si può fare.
Poi piccolo appunto e da tanto che fai uso di script devi imparare qualcosa sul come costruirli, tempo addietro ti avevo dato delle piccole dritte ma sei scappato via per altre galassie.
Davvero tutto non si può fare e soprattutto non si può stravolgere un costrutto script con un progetto definito.

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto