per Blackmore cortesemente da Antonio65

[antonio65]

Ciao Blackmore, trovandomi uno script da te ideato(miglior ambo inserendo il capogioco) volevo chiedere
se cortesemente con lo stesso script(variato come metodo mio personale) ho scritto all'interno dello script...
Si tratta di trovare il miglior risultato(come ambata... quindi x numero uscito più volte su casi x ....
e poi cercare sempre con lo stesso metodo i migliori abbinamenti...te ne sarei veramente grato.Antonio65!!!

Sub Main()
Scrivi: Scrivi String(25," ") & "ABBINAMENTI + FREQUENTI CON IL CAPOGIOCO BY BLACKMORE * FORUM LOTTOPASSION *"
Scrivi
Dim mt(90,3),n(1),ru(1)
r = CInt(InputBox("RUOTA DI RICERCA ?","Blackmore",1))
a = CInt(InputBox("CAPOGIOCO ? ","Blackmore",90))
tot = CInt(InputBox("QUANTI ABBINAMENTI VUOI VEDERE ? " + Chr(13) + "METTERE 89 PER VEDERE TUTTI I NUMERI","Blackmore",10))
cont = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ? ","Blackmore",10))
ru(1) = r
caso = 0
fin = EstrazioneFin
ini = EstrazioneFin - cont
For es = EstrazioneFin To 1 Step - 1
If caso < cont Then
If Posizione(es,r,a) > 0 Then
caso = caso + 1
co = 0
For x = 1 To 90
n(1) = x
If n(1) <> a Then
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
fr = SerieFreq(es,es,n,ru,1)
mt(co,3) = mt(co,3) + fr
End If
Next
DNA1 =(a01 + a02)*4' 1°&2° estratto
DNA2 =(a01 + a03)*4' 1°&3° estratto
DNA3 =(a01 + a04)*4' etc etc
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4

MEN1 = nu*4'numero x per migliori casi
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))'risultato
b02 = Fuori90(Abs((Abs((MEN2 - DNA2))/4)))'risultato
b03 = Fuori90(Abs((Abs((MEN3 - DNA3))/4)))'risultato
b04 = Fuori90(Abs((Abs((MEN4 - DNA4))/4)))'risultato
b05 = Fuori90(Abs((Abs((MEN5 - DNA5))/4)))'risultato

ColoreTesto 1
Scrivi "[N°" & es & "] " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r)
ColoreTesto 0
End If
End If
Next
OrdinaMatrice mt,- 1,3
Scrivi:Scrivi
Scrivi "RUOTA DI RICERCA/RILEVAMENTO: " & UCase(NomeRuota(r))
Scrivi "CAPOGIOCO: " & Format2(a)
Scrivi "CASI ESAMINATI: " & Format2(caso)
Scrivi "ABBINAMENTI + FREQUENTI CON IL CAPOGIOCO:":Scrivi
Scrivi String(59,"="),1
For co = 1 To tot
Scrivi "Il n° " & Format2(mt(co,2)) & " si è abbinato " & Format2(mt(co,3)) & " volte " & " su " & Format2(caso) & " casi [" & Format2(a) & "-" & Format2(mt(co,2)) & "]"
Next
Scrivi String(59,"="),1
End Sub