Numero UNO grazie DJControllate 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
Buona sera chiedo cortesemente a Dj Nomade se mi puoi modificare questo script.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
=========================================================================== caso n° 60
sab 16.03.2024 < Fi 13.73.41.43.17 > Terno Simmetrico < 13.73.43 >
sab 16.03.2024 < Nz 78.16.44.60.28 > Estratto Trovato < 44 >
Ciao si ,solo il terno in terzinaCioè? non ho capito...
senza giocate?
evidenziare solo questo?
poi ce n'è un altra di condizione da rintracciareCodice:=========================================================================== caso n° 60 sab 16.03.2024 < Fi 13.73.41.43.17 > Terno Simmetrico < 13.73.43 >
Codice:sab 16.03.2024 < Nz 78.16.44.60.28 > Estratto Trovato < 44 >
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......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
'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
'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