CHI MI PUO AIUTARE

[trivellatomariotretre33]

CIAO BUONASERA, MI RIVOLGO A CHIUNQUE MI POSSA REALIZZARE UN LISTATO CHE MI CERCHI LA DISTANZA CICLOMETRICA 21 IN TERZA E QUINTA POSIZIONE SU QUALSIASI RUOTA , GRAIZIE .

 

[Mike58]

Ciao Trivellato Te lo faccio in vbnet per spaziolight.

Class Script
    Sub Main
        Dim Nu(2),Ru(1) As Integer
        Dim r , a , b ,k as integer
        dim ini , fin , es as integer
        dim T() as string
        ini = estrazioniarchivio - 200
        fin = estrazioniarchivio
        scrivi ("Ricerca Ambo di distanza ciclometrica 21 in Posizione 3° - 5° ",1)
        t = {" Caso n° " ,"  Info Data   ","  Ruota  ","   Numeri Ambo   "," Estratti "}
        call inittabella(t,coloreverde,,,colorebianco)
        for es = fin to ini step - 1
            for r = 1 to 11
                a = estratto(es,r,3)
                b = estratto(es,r,5)
                if distanza(a,b) = 21 then
                    k +=1
                    nu(1) = a : nu(2) = b : ru(1) = r
                    T = {k, getinfoestrazione(es),nomeruota(r),stringanumeri(nu),stringaestratti(es,r)}
                    call addrigatabella(t)
                    'scrivi (getinfoestrazione(es) & " - " & nomeruota(r) & vbtab & stringanumeri(nu),stringaestratti(es,r))
                end if
            next
        next
        creatabella
    End Sub
End Class

Ricerca Ambo di distanza ciclometrica 21 in Posizione 3° - 5°

Caso n° ​	Info Data ​	Ruota ​	Numeri Ambo ​	Estratti ​
1​	10028 - 161 - 11/01/2022​	Mi​	46.25​	04.55.46.72.25​
2​	10024 - 157 - 03/01/2022​	Mi​	6.75​	57.87.06.28.75​
3​	10024 - 157 - 03/01/2022​	Pa​	53.32​	19.58.53.22.32​
4​	10013 - 146 - 07/12/2021​	Ba​	67.88​	72.30.67.05.88​
5​	10011 - 144 - 02/12/2021​	Ba​	68.47​	35.29.68.86.47​
6​	9996 - 129 - 28/10/2021​	Ge​	23.2​	84.32.23.21.02​

 

[trivellatomariotretre33]

Buongiorno Mike grazie , ti invio una stretta di mano cilometrica.

 

[trivellatomariotretre33]

Buongiorno Mike grazie , ti invio una stretta di mano chilometrica.( Ottimo )

 

[trivellatomariotretre33]

Buongiorno Mike grazie , ti invio una stretta di mano chilometrica.