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
 

lotto_tom75

Advanced Premium Member
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
 

DjNomade

Advanced Member >PLATINUM PLUS<
Grazie lotto_tom75 Grazie gcarlo Grazie disaronno è la soluzione che cercavo
spero sia utile ad altri
Ciauzzzzzzzzz
 

DjNomade

Advanced Member >PLATINUM PLUS<
Credodi si basta eliminare o mettere apice a questa riga
'Call ImpostaArchivio10ELotto(02)
 

Alien.

Advanced Premium Member
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

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

Advanced Premium Member
(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:

DjNomade

Advanced Member >PLATINUM PLUS<
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto