richiesta scrip

[armando59]

Non so se magari è già stato fatto sarebbe possibile avere uno script che fa la ricerca su ogni ruota la frequenza dei 10 ambi più frequenti dall'inizio del lotto
Anche la nazionale
Grazie e buona giornata

 

[Mike58]

Questo mio script fatto qualche tempo fa elenca 6 ambi per ogni numero capogioco, ma con la tabellaOrdinabile puoi ordinare quello che ti interessa vedere e raccogliere il dato e gli ambi che vuoi.

Sub Main
Dim Ambi(8100,6)
Dim Ru(1),Nu(1),Abb(2),Nv(2)
Dim TotAbb,T,V
r = InputBox("QUALE RUOTA ANALIZZO",,5)
Call ScegliRange(Ini,fin,8072,EstrazioneFin)
'Ini = 8072
'fin = EstrazioneFin' - 1
'fine = EstrazioneFin
Scrivi "Scrpit By Mike58",1,,,1,3,,1
Scrivi "Range Inizio  : " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine    : " & GetInfoEstrazione(fin),1
Scrivi "Totali Estraz.: " & fin - Ini + 1
Scrivi "Ruota Scelta  : " & NomeRuota(r),1,,,1
Scrivi
T = Array(T,"Numero","Ambo Freq","Frequenza","Ritardo","Abbinamento Ritardo","EstrattoFreq")
Call InitTabella(T)
For n1 = 1 To 90
Nu(1) = n1
eF = EstrattoFrequenzaTurbo(r,n1,Ini,fin)
k = 0
For n2 = 1 To 90
Abb(1) = Nu(1)
Abb(2) = n2
Ru(1) = r
ambFr = SerieFreqTurbo(Ini,fin,Abb,Ru,2)
ambRit = SerieRitardoTurbo(Ini,fin,Abb,Ru,2)
estFr = EstrattoRitardoTurbo(Ru(1),n2,Ini,fin)
Ambi(k,1) = Abb(1)
Ambi(k,2) = Abb(2)
Ambi(k,3) = AmbFr
Ambi(k,4) = AmbRit
Ambi(k,5) = estFr
Ambi(k,6) = eF
k = k + 1
Next
OrdinaMatrice Ambi,- 1,3
For TotAbb = 1 To 6
Nv(1) = Ambi(TotAbb,1)
Nv(2) = Ambi(TotAbb,2)
V = Array(V,StringaNumeri(Nu),StringaNumeri(Nv),Ambi(TotAbb,3),Ambi(TotAbb,4),Ambi(TotAbb,5),Ambi(TotAbb,6))
Call AddRigaTabella(V)
If dispari(n1) Then Call SetColoreCella(1,1,5)
If pari(n1) Then Call SetColoreCella(1,6,1)
Next
Next
Call CreaTabellaOrdinabile()
k = 0
End Sub

 

[armando59]

grazie x la disponibilità buona serata.