Novità

terno metodo camaleonte

vengio

Super Member >GOLD<
Codice:
Sub Main()
Dim n(5)
Dim x(5)
Dim y(5)
Dim Ruotedigioco(12)
Dim Poste(4)
'Poste(1) = 3
Poste(2) = 2
Poste(3) = 1
clp = 13
Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
t = 0
esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
fin = EstrazioneFin
ini = EstrazioneFin - esaritroso
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 5
w = p-1
ww = p+1
If w = 0 Then w = 5
If ww = 6 Then ww =1
a = Estratto(es - 1,r,p)
b = Estratto(es,r,p)
c = Estratto(es - 1,r,w)
d = Estratto(es,r,w)
e = Estratto(es - 1,r,ww)
f = Estratto(es,r,ww)
If a = b Then
h = Differenza(c,d)
i = a + b
g = i + h
k = Fuori90(g/2)
j = Fuori90(Differenza(i,k))
qq = Fuori90(k + j)
ss = Fuori90(qq + 1)
vv = Fuori90(qq + 2)
ok = 0
If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
z1 = j
z2 = k
z3 = qq
z4 = ss
z5 = vv'
x(1) = j
x(2) = k
x(3) = ss
n(1) = j
n(2) = k
y(1) = j
y(2) = k
y(4) = vv
Ok = 1
Scrivi String(110,"*"),1
Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1,,,5
ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione sinistra  " & c & " e " & d,1
End If
' _______________________________________________________________
l = Differenza(e,f)
m = i + l
u = Fuori90(m/2)
o = Fuori90(Differenza(i,u))
q = Fuori90(U + o)
s = Fuori90(q + 1)
v = Fuori90(q + 2)
If pari(e) = True And pari(f) = True Or dispari(e) = True And dispari(f) = True Then
x(1) = u
x(2) = o
x(3) = s
n(1) = u
n(2) = o
y(1) = u
y(2) = o
y(4) = v
ok = 1
Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione destra  " & e & " e " & f,1
End If
If ok = 1 Then
'Scrivi
'Scrivi String(110,"*"),1
Ruotedigioco(1) = r
Ruotedigioco(2) = 11
ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
Gioca es,1
End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
Dovrebbe essere la versione fedele e definitiva, controlla sempre per verificare eventuali errori.
 
Ultima modifica:

Abitte

Advanced Member >PLATINUM PLUS<
Tenuto solo monitorato.....ora c'è una interessante doppia condizione a BA col 61 in 5^ posizione con 2 dispari che lo precedono e due pari che lo seguono,considerando il numero primo estratto seguente il quinto....Non uso listati e mi cimento col cartapen ......sono appassionata ma nonnina eheheh
 

gio2013

Advanced Member
Ciao a tutti, di numeri e tecniche di gioco non me ne intendo, mi piaceva il titolo di questo post e ho giocato i numeri dati, preso ambo in terzina. Grazie mille a tutti !!
 

jordan

Junior Member
Anch'io preso ambo in terzina, grazie grazie. Adesso sono in gioco due previsioni, ho fatto il calcolo a penna non so se sono giuste, potete confermarle?
Ba 5-27 / 5-27-37/5-27-34 e Ba 25-7 / 25-7-33 / 25-7-34
Grazie ancora a tutti
 

jordan

Junior Member
Per Alberto Anderlini : quando nel calcolo per l'ambo ti esce 0 come nel caso dei due dispari (75/43) cosa bisogna fare?
Grazie infinite per la risposta.
 

Abitte

Advanced Member >PLATINUM PLUS<
Avendo un po' di tempo,ho fatto i calcoli e a me vengono:
BA (con i dispari) ambo 32-0 e unico terno 32-33-34
(con i pari ) ambo 24-8 e terni 24-8-33 e 24-8-34


Volendo fare una lunghetta unificando le due previsioni, se esatte, si ha una cinquina per sorti superiori.
Attendo lumi da chi può confermare o meno. Grazie :)
 

jordan

Junior Member
Avendo un po' di tempo,ho fatto i calcoli e a me vengono:
BA (con i dispari) ambo 32-0 e unico terno 32-33-34
(con i pari ) ambo 24-8 e terni 24-8-33 e 24-8-34


Volendo fare una lunghetta unificando le due previsioni, se esatte, si ha una cinquina per sorti superiori.
Attendo lumi da chi può confermare o meno. Grazie :)
con i pari a me risulta ambo 25-7 qualcosa non torna?
 

Alberto Anderlini

Super member
Avendo un po' di tempo,ho fatto i calcoli e a me vengono:
BA (con i dispari) ambo 32-0 e unico terno 32-33-34
(con i pari ) ambo 24-8 e terni 24-8-33 e 24-8-34


Volendo fare una lunghetta unificando le due previsioni, se esatte, si ha una cinquina per sorti superiori.
Attendo lumi da chi può confermare o meno. Grazie :)
io non ho giocato purtroppo. per quanto cocerne la nuova previsione di gioco sono casi possibili con lo zero nel calcolo non si dovrebbe giocare, oppure optare e fare una cinquina vissto che c'è la prevsione con i pari.
oppure giocare il 90. ancora non ho preso visione di una nuova previsione. se inserite una prvisione scrivete anche i numeri rilevati a sn e dx deel nuomro uguale isotopo. ciao
 

Alberto Anderlini

Super member
per vengio due domande:
1 il programma se lo metto in un foglio excel per farlo funzionare l'archivio di ricrca deve essere come il quadro estrazionle o in orizontale e quale isruzione devo cambiare? grazie
2 sto cercando cercando un programma come da foto allegata.
 

Allegati

  • vlcsnap-2019-11-29-15h46m23s144.png
    vlcsnap-2019-11-29-15h46m23s144.png
    964,7 KB · Visite: 22

Alberto Anderlini

Super member
queste sono le previsini in corso
31.10.2019 TO 53.36.37.31.52 TO 52 in 5° Posizione(Ripetuto in estrazione consecutiva)
39 65 15 16 Posizione sinistra 5 e 31
29.10.2019 TO 49.70.54.05.52 TO 52 in 5° Posizione
31.10.2019 TO 53.36.37.31.52 TO 52 in 5° Posizione(Ripetuto in estrazione consecutiva)
54 50 15 16 Posizione destra 49 e 53
Estrazione generatrice del pronostico 09702 [131 - 31/10/2019]
G 0001 Numeri in gioco : 54.50 su TO TT per Ambo,Terno

V N. [54.50 ] [TT] [PA][50 .. .. .. 54] C. 12 Ambo 09714 [143 - 28/11/2019]

In corso per altre 1 estrazioni
G 0002 Numeri in gioco : 54.50.15 su TO TT per Ambo,Terno
V N. [54.50.15 ] [TT] [PA][15 .. .. 54 ..] C. 9 Ambo 09711 [140 - 21/11/2019]
V N. [54.50.15 ] [TT] [PA][50 .. .. .. 54] C. 12 Ambo 09714 [143 - 28/11/2019]

In corso per altre 1 estrazioni
G 0003 Numeri in gioco : 54.50.16 su TO TT per Ambo,Terno
V N. [54.50.16 ] [TT] [CA][.. 50 .. 16 ..] C. 6 Ambo 09708 [137 - 14/11/2019]
V N. [54.50.16 ] [TT] [PA][50 .. .. .. 54] C. 12 Ambo 09714 [143 - 28/11/2019]

In corso per altre 1 estrazioni
31.10.2019 VE 53.20.26.84.65 VE 26 in 3° Posizione
02.11.2019 VE 48.59.26.76.81 VE 26 in 3° Posizione(Ripetuto in estrazione consecutiva)
30 22 53 54 Posizione destra 84 e 76
Estrazione generatrice del pronostico 09703 [132 - 02/11/2019]
G 0001 Numeri in gioco : 30.22 su VE TT per Ambo,Terno

In corso per altre 2 estrazioni
G 0002 Numeri in gioco : 30.22.53 su VE TT per Ambo,Terno
In corso per altre 2 estrazioni
G 0003 Numeri in gioco : 30.22.54 su VE TT per Ambo,Terno
V N. [30.22.54 ] [TT] [FI][.. .. 22 54 ..] C. 5 Ambo 09708 [137 - 14/11/2019]

In corso per altre 2 estrazioni
**************************************************************************************************************
05.11.2019 MI 22.21.64.90.57 MI 57 in 5° Posizione
07.11.2019 MI 24.14.40.34.57 MI 57 in 5° Posizione(Ripetuto in estrazione consecutiva)
29 85 25 26 Posizione sinistra 90 e 34
05.11.2019 MI 22.21.64.90.57 MI 57 in 5° Posizione
07.11.2019 MI 24.14.40.34.57 MI 57 in 5° Posizione(Ripetuto in estrazione consecutiva)
58 56 25 26 Posizione destra 22 e 24
Estrazione generatrice del pronostico 09705 [134 - 07/11/2019]
G 0001 Numeri in gioco : 58.56 su MI TT per Ambo,Terno

In corso per altre 4 estrazioni
G 0002 Numeri in gioco : 58.56.25 su MI TT per Ambo,Terno
In corso per altre 4 estrazioni
G 0003 Numeri in gioco : 58.56.26 su MI TT per Ambo,Terno
In corso per altre 4 estrazioni
**************************************************************************************************************
19.11.2019 BA 44.68.85.20.88 BA 44 in 1° Posizione
21.11.2019 BA 44.39.61.18.64 BA 44 in 1° Posizione(Ripetuto in estrazione consecutiva)
32 56 89 90 Posizione sinistra 88 e 64
Estrazione generatrice del pronostico 09711 [140 - 21/11/2019]
G 0001 Numeri in gioco : 32.56 su BA TT per Ambo,Terno

In corso per altre 10 estrazioni
G 0002 Numeri in gioco : 32.56.89 su BA TT per Ambo,Terno
In corso per altre 10 estrazioni
G 0003 Numeri in gioco : 32.56.90 su BA TT per Ambo,Terno
In corso per altre 10 estrazioni
21.11.2019 TO 53.83.14.37.50 TO 37 in 4° Posizione
23.11.2019 TO 47.57.21.37.56 TO 37 in 4° Posizione(Ripetuto in estrazione consecutiva)
40 34 75 76 Posizione destra 50 e 56
Estrazione generatrice del pronostico 09712 [141 - 23/11/2019]
G 0001 Numeri in gioco : 40.34 su TO TT per Ambo,Terno

V N. [40.34 ] [TO] [40 .. .. 34 ..] C. 1 Ambo 09713 [142 - 26/11/2019]
V N. [40.34 ] [TT] [TO][40 .. .. 34 ..] C. 1 Ambo 09713 [142 - 26/11/2019]

In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 40.34.75 su TO TT per Ambo,Terno
V N. [40.34.75 ] [TO] [40 .. .. 34 ..] C. 1 Ambo 09713 [142 - 26/11/2019]
V N. [40.34.75 ] [TT] [TO][40 .. .. 34 ..] C. 1 Ambo 09713 [142 - 26/11/2019]

In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 40.34.76 su TO TT per Ambo,Terno
V N. [40.34.76 ] [TO] [40 .. .. 34 ..] C. 1 Ambo 09713 [142 - 26/11/2019]
V N. [40.34.76 ] [TT] [TO][40 .. .. 34 ..] C. 1 Ambo 09713 [142 - 26/11/2019]

In corso per altre 11 estrazioni
21.11.2019 NZ 41.18.11.60.34 NZ 11 in 3° Posizione
23.11.2019 NZ 64.35.11.54.84 NZ 11 in 3° Posizione(Ripetuto in estrazione consecutiva)
14 08 23 24 Posizione destra 60 e 54
Estrazione generatrice del pronostico 09712 [141 - 23/11/2019]
G 0001 Numeri in gioco : 14.08 su TT NZ per Ambo,Terno

In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 14.08.23 su TT NZ per Ambo,Terno
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 14.08.24 su TT NZ per Ambo,Terno
V N. [14.08.24 ] [NZ] [08 24 .. .. ..] C. 2 Ambo 09714 [143 - 28/11/2019]

In corso per altre 11 estrazioni
23.11.2019 BA 70.30.52.04.61 BA 61 in 5° Posizione
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
70 52 33 34 Posizione destra 70 e 88
Estrazione generatrice del pronostico 09713 [142 - 26/11/2019]
G 0001 Numeri in gioco : 70.52 su BA TT per Ambo,Terno

In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 70.52.33 su BA TT per Ambo,Terno
V N. [70.52.33 ] [TT] [NA][.. .. 70 .. 33] C. 1 Ambo 09714 [143 - 28/11/2019]

In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 70.52.34 su BA TT per Ambo,Terno
In corso per altre 12 estrazioni
**************************************************************************************************************
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
45 77 33 34 Posizione sinistra 43 e 75
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
69 53 33 34 Posizione destra 88 e 72
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0001 Numeri in gioco : 69.53 su BA TT per Ambo,Terno

In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 69.53.33 su BA TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 69.53.34 su BA TT per Ambo,Terno
In corso per altre 13 estrazioni
 

Alberto Anderlini

Super member
programma per ambo e terno sempre camaleonte metodo come lo state già provando.programma di Vengi.
Sub Main()
Dim n(5)
Dim x(5)
Dim y(5)
Dim Ruotedigioco(12)
Dim Poste(4)
'Poste(1) = 3
Poste(2) = 2
Poste(3) = 1
clp = 13
Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
t = 0
esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
fin = EstrazioneFin
ini = EstrazioneFin - esaritroso
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 5
w = p - 1
ww = p + 1
If w = 0 Then w = 5
If ww = 6 Then ww = 1
a = Estratto(es - 1,r,p)
b = Estratto(es,r,p)
c = Estratto(es - 1,r,w)
d = Estratto(es,r,w)
e = Estratto(es - 1,r,ww)
f = Estratto(es,r,ww)
If a = b Then
h = Differenza(c,d)
i = a + b
g = i + h
k = Fuori90(g/2)
j = Fuori90(Differenza(i,k))
qq = Fuori90(k + j)
ss = Fuori90(qq + 1)
vv = Fuori90(qq + 2)
ok = 0
If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
z1 = j
z2 = k
z3 = qq
z4 = ss
z5 = vv'
x(1) = j
x(2) = k
x(3) = ss
n(1) = j
n(2) = k
y(1) = j
y(2) = k
y(4) = vv
Ok = 1
Scrivi String(110,"*"),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1,,,5
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione sinistra " & c & " e " & d,1
End If
' _______________________________________________________________
l = Differenza(e,f)
m = i + l
u = Fuori90(m/2)
o = Fuori90(Differenza(i,u))
q = Fuori90(U + o)
s = Fuori90(q + 1)
v = Fuori90(q + 2)
If pari(e) = True And pari(f) = True Or dispari(e) = True And dispari(f) = True Then
x(1) = u
x(2) = o
x(3) = s
n(1) = u
n(2) = o
y(1) = u
y(2) = o
y(4) = v
ok = 1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione destra " & e & " e " & f,1
End If
If ok = 1 Then
'Scrivi
'Scrivi String(110,"*"),1
Ruotedigioco(1) = r
Ruotedigioco(2) = 11
ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
Gioca es,1
End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
 

Abitte

Advanced Member >PLATINUM PLUS<
con i pari a me risulta ambo 25-7 qualcosa non torna?

Dunque....88 e 72 sono i laterali pari del 61 in 5^
somma dei laterali: 88+72 = 70
distanza dei laterali: 88-72 = 16
somma del 61 : 122 - 90 = 32
32+16 = 48 ( somma numero doppio più distanza numeri pari)
48:2 =24
32-24 = 8 (somma del numero doppio meno il primo numero ricavato per l'ambo)
seguendo la descrizione del metodo dovrebbe venire così
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto