Sub Main
Dim Po(2),Ru(2),Posta(1),Nu(2),aN(2),aNN(2),Poste(2),Rt1(1),Rt2(1)
Poste(2) = 1
Posta(1) = 1
'----------------------
ritroso = 160
r1 = 1
p1 = 5
r2 = 2
p2 = 5
colpi = 10
'----------------------
Ru(1) = r1 : Ru(2) = r2
Po(1) = p1 : Po(2) = p2
Scrivi "Ruote Analizzate " & StringaRuote(Ru)
Scrivi "Posizioni Estratti analizzati " & StringaNumeri(Po)
Scrivi
For es = EstrazioneFin - ritroso To EstrazioneFin
If IndiceMensile(es) = 1 Then ' attiva 1 del mese
'If IsUltimaDelMese(es) Then ' attiva ultimo del mese
k = k + 1
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
ab = Differenza(a,b)
Nu(1) = ab : Nu(2) = Vert(Nu(1))
Rt1(1) = r1 : Rt2(1) = r2
Scrivi String(130,"=")
Scrivi Es & " Differenza Estratti in Posizione scelte " & "( " & Format2(a) & " - " & Format2(b) & " ) " & " = ",1,0,,1
Scrivi Nu(1) & " Vertibile " & Nu(2),1,1,,2
Scrivi String(130,"=") & " Caso N. " & k
Call ImpostaGiocata(1,Nu,Ru,Posta,colpi,1)
Gioca es
'
For x = 1 To 5
Call Abbinamenti(Nu(2),abbR1,8072,EstrazioneFin,r1)
aN(1) = Nu(2) : aN(2) = abbR1(x,1)
riga1 = riga1 & abbR1(x,1) & " "
Call ImpostaGiocata(x,aN,Rt1,Poste,colpi,2)
Next
Scrivi String(100,"-") & " Abbinamenti Veribile su Ruota1 " & riga1
Gioca es
riga1 = ""
'
For y = 1 To 5
Call Abbinamenti(Nu(2),abbR2,8072,EstrazioneFin,r2)
aNN(1) = Nu(2) : aNN(2) = abbR2(y,1)
riga2 = riga2 & abbR2(y,1) & " "
Call ImpostaGiocata(y,aNN,Rt2,Poste,colpi,2)
Next
Scrivi String(100,"-") & " Abbinamenti Vertibile su Ruota2 " & riga2
Gioca es
riga2 = ""
End If ' chiude indicemensile
Next
ScriviResoconto
End Sub
