Ambo con distanza 30 su Bari - Cagliari

[Giulio Pedrinelli]

Ciao a tutti;

Ogni volta che si rileva un ambo con distanza 30 (anche non isotopo) su Bari-Cagliari si metteranno in gioco 2 ambate e 2 quartine.

Inizio ricerca: 10/01/2023 (estrazione 6637)
Fine ricerca: 18/01/2025 (estrazione 7035)

1° Ambata: 1° NA + 53
2° Ambata: 1° NZ + 44

Numeri per ambo: 5° VE + 89 / 5° BA + 12 / 4° MI + 16

Gli abbinamenti sono:

1° NA + 53 / 5° VE + 89 / 5° BA + 12 / 4° MI + 16 (1° quartina)
1° NZ + 44 / 5° VE + 89 / 5° BA + 12 / 4° MI + 16 (2° quartina)

Qui di seguito gli esiti.




Qualcuno mi può aiutare con lo script?

Grazie.

 

[Sheena1]

Grazie

 

[antonioquagliozzi]

serve script

 

[Giulio Pedrinelli]

Lo sto scrivendo, dopo lo testo sul computer principale-

 

[Giulio Pedrinelli]

Ciao a tutti;

lo script è pronto, però ha un difetto, fa il calcolo anche quando non ci sono due ambi con distanza 30 su Bari-Cagliari.
Chiedo a chi è più esperto di modificarlo per farlo funzionare correttamente.

ub main()
Dim ruote(10),ruota(10)
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4)
poste(2)=1

fin=EstrazioneFin
ini=10184
For es=ini To fin


AvanzamentoElab ini,fin,es
r1=1

r2=2

n1=Estratto(es,r1,1)
n2=Estratto(es,r1,2)
n3=Estratto(es,r1,3)
n4=Estratto(es,r1,4)
n5=Estratto(es,r1,5)
n6=Estratto(es,r2,1)
n7=Estratto(es,r2,2)
n8=Estratto(es,r2,3)
n9=Estratto(es,r2,4)
n10=Estratto(es,r2,5)

If Distanza (n1,n2)=30 Then n0=30
If Distanza (n1,n3)=30 Then n0=30
If Distanza (n1,n4)=30 Then n0=30
If Distanza (n1,n5)=30 Then n0=30
If Distanza (n2,n3)=30 Then n0=30
If Distanza (n2,n4)=30 Then n0=30
If Distanza (n2,n5)=30 Then n0=30
If Distanza (n3,n4)=30 Then n0=30
If Distanza (n3,n5)=30 Then n0=30
If Distanza (n4,n5)=30 Then n0=30
If Distanza (n6,n7)=30 Then n1=30
If Distanza (n6,n8)=30 Then n1=30
If Distanza (n6,n9)=30 Then n1=30
If Distanza (n6,n10)=30 Then n1=30
If Distanza (n7,n8)=30 Then n1=30
If Distanza (n7,n9)=30 Then n1=30
If Distanza (n7,n10)=30 Then n1=30
If Distanza (n8,n9)=30 Then n1=30
If Distanza (n8,n10)=30 Then n1=30
If Distanza (n9,n10)=30 Then n1=30

ok=0


If n0=n1 Then
x1=Fuori90(Estratto(es,6,1)+53)
x2=Fuori90(Estratto(es,12,1)+44)
x3=Fuori90(Estratto(es,10,5)+89)
x4=Fuori90(Estratto(es,1,5)+12)
x5=Fuori90(Estratto(es,5,4)+16)

casi=casi+1:Scrivi String(75,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)
Scrivi


ruota(1)=r1
ruota(2)=r2

k=9
:co=0



nu2(1)=x1
nu2(2)=x3
nu2(3)=x4
nu2(4)=x5
ImpostaGiocata 1 ,nu2,ruota,poste,k
nu2(1)=x2
nu2(2)=x3
nu2(3)=x4
nu2(4)=x5
ImpostaGiocata 2 ,nu2,ruota,poste,k


Gioca es

End If
Next


ScriviResoconto
End Sub

Grazie.

 

[LoneWolf]

Salve Giulio, ho letto il tuo post e come chiedi, ripulendo un po', sembra che sia selettivo cosi' :

'
' Script: Pedrinelli.ls - Del 1 Feb. 2025
' Distanza 30 da ricercare ?
' Aggiungo input per scelta display e da quanti in precedenza trattati
'
Option Explicit
Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(2) = 1
fin = EstrazioneFin
Ini = 10500
For es = Ini To fin

n0 = 0
n15 = 0
AvanzamentoElab Ini,fin,es
r1 = 1
r2 = 2
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
n3 = Estratto(es,r1,3)
n4 = Estratto(es,r1,4)
n5 = Estratto(es,r1,5)
n6 = Estratto(es,r2,1)
n7 = Estratto(es,r2,2)
n8 = Estratto(es,r2,3)
n9 = Estratto(es,r2,4)
n10 = Estratto(es,r2,5)
If Distanza(n1,n2) = 30 Then n0 = 30
If Distanza(n1,n3) = 30 Then n0 = 30
If Distanza(n1,n4) = 30 Then n0 = 30
If Distanza(n1,n5) = 30 Then n0 = 30
If Distanza(n2,n3) = 30 Then n0 = 30
If Distanza(n2,n4) = 30 Then n0 = 30
If Distanza(n2,n5) = 30 Then n0 = 30
If Distanza(n3,n4) = 30 Then n0 = 30
If Distanza(n3,n5) = 30 Then n0 = 30
If Distanza(n4,n5) = 30 Then n0 = 30
If Distanza(n6,n7) = 30 Then n15 = 30
If Distanza(n6,n8) = 30 Then n15 = 30
If Distanza(n6,n9) = 30 Then n15 = 30
If Distanza(n6,n10) = 30 Then n15 = 30
If Distanza(n7,n8) = 30 Then n15 = 30
If Distanza(n7,n9) = 30 Then n15 = 30
If Distanza(n7,n10) = 30 Then n15 = 30
If Distanza(n8,n9) = 30 Then n15 = 30
If Distanza(n8,n10) = 30 Then n15 = 30
If Distanza(n9,n10) = 30 Then n15 = 30
ok = 0
If n0 = n15 Then
x1 = Fuori90(Estratto(es,6,1) + 53)
x2 = Fuori90(Estratto(es,12,1) + 44)
x3 = Fuori90(Estratto(es,10,5) + 89)
x4 = Fuori90(Estratto(es,1,5) + 12)
x5 = Fuori90(Estratto(es,5,4) + 16)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
k = 9
' co = 0 Non viene utilizzata !
nu2(1) = x1
nu2(2) = x3
nu2(3) = x4
nu2(4) = x5
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x2
nu2(2) = x3
nu2(3) = x4
nu2(4) = x5
ImpostaGiocata 2,nu2,ruota,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub

 

[Giulio Pedrinelli]

Si grazie del suo aiuto.
Gli ambi con distanza 30 devono essere due, uno su Bari e uno su Cagliari, penso che lo script calcola anche se è presente un solo ambo su Bari o su Cagliari.
Per gli script sto usando Lottodesk e l''estrazione del 10/1/2023 corrisponde all'estrazione numero 10184.

Nell'output dello script l'estrazione del 10/1/2023 c'è e i numeri corrispondono, pero riporta altre estrazioni dove non sono presenti due ambi con distanza 30 su Bari-Cagliari, mi scuso se nel titolo era poco chiaro.

mar 10.01.2023 [10184]
G 1: A 22.13.78.30 Ba Ca 9/9
A 78.30 su Ca 6° colpo [10190/24.01.2023]

G 2: A 56.13.78.30 Ba Ca 9/9
A 13.56 su Ca 2° colpo [10186/14.01.2023]
A 78.56.30 su Ca 6° colpo [10190/24.01.2023]