Sub Main()
Dim amb(2),lg(4),ruote(2),rtt(1),posta(1),poste(2)
posta(1) = 1 : poste(2) =1
t=0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
For es=EstrazioneFin-rs To EstrazioneFin
AvanzamentoElab EstrazioneFin-rs,EstrazioneFin ,es
For r1 =1 To 1
For p1 = 1 To 1
a1=Estratto(es-1,r1,p1)
If a1<10 Then
For r2=r1+1 To 11
If r2=11 Then r2=12
For p2=1 To 5
a2=Estratto(es-1,r2,p2)
If a2<10 And a2<>a1 Then
e1=Estratto (es,r1,p1): e2=Estratto (es,r2,p2)
cd1= Cadenza (e1):cd2=Cadenza (e2)
If cd1<>9 And cd1<>0 And Gemello (e1)=0 And cd2<>9 And cd2<>0 And Gemello (e2)=0 And e1<>a1 And e2<>a2 And e1<>e2 Then
e3=Fuori90 (Cadenza (e1)& Decina (e1)): e4=Fuori90 (Cadenza(e2)& Decina (e2))
amb(1)=e1 : amb(2)=e2
lg(1)=e1:lg(2)=e2:lg(3)=e3:lg(4)=e4
ruote(1)=r1:ruote(2)=r2
rtt(1)=11
t=t+1
Scrivi "------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione (es-1)&" : "& StringaEstratti (es-1,r1)&" "& SiglaRuota (r1)&_
" "& Format2 (a1)&" Pos. "&p1&"^ "& Space (3)&DataEstrazione (es-1)&" : "& StringaEstratti (es-1,r2)&" "& SiglaRuota (r2)&_
" "& Format2 (a2)&" Pos. "&p2&"^ ",1
Scrivi DataEstrazione (es)&" : "& StringaEstratti (es,r1),1,0
ColoreTesto 2
Scrivi " "& SiglaRuota (r1)&" "& Format2 (e1)&" Pos. "&p1&"^ ",1,0
ColoreTesto 0
Scrivi Space (3)&DataEstrazione (es)&" : "& StringaEstratti (es,r2),1,0
ColoreTesto 2
Scrivi " "& SiglaRuota (r2)&" "& Format2 (e2)&" Pos. "&p2&"^ ",1
ColoreTesto 0
Scrivi "----------------------------------------------------------------------------------------------Giocata n°"&t,1
ImpostaGiocata 1,amb,ruote,posta,12,1
ImpostaGiocata 2,lg,rtt,poste,12,2
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
ScriviResoconto 1
ScriviResoconto
End Sub