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ì 25 febbraio 2025
    Bari
    44
    46
    59
    73
    72
    Cagliari
    62
    34
    79
    42
    67
    Firenze
    29
    81
    11
    82
    30
    Genova
    61
    01
    09
    14
    74
    Milano
    90
    04
    47
    24
    26
    Napoli
    64
    11
    49
    54
    66
    Palermo
    24
    54
    57
    90
    15
    Roma
    84
    21
    49
    24
    02
    Torino
    87
    54
    35
    23
    30
    Venezia
    07
    45
    42
    80
    56
    Nazionale
    89
    44
    90
    05
    45
    Estrazione Simbolotto
    Cagliari
    40
    13
    35
    06
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto