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ì 03 giugno 2025
    Bari
    22
    06
    19
    70
    35
    Cagliari
    63
    52
    04
    64
    43
    Firenze
    77
    56
    88
    38
    21
    Genova
    40
    86
    56
    32
    74
    Milano
    36
    42
    01
    33
    67
    Napoli
    63
    06
    37
    46
    64
    Palermo
    85
    66
    17
    42
    41
    Roma
    49
    88
    03
    80
    57
    Torino
    38
    42
    43
    53
    69
    Venezia
    50
    16
    55
    31
    32
    Nazionale
    28
    11
    73
    72
    52
    Estrazione Simbolotto
    Napoli
    13
    22
    38
    33
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto