Ricerca numeri

[lottomoney]

Buongiorno, buon 1° maggio...in clausura
desideravo sapere se è possibile eseguire uno script di ricerca per alcune combinazioni che vi spiego:
- nel quadro estrazionale ricercare 4 numeri di distanza 45 e che abbiano la stessa figura anche in
due colonne e almeno due numeri, non importa quali, siano isotopi tra di loro e, appunto con la stessa figura.
Faccio un esempio per chiarire meglio: Estrazione del 01/02/2020
ruota di BARI in terza posizione abbiamo il numero 78 (figura 6)
ruota di CAGLIARI in quarta posizione abbiamo il numero 33 (figura 6) e distanza 45 con il numero 78
ruota di ROMA in quarta posizione abbiamo il numero 54 (figura 9)
ruota di VENEZIA in terza posizione abbiamo il numero 9 (figura 9) e distanza 45 con il numero 54.

Altro esempio: estrazione del 07/03/2020
ruota di BARI esce il numero 54 in prima posizione (figura 9)
ruota di CAGLIARI abbiamo il numero 9 in quarta posizione (figura 9) e distanza 45 con il numero 54
ruota di PALERMO esce il numero 38 in prima posizione (figura 2) e isotopo del 54
ruota di VENEZIA abbiamo il numero 83 in quarta posizione (figura 2) distanza 45 con il numero 38 e isotopo del numero 9.

Mi interesserebbe l'evidenziazione delle ruote e naturalmente i 4 numeri. Grazie infinite.
lottomoney

[DjNomade]

Ho provato a modificarne uno vedi se puo andare

Ciauz

Codice: Seleziona tutto

Scrivi
ColoreTesto 2

Scrivi String(17,32) & "Ricerca 2+2 Numeri a Distanza 45 stessa FIGURA X Lottomoney ",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(2),nu2(2),nu3(2),nu4(2),nu5(7),ru(2),nx(4),amb(2),disx(6)
Dim ruote(2)
Dim poste(2)
Dim posta(2)
posta(1)=1
posta(2)=1
poste(2)=1

quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI?","",10))



For es = (EstrazioneFin - quante) To EstrazioneFin
'For es = 8588 To 8589'EstrazioneFin
Messaggio CStr(EstrazioneFin - es)
For r1=1 To 10
For r2=r1+1 To 11
If r2=11 Then r2=12

For r3=r1+1 To 10
For r4=r3+1 To 11
If r4=11 Then r4=12

For p1=1 To 5
For p2=1 To 5
For p3=1 To 5
For p4=1 To 5

' If p1=p2 Or p1=p3 Or p1=p4 Or p2=p3 Or p2=p4 Or p3=p4 Then
 If (p1=p2 and p1=p3) Or (p1=p2 and p1=p4)Or (p1=p2 and p2=p3)_
Or (p1=p2 and p2=p4)Or (p1=p2 and p3=p4)Or (p1=p3 and p1=p4)_
Or (p2=p3 and p2=p4) Then
n1=Estratto(es,r1,p1):n2=Estratto(es,r2,p2)
If Distanza(n1,n2)=45 And Figura(n1)=Figura(n2)Then

n3=Estratto(es,r3,p3) :n4=Estratto(es,r4,p4)
If Distanza(n3,n4)=45 And Figura(n3)=Figura(n4)Then

nx(1)=n1:nx(2)=n2:nx(3)=n3:nx(4)=n4
 If n1<>n2 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 And n3<>n4 Then
:dist1=Distanza(nx(1),nx(2)):dist3=Distanza(nx(3),nx(4))
If dist1=45 And dist3=45 And Figura(n1)=Figura(n2)And Figura(n3)=Figura(n4) Then

ru(1)=r1
ru(2)=r2

'---------------------------------------------
casi=casi+1:Scrivi String(65,"=")&" caso n° "&(casi)
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r1)& " "& StringaEstratti(es,r1)&" "
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r2)& " "& StringaEstratti(es,r2)&" "
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r3)& " "& StringaEstratti(es,r3)&" "
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r4)& " "& StringaEstratti(es,r4)&" "
ColoreTesto (1)
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r1) & " "& Format2 (n1)&"- Posiz."&_
Space(1)&"("& p1 &") Fig. "&Figura(n1)
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r2) & " "& Format2 (n2)&"- Posiz."&_
Space(1)&"("& p2 &") Fig. "&Figura(n2)
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r3) & " "& Format2 (n3)&"- Posiz."&_
Space(1)&"("& p3 &") Fig. "&Figura(n3)
Scrivi DataEstrazione(es,1)&" "& SiglaRuota(r4) & " "& Format2 (n4)&"- Posiz."&_
Space(1)&"("& p4 &") Fig. "&Figura(n4)
ColoreTesto 2
Scrivi " ( "& Format2 (n1) &"-"& Format2 (n2) &" Dist. "& Format2 (dist1)&_
" ) ( "& Format2 (n3) &"-"& Format2 (n4) &" Dist. "& Format2 (dist3)&")"

ColoreTesto 0


ruote(1)=r1:ruote(2)=r2: k=12 : co=0


End If
End If
End If
End If
End If


next
Next

Next
Next

Next
Next
Next
Next
Next

Scrivi
ColoreTesto 2

Scrivi String(17,32) & "Ricerca 2+2 Numeri a Distanza 45 stessa FIGURA X Lottomoney  ",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
End Sub

[lottomoney]

Buongiorno DjNomade, veramente eccezionale, grazie infinite, sei sempre un grande
lottomoney