Option Explicit
Sub Main()
'Tabellone Analitico delle Cinquine Sincrone e Isocrone.
'T.A.C.S.I. V. 3_Bis By Joe
'Fornisce indicazioni grafiche relative all'estrazione di cinquine in Ritardo per TERNO a TUTTE.
Dim Ru(1),Es,Ini,Fin,So,R,P,Nr,N
ColoreTesto 2
Scrivi "Tabellone Analitico delle Cinquine Sincrone Isocrone V.3_Bis By Joe ",True,False : ColoreTesto 0
Ini = EstrazioneFin - 1500 : Fin = EstrazioneFin
So = CInt(InputBox("2 = Ambo" & Chr(13) & "3 = Terno","Scegli SORTE",2))
If So <> 3 Then So = 2
Ru(1) = CInt(InputBox("1 = Singola" & Chr(13) & "11 = tutte","Scegli MODALITA' RUOTE",11))
If Ru(1) <> 11 Then Ru(1) = 1
If So = 3 And Ru(1) Then Ini = 3950
Scrivi "In Ritardo per " & UCase(NomeSorte(So)) & " A ",True,False
If Ru(1) = 1 Then Scrivi "RUOTA",True Else Scrivi "TUTTE",True : ColoreTesto 0
Scrivi "Aggiornato al " & DataEstrazione(Fin),True
Scrivi "Rc. ",1,0 'Titoli Colonne
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi Space(3) & FormatSpace(NomeRuota(R),12),True,False
Next
ColoreTesto 0 : Scrivi
For Es = Fin To Ini Step - 1
ColoreTesto(7) : Scrivi FormatSpace(Fin - Es,5),1,0: ColoreTesto(0) : Scrivi "",False,False
AvanzamentoElab Ini,Fin,Es
For R = 1 To 12 : If R = 11 Then R = 12
If Ru(1) <> 11 Then Ru(1) = R
N = StringaEstratti(Es,R) : N = "0." & N : Nr = Split(N,".")
If SerieFreqTurbo(Es + 1,Fin,Nr,Ru,So) > 0 Then
ColoreTesto 3
Scrivi "-- -- " & SiglaRuota(R) & " -- --" & Space(1),False,False
ColoreTesto 0
Else
If Int(R/2) = R/2 And R <> 12 Then 'Cambia colore alla Colonna'
ColoreTesto(1)
Else
ColoreTesto(0)
End If
Scrivi StringaEstratti(Es,R) & Space(1),False,False
End If
Next
ColoreTesto 2 : Scrivi Space(2) & DataEstrazione(Es),True : ColoreTesto 0
Next
End Sub