Tempo fa,qualche anno fa,postai una lunghetta che diede quaterna. Ciò derivava da una mole di numeri esagerata. In effetti,e potete controllare visivamente,se si utilizzano decine 30,60,80 e le cadenze 3,6,8 vengono fuori nelle estrazioni quaterne e cinquine. Es: nell'ultima est del 18/03/25 si nota MI 62-65-80-78 senza calcolare i terni. Ora, troppi numeri da poter giocare,anche in decina,quindi servirebbe uno script che analizzi le frequenze di sortita solo di Q/C di questa massa di numeri su ogni ruota,Nazionale compresa. Ovviamente serve anche l'elenco dei numeri sortiti. E' fattibile uno script del genere? (il totale della massa numerica è composta da 48 numeri).
controlla questo script se rispetta tutte le regole
Sub Main
Dim es, r, p, q, c
Dim aNumeri(48)
Dim nTrovati, sNumeri, sEsito
Dim k, idNum
' 1. Generazione automatica della massa dei 48 numeri
k = 0
For idNum = 1 To 90
Dim dec, cad
dec = CInt(idNum \ 10)
cad = idNum Mod 10
If (dec = 3 Or dec = 6 Or dec = 8) Or (cad = 3 Or cad = 6 Or cad = 8) Then
k = k + 1
aNumeri(k) = idNum
End If
Next
If k <> 48 Then
MsgBox "Attenzione: i numeri generati sono " & k & " anziché 48. Controlla le regole.", vbCritical
Exit Sub
End If
' --- VISUALIZZAZIONE MASSA DEI 48 NUMERI A MONTE ---
ColoreTesto 2
Scrivi "================================================================================"
Scrivi " MASSA NUMERICA DI ANALISI (Totale Numeri: " & k & ")"
Scrivi " Decine: 30, 60, 80 | Cadenze: 3, 6, 8"
Scrivi "================================================================================"
Dim sElenco, i
sElenco = ""
For i = 1 To 48
sElenco = sElenco & Format2(aNumeri(i)) & " "
If i = 24 Then ' Spezza su due righe per pulizia visiva
Scrivi sElenco
sElenco = ""
End If
Next
Scrivi sElenco
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1
' Intestazione Tabella Risultati
Scrivi " STORICO EVENTI DI QUATERNA E CINQUINA"
Scrivi "--------------------------------------------------------------------------------"
Scrivi " N. | Data | Ruota | Esito | Numeri Sortiti"
Scrivi "--------------------------------------------------------------------------------"
Dim cTotEventi
cTotEventi = 0
' 2. Scansione dell'archivio storico
For es = 3549 To EstrazioniArchivio
If ScriptInterrotto Then
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi "--> Elaborazione interrotta dall'utente.", True
Exit Sub
End If
For r = 1 To 12
If r <> 11 Then
Dim rVera
rVera = r
If r = 12 Then rVera = 11
nTrovati = 0
sNumeri = ""
For p = 1 To 5
Dim nEstratto
nEstratto = Estratto(es, rVera, p)
If Sme_InVettore(nEstratto, aNumeri) Then
nTrovati = nTrovati + 1
sNumeri = sNumeri & Format2(nEstratto) & " "
End If
Next
If nTrovati >= 4 Then
cTotEventi = cTotEventi + 1
If nTrovati = 4 Then sEsito = "QUATERNA" Else sEsito = "CINQUINA"
' Riga compatta allineata
Scrivi FormatSpace(cTotEventi, 4, True) & " | " & _
DataEstrazione(es) & " | " & _
FormatSpace(NomeRuota(rVera), 10, False) & " | " & _
FormatSpace(sEsito, 8, False) & " | " & _
sNumeri
End If
End If
Next
Next
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi "Scansione completata. Totale eventi trovati: " & cTotEventi
ColoreTesto 0
End Sub
Function Sme_InVettore(n, aVett)
Dim i
Sme_InVettore = False
For i = 1 To UBound(aVett)
If aVett(i) = n Then
Sme_InVettore = True
Exit Function
End If
Next
End Function