''''' Numero Spia più Figura
Sub main()
Dim n(2)
Dim nx(12)
Dim rt(2)
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim nu(2),na(2),na1(2),NA2(2),na3(2),na4(2),NA5(2),na6(2),na7(2),NA8(2),na9(2)
poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",1000))
If indietro= False Then Exit Sub
CLP=CInt(InputBox ("Colpi di gioco?..","°°°esselotto°°°",13))
If clp= False Then Exit Sub
numx=CInt(InputBox ("Inserisci Numero?..","°°°esselotto°°°",12))
If numx= False Then Exit Sub
rx=CInt(InputBox ("Ruota in gioco 1) bari 2)Cagliari 3)Firenze ecc.?..","°°°esselotto°°°",1))
If numx= False Then Exit Sub
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin
For es=ini To fin
Messaggio "elaborazione. estraz. "&(es)
rt(1)=rx
For p= 1 To 5
n(1)=Estratto (es,rx,p)
If numx=n(1) Then
so=0
For h= 1 To 90
If Figura (n(1))= Figura (h) And n(1)<> h Then :so=so+1:nx(so)=h
Next
co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es)
Scrivi SiglaRuota(r) & " [ " & StringaEstratti (es,rx) & " ] "
na(1)=n(1)
na(2)=nx(1)
ImpostaGiocata 1,na,rt,poambo,clp
na1(1)=n(1)
na1(2)=nx(2)
ImpostaGiocata 2,na1,rt,poambo,clp
na2(1)=n(1)
na2(2)=nx(3)
ImpostaGiocata 3,na2,rt,poambo,clp
na3(1)=n(1)
na3(2)=nx(4)
ImpostaGiocata 4,na3,rt,poambo,clp
na4(1)=n(1)
na4(2)=nx(5)
ImpostaGiocata 5,na4,rt,poambo,clp
na5(1)=n(1)
na5(2)=nx(6)
ImpostaGiocata 6,na5,rt,poambo,clp
na6(1)=n(1)
na6(2)=nx(7)
ImpostaGiocata 7,na6,rt,poambo,clp
na7(1)=n(1)
na7(2)=nx(8)
ImpostaGiocata 8,na7,rt,poambo,clp
na8(1)=n(1)
na8(2)=nx(9)
ImpostaGiocata 9,na8,rt,poambo,clp
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
