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ì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20

Ultimi Messaggi

Indietro
Alto