Novità

Aiuto su listato 10eLotto 5 m

DjNomade

Advanced Member >PLATINUM PLUS<
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



Codice:
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
 
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



Codice:
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

aNumeriE' il vettore che contiene i numeri
IdEstrazioneIl numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
SorteValore numerico che identifica la sorte (o la classe)
Optional EntroColpi = 0Colpi entro i quali verificare la combinazione
Optional RetEsito = ""Descrizione testuale esito
Optional RetColpi = 0Colpi giocati
Optional RetEstratti = ""Estratti usciti
Optional RetIdEstr = 0Estrazione di rilevamento
 
Grazie lotto_tom75 Grazie gcarlo Grazie disaronno è la soluzione che cercavo
spero sia utile ad altri
Ciauzzzzzzzzz
 
Credodi si basta eliminare o mettere apice a questa riga
'Call ImpostaArchivio10ELotto(02)
 
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.
 
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
 
(y)(y)(y)(y)(y) 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 ?
 
Ultima modifica:
Ciauz Alien per questo non saprei,
invece volevo chiedere se si puo evidenziare i numeri oro e doppio oro che vengono estratti
Ciauzzzzzzzzzzzz
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 luglio 2025
    Bari
    71
    66
    48
    42
    76
    Cagliari
    84
    70
    23
    69
    43
    Firenze
    50
    21
    30
    11
    69
    Genova
    89
    41
    50
    80
    67
    Milano
    41
    59
    67
    03
    60
    Napoli
    87
    63
    51
    42
    07
    Palermo
    56
    87
    76
    27
    09
    Roma
    41
    26
    50
    22
    77
    Torino
    36
    83
    80
    65
    05
    Venezia
    45
    77
    76
    81
    71
    Nazionale
    72
    06
    03
    08
    07
    Estrazione Simbolotto
    Nazionale
    34
    27
    08
    12
    17
Indietro
Alto