Script

nunzio65 · Ieri alle 15:02

NON HAI METODO TROJIAN DJ SEMPRE BADESSA, HO QUALCUN'ALTRO

DjNomade · Ieri alle 16:05

Quello no

nunzio65 · Ieri alle 16:18

GRAZIE LO STESSO

scarfacetony · Ieri alle 18:29

DjNomade ha scritto:

Controllate questi

Codice:

'https://www.youtube.com/watch?v=NlfNvWI2WYY

'11-8-2024

ColoreTesto 1
Scrivi String(20,"=")&" LE DIAMETRALI il METODO BADESSA GIANKY QUARANTA ",1
Scrivi String(40,"=")&" ",1
ColoreTesto 0


Sub main()
Dim rt(1),nu(1),nn(1),pt(1)

Dim ruote(10),ruotee(10)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),amb(8),amb1(7),amb2(7)
Dim posta(10)
Dim poste(5)
Dim poste1(5)
posta(1)=1
posta(6)=1

poste(2)=1

poste1(2)=1
poste1(3)=1
 

cp=13

ini=7561
fin=EstrazioneFin

co=0
For n=ini To fin
AvanzamentoElab ini,fin,es


For r=1 To 10
a=Estratto(n,r,3)
aa=Estratto(n,r,1)

For r1=1 To 10


a1=Estratto(n,r1,3) :
a5=Estratto(n,r1,5)

Naz3=Estratto(n,12,3)
If a=90 And Distanza(r,r1)=5 Then

amb(1) = a-a1               '90-2 88
amb(2) = Vert(amb(1))       '89
amb(3) = DiametraleD(aa)    ' 42            '
amb(4) = Vert(amb(3))       '24
amb(5) = DiametraleD(a1)    '2+5 7
amb(6) = Vert(amb(5))'      '70
amb(7) = DiametraleD(Naz3)    '16-5 11
amb(8) = Vert(amb(7))'      '19

ruote(1)=r
ruote(2)=r1

ruotee(1)=r
ruotee(2)=r1
ruotee(3)=11
ruotee(4)=12

co=co+1
Scrivi String (75,"=")&" caso n. "& co,1
Scrivi
Scrivi DataEstrazione(n)&" "& SiglaRuota(r)&" "& StringaEstratti(n,r)&"     3° estratto ="&Format2(a) ,1
Scrivi DataEstrazione(n)&" "& SiglaRuota(r1)&" "& StringaEstratti(n,r1)&"     3° estratto ="&Format2(a1) ,1
Scrivi DataEstrazione(n)&" "& SiglaRuota(12)&" "& StringaEstratti(n,12)&"     3° estratto ="&Format2(Naz3) ,1
Scrivi
numeri1(1)=amb(1)
numeri1(2)=amb(2)
ImpostaGiocata 1,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(3)
numeri1(2)=amb(4)
ImpostaGiocata 2,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(5)
numeri1(2)=amb(6)
ImpostaGiocata 3,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(7)
numeri1(2)=amb(8)
ImpostaGiocata 4,numeri1,ruote,poste,eval(cp)

numeri3(1)=amb(1)
numeri3(2)=amb(2)
numeri3(3)=amb(3)
numeri3(4)=amb(4)
ImpostaGiocata 5,numeri3,ruotee,poste1,eval(cp)

numeri3(1)=amb(5)
numeri3(2)=amb(6)
numeri3(3)=amb(7)
numeri3(4)=amb(8)
ImpostaGiocata 6,numeri3,ruotee,poste1,eval(cp)
Gioca n
End If
Next
Next
Next

ScriviResoconto
End Sub

Codice:

'https://www.youtube.com/watch?v=q0fCdUDVOoA

'11-8-2024

ColoreTesto 1
Scrivi String(20,"=")&" 9 & 90 il METODO BADESSA GIANKY QUARANTA ",1
Scrivi String(40,"=")&" ",1
ColoreTesto 0


Sub main()
Dim rt(1),nu(1),nn(1),pt(1)

Dim ruote(10),ruotee(10)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),amb(7),amb1(7),amb2(7)
Dim posta(10)
Dim poste(5)
Dim poste1(5)
posta(1)=1
posta(6)=1

poste(2)=1

poste1(2)=1
poste1(3)=1
 

cp=13

ini=9206
fin=EstrazioneFin

co=0
For n=ini To fin
AvanzamentoElab ini,fin,es


For r=1 To 10
a=Estratto(n,r,1)

For r1=r+1 To 12
If r1=11 Then r1=12

a1=Estratto(n,r1,1) :



If a<90 And a1<90 And Fuori90(a+a1)=90 And Cadenza(a)=0 And Cadenza(a1)=0 Then

amb(1) = 9
amb(2) = 90
amb(3) = a
amb(4) = a1
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 3
For y = x + 1 To 4
If amb(x) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula


ruote(1)=r
ruote(2)=r1

ruotee(1)=r
ruotee(2)=r1
ruotee(3)=11
ruotee(4)=12

co=co+1
Scrivi String (75,"=")&" caso n. "& co,1
Scrivi
Scrivi DataEstrazione(n)&" "& SiglaRuota(r)&" "& StringaEstratti(n,r)&"     1° estratto ="&Format2(a) ,1
Scrivi DataEstrazione(n)&" "& SiglaRuota(r1)&" "& StringaEstratti(n,r1)&"     1° estratto ="&Format2(a1) ,1

Scrivi
numeri1(1)=amb(1)
numeri1(2)=amb(2)
ImpostaGiocata 1,numeri1,ruote,posta,eval(cp)
numeri1(1)=amb(1)
numeri1(2)=amb(2)
ImpostaGiocata 2,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(1)
numeri1(2)=amb(3)
ImpostaGiocata 3,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(1)
numeri1(2)=amb(4)
ImpostaGiocata 4,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(2)
numeri1(2)=amb(3)
ImpostaGiocata 5,numeri1,ruote,poste,eval(cp)
numeri1(1)=amb(2)
numeri1(2)=amb(4)
ImpostaGiocata 6,numeri1,ruote,poste,eval(cp)

numeri3(1)=amb(1)
numeri3(2)=amb(2)
numeri3(3)=amb(3)
numeri3(4)=amb(4)
ImpostaGiocata 7,numeri3,ruotee,poste1,eval(cp)
Gioca n
End If
Next
Next
Next

ScriviResoconto
End Sub

Numero UNO grazie DJ

Serpico 90 · Oggi alle 17:50

DjNomade ha scritto:

Da controllare

Codice:

'https://www.youtube.com/watch?v=izYsSVq9LbQ&t=6s
'04-08-2024
'https://forum.lottoced.com/threads/script.2218355/page-5

Scrivi "             SIMMETRICAMENTE BY SALVO BADESSA",1
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruotee(10)
Dim posta(5),poste(2),post(3),pos(5)
posta(1)=1:posta(2)=1
poste(2)=1:post(3)=1.5
pos(2)=3:pos(3)=1:pos(4)=0.2

fin=EstrazioneFin ' 9374'9485  esempi
ini=9374'fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 3
For p2=p1+1 To 4
For p3=p2+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n3=Estratto(es,r1,p3)
If Distanza(n1,n2)=30 And Distanza(n2,n3)=30 Then

n11=Fuori90(n1+Vert(n1))'62+26 88
n22=Fuori90(n2+Vert(n2))'32+23 55
n33=Fuori90(n3+Vert(n3))'02+20 22


For r2=1 To 11
If r2=11 Then r2=12
For p4=1 To 5

n4=Estratto(es,r2,p4)
If n4=n11 Or n4=n22 Or n4=n33 Then

If n4=n11 Then n5=n1:n6=Diametrale(n1):abb1=Vert(n1):abb2=Diametrale(abb1)
If n4=n22 Then n5=n2:n6=Diametrale(n2):abb1=Vert(n2):abb2=Diametrale(abb1)
If n4=n33 Then n5=n3:n6=Diametrale(n3):abb1=Vert(n3):abb2=Diametrale(abb1)
casi=casi+1:Scrivi String(75,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Terno Simmetrico < "&Format2(n1)&"."&Format2 (n2)&"."&Format2 (n3)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Estratto Trovato < "&Format2(n4)&" >",1
Scrivi String(65,"-"),1
ruotee(1)=r1:ruotee(2)=r2:
ruote(1)=r1:ruote(2)=r2:
ruote(3)=11:ruote(4)=12
k=13:co=0
'If r1<10 Then ruote(4)=DiametraleD(r1)
'If r2<10 Then ruote(5)=DiametraleD(r2)
'If r1=10 Then ruote(4)=5
'If r2=10 Then ruote(5)=5
'If r1=12 Then ruote(4)=3
'If r2=12 Then ruote(5)=3



nu2(1)=n5
nu2(2)=n6
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=abb1
nu2(2)=abb2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=n5
nu3(2)=n6
nu3(3)=abb1
nu3(4)=abb2
co=co+1
ImpostaGiocata co,nu3,ruote,pos,k
Gioca es
End If
Next:Next'
End if
:Next:Next:next
Next:Next':Next:next
ScriviResoconto
End Sub

Modificato per male interpretazione hihihihi

Buona sera chiedo cortesemente a Dj Nomade se mi puoi modificare questo script.
Semplicemente desidero che mi faccia vedere solo le TERZINE SIMMETRICHE
Spero sia possibile.
Geazie

DjNomade · Oggi alle 19:08

Cioè? non ho capito...
senza giocate?
evidenziare solo questo?

Codice:

=========================================================================== caso n° 60
sab 16.03.2024 < Fi 13.73.41.43.17 > Terno Simmetrico < 13.73.43 >

poi ce n'è un altra di condizione da rintracciare

Codice:

sab 16.03.2024 < Nz 78.16.44.60.28 > Estratto Trovato < 44 >

Serpico 90 · 54 minuti fa

DjNomade ha scritto:
Cioè? non ho capito...
senza giocate?
evidenziare solo questo?

Codice:

=========================================================================== caso n° 60 sab 16.03.2024 < Fi 13.73.41.43.17 > Terno Simmetrico < 13.73.43 >

poi ce n'è un altra di condizione da rintracciare

Codice:

sab 16.03.2024 < Nz 78.16.44.60.28 > Estratto Trovato < 44 >

Ciao si ,solo il terno in terzina
senza le giocate

Cerca

Cerca

Script

nunzio65

Junior Member

DjNomade

Advanced Member >PLATINUM PLUS<

nunzio65

Junior Member

scarfacetony

Member

Serpico 90

Advanced Member

DjNomade

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member

Ultima estrazione Lotto

Ultimi Messaggi