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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto