Esiste un listato del genere

[solare]

Ciao, chiedo agli esperti se esiste un listato che trovi tutti gli ambi in base alla distanza che io indico.
esempio se voglio visualizzare tutti gli ambi con distanza 18 !
Grazie

 

[lotto_tom75]

Ciao, chiedo agli esperti se esiste un listato che trovi tutti gli ambi in base alla distanza che io indico.
esempio se voglio visualizzare tutti gli ambi con distanza 18 !
Grazie

Ciao solare nella mia raccolta di script mettendo come query "distanze" ho trovato questo che nn ricordo chi l'abbia fatto, anche se dallo stile di codice credo il grande Joe che saluto. Ad ogni modo penso sia proprio quello che tu stia cercando.

Sub Main
Q = 2 '<=== Inserisci "Quantità" Numeri in Lunghetta
For P = 1 To 90
AvanzamentoElab 1,90,P
Scrivi String(Q*3 - 1,"=") & " PASSO " & Format2(P),1
For N = 1 To 90
Stringa = Format2(N) & "."
For L = 1 To Q
Stringa = Stringa & Format2(Fuori90(N + L*P)) & "."
Next
For LL = 3*Q To 3*Q Step 3
Scrivi Left(Stringa,LL - 1)
Next
'Scrivi
Next
Next
End Sub

 

[solare]

Ciao lotto tom75, grazie infinite.
forse mi sono spiegato male, quello che cerco io è avere la visualizzazione di tutti gli ambi con la distanza che io imposto. Es. chiedo che il listato mi visualizzi tutti gli ambi aventi distanza 18 oppure 45 ecc ma solo quelli che io chiedo

 

[franca46]

ciao solare forse cosi' ?

Sub main()
Dim ab(2),ruote(1),poste(2) : poste(1)=1

quante= CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","•damper•",180))
If quante= False Then Exit Sub

For es = (EstrazioneFin - quante) To EstrazioneFin : Messaggio CStr(EstrazioneFin - es)

For r1=1 To 10
For p1=1 To 4
    p2=p1+1  

a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)

If Distanza(a,b)=18 Then ' qui cambi la distanza

cont=cont+1
Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&""&_
Left(NomeRuota(r1),3)&""&Space(3)&""& StringaEstratti(es,r1)&""&Space(5)&_
""& Format2(a)&""&Space(2)&""& Format2(b)&""&Space(4)&"(Pos. "&p1&"°-"&p2&"°)"
Scrivi


Scrivi : Gioca es : Scrivi String(57,151)

End If
Next : Next : Next : ScriviResoconto : ColoreTesto 2 : Scrivi "•damper•",1 : End Sub

buon pomeriggio

 

[solare]

Ciao franca46, grazie per la risposta ma purtroppo non è quello che cerco, forse non esiste ?
A me interessa sapere quali sono gli ambi con distanza "da me indicata" presenti nei 4005 in forma integrale.
quindi sappiamo che con i 90 numeri si ottengono 4005 ambi ma se io voglio visualizzare solo quelli con distanza 18 quanti e quali sono ?

 

[franca46]

eh , capito , provo a cercare se x caso ho qualcosa, spesso ne conservo

 

[franca46]

scusa nel listato che ti ha messo lottotom , forse c'è , devi solo scorre le distanze e soffermarti in quella a passo 18 , o baglio?

 

[solare]

Grazie franca46
hai ragione….Ottimo grazie

 

[franca46]

 

[Mike58]

prova anche questo

Sub Main
   Dim Nu(2),Ru(1),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   dist = CInt(InputBox("Quale distanza",,18))
   r = InputBox("Quale ruota analizzo",,1)
   Scrivi "Ambi in distanza... " & dist & " con analisi su Ruota : " & NomeRuota(r),1,,,1,3,,1
   T = Array(T,"N","Ambi","Rit","Max","Incr","Freq")
   Call InitTabella(T)
   For x = 1 To 89
      For y = x + 1 To 90
         If Distanza(x,y) = dist Then
            k = k + 1
            Nu(1) = x
            Nu(2) = y
            Ru(1) = r
            Call StatisticaFormazione(Nu,Ru,2,rit,max,Incr,fre,Ini,fin)
            'Scrivi FormatSpace(k,3) & vbTab,0,0
            'Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
            'Scrivi rit & vbTab & max & vbTab & fre
            V = Array(V,k,StringaNumeri(Nu),rit,max,Incr,fre)
            Call AddRigaTabella(V)
         End If
      Next
   Next
   CreaTabellaOrdinabile
End Sub

 

[joe]

Buon Giorno a tutte/i.

Lo script è proprio solo di 3 righe

dunque ci ho aggiunto la tabella dei ritardi.

Option Explicit
Sub Main
   Dim D,P,Q,R,Nu(2)
   D = CInt (InputBox("Inserisci Distanza 1-45","DISTANZA" ,18))
   Titoli 
   For P = 1 To 89 : Nu(1) = P
      For Q = P + 1 To 90 :Nu(2) = Q
         AvanzamentoElab 1,90,P
         If Distanza(P,Q) = D Then
            Scrivi StringaNumeri(Nu,,True) & Space(2),False,False
            For R = 1 To 12
               Scrivi FormatSpace(AmboRitardo(R,P,Q),10,True),False,False
            Next
            Scrivi
         End If
      Next
      'Scrivi
   Next
   Titoli
End Sub
Sub Titoli ()
Dim R 
 Scrivi "RITARDI",True,False
   For R = 1 To 12 : Scrivi FormatSpace(NomeRuota(R),10,True),True,False : Next : Scrivi
End Sub

 

[solare]

Un grazie infinito a Mike58 e joe