Sub Main
'ultima del mese ambo in cadenza porta ambata radicale
Dim Nu(2),Ru(1),aN(4),pos(2),aRetAbb,aRetAbb2,aRetAbb3,aRetAbb4
Ini = 9715'EstrazioneFin - 100
fin = EstrazioneFin
For es = Ini To fin
If IsUltimaDelMese(es) Then
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
If Cadenza(a) = Cadenza(b) Then
Nu(1) = a
Nu(2) = b
Ru(1) = r
aN(1) = Figura(Decina(a) + Decina(b))
aN(2) = Vert(aN(1))
aN(3) = aN(2) + aN(1)
aN(4) = aN(2) + 9
pos(1) = p1
pos(2) = p2
If aN(1) < 9 Then
Call Abbinamenti(aN(1),aRetAbb,EstrazioneIni,fin,r,0)
Call Abbinamenti(aN(2),aRetAbb2,EstrazioneIni,fin,r,0)
Call Abbinamenti(aN(3),aRetAbb3,EstrazioneIni,fin,r,0)
Call Abbinamenti(aN(4),aRetAbb4,EstrazioneIni,fin,r,0)
k = k + 1
Call VerificaEsito(aN,Ru,es + 1,1,13,,esito,clp,es1,id)
If esito <> "" Then kk = kk + 1
Scrivi GetInfoEstrazione(es) & vbTab & "Ambo in Cadenza " & SiglaRuota(r) & vbTab & StringaNumeri(Nu) & vbTab & "posiz. " & StringaNumeri(pos),1
Scrivi "Numeri Radicali in Gioco... " & StringaNumeri(aN),1,0,,2
Scrivi vbTab & "Esito [ " & es1 & vbTab & "Colpo... " & clp & " ]" & vbTab & esito,1,,,1
For kkk = 1 To 1
Scrivi Format2(aN(1)) & "-" & Format2(aRetAbb(kkk,1)) & " Con Presenza " & aRetAbb(kkk,2)
Scrivi Format2(aN(2)) & "-" & Format2(aRetAbb2(kkk,1)) & " Con Presenza " & aRetAbb2(kkk,2)
Scrivi Format2(aN(3)) & "-" & Format2(aRetAbb3(kkk,1)) & " Con Presenza " & aRetAbb3(kkk,2)
Scrivi Format2(aN(4)) & "-" & Format2(aRetAbb4(kkk,1)) & " Con Presenza " & aRetAbb4(kkk,2)
ReDim Preserve abb(kkk)
abb(0) = aN(1)
abb(kkk) = aRetAbb(kkk,1)
ReDim Preserve abb2(kkk)
abb2(0) = aN(2)
abb2(kkk) = aRetAbb2(kkk,1)
ReDim Preserve Abb3(kkk)
Abb3(0) = aN(3)
Abb3(kkk) = aRetAbb3(kkk,1)
ReDim Preserve abb4(kkk)
abb4(0) = aN(4)
abb4(kkk) = aRetAbb4(kkk,1)
Next
Call VerificaEsito(abb,Ru,es + 1,2,13,,,clp2,es2,id2)
Call VerificaEsito(abb2,Ru,es + 1,2,13,,,clp3,es3,id3)
Call VerificaEsito(Abb3,Ru,es + 1,2,13,,,clp4,es4,id4)
Call VerificaEsito(abb4,Ru,es + 1,2,13,,,clp5,es5,id5)
Scrivi String(40,"-") & "Esiti Ambi"
Scrivi StringaNumeri(abb,,1) & vbTab & es2 & vbTab & " - Colpo... " & clp2
Scrivi StringaNumeri(abb2,,1) & vbTab & es3 & vbTab & " - Colpo... " & clp3
Scrivi StringaNumeri(Abb3,,1) & vbTab & es4 & vbTab & " - Colpo... " & clp4
Scrivi StringaNumeri(abb4,,1) & vbTab & es5 & vbTab & " - Colpo... " & clp5
Scrivi String(50,"-")
End If
End If
Next
Next
Next
Scrivi String(100,"=") & " Casi in Estrazione " & k & " - Esiti Positivi : " & kk
End If
k = 0
kk = 0
Next
End Sub