| La tavola settenaria con numero uguale e ei codici per pramidarla Sub main() Dim nu1(10),nu2(10) Dim ruote(10),ruota(10) Dim poste(5) poste(2)=1 fin=EstrazioneFin ini=fin-50 For es=ini To fin AvanzamentoElab ini,fin,es For r1=1 To 10 For p1=1 To 5 n1=Estratto(es,r1,p1) For r2=r1+1 To 11 If r2=11 Then r2=12 For p3=1 To 5 x=Estratto(es,r2,p3) If p3=p1 Then If r1+1=r2 Or r2=DiametraleD(r1) Or r2<11 And r2=11-r1 Then If x=n1 Then a1=Fuori90(x*13) k3=Abs(x-1):a2=Fuori90(78*x-k3) a3=Fuori90(x*7) a4=91-x b1=Fuori90(a2+a1) b2=Fuori90(a3+a4) c1=Fuori90(b1+b2) c2=Fuori90(a1+a3) c3=Fuori90(a4+a2) k1=Fuori90(c2+c3) If k1=c1 Then If p1=1 Then k2=645 If p1=2 Then k2=554 If p1=3 Then k2=463 If p1=4 Then k2=372 If p1=5 Then k2=281 If Len(k1)=1 Then k1=(0&k1) k5=(k2&k1) w1=Figura(Mid(k5,1,1)+(Mid(k5,2,1))) w2=Figura(Mid(k5,2,1)+(Mid(k5,3,1))) w3=Figura(Mid(k5,3,1)+(Mid(k5,4,1))) w4=Figura(Mid(k5,4,1)+(Mid(k5,5,1)))
w5=Figura(w1+w2) w6=Figura(w2+w3) w7=Figura(w3+w4)
w8=Figura(w5+w6) w9=Figura(w6+w7)
w10=Fuori90(w8&w9) casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_ " > Numero uguale... < "&Format2(n1)&"." Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_ " > Numero uguale... < "&Format2(x)&" Pos "&Format2(p1)&" Codice "&Format2(w4)&" ." Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: k=14:co=0:ruota(1)=11:co=0 nu1(1)=w10 nu1(2)=Diametrale(w10) nu1(3)=b2 co=co+1 ImpostaGiocata co,nu1,ruote,poste,k co=co+1 ImpostaGiocata co,nu1,ruota,poste,k nu1(1)=w10 nu1(2)=Diametrale(w10) nu1(3)=c2 co=co+1 ImpostaGiocata co,nu1,ruote,poste,k co=co+1 ImpostaGiocata co,nu1,ruota,poste,k nu1(1)=w10 nu1(2)=Diametrale(w10) nu1(3)=c3 co=co+1 ImpostaGiocata co,nu1,ruote,poste,k co=co+1 ImpostaGiocata co,nu1,ruota,poste,k nu2(1)=w10 nu2(2)=Diametrale(w10) nu2(3)=b2 nu2(4)=c2 nu2(5)=c3 co=co+1 ImpostaGiocata co,nu2,ruote,poste,k Gioca es End If End If End If End If Next Next Next Next Next ScriviResoconto End Sub
|