Un saluto a tutti, per luana62 e Cinzia27....se puņ interessante io ho questo script realizzato da drago2940 .
Il listato che chiede Luana62 con equazioni diverse uguali purtroppo io non ne capisco niente di programmazione e passo la palla alla bravissima Cinzia27 
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10:If r1=11 Then r1=12
a1=Estratto(es,r1,1):a2=Estratto(es,r1,2):a3=Estratto(es,r1,3):a4=Estratto(es,r1,4):a5=Estratto(es,r1,5)
For r2=r1+1 To 11:If r2=11 Then r2=12
b1=Estratto(es,r2,1):b2=Estratto(es,r2,2):b3=Estratto(es,r2,3):b4=Estratto(es,r2,4):b5=Estratto(es,r2,5)
k1=Fuori90(a1+a2+a3+a4+a5)
If k1<10 Then k1=k1+90
If k1=90 Then k1=99
k2=Fuori90(a2+a3+a4+a5+b1)
If k2<10 Then k2=k2+90
If k2=90 Then k2=99
k3=Fuori90(a3+a4+a5+b1+b2)
If k3<10 Then k3=k3+90
If k3=90 Then k3=99
k4=Fuori90(a4+a5+b1+b2+b3)
If k4<10 Then k4=k4+90
If k4=90 Then k4=99
k5=Fuori90(a5+b1+b2+b3+b4)
If k5<10 Then k5=k5+90
If k5=90 Then k5=99
k6=Fuori90(b1+b2+b3+b4+b5)
If k6<10 Then k6=k6+90
If k6=90 Then k6=99
j1=Fuori90((90+a1)-a2):j2=Fuori90((90+a2)-a3):j3=Fuori90((90+a3)-a4):j4=Fuori90((90+a4)-a5):j5=Fuori90((90+a5)-b1)
:j6=Fuori90((90+b1)-b2)
w1=Fuori90((90+k1)-k2):w2=Fuori90((90+k2)-k3):w3=Fuori90((90+k3)-k4):w4=Fuori90((90+k4)-k5):w5=Fuori90((90+k5)-k6)
k7=Fuori90(j1+j2+j3+j4+j5+j6+w1+w2+w3+w4+w5)
y1=Fuori90(k1+k2+k3+k4+k5+k6):y2=Fuori90(y1+k7)
If y2=90 Then
y3=Fuori90(k7+b1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&"."
Scrivi String(65,"-")
Scrivi " a b c d e f g"
Scrivi " "&Format2(a1)&"."&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&_
"."&Format2(b2)&". H"
Scrivi " "&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&_
"."&Format2(b3)&". I"
Scrivi " "&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&_
"."&Format2(b4)&". L"
Scrivi " "&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&_
"."&Format2(b5)&". M"
Scrivi " "&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&"."_
&Format2(b5)&".("&Format2(y3)&"). N"
Scrivi String(20,"-")&" somme delle colonne a b c d e f "
Scrivi " "&Format2(k1)&"."&Format2(k2)&"."&Format2(k3)&"."&Format2(k4)&"."&Format2(k5)&"."&Format2(k6)&" O"
Scrivi String(20,"-")&" Differenze Colonna H"
Scrivi " "&Format2(j1)&"."&Format2(j2)&"."&Format2(j3)&"."&Format2(j4)&"."&Format2(j5)&"."&Format2(j6)
Scrivi String(20,"-")&" Differenze Colonna O"
Scrivi " "&Format2(w1)&"."&Format2(w2)&"."&Format2(w3)&"."&Format2(w4)&"."&Format2(w5)&"."
Scrivi String(20,"-")&" Somma delle Differenze "&Format2(k7)&" ."
Scrivi String(20,"-")&" 1° Equazione a 90 >"&Format2(k7)&" Somma Differenze + Colonna < O > "&Format2(y1)&_
" = "&Format2(y2)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruota(1)=11:k=13:co=0:ruote(2)=r2::ruote(3)=12
nu2(1)=y3
nu2(2)=k7
nu2(3)=y1
nu2(4)=90
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub
Edited by daniel112 - 22/9/2018, 16:16
