Novità

-Ambata e ambo da numeri cadenza zero in posizione isotopa due

M

Mauro-emme

Member
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Mauro-emme ha scritto:
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Clicca per espandere...
Buongiorno Mauro non ho capito come si ricava la previsione é se c è in corso
 
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n. 68
[10042] [ 19] 12.02.2022 RO 10 Posiz. 3
[10042] [ 19] 12.02.2022 TO 50 Posiz. 3
----------------------------------------------------------------------------------------------------
03 69 10 42 18
79 49 50 87 61
Estrazione generatrice del pronostico 10042 [ 19 - 12/02/2022]
G 0001 Numeri in gioco : 15.51.06 su RO TO per Estratto,Ambo,Terno
V N. [15.51.06 ] [RO] [.. 15 .. .. 51] C. 3 Ambo 10045 [ 22 - 19/02/2022]
Interrotta per esito verificato

1) 10 E 50 SONO DEI NUMERI A CADENZA ZERO E SONO IN POSIZIONE ISOTOPA (STESSA POSIZIONE).
2) SI PRENDE IL NUMERO SENZA LO ZERO: 10 DIVENTA 1, 50 DIVENTA 5 E SI FORMA LA PRIMA AMBATA ACCOPPIANDO 1 E 5, CIOE' 15
3) SI TROVA IL VERTIBILE, DI 15 E' 51
4) SI SOMMA 1 E 5 CHE DA 6 TERZA AMBATA
5) 15 E 51 SONO LE AMBATE DA GIOCARE SULLE RUOTE DELL'ESTRAZIONE GENERATRICE RO E TO (BISOGNA TROVARE LA POSIZIONE SCORRENDO INDIETRO NEL TEMPO E TROVANDO LE DUE CON MAGGIOR FREQUENZA
6) 15 E 51 PER AMBO SECCO
7) 15, 51 E 6 PER TERNO SECCO

CIAO A PRESTO

------------------------

LISTATO CORRETTO E PIU' EFFICACE:

Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)
If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Vert(aN(1))
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 aprile 2026
    Bari
    12
    14
    29
    85
    76
    Cagliari
    33
    75
    71
    90
    35
    Firenze
    72
    76
    56
    06
    80
    Genova
    37
    73
    08
    34
    78
    Milano
    47
    85
    01
    11
    08
    Napoli
    07
    30
    46
    29
    11
    Palermo
    32
    40
    78
    46
    74
    Roma
    43
    13
    65
    05
    52
    Torino
    64
    04
    44
    36
    74
    Venezia
    48
    50
    21
    28
    19
    Nazionale
    70
    88
    15
    44
    20
    Estrazione Simbolotto
    Genova
    28
    07
    14
    16
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto