Script

nunzio65 · 11 Agosto 2024

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

DjNomade · 11 Agosto 2024

Quello no

nunzio65 · 11 Agosto 2024

GRAZIE LO STESSO

scarfacetony · 11 Agosto 2024

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 · 12 Agosto 2024

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 · 12 Agosto 2024

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 · 12 Agosto 2024

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

DjNomade · 13 Agosto 2024

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

Serpico 90 · 13 Agosto 2024

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

Ok era quello che cercavo......
sei sempre molto gentile e disponibile.

Grazie

nunzio65 · 21 Agosto 2024

nunzio65 · 21 Agosto 2024

METTO QUESTO METODO CON SPIEGAZIONE DI BADESSA. LO METTO SE QUALCUNO VUOLE FARE LO SCRIPT SEMPLIFICATO DI BADESSA

nunzio65 · 21 Agosto 2024

GRAZIE A TUTTI

DjNomade · 21 Agosto 2024

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

nunzio65 · 21 Agosto 2024

Perfetto come sempre fantastico grazie. grazie DJ

nunzio65 · Mercoledì alle 22:03

nunzio65 · Mercoledì alle 22:05

ecco un'altro metodo di badessa, chi riesce a fare lo script.

DjNomade · Ieri alle 23:37

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

nunzio65 · Oggi alle 14:34

GRAZIE DJ FANTASTICO

franca46 · Oggi alle 17:19

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

scarfacetony · 30 minuti fa

Metodi BadessaLotto

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

Script

Junior Member

Advanced Member >PLATINUM PLUS<

Junior Member

Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Junior Member

Junior Member

Junior Member

Advanced Member >PLATINUM PLUS<

Junior Member

Junior Member

Junior Member

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM PLUS<

Member