[B]Sub[/B] [B]Main[/B]()
[B]Scrivi[/B]"http://forum.lottoced.com/forum/lottoced/metodi/1955149-metodo-mi-nz-con-l-uscita-del-numero-spia-9-su-pa ",,,3
[B]Dim[/B] [B]n[/B](5),[B]n1[/B](1),[B]n2[/B](2),[B]ru[/B](2),[B]pta[/B](1),[B]pta2[/B](2),[B]pta5[/B](5)
[B]pta[/B](1) [B]=[/B] 1 :[B]pta2[/B](2) [B]=[/B] 1:[B]pta5[/B](2)[B]=[/B]2:[B]pta5[/B](3)[B]=[/B]1:[B]pta5[/B](4)[B]=[/B]0.3:[B]pta5[/B](5)[B]=[/B]0.2
r [B]=[/B] 7 :[B]ru[/B](1) [B]=[/B] 5: [B]ru[/B](2)[B]=[/B]12
[B]For[/B] es [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] 539 [B]To[/B] [B]EstrazioneFin[/B]
[B]If[/B] [B]Posizione[/B](es,r,9) [B]>[/B] 0 [B]Then[/B]
[B]n1[/B](1) [B]=[/B] [B]Fuori90[/B] ([B]Estratto[/B](es,6,2)[B]+[/B]13):[B]ImpostaGiocata[/B] 1,[B]n1[/B],[B]ru[/B],[B]pta[/B],9,1
[B]n2[/B](1)[B]=[/B][B]n1[/B](1)
[B]n2[/B](2) [B]=[/B] [B]Fuori90[/B]([B]Estratto[/B](es,5,1)[B]+[/B]24):[B]ImpostaGiocata[/B] 2,[B]n2[/B],[B]ru[/B],[B]pta2[/B],9,2
[B]n2[/B](2) [B]=[/B] [B]Fuori90[/B]([B]Estratto[/B](es,8,2)[B]+[/B]2):[B]ImpostaGiocata[/B] 3,[B]n2[/B],[B]ru[/B],[B]pta2[/B],9,2
[B]n2[/B](2) [B]=[/B] [B]Fuori90[/B]([B]Estratto[/B](es,7,5)[B]+[/B]56):[B]ImpostaGiocata[/B] 4,[B]n2[/B],[B]ru[/B],[B]pta2[/B],9,2
[B]n2[/B](2) [B]=[/B] [B]Fuori90[/B]([B]Estratto[/B](es,3,3)[B]+[/B]40):[B]ImpostaGiocata[/B] 5,[B]n2[/B],[B]ru[/B],[B]pta2[/B],9,2
[B]n[/B](1)[B]=[/B]([B]n1[/B](1))
[B]n[/B](2)[B]=[/B][B]Fuori90[/B]([B]Estratto[/B](es,5,1)[B]+[/B]24)
[B]n[/B](3)[B]=[/B][B]Fuori90[/B]([B]Estratto[/B](es,8,2)[B]+[/B]2)
[B]n[/B](4)[B]=[/B][B]Fuori90[/B]([B]Estratto[/B](es,7,5)[B]+[/B]56)
[B]n[/B](5)[B]=[/B][B]Fuori90[/B]([B]Estratto[/B](es,3,3)[B]+[/B]40)
[B]ImpostaGiocata[/B] 6,[B]n[/B],[B]ru[/B],[B]pta5[/B],9,5
[B]ColoreTesto[/B] 1 : [B]Scrivi[/B] [B]String[/B](70,151) ,1
[B]Scrivi[/B] [B]DataEstrazione[/B]((es),1) [B]&[/B] " " [B]&[/B] " [" [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B](r) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](es,r) [B]&[/B] " " [B]&[/B] "] ",1
[B]Scrivi[/B] [B]String[/B](70,151) ,1
[B]ColoreTesto[/B] 0
[B]Gioca[/B] es,1
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]ScriviResoconto[/B]
[B]End[/B] [B]Sub[/B]