Camaleonte in terno secco

gennaro52 · 11 Maggio 2012

gennaro52 ha scritto:
ma gli script sono due separati oppure si devono incollare tutte e due insieme?grazie ...

risulta caso zero
non ci sono previsione ?

Baffoblu · 11 Maggio 2012

gennaro52 ha scritto:
risulta caso zero
non ci sono previsione ?

Scusa , ma ti pare che se andavano "incollati" non li postavo già in tal senso ?

Mi sembra evidente che siano "due" script separati e indipendenti uno dall'altro !

Per le previsioni, ci sono delle inputbox in cui scegli la ruota e la posizione, e solo secondo queste scelte, se c'è la condizione,
ci sarà la previsione....

Y10 · 11 Maggio 2012

Baffoblu ha scritto:
Non so se ve ne siete accorti, ma ho messo gli script per i terni.......

Certo che mi son accorto Baffo , ciò che tu fai , nel mio caso , non passa mai inosservato , grazie mille.

aldini · 11 Maggio 2012

gennaro il primo script che elabora i numeri di sinistra digiti 1 sarebbe bari digiti 3 sarebbe terzo estratto dove ce il 60 ripetuto
digiti 1000 estrazioni e comparira la previsione in corso (ne sono due gli script uno x il lato destro e uno x sinistro questo grazie alla disponibilita di baffo)

henry · 12 Maggio 2012

Buongiorno Aldini,

scusa se insisto ancora ma vorrei sapere per quanti colpi da giocare?

Grazie.

aldini · 12 Maggio 2012

Si scusami questa previsione personalmente ti consiglio di portarla fino a 9 colpi dal'uscita del 60 ripetuto perche ci sono due ottimi ambi
che potrebbero sfaldarsi a breve .
Comunque la mia giocata x sorti piu appetitose e la seguente
BARI
54-39-32-66 X AMBO TERNO E quaterna
81-39 GE-MI-VE
54-39 MI-RO-VE
54-81 MI-VE
Adesso qualcuno dira' ma gliambi non sono bari e tutte si e vero ma ho trovato qualcosa nel camaleonte che nel 50% dei casi mi indica le ruote di uscita comunque chi se la sente puo giocare cosi altrimenti gioca standard ambo a tutte.
stasera ve ne parlo come ricavare la ruota fissa
Ho una previsione venezia nazionale ma apriro' un nuovo post x non creare malintesi sulla tecnica.

eugenio.dj · 12 Maggio 2012

Occhio,confermo: il 54 а Ba dovrebbe uscire in 2-3(max) colpi! Grazie,Aldini!

strupi · 12 Maggio 2012

Perche vuoi lasciare l' 81 ?

A me scappa quell' 81 con 3 metodi diversi sempre su ba-ca.

Y10 · 12 Maggio 2012

Io rigioco la cinquina uguale all'altra volta , speriamo che vada , almeno per ambo.

henry · 12 Maggio 2012

grazie aldini, ho visto adesso e sono fuori x lavoro e ormai ho giocato solo su Bari ma speriamo che esce su ruota stessa.
grazie ancora e buona serata buona fortuna a tutti.

gscotto · 12 Maggio 2012

henry ha scritto:
grazie aldini, ho visto adesso e sono fuori x lavoro e ormai ho giocato solo su Bari ma speriamo che esce su ruota stessa.
grazie ancora e buona serata buona fortuna a tutti.

grazie aldini li gioco anchio vediamo cosa succede..........

gennaro52 · 12 Maggio 2012

aldini ha scritto:
gennaro il primo script che elabora i numeri di sinistra digiti 1 sarebbe bari digiti 3 sarebbe terzo estratto dove ce il 60 ripetuto
digiti 1000 estrazioni e comparira la previsione in corso (ne sono due gli script uno x il lato destro e uno x sinistro questo grazie alla disponibilita di baffo)

Grazie alidini ..& . Grazie a Baffo x la sua disponibilita'
In Bocca Al Lupo x STasera

aldini · 15 Maggio 2012

Ragazzi buona giornata a tutti vi vorrei far notare il 13 ripetuto a milano attenzione se il metodo non ci abantona ce la probabilita'
del botto bari si rafforza con il 13 ripetuto di milano
MILANO
AMBATA
32
27 32
32 89
ADESSO DATE UNOCHIATA A BARI RICORDO CHE A BARI ABBIAMO 54A. AMBI 54.39 54.81
MA NON E TUTTO RICORDATE PRECDENTEMENTE IL 44 RIPETUTO CHE DAVA LAMBATA 39
E COME AMBO 39 32 GUARDATE ATTENTAMENTE QUANDO SI E RIPETUTO IL 44
ABBIAMO PRESENTE SU AMBEDUE ESTRAZIONI IL 27
HO UNA FORTE SENZAZIONE CHE BARI PUO OSPITARE IL 27 32
RAGAZZI E RARO CHE SI TROVANO QUESTE CONVERGENZE E SE LA FORTUNA CI ASSISTE SI PUO' FARE IL BOTTO
SECONDO ME PUO ANDARE COSI' BARI 54 39 32 27
E CREDO CHE STASERA SIA LA CINQUANTINA CHE LA TRENTINA SI DOVREBBERO FARSI VEDERE
DATE UNOCHIATA AL QUADRO ESTRAZIONALE E SE ANALIZATE ANCHE VOI VI CONVINCERETE CHE E UNA BELLA CONVERGENZA
DA NON PERDERE
INFINE CHIDO DICENDOVI CHE SONO SOLO CERTEZZE NULLA E SICURO MI RACCOMANDO GIOCARE CON CAUTELA GIOCATE CON DISINVOLTURA SENZA NESSUN ACCANIMENTO PERCHE E SEMPRE UN GIOCO E TALE DEVE RIMANERE

Alberto Anderlini · 26 Novembre 2019

qusto è lo script di baffo blu laterali dx:
Sub Main()
Scrivi " Script Terno per laterali a destra",1
Scrivi
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(2)
Dim am1(3)
Dim am2(3)
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
'------------------------------------------
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,5)
b2 = Estratto(idEstr,r,5)
p1 = 5
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If ok = 1 Then
n(1) = k1
n(2) = k2
am1(1) = k1
am1(2) = k2
am1(3) = k3
am2(1) = k1
am2(2) = k2
am2(3) = k4
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° coppia di elementi di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° coppia di elementi di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi
ColoreTesto 7
Scrivi "Ambo Secco : " & k1 & " - " & k2,1
Scrivi "1° terno : " & k1 & " - " & k2 & " - " & k3,1
Scrivi "2° terno : " & k1 & " - " & k2 & " - " & k4,1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco',1
ImpostaGiocata 2,am1,ruote,poste,nColpiDiGioco',2
ImpostaGiocata 3,am2,ruote,poste,nColpiDiGioco',2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub

Alberto Anderlini · 26 Novembre 2019

questo è sempre di baffoblu pero lato sinistro
Scrivi " Script Terno per laterali a sinistra",1
Scrivi
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(2)
Dim am1(3)
Dim am2(3)
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,1)
b2 = Estratto(idEstr,r,1)
p1 = 1
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
'------------------------------------------
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a2 + b2' somma 1° ambo in verticale numeri a destra
b3 = a1 + b1' somma 2° ambo in verticale numeri ripetuti
a4 = Distanza(a2,b2)' distanza 1° ambo
b4 = Abs(a1 - b1)' distanza 2° ambo
b5 = b3 + a4' somma 2° ambo + distanza 1° ambo
'---------------------------------------------
k1 = b5 / 2' 1° elemento dell'ambo secco
k2 = b3 - k1' 2° elemento dell'ambo secco
'------------
w = k1 + k2
k3 = Fuori90(w + 1)' 1° abbinamento per terno
k4 = Fuori90(w + 2)' 2° ammbinamento per terno
ok = 1
End If
End If
If ok = 1 Then
n(1) = k1
n(2) = k2
am1(1) = k1
am1(2) = k2
am1(3) = k3
am2(1) = k1
am2(2) = k2
am2(3) = k4
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° coppia di elementi di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° coppia di elementi di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi
ColoreTesto 7
Scrivi "Ambo Secco : " & k1 & " - " & k2,1
Scrivi "1° terno : " & k1 & " - " & k2 & " - " & k3,1
Scrivi "2° terno : " & k1 & " - " & k2 & " - " & k4,1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco',1
ImpostaGiocata 2,am1,ruote,poste,nColpiDiGioco',2
ImpostaGiocata 3,am2,ruote,poste,nColpiDiGioco',2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub

Alberto Anderlini · 26 Novembre 2019

qulcuno riesce a unificarlo senza cercare ruota perruuota e per posizione.
grazie

Cerca

Cerca

Camaleonte in terno secco

gennaro52

Super Member >PLATINUM<

Baffoblu

Guest

Y10

Advanced Member >PLATINUM<

aldini

Senior Member

henry

Member

aldini

Senior Member

eugenio.dj

Super Member >PLATINUM<

strupi

Banned

Y10

Advanced Member >PLATINUM<

henry

Member

gscotto

Junior Member

gennaro52

Super Member >PLATINUM<

aldini

Senior Member

Alberto Anderlini

Super member

Alberto Anderlini

Super member

Alberto Anderlini

Super member

Ultima estrazione Lotto

Ultimi Messaggi