Per tutti

[antonio65]

Bari= 42.46.28.12.14
Cagliari= 59.18.65.49.63
Firenze=54.64.15.10.60
Genova=31.61.17.38.68
Milano=40.79.42.41.71
Napoli=23.39.75.13.14
Palermo=15.72.70.73.17
Roma=79.12.75.31.33
Torino=46.42.15.59.87
Venezia=71.64.30.12.67
Nazionale=57.18.10.40.29

 

[claudio8]

Allora riguardo allo script originale postato al #27 Ini = EstrazioneFin - 40
fin = EstrazioneFin 09430 15) 03.02.2018 giocata 2 nn(4) è il 4 estratto da dove inizia il calcolo la chiave
dalla estrazione ultima definita con "fin = EstrazioneFin" valore Ini = EstrazioneFin - 40
fin = EstrazioneFin

non rispondermi in maniera incasinata, devi essere peciso ad ogni
voglio proprio vedere se arrivo a capo di questa discussione

Antonio devi rispondere alle domande singolarmente e devi usare il punto di fine risposta e poi andare a capo, non voglio leggere tra le righe o dover intuire cosa vuoi dire.
domanda 1 ( ti ho messo 2 possibili risposte) scegline una
domanda 2 ( voglio i valori, di ini e fin diciamo ad oggi x la previsione fatta oggi )
domanda 3 ( voglio l'elenco delle ruote con i rispettivi numeri previsti oggi, non domani dopo che aggiormarai l'estrazione). Vedo ora che questa la hai postata. Rimangono le altre 2

Ciao

 

[antonio65]

Claudio ho postato le previsioni per domani

 

[claudio8]

Antonio, prendiamo l'estrazione della ruota di bari, i numeri che avevi previsto sono i seguenti.

Bari= 42.46.28.12.14

Questi sarebbero gli abbinameti del Nn(4) di bari = a 16

Adesso ti chiedo, come mai i tuoi numeri non coincidono con questi:
77 con presenze 1 20 con presenze 1 82 con presenze 1 13 con presenze 1 55 con presenze 1 ricavati dallo script che ti posto e che ha i tuoi stessi parametri di ricerca ?

Sub Main
 Dim Nu(5),Nn(5),Ru(12)
 Dim aRetAbb,r
r=1
Ini = EstrazioneFin-41
fin = EstrazioneFin
Nn(4)= 16
Ru(1)= r
 Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r,0)
        ' Scrivi "Ambata = " & Nn(4) & " ini = " & Ini & " Fin = " & fIn

         For k = 1 To 5
            Scrivi Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2)
            ReDim Preserve abb(k)
            abb(k) = aRetAbb(k,1)
        Next
End Sub

Ciao

 

[antonio65]

La risposta è la numero 1

 

[antonio65]

Stasera solo ambate...a mio modo di vedere è una tecnica molto attendibile...

Bari= 42.46.28.12.14
Cagliari= 59.18.65.49.63
Firenze=54.64.15.10.60
Genova=31.61.17.38.68
Milano=40.79.42.41.71
Napoli=23.39.75.13.14
Palermo=15.72.70.73.17
Roma=79.12.75.31.33
Torino=46.42.15.59.87
Venezia=71.64.30.12.67
Nazionale=57.18.10.40.29

 

[claudio8]

Antonio, prendiamo l'estrazione della ruota di bari, i numeri che avevi previsto sono i seguenti.

Bari= 42.46.28.12.14
Questi sarebbero gli abbinameti del Nn(4) di bari = a 16 della estrazione del 10/05/2018 //

Adesso ti chiedo, come mai i tuoi numeri non coincidono con questi sotto che sono gli abbinamenti del 16 con stesso range .
77 con presenze 1
20 con presenze 1
82 con presenze 1
13 con presenze 1
55 con presenze 1
ricavati dallo script che ti posto e che ha i tuoi stessi parametri di ricerca ?

Sub Main
Dim Nu(5),Nn(5),Ru(12)
Dim aRetAbb,r
r=1
Ini = EstrazioneFin-41
fin = EstrazioneFin
Nn(4)= 16
Ru(1)= r
Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r,0)
' Scrivi "Ambata = " & Nn(4) & " ini = " & Ini & " Fin = " & fIn
For k = 1 To 5
Scrivi Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2)
ReDim Preserve abb(k)
abb(k) = aRetAbb(k,1)
Next
End Sub

Ciao

 

[antonio65]

Ciao Claudio, non coincidono perchè io ho lasciato lo script originale....sarà per questo...Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r)
io c'è l'ho messo prima degli nn ...sarà per questo...

 

[claudio8]

Ciao Claudio, non coincidono perchè io ho lasciato lo script originale....sarà per questo...Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r)
io c'è l'ho messo prima degli nn ...sarà per questo...

Non esistono per te originali, mescoli righe a caso, l'importante è che giri e che dia un output, che manco controlli con carta e penna,,,,,,,,,

Finalmente un po di luce Antonio....


hai notato che utilzza il valore che ha in memoria e cioè quello della estrazione precedente...
ti avevo già spiegato la cosa tempo orsono...
Avrai anche notato che i prossimi numeri previsti sono gli stessi che ti ho inviato prima?
hai anche notato che sono gli abbinamenti del 16 ?

Avresti dovuto arrivarci da solo e da tempo

inserisci dopo Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r)
questa riga Scrivi "Ambata = " & Nn(4) & " ini = " & Ini & " Fin = " & fIn
noterai che la giocata della 1a previsione tra le giocate, non ti scrive l'ambata.... perche inizialmente non ha niente in memoria, mentre alla seconda giocata inserisce un numero... il 62 che in tabella è lNn(4) della 1a estrazione.

Altra cosa che ti avevo fatto notare tempo orsono è che il range di lettura degli abbinamenti dipende da ini e fin, non da fin-41e questo ti comporta un errore nelle giocate pregresse e nel rendiconto.....

Ciao
claudio
,

 

[antonio65]

Buongiorno Claudio,come ti avevo detto nei post precedenti che uso l'originale...che tu sapevi di qualche errore e me lo avevi fatto notare..
ma la routine come l'hai impostata tu tecnicamente è corretta.. ma non fa quello che sarebbe giusto fare...se vuoi ti ho scritto come dovrebbe essere fatta al post #38....

 

[claudio8]

Buongiorno Claudio,come ti avevo detto nei post precedenti che uso l'originale...che tu sapevi di qualche errore e me lo avevi fatto notare..
ma la routine come l'hai impostata tu tecnicamente è corretta.. ma non fa quello che sarebbe giusto fare...se vuoi ti ho scritto come dovrebbe essere fatta al post #38....

Bella risposta

Ciao