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ì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto