| CITAZIONE (Cinzia28 @ 16/3/2021, 23:52) Ringrazio pablt, che mi ha anticipato. L' ho adattato a Spaziometria. Inoltre ho corretto un piccolo errore che mi impediva di avere il resoconto finale completo. Dimenticavo. Per ora si' limita a considerare il numero della prima posizione della ruota di Bari. Kabila, prova a vedere se adesso va. Sub Main()
Scrivi "Ricerca KABILA : storici addendo formato sottraendo ad ognuno dei 5 estratti su ruota il numero in prima posizione dell' estrazione precedente"
Scrivi "Script Cinzia"&Chr(10)
Dim n(2),n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),n9(2),s(10),ru(1),rur(1)
qq=10:qq1=20:qq2=30
rr=11
rur(1)=rr
For r=1 To 1
ru(1)=r
c=0
fin=EstrazioneFin
ini=1
For es=ini To fin-1
c=c+1
'For q=1 To 5
q=1
a=Estratto(es-1,r,q)
If a>0 Then
a1=Estratto(es,r,1)
a2=Estratto(es,r,2)
a3=Estratto(es,r,3)
a4=Estratto(es,r,4)
a5=Estratto(es,r,5)
n(1)=Fuori90(a1-a)
n(2)=Fuori90(a2-a)
n1(1)=Fuori90(a1-a)
n1(2)=Fuori90(a3-a)
n2(1)=Fuori90(a1-a)
n2(2)=Fuori90(a4-a)
n3(1)=Fuori90(a1-a)
n3(2)=Fuori90(a5-a)
n4(1)=Fuori90(a2-a)
n4(2)=Fuori90(a3-a)
n5(1)=Fuori90(a2-a)
n5(2)=Fuori90(a4-a)
n6(1)=Fuori90(a2-a)
n6(2)=Fuori90(a5-a)
n7(1)=Fuori90(a3-a)
n7(2)=Fuori90(a4-a)
n8(1)=Fuori90(a3-a)
n8(2)=Fuori90(a5-a)
n9(1)=Fuori90(a4-a)
n9(2)=Fuori90(a5-a)
s(1)=SeriePrima(es+1,EstrazioneFin,n,rur,2)
s(2)=SeriePrima(es+1,EstrazioneFin,n1,rur,2)
s(3)=SeriePrima(es+1,EstrazioneFin,n2,rur,2)
s(4)=SeriePrima(es+1,EstrazioneFin,n3,rur,2)
s(5)=SeriePrima(es+1,EstrazioneFin,n4,rur,2)
s(6)=SeriePrima(es+1,EstrazioneFin,n5,rur,2)
s(7)=SeriePrima(es+1,EstrazioneFin,n6,rur,2)
s(8)=SeriePrima(es+1,EstrazioneFin,n7,rur,2)
s(9)=SeriePrima(es+1,EstrazioneFin,n8,rur,2)
s(10)=SeriePrima(es+1,EstrazioneFin,n9,rur,2)
OrdinaMatriceTurbo s,1
If s(1)>0 Then
st=s(1)-es
If st>mx Then mx=st
If st>qq Then con=con+1
If st>qq1 Then con1=con1+1
If st>qq2 Then con2=con2+1
Messaggio FormatSpace(es-1,4,1)&") "&SiglaRuota(r)&" n. "&Format2(a)&" "&FormatSpace(es,4,1)&") "&StringaEstratti(es,r)&" ---> "&SiglaRuota(rr)&" "&_
StringaNumeri(n)&";"&StringaNumeri(n1)&";"&StringaNumeri(n2)&";"&StringaNumeri(n3)&";"&StringaNumeri(n4)_
&";"&StringaNumeri(n5)&";"&StringaNumeri(n6)&";"&StringaNumeri(n7)&";"&StringaNumeri(n8)&";"&StringaNumeri(n9)&" st "&FormatSpace(st,4,1)
Scrivi FormatSpace(es-1,4,1)&") "&SiglaRuota(r)&" n. "&Format2(a)&" "&FormatSpace(es,4,1)&") "&StringaEstratti(es,r)&" ---> "&SiglaRuota(rr)&" "&_
StringaNumeri(n)&";"&StringaNumeri(n1)&";"&StringaNumeri(n2)&";"&StringaNumeri(n3)&";"&StringaNumeri(n4)_
&";"&StringaNumeri(n5)&";"&StringaNumeri(n6)&";"&StringaNumeri(n7)&";"&StringaNumeri(n8)&";"&StringaNumeri(n9)&" st "&FormatSpace(st,4,1)
If SerieFreqTurbo(s(1),s(1),n,rur,2)>0 Then Scrivi StringaNumeri(n)
If SerieFreqTurbo(s(1),s(1),n1,rur,2)>0 Then Scrivi StringaNumeri(n1)
If SerieFreqTurbo(s(1),s(1),n2,rur,2)>0 Then Scrivi StringaNumeri(n2)
If SerieFreqTurbo(s(1),s(1),n3,rur,2)>0 Then Scrivi StringaNumeri(n3)
If SerieFreqTurbo(s(1),s(1),n4,rur,2)>0 Then Scrivi StringaNumeri(n4)
If SerieFreqTurbo(s(1),s(1),n5,rur,2)>0 Then Scrivi StringaNumeri(n5)
If SerieFreqTurbo(s(1),s(1),n6,rur,2)>0 Then Scrivi StringaNumeri(n6)
If SerieFreqTurbo(s(1),s(1),n7,rur,2)>0 Then Scrivi StringaNumeri(n7)
If SerieFreqTurbo(s(1),s(1),n8,rur,2)>0 Then Scrivi StringaNumeri(n8)
If SerieFreqTurbo(s(1),s(1),n9,rur,2)>0 Then Scrivi StringaNumeri(n9)
End If
End If
Next
Next
Scrivi " Massimo storico "&mx
Scrivi " St>"&qq&" "&con
Scrivi " St>"&qq1&" "&con1
Scrivi " St>"&qq2&" "&con2
End Sub ora lo lancio ma credo che stiamo parlando di 2 cose diverse poi ti faccio sapere  |
