| Ecco il listato im L8
Sub main() Dim ruote(10),posta(5),nu2(10),nu1(10),ruota(10) posta(2)=3 dis=9 k=9 ce=300 ini=EstrazioneFin -ce fin=EstrazioneFin For es =ini To fin:Messaggio es For r1=1 To 10 For p1=1 To 5 a=Estratto(es,r1,p1) For r2=r1+1 To 11:If r2=11 Then r2=12 For p2=1 To 5 b=Estratto(es,r2,p2) If a=10 And b=10 And p1=p2 Then casi=casi+1:Scrivi String(65,"•"),1 Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_ " ] "&format2(a)&" "&(p1)&"^ pos." Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_ " ] "&format2(b)&" "&(p2)&"^ pos." Scrivi String(52,"-")&" caso n° "&(casi) ruote(1)=r1:ruote(2)=r2:ruota(3)=11:co=0 nu2(1)=84:nu2(2)=63 co=co+1 ImpostaGiocata co,nu2,ruote,posta,k co=co+1 ImpostaGiocata co,nu2,ruota,posta,k nu2(1)=22:nu2(2)=52 co=co+1 ImpostaGiocata co,nu2,ruote,posta,k co=co+1 ImpostaGiocata co,nu2,ruota,posta,k nu2(1)=11:nu2(2)=70 co=co+1 ImpostaGiocata co,nu2,ruote,posta,k co=co+1 ImpostaGiocata co,nu2,ruota,posta,k nu2(1)=47:nu2(2)=70 co=co+1 ImpostaGiocata co,nu2,ruote,posta,k co=co+1 ImpostaGiocata co,nu2,ruota,posta,k nu2(1)=11:nu2(2)=56 co=co+1 ImpostaGiocata co,nu2,ruote,posta,k co=co+1 ImpostaGiocata co,nu2,ruota,posta,k nu1(1)=84:nu1(2)=63:nu1(3)=22:nu1(4)=52:nu1(5)=11:nu1(6)=70:nu1(7)=47:nu1(8)=56 co=co+1 ImpostaGiocata co,nu1,ruote,posta,k Gioca es End If Next:Next:Next:Next:Next End Sub
|