| Questo listato non è mio, l'ho trovato in rete qualche tempo fa. I listati semplici riesco a modificarli, ma questi non saprei dove mettere le mani.
'BaseF Scaravetti
Sub main()
Dim nn(15000): Dim numeri(90): Dim numeri5(90): Dim numeri6(90): Dim numeri7(90)
Dim numeri2(90): Dim mat(15000,90): Dim numeri8(90): Dim numeri9(90)
Dim n1(90): Dim n2(90): Dim n5(90): Dim n6(90): Dim n7(90): Dim n8(90)
Dim n3(90): Dim n4(90): Dim n9(90): Dim n10(90)
For x=1 To 90
n1(x)=0:n2(x)=0:n3(x)=0:n4(x)=0:numeri(x)=0:numeri2(x)=0
numeri5(x)=0:numeri6(x)=0:numeri7(x)=0:numeri8(x)=0:numeri9(x)=0
n5(x)=0:n6(x)=0:n7(x)=0:n8(x)=0:n9(x)=0:n10(x)=0
Next
fin=EstrazioneFin
estr=InputBox("Quante estrazioni vuoi controllare?",,8)
vv=InputBox("Su quante vuoi trovare i frequenti?",,4)
vvv=Eval(vv)-1
ini=fin-(Eval(estr)+17)
co=0:ca=0:ca1=0:ca2=0:cu=0:ca3=0
cc1=0:cc2=0:cc3=0:cc4=0:cc5=0
For es=ini To fin
If es=>ini+18 Then
End If
co=co+1
AvanzamentoElab ini,fin,es
For r=1 To 1
r1=r:r2=r+1:r3=r+2:r4=r+3:r5=r+4
For es1=es-vvv To es
For e=1 To 5
b=Estratto(es1,r1,e)
numeri(b)=numeri(b)+1
b=Estratto(es1,r2,e)
numeri(b)=numeri(b)+1
b=Estratto(es1,r3,e)
numeri(b)=numeri(b)+1
b=Estratto(es1,r4,e)
numeri(b)=numeri(b)+1
b=Estratto(es1,r5,e)
numeri(b)=numeri(b)+1
Next
Next
For es3=es-17 To es
For e1=1 To 5
b1=Estratto(es3,r1,e1)
numeri5(b1)=numeri5(b1)+1
b2=Estratto(es3,r2,e1)
numeri6(b2)=numeri6(b2)+1
b3=Estratto(es3,r3,e1)
numeri7(b3)=numeri7(b3)+1
b4=Estratto(es3,r4,e1)
numeri8(b4)=numeri8(b4)+1
b5=Estratto(es3,r5,e1)
numeri9(b5)=numeri9(b5)+1
Next
Next
For x=1 To 90
mat(es,x)=0
If numeri(x)>=3 And co>3 Then
cu=cu+1:n10(cu)=x:mat(es,x)=mat(es,x)+1
End If
numeri(x)=0
Next
For es2=es-2 To es
For x=1 To 90
If mat(es2,x)>0 Then
numeri2(x)=numeri2(x)+1
End If
Next
Next
For x=1 To 90
If numeri2(x)=1 Then : ca=ca+1 : n1(ca)=x : End If
If numeri2(x)=2 Then : ca1=ca1+1 : n2(ca1)=x : End If
If numeri2(x)=>3 Then : ca2=ca2+1 : n3(ca2)=x : End If
If numeri5(x)>2 Then : cc1=cc1+1 : n5(cc1)=x End If
If numeri6(x)>2 Then : cc2=cc2+1 : n6(cc2)=x End If
If numeri7(x)>2 Then : cc3=cc3+1 : n7(cc3)=x End If
If numeri8(x)>2 Then : cc4=cc4+1 : n8(cc4)=x End If
If numeri9(x)>2 Then : cc5=cc5+1 : n9(cc5)=x End If
numeri2(x)=0:numeri5(x)=0:numeri6(x)=0:numeri7(x)=0:numeri8(x)=0:numeri9(x)=0
Next
nn(es)=n10
If es=>ini+18 Then
Scrivi : Scrivi
Scrivi "*****************************"&DataEstrazione(es)&"****************************************"
Scrivi
Scrivi " Ultime 6 estrazioni precedenti per il controllo delle uscite"
Scrivi
Scrivi " "& StringaEstratti(es-5,r1)&" "& StringaEstratti(es-5,r2)&" "&StringaEstratti(es-5,r3)&" "&StringaEstratti(es-5,r4)&" "&StringaEstratti(es-5,r5)
Scrivi " "& StringaEstratti(es-4,r1)&" "& StringaEstratti(es-4,r2)&" "&StringaEstratti(es-4,r3)&" "&StringaEstratti(es-4,r4)&" "&StringaEstratti(es-4,r5)
Scrivi " "& StringaEstratti(es-3,r1)&" "& StringaEstratti(es-3,r2)&" "&StringaEstratti(es-3,r3)&" "&StringaEstratti(es-3,r4)&" "&StringaEstratti(es-3,r5)
Scrivi " "& StringaEstratti(es-2,r1)&" "& StringaEstratti(es-2,r2)&" "&StringaEstratti(es-2,r3)&" "&StringaEstratti(es-2,r4)&" "&StringaEstratti(es-2,r5)
Scrivi " "& StringaEstratti(es-1,r1)&" "& StringaEstratti(es-1,r2)&" "&StringaEstratti(es-1,r3)&" "&StringaEstratti(es-1,r4)&" "&StringaEstratti(es-1,r5)
Scrivi " "& StringaEstratti(es,r1)&" "& StringaEstratti(es,r2)&" "&StringaEstratti(es,r3)&" "&StringaEstratti(es,r4)&" "&StringaEstratti(es,r5)
Scrivi
Scrivi
Scrivi " Numeri con frequenza 3 o superiore delle ultime 3 estrazioni precedenti"
Scrivi
Scrivi " Rilevati prendendo in considerazione "&Eval(vv)&" estrazioni"
Scrivi
Scrivi
Scrivi " 3° Estraz.: "&StringaNumeri(nn(es-2))
Scrivi " 2° Estraz.: "&StringaNumeri(nn(es-1))
Scrivi " 1° Estraz.: "&StringaNumeri(nn(es))
Scrivi : Scrivi
ColoreTesto(2)
Scrivi " Presenti 1 volta: "& StringaNumeri(n1)
Scrivi " Presenti 2 volte: "& StringaNumeri(n2)
Scrivi " Presenti 3 volte: "& StringaNumeri(n3)
ColoreTesto(1): Scrivi : Scrivi
Scrivi " Numeri con frequenza 3 o superiore su ogni ruota nelle 18 estrazioni precedenti"
Scrivi
Scrivi
Scrivi " "&FormatSpace(NomeRuota(r1),10)&" : "& StringaNumeri(n5)
Scrivi " "&FormatSpace(NomeRuota(r2),10)&" : "& StringaNumeri(n6)
Scrivi " "&FormatSpace(NomeRuota(r3),10)&" : "& StringaNumeri(n7)
Scrivi " "&FormatSpace(NomeRuota(r4),10)&" : "& StringaNumeri(n8)
Scrivi " "&FormatSpace(NomeRuota(r5),10)&" : "& StringaNumeri(n9)
ColoreTesto(0): Scrivi : Scrivi
Scrivi "-------------------------------------------------------------------------------"
End If
For i=1 To 90
n1(i)=0:n2(i)=0:n3(i)=0:n4(i)=0:n10(i)=0
n5(i)=0:n6(i)=0:n7(i)=0:n8(i)=0:n9(i)=0
Next
ca=0:ca1=0:ca2=0:cu=0:ca3=0
cc1=0:cc2=0:cc3=0:cc4=0:cc5=0
Next
Next
End Sub
Questo listato da i numeri usciti in frequenza, solo che mi da solo le prime 5 ruote, mentre io le vorrei tutte undici compresa la nazionale e se possibile sapere se fra le frequenze si sono formati degli ambi
Penso che il nome del creatore di questo script sia quello indicato prima del Submain. Lo posto come l'ho trovato. Grazie
|
