| 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
|