Controllo ultime 18 estrazioni estratti non ripetuti

[Reacher]

è possibile aggiungere anche la ruota TUTTE
grazie

Sub Main()
Dim r, p, es, numero
Dim fine, inizio, colpi
Dim presenze(90)
Dim ultimaUscita(90)
Dim elencoNumeri, elencoEvidenziati, elencoRipetuti
Dim contatoreUnici, contatoreEvidenziati

colpi = 18
fine = EstrazioneFin
inizio = (fine - colpi) + 1

' Intestazione Generale dello Script
Scrivi String(75, "="), 1
Scrivi "ANALISI DI TUTTE LE RUOTE SINGOLE - ULTIME " & colpi & " ESTRAZIONI", 1
Scrivi "Intervallo analizzato: da n. " & inizio & " (" & DataEstrazione(inizio) & ") a n. " & fine & " (" & DataEstrazione(fine) & ")", 1
Scrivi String(75, "="), 1
Scrivi ""

' Ciclo su tutte le ruote (da 1 a 10 per le classiche, 12 per la Nazionale)
For r = 1 To 12
'If r <> 11 Then ' Salta la ruota "Tutte"

Scrivi String(60, "-")
ColoreTesto 1 ' Blu per il nome della ruota
Scrivi "RUOTA DI: " & NomeRuota(r), 1
ColoreTesto 0
Scrivi String(60, "-")

' Inizializzazione degli array per la ruota corrente
For numero = 1 To 90
presenze(numero) = 0
ultimaUscita(numero) = 0
Next

' Lettura delle estrazioni per la ruota corrente
For es = inizio To fine
For p = 1 To 5
Dim estrattoCorrente
estrattoCorrente = Estratto(es, r, p)

If estrattoCorrente > 0 And estrattoCorrente <= 90 Then
presenze(estrattoCorrente) = presenze(estrattoCorrente) + 1
ultimaUscita(estrattoCorrente) = es
End If
Next
Next

' Analisi dei numeri e verifica del filtro sul ritardo (6-15) - ORDINATI PER RITARDO DECRESCENTE
elencoNumeri = ""
elencoEvidenziati = ""
contatoreUnici = 0
contatoreEvidenziati = 0

' Ciclo a ritroso sui possibili ritardi (da colpi a 0) per garantire l'ordine decrescente
Dim ritardoCorrente, ritardo
For ritardoCorrente = colpi To 0 Step -1
For numero = 1 To 90
If presenze(numero) = 1 Then
ritardo = fine - ultimaUscita(numero)

' Se il ritardo del numero coincide con il ritardo corrente del ciclo
If ritardo = ritardoCorrente Then
If ritardoCorrente = fine - ultimaUscita(numero) Then ' Controllo di sicurezza
' Conteggio globale dei non ripetuti
If ritardoCorrente = ritardo Then
' (Il contatore aumenta una sola volta per numero trovato)
End If
End If

' Incrementiamo il contatore dei numeri unici totali alla prima intercettazione
' Nota: dato che verifichiamo ritardo = ritardoCorrente, ogni numero entra qui una sola volta
contatoreUnici = contatoreUnici + 1

' Filtro Ritardo Minimo 6 e Massimo 15
If ritardo >= 6 And ritardo <= 15 Then
elencoEvidenziati = elencoEvidenziati & numero & " (R:" & ritardo & ") "
contatoreEvidenziati = contatoreEvidenziati + 1
Else
elencoNumeri = elencoNumeri & numero & " (R:" & ritardo & ") "
End If
End If
End If
Next
Next

' Ricerca dei numeri più ripetuti (presenze >= 2), ordinati per frequenza decrescente
elencoRipetuti = ""
Dim f, contatoreRipetuti
contatoreRipetuti = 0

' Ciclo a ritroso sulle frequenze (da 5 uscite massime teorete a scendere fino a 2)
For f = 5 To 2 Step -1
For numero = 1 To 90
If presenze(numero) = f Then
elencoRipetuti = elencoRipetuti & numero & " (Pres:" & f & ") "
contatoreRipetuti = contatoreRipetuti + 1
End If
Next
Next

' --- STAMPA OUTPUT ---

' 1. Sezione numeri usciti 1 sola volta
Scrivi "Totale numeri usciti UNA SOLA VOLTA: " & contatoreUnici

If contatoreEvidenziati > 0 Then
ColoreTesto 2 ' Rosso per evidenziare i numeri target
Scrivi "NUMERI TARGET (Ritardo 6-15) [Ord. Ritardo Decrescente]: " & elencoEvidenziati, 1
ColoreTesto 0
Else
Scrivi "Nessun numero target (Ritardo 6-15) trovato."
End If

If elencoNumeri <> "" Then
Scrivi "Altri non ripetuti (fuori dal range di ritardo) [Ord. Ritardo Decrescente]: " & elencoNumeri
End If

' 2. Sezione numeri più ripetuti (almeno 2 uscite)
Scrivi ""
If contatoreRipetuti > 0 Then
ColoreTesto 9 ' Verde scuro/Ciano per i numeri più frequenti
Scrivi "NUMERI PIÙ RIPETUTI (Almeno 2 uscite nelle 18 estr.):", 1
ColoreTesto 0
Scrivi elencoRipetuti
Else
Scrivi "Nessun numero ripetuto (caso estremamente raro)."
End If

Scrivi "" ' Riga vuota di spaziatura tra le ruote
Next

Scrivi String(75, "="), 1
End Sub

 

[joe]

Ho tolto lo script che c'era, perché con le modifiche non funzionava bene.

Ne ho messo uno nuovo che dovrebbe funzionare.

 

[oracolotto]

Grazie joe !

 

[oracolotto]

Ciao Oracolotto, Buona Domenica a tutte/i.

Come altrove, apro una parentesi chiusa.

(Per evitarmi altri insulti, che non fanno onore a chi li scrive).

Lo script che mi hai chiesto è come una marionetta senza la voce ed i comandi del burattinaio.

Come un inutile acchiappapolvere, per chi non lo sa gestire.

Basta inserire Lunghetta e ruote in cui controllare.

I valori inseriti devono essere separati da un punto. "." (Come nell'esempio proposto)

Option Explicit
Sub Main
   'Verifica Esiti (18 Estr) x Oracolotto.
   'Script By Joe V.2.0 del 19/07/2026
   Dim Nu,Ru(1),I,Ini,Fin,Es,P,E,G,R,O
   Ini = EstrazioneFin - 85 : Fin = EstrazioneFin : Ru(1) = BA_
   Nu = Split("0." & "28.31.85.51.83.19.37.52.54.14.74.75.58.55.84",".")
   Scrivi SiglaRuota(Ru(1)) & " " & StringaNumeri(Nu) & Chr(13),1,,,2
   For Es = Ini To Fin : R = Fin - Es
      Call VerificaEsito(Nu,Ru,Es,1,1,,E,,O)
      If O = "" Then O = SiglaRuota(Ru(1)) & " .. .. .. .. .."
      Scrivi FormatSpace(R,3) & DataEstrazione(Es,,,"/") & " " & O & " " &(E)
      If R Mod 18 = 0 Then Scrivi
   Next
End Sub

PS: Ringrazio Ramco anche lui mio Maestro , Salvo e Bubù.

Buongiorno joe, noto, se non erro, che hai personalizzato la composizione dei 15 n. che hai inserito nel tuo script per la verifica a ritroso (estraz. generatrice 14/7/26) secondo un tuo criterio:

- 5 n. tra i n. più ripetuti ( con 2 pres. );
- 4 n. tra i rit 6/15 ( con rit. 13-12-11);
- 2 n. tra quelli fuori range ( rit. 17 e 16 ).

Ho visto bene ? Giusto ?

poi ci sono 4 n. : 28 - 85 - 51 - 83 non ricompresi in nessuno dei 3 report. Con quale criterio li hai scelti ?

Solo per avere qualche elemento in più utile, da chi è più bravo ed esperto di me, per eventuale aggiustamento dello script...

Grazie !!!

 

[joe]

Buongiorno joe, noto, se non erro, che hai personalizzato la composizione dei 15 n. che hai inserito nel tuo script per la verifica a ritroso (estraz. generatrice 14/7/26) secondo un tuo criterio:

- 5 n. tra i n. più ripetuti ( con 2 pres. );
- 4 n. tra i rit 6/15 ( con rit. 13-12-11);
- 2 n. tra quelli fuori range ( rit. 17 e 16 ).

Ho visto bene ? Giusto ?

poi ci sono 4 n. : 28 - 85 - 51 - 83 non ricompresi in nessuno dei 3 report. Con quale criterio li hai scelti ?

Solo per avere qualche elemento in più utile, da chi è più bravo ed esperto di me, per eventuale aggiustamento dello script...

Grazie !!!

Innanzi tutto ed in premessa, ho modificato il mio script (sempre allo stesso messaggio).

Come ho scritto (allora) l'archivio era aggiornabile fino al 14/07/2026, la data in cui "a caso"

cioè non scelta da me Reacher ha pubblicato il suo script.

Eseguendo questo suo script, per la prima ruota (Bari), quindi nuovamente senza scelta da parte mia,

sono calcolati quei numeri: 15 numeri a caso. che sono generati una Estrazione che viene "dal futuro".

Cioè ho preso a caso, una quindicina a caso, tra i "miliardi di miliardi" di quindicine che ESISTONO,

formata da numeri che non sono conosciuti al tempo al quale retrocede il mio script.

I risultati sono quelli indicati dallo script (nel quale adesso è anche possibile scegliere una ruota diversa da Bari)

Cioè TUTTE, UNA AD UNA ed ASSIEME.

 

[ppaaoolloo]

Sub Main()
Dim r, p, es, numero
Dim fine, inizio, colpi
Dim presenze(90)
Dim ultimaUscita(90)
Dim elencoNumeri, elencoEvidenziati, elencoRipetuti
Dim contatoreUnici, contatoreEvidenziati

colpi = 18
fine = EstrazioneFin
inizio = (fine - colpi) + 1

' Intestazione Generale dello Script
Scrivi String(75, "="), 1
Scrivi "ANALISI DI TUTTE LE RUOTE SINGOLE - ULTIME " & colpi & " ESTRAZIONI", 1
Scrivi "Intervallo analizzato: da n. " & inizio & " (" & DataEstrazione(inizio) & ") a n. " & fine & " (" & DataEstrazione(fine) & ")", 1
Scrivi String(75, "="), 1
Scrivi ""

' Ciclo su tutte le ruote (da 1 a 10 per le classiche, 12 per la Nazionale)
For r = 1 To 12
'If r <> 11 Then ' Salta la ruota "Tutte"

Scrivi String(60, "-")
ColoreTesto 1 ' Blu per il nome della ruota
Scrivi "RUOTA DI: " & NomeRuota(r), 1
ColoreTesto 0
Scrivi String(60, "-")

' Inizializzazione degli array per la ruota corrente
For numero = 1 To 90
presenze(numero) = 0
ultimaUscita(numero) = 0
Next

' Lettura delle estrazioni per la ruota corrente
For es = inizio To fine
For p = 1 To 5
Dim estrattoCorrente
estrattoCorrente = Estratto(es, r, p)

If estrattoCorrente > 0 And estrattoCorrente <= 90 Then
presenze(estrattoCorrente) = presenze(estrattoCorrente) + 1
ultimaUscita(estrattoCorrente) = es
End If
Next
Next

' Analisi dei numeri e verifica del filtro sul ritardo (6-15) - ORDINATI PER RITARDO DECRESCENTE
elencoNumeri = ""
elencoEvidenziati = ""
contatoreUnici = 0
contatoreEvidenziati = 0

' Ciclo a ritroso sui possibili ritardi (da colpi a 0) per garantire l'ordine decrescente
Dim ritardoCorrente, ritardo
For ritardoCorrente = colpi To 0 Step -1
For numero = 1 To 90
If presenze(numero) = 1 Then
ritardo = fine - ultimaUscita(numero)

' Se il ritardo del numero coincide con il ritardo corrente del ciclo
If ritardo = ritardoCorrente Then
If ritardoCorrente = fine - ultimaUscita(numero) Then ' Controllo di sicurezza
' Conteggio globale dei non ripetuti
If ritardoCorrente = ritardo Then
' (Il contatore aumenta una sola volta per numero trovato)
End If
End If

' Incrementiamo il contatore dei numeri unici totali alla prima intercettazione
' Nota: dato che verifichiamo ritardo = ritardoCorrente, ogni numero entra qui una sola volta
contatoreUnici = contatoreUnici + 1

' Filtro Ritardo Minimo 6 e Massimo 15
If ritardo >= 6 And ritardo <= 15 Then
elencoEvidenziati = elencoEvidenziati & numero & " (R:" & ritardo & ") "
contatoreEvidenziati = contatoreEvidenziati + 1
Else
elencoNumeri = elencoNumeri & numero & " (R:" & ritardo & ") "
End If
End If
End If
Next
Next

' Ricerca dei numeri più ripetuti (presenze >= 2), ordinati per frequenza decrescente
elencoRipetuti = ""
Dim f, contatoreRipetuti
contatoreRipetuti = 0

' Ciclo a ritroso sulle frequenze (da 5 uscite massime teorete a scendere fino a 2)
For f = 5 To 2 Step -1
For numero = 1 To 90
If presenze(numero) = f Then
elencoRipetuti = elencoRipetuti & numero & " (Pres:" & f & ") "
contatoreRipetuti = contatoreRipetuti + 1
End If
Next
Next

' --- STAMPA OUTPUT ---

' 1. Sezione numeri usciti 1 sola volta
Scrivi "Totale numeri usciti UNA SOLA VOLTA: " & contatoreUnici

If contatoreEvidenziati > 0 Then
ColoreTesto 2 ' Rosso per evidenziare i numeri target
Scrivi "NUMERI TARGET (Ritardo 6-15) [Ord. Ritardo Decrescente]: " & elencoEvidenziati, 1
ColoreTesto 0
Else
Scrivi "Nessun numero target (Ritardo 6-15) trovato."
End If

If elencoNumeri <> "" Then
Scrivi "Altri non ripetuti (fuori dal range di ritardo) [Ord. Ritardo Decrescente]: " & elencoNumeri
End If

' 2. Sezione numeri più ripetuti (almeno 2 uscite)
Scrivi ""
If contatoreRipetuti > 0 Then
ColoreTesto 9 ' Verde scuro/Ciano per i numeri più frequenti
Scrivi "NUMERI PIÙ RIPETUTI (Almeno 2 uscite nelle 18 estr.):", 1
ColoreTesto 0
Scrivi elencoRipetuti
Else
Scrivi "Nessun numero ripetuto (caso estremamente raro)."
End If

Scrivi "" ' Riga vuota di spaziatura tra le ruote
Next

Scrivi String(75, "="), 1
End Sub

ciao,
potresti vedere se è esatto,
l'ho provato anche con altri
numeri di estrazioni, partendo
anche da 1 estrazione ma il
risultato è sempre uguale,
cioè 0

 

[Reacher]

su ogni ruota appare il numero uscito una volta..... non sto capendo