Novità

Script

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
Clicca per espandere...
Numero UNO grazie DJ
 
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
Clicca per espandere...
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
 
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 >
 
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 >
Clicca per espandere...
Ciao si ,solo il terno in terzina
senza le giocate
 
Se è per la ricerca della sola terzina controlla questo
Ciauz


Codice: 
Scrivi "             RICERCA TERZINA SIMMETRICA A RUOTA",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




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

ruotee(1)=r1:ruotee(2)=r2:

ruote(1)=r1:ruote(2)=r2:

ruote(3)=11:ruote(4)=12

k=13:co=0


End If

:Next:Next:next

Next:Next


End Sub
 
DjNomade ha scritto:
Se è per la ricerca della sola terzina controlla questo
Ciauz


Codice: 
Scrivi "             RICERCA TERZINA SIMMETRICA A RUOTA",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




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

ruotee(1)=r1:ruotee(2)=r2:

ruote(1)=r1:ruote(2)=r2:

ruote(3)=11:ruote(4)=12

k=13:co=0


End If

:Next:Next:next

Next:Next


End Sub
Clicca per espandere...
Ok era quello che cercavo......
sei sempre molto gentile e disponibile.

Grazie
 
Controlla cosi'
Ciauz


Codice: 
'https://www.youtube.com/watch?v=mdpL9u2m4ZA&t=886s
'21-08-2024
 
 ColoreTesto 2 :Scrivi String(37,32)&"AMBO OLTRE DI A.LONGO Calcolo Semplificato Badessa Lotto",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)
'poste(1)=1
poste(1)=1
poste1(2)=1
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=fin-300
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)

For r2=r1+1 To 10
'If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
If (n1=n3 And n2=n4)   Then
'If (n1=n3 And n2=n4)  Or (n1=n4 And n2=n3) Then
If(p1=p3 And p2=p4) Then


If (n1<46 And n2>45) Or (n2<46 And n1>45) Then b2=Diametrale(Fuori90(n1+n2))Else b2=Fuori90(n1+n2)'36
b3=Fuori90(n2+b2)'13+36  49
b4=Fuori90(n1+b2+b3)'68+36+49  63


casi=casi+1:Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo unito stessa cadenza < "&Format2(n1)&"."&Format2 (n2)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo unito stessa cadenza < "&Format2(n3)&"."&Format2 (n4)&" >",1
Scrivi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:k=13:co=0




nu1(1)=b3'
nu1(2)=b4'
ImpostaGiocata 1 ,nu1,ruote,poste,k

nu1(1)=b3'
nu1(2)=b4'   
ImpostaGiocata 2 ,nu1,ruote,poste1,k

Gioca es
End If

End If
Next:Next:Next:next
Next:Next:Next
ScriviResoconto
 
 ColoreTesto 2 :Scrivi String(37,32)&"AMBO OLTRE DI A.LONGO Calcolo Semplificato Badessa Lotto",1


 Scrivi String(45,32)&"List. by DjNomade",1
ColoreTesto 0
End Sub
 
Controlla questo
Ciauz


Codice: 
'29-08-2024
'

 ColoreTesto 2 :Scrivi String(37,32)&" METODO GERARDINA by Salvo Badessa   ",1
Scrivi



ColoreTesto 0

Sub main()
Dim am(5),am2(2),ambi(4),ci(5),nn(3),ru(2),pos1(1),pos2(3),pos3(5),ru1(10),ru2(10),sestina(6)
pos1(1)=1:pos2(2)=1 :pos3(2)=1:pos3(3)=1
est = CInt(InputBox("Quante estrazioni  vuoi controllare? ","estrazioni ",200))
k=InputBox("Quanti colpi di gioco? ","colpi di gioco",13)

fin=EstrazioneFin
ini=fin-est
For es = ini To fin:messaggio(es)

For r=1 To 1

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



a=Estratto(es,r,1)' 37
b=Estratto(es,r1,1)'74

If Fuori90(a+a)=b  Then

n1 = Diametrale(Fuori90(a+b)) '37+74  21+45  66  ambata
n2=Fuori90(n1+n1)  '66+66  42 ambata
n3=Diametrale(a)
n4=Diametrale(b)





ru1(1)=r
ru1(2)=r1
ru2(1)=r
ru2(2)=r1
ru2(3)=11
ru2(4)=12

casi=casi+1
Scrivi
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r)& " "& StringaEstratti(es,r)&_
" > numero ripetuto  < "&Format2(a)&" >  in  "&Format2(1)&"^ posiz.",1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r1)& " "& StringaEstratti(es,r1)&_
" > numero ripetuto  < "&Format2(b)&" >  in  "&Format2(1)&"^ posiz.",1
If iso = 1  Then  ColoreTesto 2: Scrivi " > numeri ISOTOPI  < ",1 :ColoreTesto 0
If iso = 2  And p = p1 Then ColoreTesto 2: Scrivi " > numeri ISOTOPI  < ",1 :
ColoreTesto 1

                                                     If Distanza(r,r1)=1 Or ((r=1 And r1=12)Or(r=10 And r1=12))  Then Scrivi " > RUOTE CONSECUTIVE ",1
                                                     If Distanza(r,r1)=5 And r<12 And r1<12 Then Scrivi " > RUOTE DIAMETRALI ",1
                                                     If (r+r1)=11  Then Scrivi " > RUOTE GEMELLARI ",1


am(1)=n1
am(2)=n2
ImpostaGiocata 1,am,ru1,pos1,k
am2(1)=n1
am2(2)=n3
ImpostaGiocata 2,am2,ru2,pos2,k
am2(1)=n1
am2(2)=n4
ImpostaGiocata 3,am2,ru2,pos2,k
am2(1)=n2
am2(2)=n3
ImpostaGiocata 4,am2,ru2,pos2,k
am2(1)=n2
am2(2)=n4
ImpostaGiocata 5,am2,ru2,pos2,k

ambi(1)=n1
ambi(2)=n2
ambi(3)=n3
ambi(4)=n4
ImpostaGiocata 6,ambi,ru2,pos3,k



Gioca es


End If

Next
Next
Next

ScriviResoconto

End Sub
 
buon pomeriggio a voi , vorrei porre una domanda a dj , grazie per il listato
io spesso modifico i listati , ma ultimamente non mi riesce ,
mi mostri come si comporta questo metodo su ruote non consecutive?
grazie

dj scusa come sempre io precipitosa , adesso l'ho guardato con attenzione , è giusto come il video

avrei un'altra domanda su un'altro listato che hai fatto ,
magari te la chiedo dall'altra parte , per non intasare questo trend.

grazie ancora
 
Ultima modifica:
Metodi BadessaLotto

www.mediafire.com

METODO 90 [[ GRAZIE A SALVO BADESSA ]] (1)

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com

https://www.mediafire.com/file/dmzofk66q3n9v5b/💣+NUMERETTI+VOL.2.++METODO+OMAGGIO+AI+MIEI+MARINAI.mp4/file
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 aprile 2025
    Bari
    80
    69
    75
    58
    16
    Cagliari
    88
    05
    51
    65
    75
    Firenze
    74
    65
    19
    47
    42
    Genova
    87
    89
    22
    32
    26
    Milano
    27
    13
    15
    56
    23
    Napoli
    24
    87
    62
    41
    28
    Palermo
    76
    20
    33
    62
    35
    Roma
    80
    23
    84
    15
    85
    Torino
    78
    34
    18
    41
    62
    Venezia
    05
    84
    83
    31
    46
    Nazionale
    72
    69
    25
    54
    64
    Estrazione Simbolotto
    Genova
    21
    40
    27
    35
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto