si puo' fare

[genios]

Per le 4005 coppie di numeri che si formano con i 90 numeri del lotto sulla ruota di BA :

prima condizione :

Trovare quali coppie di numeri abbiano Ritardo Attuale <= 9 estrazioni per la sorte d’ ambata

Seconda condizione

Dalle coppie selezionate dalla prima condizione :

Trovare quali coppie di numeri abbiano senza contare il ritardo attuale 5 ritardi precedenti al ritardo attuale maggiore di 9 estrazioni per la sorte d’ ambata .

Stampare quindi in out :


Ruota
La coppia di numeri considerata
Ritardo attuale
I 5 ritardi precedenti al ritardo attuale



Esempio

 data estrazione fine archivio 08.08.2017  
     
 BA .11.58   2 Data estrazione: 03.08.2017  
 BA .11.58  14 Data estrazione: 29.06.2017  
 BA .11.58  16 Data estrazione: 20.05.2017  
 BA .11.58  11 Data estrazione: 22.04.2017  
 BA .11.58  10 Data estrazione: 28.03.2017  
 BA .11.58  19 Data estrazione: 09.02.2017

Ciao Eugenio

 

[genios]

Quasi risolto . Ma ho il doppio delle coppie di numeri dato che ho impostato

due cicli for next

Option Explicit
Sub Main
Dim n,z
    For n= 1 To 90 
    For z= 2 To 89 
    Scrivi n &" "&  z
    Next
     Next 
End Sub

Come posso risolvere ?

Ciao a tutti e Buon FERRAGOSTO

Eugenio

 

[i legend]

Ciao Eugenio
a cosa serve lo script? Come si utilizza?
buon ferragosto anche a te.

lo vuoi postato o vuoi che ti spieghi come farlo da te?

 

[salvo50]

Quasi risolto . Ma ho il doppio delle coppie di numeri dato che ho impostato

due cicli for next

Option Explicit
Sub Main
Dim n,z
For n= 1 To 90
For z= 2 To 89
Scrivi n &" "& z
Next
Next
End Sub

Come posso risolvere ?

Ciao a tutti e Buon FERRAGOSTO

Eugenio

Ciao Eugenio, credo che dovresti fare così:

For n= 1 To 89
For z= n+1 To 90

Ciao I Leggend

Buon Ferragosto a Tutti!

 

[i legend]

Ciao Salvo
Ma voi ieri siete riusciti ad entrare nel forum? Ci ho provato tutta la giornata ma solo in serata sono riuscito a collegarmi.
ciao .
mi è davvero difficile interagire.

 

[salvo50]

Ciao I Leggend,

No, ieri sono riuscito ad entrare solo dopo le 19,30, anche l'altroieri solo di pomeriggio sono riuscito ad entrare, probabilmente stanno ampliando il sito

 

[genios]

Grazie Ilegend la tua soluzione è quello che cercavo .
Grazie anche a salvo50.

Ciao Eugenio

 

[salvo50]

Ciao a Tutti!

Mi piacerebbe vedere la soluzione di I Leggend, dov'è?

 

[i legend]

Ciao Eugenio
a cosa serve lo script? Come si utilizza?
buon ferragosto anche a te.

lo vuoi postato o vuoi che ti spieghi come farlo da te?

Ciao Salvo non ho postato nessuno script perché aspetto ancora le risposte di Eugenio.
ciao ..
ciao a tutti.

 

[salvo50]

Ciao I Leggend!

Allora ho capito il perchè della risposta di Genios, ha scambiato il mio post di pagina 4 per il tuo, perchè in un secondo tempo ho salutato te, e quel <Ciao I Leggend> che io mandavo a te, lui l'ha scambiato con te che ti congedavi.

 

[i legend]

Aspetto che Eugenio ci dica cosa vuole fare.
ciao

 

[i legend]

Ah ah ah
salvo credo tu abbia ragione.
Non ci avevo fatto caso.

 

[genios]

Hai ragione salvo50 ho scambiato i post .