Sub Main()
TestoInBandaPassante "************ Un metodo da leccarsi i.. BA.FI ************",1,3,0
Dim AmbaP(1),AmbaS(1)
Dim TerzA(3),TerzB(3)
Dim AmboTu(2)
Dim Ru(1),Ru1(3),RuT(1)
Dim Posta(1),Poste(3),PosteAT(2)
Ini = EstrazioneFin - 614
Fin = EstrazioneFin
Clp = 14
Ru(1) = BA_
Ru1(1) = BA_ : Ru1(2) = PA_
RuT(1) = TU_
Posta(1) = 1
Poste(2) = 1 : Poste(3) = 1
PosteAT(2) = 1
Ca = 0
For es = Ini To Fin
Ru1(3) = 0
Messaggio " Elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab Ini,Fin,es
If IndiceMensile(es) = 1 Then
Ca = Ca + 1
Scrivi String(90,"=") & " Caso n° " & Format2(Ca),1,,,,3
a = Estratto(es,3,1) 'Primo estratto su Firenze
b = Decina(a) 'Ambata Principale
c = Cadenza(a) 'Ambata Secondaria
Scrivi DataEstrazione(es) & " - " & SiglaRuota(3) & " > " & StringaEstratti(es,3) & " - 1° estratto su Firenze: ",1,0,,1
Scrivi a,1,,,2
If c = b Or c = 0 Then c = Vert(b)
AmbaP(1) = b : AmbaS(1) = c
If a < 10 Then AmbaP(1) = c : AmbaS(1) = Vert(c)
AmboTu(1) = AmbaP(1) : AmboTu(2) = Vert(AmbaP(1))
TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = a
TerzB(1) = AmbaP(1) : TerzB(2) = AmbaS(1) : TerzB(3) = a
Scrivi " Ambata Principale: ",1,0,,1 : Scrivi AmbaP(1),1,,,2
Scrivi " Ambata Secondaria: ",1,0,,1 : Scrivi AmbaS(1),1,,,2
Scrivi String(61,"-"),1
If Gemello(a) = True Then
TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = a
TerzB(1) = AmbaP(1) : TerzB(2) = Vert(AmbaP(1)) : TerzB(3) = DiametraleD(a)
Ru1(3) = Ve_
End If
If Cadenza(a) = 0 Or a < 10 Then
TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = DiametraleD(a)
TerzB(1) = AmbaP(1) : TerzB(2) = Vert(AmbaP(1)) : TerzB(3) = Fuori90(AmbaP(1) + AmbaS(1))
Ru1(3) = Ve_
End If
ImpostaGiocata 1,AmbaP,Ru,Posta,Clp
ImpostaGiocata 2,AmbaS,Ru,Posta,Clp
ImpostaGiocata 3,TerzA,Ru1,Poste,Clp
ImpostaGiocata 4,TerzB,Ru1,Poste,Clp
ImpostaGiocata 5,AmboTu,RuT,PosteAT,Clp
Gioca es,True
End If
Next
Scrivi String(154,"-"),1
TestoInBandaPassante "************ Un metodo da leccarsi i.. BA.FI ************",1,3,0
ScriviResoconto
End Sub