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
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto