Novità

Script

scarfacetony

scarfacetony

Member
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
 
S

Serpico 90

Advanced Member
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
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
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 >
 
S

Serpico 90

Advanced Member
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
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
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
 
S

Serpico 90

Advanced Member
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
 
nunzio65

nunzio65

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

DjNomade

Advanced Member >PLATINUM PLUS<
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 27 agosto 2024
    Bari
    60
    67
    10
    86
    40
    Cagliari
    72
    80
    86
    18
    70
    Firenze
    09
    52
    73
    43
    48
    Genova
    70
    14
    41
    43
    64
    Milano
    34
    50
    06
    25
    85
    Napoli
    53
    50
    36
    43
    20
    Palermo
    66
    61
    07
    04
    85
    Roma
    39
    41
    69
    40
    21
    Torino
    39
    27
    51
    48
    74
    Venezia
    04
    06
    14
    25
    75
    Nazionale
    82
    34
    46
    57
    80
    Estrazione Simbolotto
    Nazionale
    29
    40
    42
    10
    21
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto