Richiesta Script

[joe]

Lo script che segue ...

NON HA LA PRETESA DI ESSERE UNO STRUMENTO PERFETTO.

esegue una veloce ricerca statistica ed indica le decine e le cadenze

ancora presenti su un ipotetico tabellone analitico.

Quindi con particolare riferimento ai messaggi 15 e 19, con i quali,

ho indicato come con il tabellone analitico tradizionale,

quello delle decine e quello delle cadenze, a Bari si può formare il pronostico 73.

Cosi con questo script alla data del 21/03/2020 sempre per Bari sono in evidenza la decina 7

che si spera di veder a cadere con le cadenze 0 / 3 / 8.

Option Explicit
Sub Main
'T_A_D_C_  Script By Joe V.2.0del 21/04/2020
   Dim Ini,Fin,Es,I,F,Ex,R,P,C,D,Q,N
   Scrivi Space(4) & "Data" & Space(12),True,False
   ColoreTesto 2 : Scrivi "Decine" & Space(16),True,False
   ColoreTesto 1 : Scrivi "Cadenze",True,False
   ColoreTesto 0 : Scrivi
   Ini = EstrazioneFin : Fin = EstrazioneFin : Q = 3
   For Es = Ini To Fin : I = Es - Q + 1 : F = Es
      For R = 1 To 10 : AvanzamentoElab 1,10,R
         ReDim Dec(9),Cad(9)
         For Ex = I To F
            For P = 1 To 5
               D = DecinaNaturale(Estratto(Ex,R,P))
               C = Cadenza(Estratto(Ex,R,P))
               Dec(D) = True : Cad(C) = True
            Next
         Next
         Scrivi DataEstrazione(Es) & Space(1),0,0
         Scrivi SiglaRuota(R) & Space(1),True,False
         ColoreTesto 2
         For N = 0 To 8
            If Dec(N) = False Then
               Scrivi N & Space(1),True,False
            Else
               Scrivi "." & Space(1),False,False
            End If
         Next
         Scrivi Space(4),False,False
         ColoreTesto 1
         For N = 0 To 9
            If Cad(N) = False Then
               Scrivi N & Space(1),True,False
            Else
               Scrivi "." & Space(1),False,False
            End If
         Next
         ColoreTesto 0
         Scrivi
      Next
   Next
End Sub

 

[Sakti]

Questo sviluppo da una piega diversa alla metodologia, che sembra più interessante e mirata, ma da verificare retrattivamente, ottimo lavoro, mo vado a controllare meglio..
Grazie..