per cortesia script

[Talia]

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

 

[Mike58]

Ciao Mafalda, prova a vedere se questo è quello che chiedi.

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

 

[Talia]

grazie infinite Mike adesso vedo

 

[Talia]

@Mike58 sei un bijoux non so come ringraziarti !!

 

[Alien.]

è 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.]

 

[Mike58]

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

 

[Alien.]

E hai ragione Mike non posso stare fermo su un pianeta poi mi perdo ........