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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto