Tecnica di capilloxxo devil2 le convergenze + tecnica 2001

QUI TROVERETE VARI PROGRAMMI PER IL GIOCO DEL LOTTO
jobolixx
Messaggi: 17
Iscritto il: 06/09/2012, 7:48

Tecnica di capilloxxo devil2 le convergenze + tecnica 2001

Messaggio da jobolixx » 14/09/2012, 8:26

Ok come promesso condivido con voi queste due tecniche di capilloxxo :laug: :laug: :laug: :laug:
http://www.mediafire.com/view/?us1j8w00mn6auo4
ciao

Avatar utente
ciccio
Messaggi: 1096
Iscritto il: 24/10/2011, 20:59

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da ciccio » 14/09/2012, 8:36

grazieeeeeee fratello joboli peccato che siano di capillo....non vince na sega...

:lol: :lol: :lol:
chi di spada ferisce..di spada perisce...

Avatar utente
Tatoo64
Site Admin
Messaggi: 3841
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da Tatoo64 » 14/09/2012, 10:20

Grazie jobolix per l'apporto......................

Dando un lettura al pdf del Devil-2 che conoscevo già da tempo ho notato subito un MACROCOSMICO errore, ma non sapendo se è un errore di battitura o distrazione non voglio puntare il dito.

All'uscita dell'ambo 76-16 il numero mancante 46 è l'ambata da mettere in gioco con gli abbinamenti ricavati dalla somma del fisso 5 con l'ambo uscito,
76+5 = 81 e 16+5 = 21, questo è quanto leggo, ebbene come mai appena sotto dichiara che l'ambata è il " 71 " da abbinare al 21-81?????

La cosa non ha senso anche perchè nell'esempio sotto che segue, là dove per uscire dalla decina il fisso 5 bisogna sottrarlo, l'ambata è quella giusta.

Ma volendo essere cattivo ne deduco che non sà neppure mettere per iscritto le proprie tecniche, ecco perchè si è dato ai video, certo che non so se è peggio leggerlo o sentirlo parlare, poi quando si appollaia sullo sgabello è na comica vivente, lo so punzecchio come una vespa
:dent: :dent:
:laug: :laug: :laug:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
Tatoo64
Site Admin
Messaggi: 3841
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da Tatoo64 » 14/09/2012, 10:35

e abbiamo scoperto che la PENTAMBO nel 2011 la chiamava TECNICA 2001, Jobolix come fai ad avere l'originale pdf????

NON DIRMI CHE LO HAI COMPRATO?
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
luca92
Messaggi: 3401
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da luca92 » 14/09/2012, 11:59

Grazie Jobolixx, anche se sapendo da chi provengono questi metodi non è che mi attirino molto!

Ciao
Luca
Immagine




Immagine







Immagine

jobolixx
Messaggi: 17
Iscritto il: 06/09/2012, 7:48

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da jobolixx » 14/09/2012, 14:03

ciao ragazzi per gli errori non saprei non lo mai usato........ il pdf mi è stato dato cosi non so se e modificato oppure no comunque avete una parte di capilloxxo :laug: :laug: :laug: :laug: non spendo soldi per metodi anche se qualcuno lo comprato :dent: :dent: :dent:

jobolixx
Messaggi: 17
Iscritto il: 06/09/2012, 7:48

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da jobolixx » 14/09/2012, 14:14

x tatoo64
e abbiamo scoperto che la PENTAMBO nel 2011 la chiamava TECNICA 2001, Jobolix come fai ad avere l'originale pdf????
:laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug:
non pensavo di avere un pezzo di storia nel mio pc :laughing: :laughing: :laughing: :laughing:

lones
Messaggi: 14
Iscritto il: 16/11/2011, 16:36

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da lones » 21/09/2012, 11:07

trovati in rete,possono servire chissa se attinenti al post?? :tim: :tim:

Codice: Seleziona tutto

 Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(5)
posta(1)=1:poste(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
If DiametraleD(r2)=r1 Or r1+1=r2 Then
If p1=p3 And p2=p4 Or p2=p3 And p1=p4 Then
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4):ds2=Distanza(n3,n4)
If ds1=30 And ds2=30 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" > "&Format2(n1)&"."&Format2 (n2)&" Pos "&Format2 (p1)&" - "&Format2 (p2)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds2)&" > "&Format2(n3)&"."&Format2 (n4)&" Pos "&Format2 (p3)&" - "&Format2 (p4)&"."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=14:co=0:ruota(3)=11
If n1>n2 And Abs(n1-n2)=60 Then c1=Fuori90(n1-30)
If n1>n2 And Abs(n1-n2)=30 Then c1=Fuori90(n1+30)
If n2>n1 And Abs(n2-n1)=60 Then c1=Fuori90(n2-30)
If n2>n1 And Abs(n2-n1)=30 Then c1=Fuori90(n2+30)
If n3>n4 And Abs(n3-n4)=60 Then c2=Fuori90(n3-30)
If n3>n4 And Abs(n3-n4)=30 Then c2=Fuori90(n3+30)
If n4>n3 And Abs(n4-n3)=60 Then c2=Fuori90(n4-30)
If n4>n3 And Abs(n4-n3)=30 Then c2=Fuori90(n4+30)
b1=Decina(n1)
b2=Decina(n2)
b3=Decina(n3)
b4=Decina(n4)
a1=Fuori90(n1+5):If b1=Decina(a1) Then a1=Abs(n1-5)
a2=Fuori90(n2+5):If b2=Decina(a2) Then a2=Abs(n2-5)
a3=Fuori90(n3+5):If b3=Decina(a3) Then a3=Abs(n3-5)
a4=Fuori90(n4+5):If b4=Decina(a4) Then a4=Abs(n4-5)
If n1<5 Then k1=90+n1:a1=k1-5
If n2<5 Then k1=90+n2:a2=k1-5
If n1=90 Then a1=85
If n2=90 Then a2=85
If n3<5 Then k2=90+n3:a3=k2-5
If n4<5 Then k2=90+n4:a4=k2-5
If n3=90 Then a3=85
If n4=90 Then a4=85
If a1>a2 And Abs(a1-a2)=60 Then c3=Fuori90(a1-30)
If a1>a2 And Abs(a1-a2)=30 Then c3=Fuori90(a1+30)
If a2>a1 And Abs(a2-a1)=60 Then c3=Fuori90(a2-30)
If a2>a1 And Abs(a2-a1)=30 Then c3=Fuori90(a2+30)
If a3>a4 And Abs(a3-a4)=60 Then c4=Fuori90(a3-30)
If a3>a4 And Abs(a3-a4)=30 Then c4=Fuori90(a3+30)
If a4>a3 And Abs(a4-a3)=60 Then c4=Fuori90(a4-30)
If a4>a3 And Abs(a4-a3)=30 Then c4=Fuori90(a4+30)
nu1(1)=c1
nu1(2)=c2
posta(1)=2 : posta(p1+5)=1 : posta(p2+5)=1
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
Erase posta
nu2(1)=c1
nu2(2)=c2
nu2(3)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
'ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=c2
nu2(3)=a2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
'ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=c2
nu2(3)=a3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
'ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=c2
nu2(3)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
'ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=c2
nu2(3)=c3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
'ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=c2
nu2(3)=c4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
'ImpostaGiocata co,nu2,ruota,poste,k
nu3(1)=c1
nu3(2)=c2
nu3(3)=a1
nu3(4)=a2
nu3(5)=a3
nu3(6)=a4
nu3(7)=c3
nu3(8)=c4
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
co=co+1


nu4(1)=c1
nu4(2)=Fuori90(c1*2)
nu4(3)=Diametrale(nu4(2))
nu4(4)=c2
nu4(5)=Fuori90(c2*2)
nu4(6)=Diametrale(nu4(5))

ImpostaGiocata co,nu4,ruote,poste,k
co=co+1
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub



Codice: Seleziona tutto

 
Sub main() 
Dim ru(2) 
Dim posta(1),poste(2),post(5) 
Dim num1(1),num2(2),num3(5),num4(6) 
posta(1)=1:poste(2)=1 
post(2)=3:post(3)=1.3:post(4)=0.5:post(5)=0.2:casi=0 
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",200) 
k=CInt (InputBox ("Per quanti colpi?","colpi di gioco",14)) 
ini=EstrazioneFin -rs 
fin=EstrazioneFin 
For es=ini To EstrazioneFin 
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1) 
For r=1 To 10 
For p1=1 To 4 
For p2=p1+1 To 5 
a=Estratto(es,r,p1) 
b=Estratto(es,r,p2) 
If Distanza(a,b)=30 Then 
c=Fuori90(b+60) 
If c=a Then c=Fuori90(b+30) 
Scrivi String(65,"="),1 
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota (r)&" "&stringaestratti(es,r)&_ 
" ] [ "&format2(a)&"."&format2(b)&" ]" 
Scrivi "num. mancante terz. simm. [ "&format2(c)&" ]" 
Scrivi String(65,"-") 
If r<6 Then r2=r+5 
If r>5 Then r2=r-5 
ru(1)=r:ru(2)=r2 
co=0 
nu1=Fuori90(a+5) 
nu2=Fuori90(90+(a-5)) 
nu3=Fuori90(b+5) 
nu4=Fuori90(90+(b-5)) 

num1(1)=c 
co=co+1 
ImpostaGiocata co,num1,ru,posta,k,1 
num2(1)=c
num2(2)=nu1 
co=co+1 
ImpostaGiocata co,num2,ru,poste,k,2 
num2(1)=c 
num2(2)=nu2 
co=co+1 
ImpostaGiocata co,num2,ru,poste,k,2 
num2(1)=c 
num2(2)=nu3 
co=co+1 
ImpostaGiocata co,num2,ru,poste,k,2 
num2(1)=c 
num2(2)=nu4 
co=co+1 
ImpostaGiocata co,num2,ru,poste,k,2 

num3(1)=c 
num3(2)=nu1 
num3(3)=nu2 
num3(4)=nu3 
num3(5)=nu4 
co=co+1 
ImpostaGiocata co,num3,ru,post,k 

num4(1)=c
num4(2)=Fuori90(c*2)
num4(3)=Diametrale(num4(2))
num4(4)=Vert(c)
num4(5)=Vert(num4(3))
num4(6)=Vert(num4(4))

co=co+1 
ImpostaGiocata co,num4,ru,poste,k
Gioca es 
End If 
Next:Next:Next:next 
ScriviResoconto 
ColoreTesto 1 
End Sub 



 

Codice: Seleziona tutto


Scrivi String(33," ")&"DEVIL-2 Convergenza",1
ColoreTesto 2
ColoreTesto 1
Scrivi String(78,"=")&_
"listed",1
Scrivi

Sub main()
Dim n(2)
Dim am(1)
Dim ab(2)
Dim nm(2)
Dim amm(1)
Dim abm(2)
Dim nmr(2)
Dim ruote(4)
Dim ruota(1)
Dim poste(2)
ruota(1)=11
poste(2)=1



ini=EstrazioneFin-100
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
Erase n
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
If Distanza(n(1),n(2))=30 Then

For ex=es To es-5 step-1
ru=1
If ex=es Then ru=r+1
For r1=ru To 10
If r1<>r Then
Erase nm
For p1=1 To 4
For q1=p1+1 To 5
nm(1)=Estratto (ex,r1,p1)
nm(2)=Estratto (ex,r1,q1)
If Distanza(nm(1),nm(2))=30 Then

OrdinaMatrice (n)
If Abs(n(1)-n(2))=60 Then am(1)=n(2)-30
If Abs(n(1)-n(2))=30 And n(1)<30 Then am(1)=n(2)+30
If Abs(n(1)-n(2))=30 And n(1)>30 Then am(1)=n(1)-30
If Cadenza(am(1))>4 Then
ab(1)=Fuori90(n(1)+5)
ab(2)=Fuori90(n(2)+5)
Else
ab(1)=Fuori90(n(1)+85)
ab(2)=Fuori90(n(2)+85)
End If

OrdinaMatrice (nm)
If Abs(nm(1)-nm(2))=60 Then amm(1)=nm(2)-30
If Abs(nm(1)-nm(2))=30 And nm(1)<30 Then amm(1)=nm(2)+30
If Abs(nm(1)-nm(2))=30 And nm(1)>30 Then amm(1)=nm(1)-30
If Cadenza(amm(1))>4 Then
abm(1)=Fuori90(nm(1)+5)
abm(2)=Fuori90(nm(2)+5)
Else
abm(1)=Fuori90(nm(1)+85)
abm(2)=Fuori90(nm(2)+85)
End If
If am(1)=abm(1) Or am(1)=abm(2) And amm(1)=ab(1) Or amm(1)=ab(2) Then

nmr(1)=am(1)
nmr(2)=amm(1)
ruote(1)=r
ruote(2)=r1
ruote(3)=r+5
If ruote(3)>10 Then ruote(3)=ruote(3)-10
ruote(4)=r1+5
If ruote(4)>10 Then ruote(4)=ruote(4)-10

ColoreTesto 1
Scrivi DataEstrazione (es)&" "& Left(NomeRuota (r),2)&_
" "&Format2(n(1))&" "& Format2(n(2)),1
If ex=es Then
ColoreTesto 1
Else
ColoreTesto 2
End If
Scrivi DataEstrazione (ex)&" "& Left(NomeRuota (r1),2)&_
" "&Format2(nm(1))&" "& Format2(nm(2)),1
ColoreTesto 0
Scrivi StringaNumeri (n)&" "&am(1)&"__"&ab(1)&"-"&ab(2)&" "&_
am(1)&"-"&ab(1)&" "&am(1)&"-"&ab(2)
Scrivi StringaNumeri (nm)&" "&amm(1)&"__"&abm(1)&"-"&abm(2)&" "&_
amm(1)&"-"&abm(1)&" "&amm(1)&"-"&abm(2)

ImpostaGiocata 1,nmr,ruote,poste,18,2
ImpostaGiocata 2,nmr,ruota,poste,18,2
Gioca es

Scrivi
End If
End If
Next
Next
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub


Ultima modifica di lones il 21/09/2012, 12:41, modificato 1 volta in totale.

Avatar utente
Tatoo64
Site Admin
Messaggi: 3841
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da Tatoo64 » 21/09/2012, 21:11

Grazie Iones, ma a parte l'ultimo dove si legge bene che è il Devil2-Convergenza gli altri due a cosa si riferiscono??

:su: :su:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

lones
Messaggi: 14
Iscritto il: 16/11/2011, 16:36

Re: Tecnica di capilloxxo devil2 le convergenze + tecnica 20

Messaggio da lones » 21/09/2012, 22:07

Tatoo64 ha scritto:Grazie Iones, ma a parte l'ultimo dove si legge bene che è il Devil2-Convergenza gli altri due a cosa si riferiscono??

:su: :su:
non vorrei sbagliare,per questo avevo fatto un piccolo inciso ad inizio post,uno dovrebbe essere devil 1,e l'altro
una integrazione rivisitata di devil 2

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite