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ì 12 agosto 2025
    Bari
    24
    68
    73
    16
    76
    Cagliari
    78
    24
    82
    32
    90
    Firenze
    39
    46
    21
    45
    28
    Genova
    50
    03
    21
    64
    09
    Milano
    85
    44
    38
    43
    34
    Napoli
    12
    16
    56
    61
    03
    Palermo
    75
    64
    34
    25
    28
    Roma
    55
    29
    43
    06
    64
    Torino
    38
    60
    90
    53
    82
    Venezia
    12
    75
    34
    67
    77
    Nazionale
    70
    17
    25
    41
    57
    Estrazione Simbolotto
    Nazionale
    25
    28
    19
    34
    36
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto