Richiesta

[mastrogino]

Buongiorno a tutti voi , avrei una richiesta " se possibile "
un script che mi dia il numero più frequente negli ultimi 2 anni dello stesso mese
sia a ruote che su tt
grazie

 

[Baciccia4251]

Io non so fare script, se ti interessa, nel frattempo che qualcuno esaudisca la tua richiesta, potrebbe andare quacosa del genere?



Baciccia

 

[Pandit]

Lo script non so di chi è, ma è tarato su 2 anni di estrazioni:

Anticipazione (Spoiler)

Sub Main()
Dim frequenze(450,3)
Dim ruota
Dim p
Scrivi "STATISTICA MENSILE ESTRATTI",2,,4,,4
'MESE DI RICERCA
ms = Mese(EstrazioneFin)
msr = InputBox("Scegli il Mese di ricerca - 0 per TUTTI -",,ms)
If msr > 0 Then
period = " di " & MeseNome(msr)
Else
period = "ciclo continuo"
End If
'RUOTA DI RICERCA
ruota = InputBox("Ruota di ricerca ",,1)
Scrivi " al " & DataEstrazione(EstrazioneFin) & " " & period,1,,3,,4
For i = 1 To 450
frequenze(i,2) = 0
Next
Scrivi" Ruota di " & NomeRuota(ruota),1,,3,,4
For n = EstrazioneFin - 416 To EstrazioneFin' Un anno 208 Estrazioni, due 416
If msr > 0 Then
If Mese = Mese(msr) Then
For p = 1 To 5
e = Estratto(n,ruota,p)
frequenze(e +(p - 1)*90,2) = frequenze(e +(p - 1)*90,2) + 1
Next
End If
Else
For p = 1 To 5
e = Estratto(n,ruota,p)
frequenze(e +(p - 1)*90,2) = frequenze(e +(p - 1)*90,2) + 1
Next
End If
Next
For i = 1 To 90
For p = 1 To 5
frequenze(i +(p - 1)*90,1) = i
frequenze(i +(p - 1)*90,3) = p
Next
Next
OrdinaMatrice frequenze,- 1,2
Scrivi " Num.Freq.Pos. ",2,,4,,4
ScriviMatrice frequenze,0,5
End Sub

 

[lottoandy81]

Lo script non so di chi è, ma è tarato su 2 anni di estrazioni:

Anticipazione (Spoiler)

Sub Main()
Dim frequenze(450,3)
Dim ruota
Dim p
Scrivi "STATISTICA MENSILE ESTRATTI",2,,4,,4
'MESE DI RICERCA
ms = Mese(EstrazioneFin)
msr = InputBox("Scegli il Mese di ricerca - 0 per TUTTI -",,ms)
If msr > 0 Then
period = " di " & MeseNome(msr)
Else
period = "ciclo continuo"
End If
'RUOTA DI RICERCA
ruota = InputBox("Ruota di ricerca ",,1)
Scrivi " al " & DataEstrazione(EstrazioneFin) & " " & period,1,,3,,4
For i = 1 To 450
frequenze(i,2) = 0
Next
Scrivi" Ruota di " & NomeRuota(ruota),1,,3,,4
For n = EstrazioneFin - 416 To EstrazioneFin' Un anno 208 Estrazioni, due 416
If msr > 0 Then
If Mese = Mese(msr) Then
For p = 1 To 5
e = Estratto(n,ruota,p)
frequenze(e +(p - 1)*90,2) = frequenze(e +(p - 1)*90,2) + 1
Next
End If
Else
For p = 1 To 5
e = Estratto(n,ruota,p)
frequenze(e +(p - 1)*90,2) = frequenze(e +(p - 1)*90,2) + 1
Next
End If
Next
For i = 1 To 90
For p = 1 To 5
frequenze(i +(p - 1)*90,1) = i
frequenze(i +(p - 1)*90,3) = p
Next
Next
OrdinaMatrice frequenze,- 1,2
Scrivi " Num.Freq.Pos. ",2,,4,,4
ScriviMatrice frequenze,0,5
End Sub

Su che programma fate girare questo script

 

[Pandit]

Script per Spaziometria..

 

[DjNomade]

In archivio ho trovato questo di Mike58

Sub Main
   Dim frequenze(90)
   an1 = CInt(InputBox("Anno di partenza",,2023))
   an2 = CInt(InputBox("Anno di Fine Range",,Year(Now)))
   r = InputBox("QUALE RUOTA",,5)
   'id = CInt(InputBox("QUALE SPIA",,90))
   ms = CInt(InputBox("Quale Mese",,Month(Now)))
   Ini = EstrazioneIni' - QE
   fin = EstrazioneFin
   Scrivi "Ruota analizzata..." & NomeRuota(r),1
   'Scrivi "  Spia analizzata..." & id & "   ",1
   Scrivi " Mese Analizzato  " & MeseNome(ms),1
   Scrivi "Anno Di Partenza.... " & an1
   Scrivi "Anno Fine estraz.... " & an2
   Scrivi
   For es = Ini To fin
      If Mese(es) = ms And Anno(es) >= an1 And Anno(es) <= an2 Then
         'If Posizione(es,r,id) > 0 Then
         cc = cc + 1
         Scrivi DataEstrazione(es) & " - " & StringaEstratti(es,r) '& "  posiz. - " & Posizione(es,r,id) & "    RitardoCrono > " & fin - es,True,True,,1,3
         'End If
      End If
   Next
   Scrivi
   Scrivi "casi trovati..._" & cc,1
   Scrivi "Anni calcolati._" & an2 - an1 + 1
   Scrivi
   For n = fin To Ini Step - 1
      If Mese(n) = ms And Anno(n) >= an1 And Anno(n) <= an2 Then
         'If Posizione(n,r,id) > 0 Then
         For i = 1 To 5
            e = Estratto(n,r,i)
            frequenze(e) = frequenze(e) + 1
         Next
         'End If
      End If
   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,1
      End If
   Next
   Scrivi
   Scrivi "****** listato by Mike58 ******* for Forum LottoCed ******* ",1
End Sub

 

[Baciccia4251]

14.99 MB file on MEGA

mega.nz

Il foglio si chiama MGino

Baciccia

 

[lottoandy81]

14.99 MB file on MEGA

mega.nz

Il foglio si chiama MGino

Baciccia

Si riesce a fare una modifica al codice e fare dire al sistema l ambo più frequente?

 

[Baciccia4251]

14.99 MB file on MEGA

mega.nz

Nuova versione

Confrontando i risultati con gli Script forniti, mi sono accorto che in presenza di più numeri con la stessa frequenza ne metteve solo uno.
Ora sembra corretto:



Lo script riporta anni 2023-2024 mese di febbraio



L'unica differenza è che lo script li ha messi in ordine crescente
Baciccia