Aiuto su listato 10eLotto 5 m

[DjNomade]

Salve
Ad occhio credo che evidenzia solo la prima vincita, se ce ne sono altre nei colpi scelti
non le fa vedere, dove bisogna intervenire?
Grazie
Ciauz

Sub Main()
 ImpostaArchivio10ELotto(2)
 Dim nu(1),T,V,sommato(4)
 Ini = EstrazioniArchivioDL - 100
 fin = EstrazioniArchivioDL

 clp = CInt(InputBox("Quanti colpi in verifica",,10))
 T = Array(T," Info Es "," Numeri Estrazione "," Numeri Ricavati "," Verifica  "," colpi ")
 Call InitTabella(T)
 For es = Ini To fin
 
 For pos = 1 To 19
 For pos1 = pos + 1 To 20
 dis = EstrattoDL(es,pos)
 dis1 =  EstrattoDL(es,pos1)
  If dis = 20 And dis1= 70 Then
  som = Fuori90(EstrattoDL(es,1) + EstrattoDL(es,20))
  som1 = Fuori90(EstrattoDL(es,5) + EstrattoDL(es,10))
   som2 = Fuori90(EstrattoDL(es,3) + EstrattoDL(es,13))
   som3 = Fuori90(EstrattoDL(es,7) + EstrattoDL(es,17))
  sommato(1) = som
    sommato(2) = som1
      sommato(3) = som2
        sommato(4) = som3
              
  Call VerificaEsitoDL(sommato,es + 1,2,clp,esito,colpi,estratti)
  V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),StringaNumeri(sommato),estratti,colpi)
 Call AddRigaTabella(V)
  End If
 Next
  Next
   Next
 CreaTabella
End Sub

 

[lotto_tom75]

Salve
Ad occhio credo che evidenzia solo la prima vincita, se ce ne sono altre nei colpi scelti
non le fa vedere, dove bisogna intervenire?
Grazie
Ciauz

Sub Main()
ImpostaArchivio10ELotto(2)
Dim nu(1),T,V,sommato(4)
Ini = EstrazioniArchivioDL - 100
fin = EstrazioniArchivioDL

clp = CInt(InputBox("Quanti colpi in verifica",,10))
T = Array(T," Info Es "," Numeri Estrazione "," Numeri Ricavati "," Verifica  "," colpi ")
Call InitTabella(T)
For es = Ini To fin

For pos = 1 To 19
For pos1 = pos + 1 To 20
dis = EstrattoDL(es,pos)
dis1 =  EstrattoDL(es,pos1)
  If dis = 20 And dis1= 70 Then
  som = Fuori90(EstrattoDL(es,1) + EstrattoDL(es,20))
  som1 = Fuori90(EstrattoDL(es,5) + EstrattoDL(es,10))
   som2 = Fuori90(EstrattoDL(es,3) + EstrattoDL(es,13))
   som3 = Fuori90(EstrattoDL(es,7) + EstrattoDL(es,17))
  sommato(1) = som
    sommato(2) = som1
      sommato(3) = som2
        sommato(4) = som3
             
  Call VerificaEsitoDL(sommato,es + 1,2,clp,esito,colpi,estratti)
  V = Array(V,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),StringaNumeri(sommato),estratti,colpi)
Call AddRigaTabella(V)
  End If
Next
  Next
   Next
CreaTabella
End Sub

Ciao a giudicare dalla sintassi e help relativo alla funzione verificaesitoDL sembrerebbe che non sia possibile...

VerificaEsitoDL

Function VerificaEsitoDL(aNumeri, IdEstrazione, Sorte, Optional EntroColpi = 0, Optional RetEsito = "", Optional RetColpi = 0, Optional RetEstratti = "", Optional RetIdEstr = 0) As Boolean

Descrizione

Consente di verificare un pronostico per una determinata sorte

Note

Valore di ritorno

Torna true se il pronostico si è verificato

Parametri

aNumeri	E' il vettore che contiene i numeri
IdEstrazione	Il numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
Sorte	Valore numerico che identifica la sorte (o la classe)
Optional EntroColpi = 0	Colpi entro i quali verificare la combinazione
Optional RetEsito = ""	Descrizione testuale esito
Optional RetColpi = 0	Colpi giocati
Optional RetEstratti = ""	Estratti usciti
Optional RetIdEstr = 0	Estrazione di rilevamento

 

[DjNomade]

Grazie lotto_tom75 Grazie gcarlo Grazie disaronno è la soluzione che cercavo
spero sia utile ad altri
Ciauzzzzzzzzz

 

[Alien.]

Ciao DJ e gcarlo ottimo ma si potrebbe fare anche per il serale,grazie.

 

[DjNomade]

Credodi si basta eliminare o mettere apice a questa riga
'Call ImpostaArchivio10ELotto(02)

 

[Alien.]

Grazie DJ ,resta tutto invariato poi come mai c'è sempre la stessa data ?

 

[DjNomade]

in che senso la stessa data
se la elimino la stringa mi viene cosi

 

[DjNomade]

​

 

[Alien.]

Ciao DJ e gcarlo non si vede l'immagine ma poi perchè con il serale ci sono 10 date tutte uguali il serale non è 3 volte alla settimana come il lotto ? O forse non ho ben capito cosa fa lo script.Grazie.

 

[DjNomade]

Le 10 date uguali è perche i colpi di gioco sono 10 mi serviva per vedere ad ogni colpo che cosa esce
prova a modificare i colpi e vedrai
Ciauz

 

[Alien.]

fammi sapere quando hai fatto,grazie.Comunque adesso che me lo hai spiegato ho capito.Grazie.
Scusami, ma si potrebbe inserire ID estrazione cioè alla prima del mese,seconda del mese ecc da input per vedere cosa succede ?

 

[DjNomade]

Ciauz Alien per questo non saprei,
invece volevo chiedere se si puo evidenziare i numeri oro e doppio oro che vengono estratti
Ciauzzzzzzzzzzzz

 

[DjNomade]

Grazie gcarlo era una mia curiosita',
magari troveranno una soluzione
Ciauz