Novità

AIUTO SCRIPT

Ciao Rafh.

Se non ho male interpretato la tua richiesta,

nell'ultimo anno potrebbero esserci questi casi.

Ma è tutto da controllare ... dunque espongo solo quanto detto,

soprattutto per sapere se sei al corrente di altri casi che lo script non trova

e, prima ancora, se questi casi sono corrispondenti alla richiesta.

01 01.09.2022 CA 50.01.67.55.76 <<< 67.76 + 50.55
02 13.09.2022 CA 25.05.52.33.28 <<< 25.52 + 33.28
03 15.09.2022 BA 20.83.78.02.38 <<< 20.02 + 83.78
04 15.12.2022 BA 84.79.82.36.63 <<< 36.63 + 84.79
05 31.12.2022 MI 78.09.62.73.26 <<< 62.26 + 78.73
06 12.01.2023 FI 29.22.75.04.89 <<< 29.22 + 04.89
07 19.01.2023 NA 48.03.53.20.30 <<< 03.30 + 48.53
08 19.01.2023 VE 67.39.72.34.27 <<< 72.27 + 39.34
09 25.02.2023 PA 41.76.79.81.14 <<< 41.14 + 76.81
10 04.03.2023 NA 90.85.38.12.21 <<< 12.21 + 90.85
11 01.04.2023 NA 52.76.03.67.57 <<< 76.67 + 52.57
12 26.04.2023 FI 60.02.47.07.74 <<< 47.74 + 02.07
13 23.05.2023 BA 31.36.74.47.67 <<< 74.47 + 31.36
14 27.05.2023 RO 63.17.73.71.58 <<< 17.71 + 63.58
15 30.05.2023 NA 86.67.81.77.79 <<< 77.79 + 86.81
16 30.05.2023 VE 26.31.88.89.75 <<< 88.89 + 26.31
17 01.06.2023 BA 34.72.43.26.21 <<< 34.43 + 26.21
18 10.06.2023 PA 22.66.69.01.17 <<< 66.69 + 22.17


:)
 
Ciao Rafh.

Se non ho male interpretato la tua richiesta,

nell'ultimo anno potrebbero esserci questi casi.

Ma è tutto da controllare ... dunque espongo solo quanto detto,

soprattutto per sapere se sei al corrente di altri casi che lo script non trova

e, prima ancora, se questi casi sono corrispondenti alla richiesta.

01 01.09.2022 CA 50.01.67.55.76 <<< 67.76 + 50.55
02 13.09.2022 CA 25.05.52.33.28 <<< 25.52 + 33.28
03 15.09.2022 BA 20.83.78.02.38 <<< 20.02 + 83.78
04 15.12.2022 BA 84.79.82.36.63 <<< 36.63 + 84.79
05 31.12.2022 MI 78.09.62.73.26 <<< 62.26 + 78.73
06 12.01.2023 FI 29.22.75.04.89 <<< 29.22 + 04.89
07 19.01.2023 NA 48.03.53.20.30 <<< 03.30 + 48.53
08 19.01.2023 VE 67.39.72.34.27 <<< 72.27 + 39.34
09 25.02.2023 PA 41.76.79.81.14 <<< 41.14 + 76.81
10 04.03.2023 NA 90.85.38.12.21 <<< 12.21 + 90.85
11 01.04.2023 NA 52.76.03.67.57 <<< 76.67 + 52.57
12 26.04.2023 FI 60.02.47.07.74 <<< 47.74 + 02.07
13 23.05.2023 BA 31.36.74.47.67 <<< 74.47 + 31.36
14 27.05.2023 RO 63.17.73.71.58 <<< 17.71 + 63.58
15 30.05.2023 NA 86.67.81.77.79 <<< 77.79 + 86.81
16 30.05.2023 VE 26.31.88.89.75 <<< 88.89 + 26.31
17 01.06.2023 BA 34.72.43.26.21 <<< 34.43 + 26.21
18 10.06.2023 PA 22.66.69.01.17 <<< 66.69 + 22.17


:)
Ciao Joe
grazie per aver accettato la richiesta
Si i casi sono proprio questi. Come ti ho spiegato in precedenza, applicato -10 ai due distanza 5, si ottengono due numeri che vanno giocati sulle posizioni dei numeri distanza 5.(tralasciando le posizioni dei vertibili ma nulla ci vieta di fare magari un'altra statistica in cui li proviamo su queste ultime e poi vediamo quale risulta migliore). Inoltre io aggiungerei anche la ruota Nazionale ogni volta perché spesso e volentieri escono anche su questa ruota. Per il range di colpi anche se da esito entro 5 a volte raggiunge anche 9 quindi consiglierei questo come massimo.
 
Ho aggiunto qualche istruzione allo script, per facilitare la ricerca e l'esposizione dei risultati.

Non ho scritto istruzioni specifiche per la ricerca nelle posizioni specificate.

Sperando che la tabella sia leggibile questo è il risultato :

1 - 01.09.2022 CA 50.01.67.55.76 67.76 + 50.55 40.45
1°C 03.09.2022 CA 45.73.90.35.03
-----------------------------------------------------
2 - 13.09.2022 CA 25.05.52.33.28 25.52 + 33.28 23.18
26°C 12.11.2022 CA 05.57.85.39.23
-----------------------------------------------------
3 - 15.09.2022 BA 20.83.78.02.38 20.02 + 83.78 73.68
3°C 22.09.2022 BA 63.73.51.16.58
-----------------------------------------------------
4 - 15.12.2022 BA 84.79.82.36.63 36.63 + 84.79 74.69
1°C 17.12.2022 BA 74.15.59.31.77
-----------------------------------------------------
5 - 31.12.2022 MI 78.09.62.73.26 62.26 + 78.73 68.63
37°C 28.03.2023 MI 47.08.19.22.63
-----------------------------------------------------
6 - 12.01.2023 FI 29.22.75.04.89 29.22 + 04.89 84.79
13°C 11.02.2023 FI 11.79.58.33.18
-----------------------------------------------------
7 - 19.01.2023 NA 48.03.53.20.30 03.30 + 48.53 38.43
5°C 31.01.2023 NA 37.59.07.39.43
-----------------------------------------------------
8 - 19.01.2023 VE 67.39.72.34.27 72.27 + 39.34 29.24
13°C 18.02.2023 VE 24.55.12.39.14
-----------------------------------------------------
9 - 25.02.2023 PA 41.76.79.81.14 41.14 + 76.81 66.71
7°C 14.03.2023 PA 84.78.86.68.71
-----------------------------------------------------
10 - 04.03.2023 NA 90.85.38.12.21 12.21 + 90.85 80.75
7°C 21.03.2023 NA 82.75.69.22.20
-----------------------------------------------------
11 - 01.04.2023 NA 52.76.03.67.57 76.67 + 52.57 42.47
11°C 27.04.2023 NA 72.43.17.89.47
-----------------------------------------------------
12 - 26.04.2023 FI 60.02.47.07.74 47.74 + 02.07 82.87
3°C 02.05.2023 FI 88.05.55.32.87
-----------------------------------------------------
13 - 23.05.2023 BA 31.36.74.47.67 74.47 + 31.36 21.26
4°C 01.06.2023 BA 34.72.43.26.21
-----------------------------------------------------
14 - 27.05.2023 RO 63.17.73.71.58 17.71 + 63.58 53.48
4°C 06.06.2023 RO 08.59.53.21.02
-----------------------------------------------------
15 - 30.05.2023 NA 86.67.81.77.79 77.79 + 86.81 76.71
8°C 17.06.2023 NA 76.17.89.22.14
-----------------------------------------------------
16 - 30.05.2023 VE 26.31.88.89.75 88.89 + 26.31 16.21
1°C 01.06.2023 VE 50.03.04.21.11
-----------------------------------------------------
17 - 01.06.2023 BA 34.72.43.26.21 34.43 + 26.21 16.11
2°C 06.06.2023 BA 63.11.29.16.45
-----------------------------------------------------
18 - 10.06.2023 PA 22.66.69.01.17 66.69 + 22.17 12.07
7°C 27.06.2023 PA 48.80.15.32.12
-----------------------------------------------------


:)
 
Lo script che allego qui di seguito è piuttosto complicato,

come del resto lo è l'oggetto della richiesta e quello che deve rintracciare e controllare.

Non credo che vorrò aggiungere ulteriori condizioni o apportarvi modifiche.

Dunque è da intendersi accettato così com'è e sconsiglio modifiche perché

da esse potrebbero derivare risultati prevedibilmente astrusi.

Ho modificato/semplificato il layout dell'output.

Ho aggiunto indicazioni delle posizioni iniziali per le quali

si forma il pronostico e sono anche elencate le posizioni dei risultati ottenuti.

:)

Codice:
Option Explicit
Sub Main
   'Coppia di Vertibili e Coppia di estratti in distanza 5 / Verifica Risultati
   'Script By Joe per Rafh V.1.1 del 23/07/2023.
   'https://forum.lottoced.com/threads/aiuto-script.2211007/page-2#post-2549597
   Dim Ini,Fin,Es,R,P,Q,A,B,C,D,K,F,O
   Dim Nu(2),Ru(1),SP
   Ini = EstrazioneFin - 155
   Fin = EstrazioneFin
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R = 1 To 12
         If R = 11 Then R = 12
         ReDim T(5) : F = False
         For P = 1 To 5
            A = Estratto(Es,R,P)
            B = Vert(A)
            Q = Posizione(Es,R,B)
            If Q > 0 Then
               T(P) = True
               T(Q) = True
               F = True
               Exit For
            End If
         Next
         If F = True Then
            For P = 1 To 4
               For Q = P + 1 To 5
                  If T(P) = False Then
                     If T(Q) = False Then
                        C = Estratto(Es,R,P)
                        D = Estratto(Es,R,Q)
                        If Distanza(C,D) = 5 Then
                           K = K + 1
                           Scrivi FormatSpace(K,2,1) & Space(1) & "-" & Space(1),0,0
                           Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " ",0,0
                           Ru(1) = R
                           Nu(1) = Fuori90(C - 10)
                           Nu(2) = Fuori90(D - 10)
                           Scrivi StringaNumeri(Nu,,True) & Space(1),True,False
                           Scrivi(P) & "°" & Q & "°",True
                           SP = SeriePrima(Es + 1,Fin,Nu,Ru,1)
                           If SP > 0 Then
                              Scrivi FormatSpace(SP - Es,2,1) & "°C ",1,0,,2
                              Scrivi DataEstrazione(SP) & " " & SiglaRuota(R) & " " & StringaEstratti(SP,R) & " ",0,0
                              O = ""
                              P = Posizione(SP,R,Nu(1))
                              If P > 0 Then Scrivi Format2(Nu(1)) & " ",1,0 : O = O & P & "°" Else Scrivi String(3," "),0,0 : O = O & Space(2)
                              P = Posizione(SP,R,Nu(2))
                              If P > 0 Then Scrivi Format2(Nu(2)) & " ",1,0 : O = O & P & "°" Else Scrivi String(3," "),0,0 : O = O & Space(2)
                              Scrivi O,True
                              P = 5 : Q = 5
                           Else
                              Scrivi Fin - Es & "° Colpo Nessun Risultato ",1,,,2
                           End If
                           Scrivi String(44,"-")
                        End If
                     End If
                  End If
               Next
            Next
         End If
      Next
   Next
End Sub
 
Ultima modifica:
Non ho modo di provarlo e me ne dispiace .
Non è complicato , personalmente lo trovo elegante.
E sicuramente complicato tentarne le modifiche.
Complimenti joe.
 
Ciao Ilegend, grazie.

Grazie anche a Salvo e naturalmente a Rafh.

Riporto un pezzetto dell'output così lo puoi vedere.

Riferisce di una ventina di casi ritracciati nell'ultimo anno.

Tutti conclusi, tranne l'ultimo A QUEL TEMPO ANCORA IN CORSO.

Ho inteso evidenziarlo così ... al 23/06/2023 ... sia per testare lo script che

per evidenziarlo diversamente dagli altri casi già conclusi

con uno o 2 numeri nelle loro posizioni di caduta.

Il tempo di elaborazione è di circa 2 secondi (per questo ultimo anno).

Immagine.png

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 08 maggio 2025
    Bari
    87
    43
    09
    33
    05
    Cagliari
    40
    13
    86
    28
    56
    Firenze
    71
    66
    87
    08
    30
    Genova
    72
    38
    29
    22
    40
    Milano
    71
    12
    15
    39
    75
    Napoli
    09
    71
    20
    53
    10
    Palermo
    88
    58
    80
    85
    15
    Roma
    32
    01
    25
    16
    82
    Torino
    78
    89
    72
    60
    55
    Venezia
    68
    27
    44
    54
    67
    Nazionale
    09
    35
    40
    16
    36
    Estrazione Simbolotto
    Milano
    28
    02
    04
    27
    29
Indietro
Alto