Novità

Richiesta

mastrogino

Advanced Premium Member
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
 
Lo script non so di chi è, ma è tarato su 2 anni di estrazioni:
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(n) = 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
 
Lo script non so di chi è, ma è tarato su 2 anni di estrazioni:
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(n) = 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
 
In archivio ho trovato questo di Mike58


Codice:
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
 
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:

1741268245952.png

Lo script riporta anni 2023-2024 mese di febbraio

1741268361805.png

L'unica differenza è che lo script li ha messi in ordine crescente
Baciccia
 
In archivio ho trovato questo di Mike58


Codice:
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
buongiorno a voi , grazie dj , uno script che cercavo
 
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:

Vedi l'allegato 2298464

Lo script riporta anni 2023-2024 mese di febbraio

Vedi l'allegato 2298466

L'unica differenza è che lo script li ha messi in ordine crescente
Baciccia
Il file che stai tentando di scaricare non è più disponibile
Questo potrebbe essere dovuto alle seguenti cause:
Il file è stato rimosso perché viola i nostri Termini di servizio.
URL non valido - il link che si sta provando ad accedere non esiste.
Il file è stato rimosso dall’utente.

Ti ringrazio in anticipo se puoi riemettere il file :)
 
Il file che stai tentando di scaricare non è più disponibile
Questo potrebbe essere dovuto alle seguenti cause:
Il file è stato rimosso perché viola i nostri Termini di servizio.
URL non valido - il link che si sta provando ad accedere non esiste.
Il file è stato rimosso dall’utente.

Ti ringrazio in anticipo se puoi riemettere il file :)
Ho visto solo mora il tuo post.

Lotto versione 52 (alcune correzioni)
Baciccia
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 08 maggio 2025
    Bari
    87
    43
    09
    33
    05
    Cagliari
    40
    13
    86
    28
    56
    Firenze
    71
    66
    87
    08
    30
    Genova
    72
    38
    29
    22
    40
    Milano
    71
    12
    15
    39
    75
    Napoli
    09
    71
    20
    53
    10
    Palermo
    88
    58
    80
    85
    15
    Roma
    32
    01
    25
    16
    82
    Torino
    78
    89
    72
    60
    55
    Venezia
    68
    27
    44
    54
    67
    Nazionale
    09
    35
    40
    16
    36
    Estrazione Simbolotto
    Milano
    28
    02
    04
    27
    29

Ultimi Messaggi

Indietro
Alto