Novità

La solita cortesia

Alien.

Advanced Premium Member
uno script.




grazie.
 
ColoreTesto 1
Scrivi "------------ L'ambo ripetuto PARI O DISPARI di Osvaldo Manara -----"
Scrivi " List. DjNomade "
Scrivi
ColoreTesto 0
Sub Main()
Dim num(10)
Dim nu1(7)
Dim nu2(7)
Dim nu3(8)
Dim nu4(8)
Dim nu5(8)
Dim ruote(10)
Dim ruote2(10)
ruote2(10) = 11
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
fin = EstrazioneFin
ini = fin - 50
t = 0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k = 12
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
n1 = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For pp = 1 To 4
For qq = pp + 1 To 5
c = Estratto(es,r1,pp)
d = Estratto(es,r1,qq)
sm1 = Fuori90(n1 + b)
b2 = sm1/2
a2 = Fuori90(45 + b2)'58
a3 = Distanza(a2,n1)'58-24=34
a4 = Distanza(a2,b)'58-2=34'ambata
a5 = Abs(n1 - b)
If((c = n1 And d = b) Or(c = b And d = n1)) And pari(sm1) = True And a3 = a4 Then ' se i numeri sono uguali
t = t + 1
Scrivi String(44,"=") & " caso n° " &(t),1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(n1) & " " & Format2(b) & " * " & Left(NomeRuota(r1),3) & " " & _
Format2(c) & " " & Format2(d) & " Somma " & Format2(sm1)
Scrivi
ruote(1) = r
ruote(2) = r1
nu1(1) = a4
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a4
nu2(2) = n1
ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = b
ImpostaGiocata 3,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = sm1
ImpostaGiocata 4,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = a5
ImpostaGiocata 5,nu2,ruote,poste,k
Gioca es,1
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto,0
ColoreTesto 1 :Scrivi "------------ L'ambo ripetuto PARI O DISPARI di Osvaldo Manara -----",1
Scrivi " List. DjNomade "
Scrivi
End Sub
 
Ciao *black ,grazie.
Ma facendo un controllo dello script
Estrazione generatrice del pronostico 10332 [152 - 09/11/2023]
G 0001 Numeri in gioco : 03 su NA RO per Estratto

V N. [03 ] [RO] [.. .. .. 03 ..] C. 1 Estratto 10333 [153 - 10/11/2023]
V N. [03 ] [RO] [03 .. .. .. ..] C. 8 Estratto 10340 [160 - 23/11/2023]

In corso per altre 1 estrazioni
G 0002 Numeri in gioco : 03.01 su NA RO per Ambo
In corso per altre 1 estrazioni
G 0003 Numeri in gioco : 03.85 su NA RO per Ambo
In corso per altre 1 estrazioni
G 0004 Numeri in gioco : 03.86 su NA RO per Ambo
In corso per altre 1 estrazioni
G 0005 Numeri in gioco : 03.84 su NA RO per Ambo
In corso per altre 1 estrazioni
============================================ caso n° 21
11.11.2023 Cag 22 66 * Mil 22 66 Somma 88

non torna con quanto ha detto GERONIMO'S

Preciso che non sempre la previsione da tanto , ma difficilmente non da esito ..anzi a volte da molto .... per esempio
09 11 23 NA RO 01 85 prev. NA RO NAZ 84 ambata / 86 68 / 41 80
11 11 2° clp TERNO SECCO A TT 84 41 80 + 84 AMBATA A NA
16 11 4°CLP AMBO SECCO 68 86 ROMA
23 11 8°CLP AMBO SECCO A TT 84 86
24 11 9°CLP AMBATA 84 RO
SEMPRE IL 09 11 23 FI GE 34 46 prev 12 AMBATA / 80 08 / 35 02
14 11 3° CLP AMBO SECCO TT 12 35
16 11 4° CLP AMBO SECCO FI 80 08


Forse.............non si è capito bene la spiegazione di GERONIMO'S


SI PUò VERIFICARE PERCHE NON MI PARE MALVAGIO IL SUO PENSIERO.

GRAZIE.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 maggio 2026
    Bari
    84
    57
    09
    22
    60
    Cagliari
    52
    58
    80
    57
    76
    Firenze
    50
    15
    63
    58
    60
    Genova
    08
    30
    61
    75
    55
    Milano
    82
    68
    29
    16
    10
    Napoli
    86
    46
    15
    33
    65
    Palermo
    46
    29
    73
    74
    37
    Roma
    30
    15
    02
    87
    52
    Torino
    15
    62
    82
    52
    67
    Venezia
    58
    85
    40
    35
    48
    Nazionale
    16
    51
    56
    71
    17
    Estrazione Simbolotto
    Milano
    18
    07
    27
    32
    12
Indietro
Alto