Script

[nunzio65]

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

 

[DjNomade]

Quello no

 

[nunzio65]

GRAZIE LO STESSO

 

[scarfacetony]

Controllate questi

'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

'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