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 novembre 2026
    Bari
    60
    81
    39
    27
    89
    Cagliari
    49
    40
    60
    34
    57
    Firenze
    33
    90
    53
    40
    10
    Genova
    18
    81
    28
    44
    52
    Milano
    12
    50
    54
    43
    81
    Napoli
    74
    79
    42
    24
    17
    Palermo
    51
    31
    10
    90
    62
    Roma
    23
    27
    40
    65
    28
    Torino
    89
    44
    69
    04
    21
    Venezia
    19
    33
    78
    37
    59
    Nazionale
    01
    56
    18
    50
    68
    Estrazione Simbolotto
    Torino
    45
    09
    18
    28
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto