Novità

Script X Meotdo Lotto

M

Manuel67

Senior Member
Ciao, avrei bisogno gentilmente che qualcuno bravo a creare script in Spaziometria o Visual Lotto, 7 sviluppasse uno script per il seguente metodo:

su qualsiasi estrazione del lotto ricercare la seguente condizione:

Trovare su due ruote lo stesso numero isotopo.
Eseguire la somma dei due numeri trovati (Fuori 90 se supera il 90) (Ambata)
Calcolare il vertibile della somma e addizionare il fisso 1 (1° Abb. x Ambo)
Trovare il vertibile del vertibile+1 (2° Abb. x Ambo)
Mettere in gioco l'ambata e i 2 Ambi x 5 colpi sulle ruote con lo stesso numero isotopo trovato

Esempio: Estrazione 15/02/2020

Napoli / Palermo: 43 (1a Posizione)

Calcolo Ambata: (43+43)=86
Calcolo 1° Abbinamento; Vertibile 86=68+1: 69
Calcolo 2° Abbinamentoi: Vertibile 69=66

Previsione x 5 colpi di gioco: Ruote in gioco: Napoli / Palermo
Ambata: 86
Ambi: 86-66 | 86-69

Grazie di cuore a chi sarà in grado di svilluppare uno script e postarlo qui.

Manuel67
 
Controlla gli esiti ... non mi pare un gran metodo
ti suggerisco dii analizzare gli estratti dopo l'uscita degli isotopi per ripartire con il ripensare al calcolo dell'ambata e di conseguenza anche gli abbinamenti

Codice: 
Sub Main()
    Dim ruota(10)
    Dim posta(1)
    Dim posta2(2)
    Dim n(10)
    Dim ambo1(2)
    Dim ambo2(2)
    posta(1) = 1
    posta2(2) = 1
    k = 6 '<-------- numero colpi
    ini = 9650 '<---- estrazione di inizio ricerca ( 3950 inizio Archivio senza buchi estrazionali 14-09-1946 )
    fin = EstrazioneFin
    For es = ini To fin '<------------------------------- ciclo  x estrazioni da controllare
        For p = 1 To 5 '<-------------------------------- ciclo x posizione estratti
            For r = 1 To 10 '<---------------------------- ciclo prima ruota
                a = Estratto(es,r,p) '<------------------ estratto prima ruota
                For rr = r + 1 To 11 '<--------------------- ciclo seconda ruota
                    If rr = 11 Then rr = 12
                    b = Estratto(es,rr,p) '<------------- estratto secondo ruota
                    If a = b Then '<--------------------- se trova due estratti uguali
                        Scrivi "________________________________________________________________"
                        Scrivi
                        Scrivi GetInfoEstrazione(es) & " Numero: " & CInt(a) & " isotopo su " & NomeRuota(r) & " " & NomeRuota(rr)
                        ruota(1) = r '  <----- prima ruota
                        ruota(2) = rr ' <----- seconda ruota
                        'ruota(3) = rrr '<----- terza ruota
                        n(1) = Fuori90(2*a) '<----------- numero da giocare
                        ImpostaGiocata 1,n,ruota,posta,k,1 '<--- imposta la giocata x ambata
                        ambo1(1) = n(1)
                        ambo1(2) = Fuori90(Vert(ambo1(1)) + 1)
                        ImpostaGiocata 2,ambo1,ruota,posta2,k,2 '<--- imposta la giocata 1° ambo
                        ambo2(1) = n(1)
                        ambo2(2) = Vert(ambo1(2))
                        ImpostaGiocata 3,ambo2,ruota,posta2,k,2 '<--- imposta la giocata 2° ambo
                        Gioca es,,,1 '<----------------------------- gioca le formazioni impostate
                    End If
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

Un saluto
 
claudio8 ..prova a guardare il 13/2 fir gen 65,hanno dato esito a cp a gen se nn ho sbagliato il calcolo :)
 
Kira, hai ragione, anzi...
Ci sono 2 esiti positivi con lo stesso ambo.... Ma una rondine non fa primavera

[09747] [ 19] 13.02.2020 Numero: 65 isotopo su Firenze Genova
Estrazione generatrice del pronostico 09747 [ 19 - 13/02/2020]
G 0001 Numeri in gioco : 40 su FI GE per Estratto
N. [40 ] [FI] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [22.69.27.04.83]
V N. [40 ] [GE] [.. .. 40 .. ..] C. 1 Estratto 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
Interrotta per esito verificato

G 0002 Numeri in gioco : 40.05 su FI GE per Ambo
N. [40.05 ] [FI] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [22.69.27.04.83]
N. [40.05 ] [GE] [.. .. 40 .. ..] C. 1 Estratto 09748 [ 20 - 15/02/2020] [75.87.40.50.16]

In corso per altre 5 estrazioni
G 0003 Numeri in gioco : 40.50 su FI GE per Ambo
N. [40.50 ] [FI] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [22.69.27.04.83]
V N. [40.50 ] [GE] [.. .. 40 50 ..] C. 1 Ambo 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
Interrotta per esito verificato

________________________________________________________________

[09747] [ 19] 13.02.2020 Numero: 77 isotopo su Genova Palermo
Estrazione generatrice del pronostico 09747 [ 19 - 13/02/2020]
G 0001 Numeri in gioco : 64 su GE PA per Estratto
N. [64 ] [GE] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
N. [64 ] [PA] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [43.20.24.28.32]

In corso per altre 5 estrazioni
G 0002 Numeri in gioco : 64.47 su GE PA per Ambo
N. [64.47 ] [GE] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
N. [64.47 ] [PA] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [43.20.24.28.32]

In corso per altre 5 estrazioni
G 0003 Numeri in gioco : 64.74 su GE PA per Ambo
N. [64.74 ] [GE] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
N. [64.74 ] [PA] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [43.20.24.28.32]

In corso per altre 5 estrazioni
________________________________________________________________

[09747] [ 19] 13.02.2020 Numero: 20 isotopo su Genova Napoli
Estrazione generatrice del pronostico 09747 [ 19 - 13/02/2020]
G 0001 Numeri in gioco : 40 su GE NA per Estratto
V N. [40 ] [GE] [.. .. 40 .. ..] C. 1 Estratto 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
N. [40 ] [NA] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [43.71.19.47.44]
Interrotta per esito verificato

G 0002 Numeri in gioco : 40.05 su GE NA per Ambo
N. [40.05 ] [GE] [.. .. 40 .. ..] C. 1 Estratto 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
N. [40.05 ] [NA] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [43.71.19.47.44]

In corso per altre 5 estrazioni
G 0003 Numeri in gioco : 40.50 su GE NA per Ambo
V N. [40.50 ] [GE] [.. .. 40 50 ..] C. 1 Ambo 09748 [ 20 - 15/02/2020] [75.87.40.50.16]
N. [40.50 ] [NA] [.. .. .. .. ..] C. 1 09748 [ 20 - 15/02/2020] [43.71.19.47.44]

Un saluto
 
Grazie Claudio per lo script.
Effettivamente il metodo va migliorato molto.
Ti chiedevo gentilmente se potevi modificare lo script in modo che la ricerca dei due estratti isotopi siano validi solo quando sono su due ruote consecutive.

Grazie, Manuel67
 
Manuel67 ha scritto:
Grazie Claudio per lo script.
Effettivamente il metodo va migliorato molto.
Ti chiedevo gentilmente se potevi modificare lo script in modo che la ricerca dei due estratti isotopi siano validi solo quando sono su due ruote consecutive.

Grazie, Manuel67
Clicca per espandere...

La modifica + semplice è questa:
Sostituisci questa riga
For rr = r + 1 To 11 '<--------------------- ciclo seconda ruota
con questa
For rr = r + 1 To r+1 '<--------------------- ciclo seconda ruota;

ma la più corretta che esclude completamente il ciclo della seconda ruota "rr" è questa :
Codice: 
Sub Main()
    Dim ruota(10)
    Dim posta(1)
    Dim posta2(2)
    Dim n(10)
    Dim ambo1(2)
    Dim ambo2(2)
    posta(1) = 1
    posta2(2) = 1
    k = 6 '<-------- numero colpi
    ini = 9650 '<---- estrazione di inizio ricerca ( 3950 inizio Archivio senza buchi estrazionali 14-09-1946 )
    fin = EstrazioneFin
    For es = ini To fin '<------------------------------- ciclo  x estrazioni da controllare
        For p = 1 To 5 '<-------------------------------- ciclo x posizione estratti
            For r = 1 To 10 '<---------------------------- ciclo prima ruota
                a = Estratto(es,r,p) '<------------------ estratto prima ruota
                rr = r + 1 '<---------------------  seconda ruota
                If rr = 11 Then rr = 12
                b = Estratto(es,rr,p) '<------------- estratto   secondo ruota - ruota consecutiva
                If a = b Then '<--------------------- se trova due estratti uguali
                    Scrivi "________________________________________________________________"
                    Scrivi
                    Scrivi GetInfoEstrazione(es) & " Numero: " & CInt(a) & " isotopo su " & NomeRuota(r) & " " & NomeRuota(rr)
                    ruota(1) = r '  <----- prima ruota
                    ruota(2) = rr ' <----- seconda ruota
                    'ruota(3) = rrr '<----- terza ruota
                    n(1) = Fuori90(2*a) '<----------- numero da giocare
                    ImpostaGiocata 1,n,ruota,posta,k,1 '<--- imposta la giocata x ambata
                    ambo1(1) = n(1)
                    ambo1(2) = Fuori90(Vert(ambo1(1)) + 1)
                    ImpostaGiocata 2,ambo1,ruota,posta2,k,2 '<--- imposta la giocata 1° ambo
                    ambo2(1) = n(1)
                    ambo2(2) = Vert(ambo1(2))
                    ImpostaGiocata 3,ambo2,ruota,posta2,k,2 '<--- imposta la giocata 2° ambo
                    Gioca es,,,1 '<----------------------------- gioca le formazioni impostate
                End If
            Next
        Next
    Next
    ScriviResoconto
End Sub

saluti
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 09 settembre 2025
    Bari
    80
    40
    25
    05
    49
    Cagliari
    88
    51
    28
    38
    67
    Firenze
    83
    86
    78
    03
    77
    Genova
    29
    67
    66
    25
    63
    Milano
    85
    66
    63
    75
    60
    Napoli
    78
    60
    75
    41
    69
    Palermo
    49
    50
    88
    34
    19
    Roma
    40
    47
    61
    57
    09
    Torino
    20
    86
    42
    53
    28
    Venezia
    33
    60
    83
    75
    14
    Nazionale
    87
    81
    08
    22
    78
    Estrazione Simbolotto
    Palermo
    42
    33
    44
    16
    36
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto