Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
= Mese(msr) Then
Su che programma fate girare questo scriptLo 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
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
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 SubSi riesce a fare una modifica al codice e fare dire al sistema l ambo più frequente?
buongiorno a voi , grazie dj , uno script che cercavo
AMBO 12.23.TT.
Il file che stai tentando di scaricare non è più disponibileNuova versione14.99 MB file on MEGA
mega.nz
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
Ho visto solo mora il tuo post.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
Grazie carissimoHo visto solo mora il tuo post.
Lotto versione 52 (alcune correzioni)15.1 MB file on MEGA
Baciccia
