Listato per L8+ o Spaziometria
Ciauz
'http://www.lottostudio.net/cms/index.php?option=com_kunena&func=view&catid=48&id=17068&Itemid=44#17068
Scrivi "Se esce il 90 al 3^ posto ",1
Scrivi "List DjNomade ",1
Sub main()
Dim ruote(3),posta(5),nu1(10),poste(5),ruota(3),nu3(10)
posta(1)=1
posta(2)=1
poste(2)=1
poste(3)=1
k=12
ce=1000
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 11:If r1=11 Then r1=12
For p1=3 To 3
a=Estratto(es,r1,p1)
If a=90 Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es-1,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es-1,r1)&_
" ] "
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruota(1)=r1:co=0:ruote(1)=11
a1=Fuori90(Estratto(es,r1,3)-Estratto(es,r1,2))
a2=Fuori90(Estratto(es,r1,3)-Estratto(es,r1,4))
a3=Fuori90(Estratto(es,r1,3)-Estratto(es-1,r1,3))
nu3(1)=a1:nu3(2)=a2:nu3(3)=a3
co=co+1
ImpostaGiocata co,nu3,ruota,posta,k
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
Gioca es
End If
Next:Next:Next
ScriviResoconto
Scrivi "90 al 3^ posto ",1
Scrivi "List DjNomade ",1
End Sub