| Ecco il listato in L8 Sub main() Dim nu2(10),nu1(10),nu3(10) Dim ruote(10),ruota(10) Dim poste(2) poste(2)=1 fin=EstrazioneFin ini=fin-100 For es=ini To fin AvanzamentoElab ini,fin,es For r1=1 To 10 n1=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,2)) n2=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,3)) n3=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,4)) n4=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,5)) n5=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,3)) n6=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,4)) n7=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,5)) n8=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,4)) n9=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,5)) n10=Fuori90(Estratto(es-2,r1,4)+Estratto(es-2,r1,5)) For p1=1 To 5 nn=Estratto(es-3,r1,p1) If nn=n1 Or nn=n2 Or nn=n3 Or nn=n4 Or nn=n5 Or nn=n6 Or nn=n7 Or nn=n8 Or nn=n9 Or nn=n10 Then c1=0:c2=0:c3=0 If nn=n1 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,2) If nn=n2 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,3) If nn=n3 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,4) If nn=n4 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,5) If nn=n5 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,3) If nn=n6 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,4) If nn=n7 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,5) If nn=n8 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,4) If nn=n9 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,5) If nn=n10 Then c1=nn :c2=Estratto(es-2,r1,4):c3=Estratto(es-2,r1,5) a1=90-c1 a2=90-c2 a3=90-c3 For r2=1 To 2 xs=es-3+r2 For r3=1 To 10 If r3<>r1 Then For p2=1 To 4 For p3=p2+1 To 5 b1=Estratto(xs,r3,p2) b2=Estratto(xs,r3,p3) If (b1=a1 And b2=a2 Or b1=a1 And b2=a3 Or b1=a2 And b2=a3)_ Or (b2=a1 And b1=a2 Or b2=a1 And b1=a3 Or b2=a2 And b1=a3) Then
If b1=a1 And b2=a2 Then w=a3 If b1=a1 And b2=a3 Then w=a2 If b1=a2 And b2=a3 Then w=a1
If b2=a1 And b1=a2 Then w=a3 If b2=a1 And b1=a3 Then w=a2 If b2=a2 And b1=a3 Then w=a1
casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es-3,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-3,r1)&_ " > Somma Triade < "&Format2(c2)&" + "&Format2(c3)&" = "&Format2(nn)&" . " Scrivi "Numeri da cercare nelle estrzzioni Precedenti "&Format2(a1)&" . "&Format2(a2)&" . "&Format2(a3)&" . " Scrivi DataEstrazione(xs,1)&" < "&siglaRuota(r3)& " "& StringaEstratti(xs,r3)&_ " > Trovati < "&Format2(b1)&" . "&Format2(b2)&"> Manca "&Format2(w)&" . " Scrivi "Soluzione Trovata + "&Format2(r2)&" Estrazioni " Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=r1:k=14:ruote(2)=r3:ruota(1)=11:co=0 If w+c1=90 Then kk=c1 If w+c2=90 Then kk=c2 If w+c3=90 Then kk=c3 nu1(1)=w nu1(2)=kk co=co+1 ImpostaGiocata co,nu1,ruote,poste,k co=co+1 ImpostaGiocata co,nu1,ruota,poste,k nu2(1)=w nu2(2)=c1 nu2(3)=c2 nu2(4)=c3 nu2(5)=kk co=co+1 ImpostaGiocata co,nu2,ruote,poste,k nu2(1)=w nu2(2)=b1 nu2(3)=b2 nu2(4)=c3 nu2(5)=kk co=co+1 ImpostaGiocata co,nu2,ruote,poste,k nu3(1)=w nu3(2)=kk nu3(3)=c1 nu3(4)=c2 nu3(5)=c3 nu3(6)=b1 nu3(7)=b2 co=co+1 ImpostaGiocata co,nu3,ruote,poste,k
Gioca xs End If Next Next End If Next Next End If Next Next Next ScriviResoconto End Sub
|