Novità

Chiedo questo Script ai Scripter

trivellatomariotretre33

Super Member >PLATINUM<
Buonasera a tutti, desideravo sapere se sia possibile questo tipo di ricerca:
ricercare su ogni ruota, in ogni posizione e in ogni estrazione del mese,
i numeri che si ripetono con maggiore presenza su altre ruote e determinare quale posizione
ha la maggiore frequenza di tali numeri.
Per esempio: alla 8a estrazione mensile i numeri che si sono ripetuti maggiormente
sulle ruote di Roma e Venezia sono:
Bari = 3° estratto
Genova = 1° estratto
Napoli = 2° estratto
 
Ciao, se ti può interessare ti mando un listato, di molto tempo fa, ma sempre interessante, se lo sai modificare a tuo piacere, o comunque lo potrai studiare così com'è secondo i tuoi studi.
Ti inserisco il resoconto, per prima cosa, e ti mando veloce spiegazione :

RESOCONTO :

volte che si è ripetuto il 1° estratto di Bari nell'estrazione successiva nella ruota di Nazionale


10221 / 10222 1° estratto n° 73 a Bari riestratto a Nazionale n° 73
10223 / 10224 1° estratto n° 51 a Bari riestratto a Nazionale n° 51
10225 / 10226 1° estratto n° 23 a Bari riestratto a Nazionale n° 23

volte che si è ripetuto il 2° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10202 / 10203 2° estratto n° 61 a Bari riestratto a Nazionale n° 61
10246 / 10247 2° estratto n° 9 a Bari riestratto a Nazionale n° 9
10264 / 10265 2° estratto n° 82 a Bari riestratto a Nazionale n° 82
10272 / 10273 2° estratto n° 56 a Bari riestratto a Nazionale n° 56

volte che si è ripetuto il 3° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10204 / 10205 3° estratto n° 69 a Bari riestratto a Nazionale n° 69
10246 / 10247 3° estratto n° 59 a Bari riestratto a Nazionale n° 59
10250 / 10251 3° estratto n° 50 a Bari riestratto a Nazionale n° 50
10270 / 10271 3° estratto n° 70 a Bari riestratto a Nazionale n° 70

volte che si è ripetuto il 4° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10219 / 10220 4° estratto n° 40 a Bari riestratto a Nazionale n° 40
10229 / 10230 4° estratto n° 53 a Bari riestratto a Nazionale n° 53
10240 / 10241 4° estratto n° 37 a Bari riestratto a Nazionale n° 37
10242 / 10243 4° estratto n° 89 a Bari riestratto a Nazionale n° 89
10255 / 10256 4° estratto n° 77 a Bari riestratto a Nazionale n° 77
10270 / 10271 4° estratto n° 82 a Bari riestratto a Nazionale n° 82

volte che si è ripetuto il 5° estratto di Bari nell'estrazione successiva nella ruota di Nazionale

10216 / 10217 5° estratto n° 24 a Bari riestratto a Nazionale n° 24
10220 / 10221 5° estratto n° 69 a Bari riestratto a Nazionale n° 69

le totali ripetizioni dei 5 estratti sono 19 volte


scelta una ruota, potrai impostare una seconda ruota per vederne gli esiti.
Nel listato ho impostato come 1° ruota Bari, e poi ho inserito come 2° ruota la Nazionale per vedere tra gli estratti di Bari, ad ogni estrazione consecutiva, cioè, ad un solo colpo, quali estratti si sono ripetuti nella ruota Nazionale e in quale posizione.

LISTATO :
Option Explicit
Sub Main
Dim Ini,fine,ct,retestratti,retidestr,nu,j,r1,ru2,rudue,p2,p3,p4,p5,p6,es2,es1,i,ct2
Dim an(1),ar(10),dati(10,5),cip
cip = 10200
r1 = 1 ' <-------------- 1^ ruota
rudue = 12 ' <---------- 2^ ruota
Ini = cip
fine = 10274
For j = 1 To 1
ar(j) = j
Next
For Ini = Ini + 1 To 10274
nu = Estratto(Ini,r1,1)
an(1) = nu
Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
If retestratti <> "" Then
ct = ct + 1
End If
Next
ColoreTesto 1
Scrivi"volte che si è ripetuto il 1° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,1)
i = Ini
For ru2 = rudue To rudue
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
ct2 = ct2 + 1
Scrivi Ini & " / " & Ini + 1 & " 1° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 2° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,r1,2)
i = Ini
For ru2 = rudue To rudue
For p3 = 1 To 5
es2 = Estratto(i + 1,ru2,p3)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 2° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 1
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 3° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,3)
i = Ini
For ru2 = rudue To rudue
For p4 = 1 To 5
es2 = Estratto(i + 1,ru2,p4)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 3° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 4° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,4)
i = Ini
For ru2 = rudue To rudue
For p5 = 1 To 5
es2 = Estratto(i + 1,ru2,p5)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 4° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi"volte che si è ripetuto il 5° estratto di " & NomeRuota(r1) & " nell'estrazione sucessiva nella ruota di " & NomeRuota(rudue),1
ColoreTesto 0
Scrivi
Ini = cip
For Ini = Ini + 1 To 10274
es1 = Estratto(Ini,1,5)
i = Ini
For ru2 = rudue To rudue
For p6 = 1 To 5
es2 = Estratto(i + 1,ru2,p6)
If es1 = es2 Then
ct2 = ct2 + 1
ColoreTesto 0
Scrivi Ini & " / " & Ini + 1 & " 5° estratto n° " & es1 & " a " & NomeRuota(r1) & " riestrato a " & NomeRuota(rudue) & " n° " & es2
ColoreTesto 0
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "le totali ripetizioni dei 5 estratti sono " & ct2 & " volte ",1
End Sub

Buona Fortuna !! 🍀🍀
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto