Novità

Aiuto su listato 10eLotto 5 m

DjNomade

Advanced Member >PLATINUM<
Messaggi
1.947
Punti reazione
6
Punti
38
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

Premium Member
Messaggi
8.583
Punti reazione
418
Punti
83
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
 

gcarlo

Junior Member
Messaggi
13
Punti reazione
6
Punti
3
buongiorno,
ho chiesto ad un amico , ed ha trovato questa soluzione .

Option Explicit
Sub Main()
Dim Tipoarchivio : Tipoarchivio = aGetScegliArchivioDL()
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL()
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim nu(1),T,V,sommato
Dim Ini,fin,clp,es
Dim pos,pos1,dis,dis1,caso
Dim som,som1,som2,som3
Dim klp,esito,colpi,estratti,SF
Ini = EstrazioniArchivioDL - 100
fin = EstrazioniArchivioDL
clp = CInt(InputBox("Quanti colpi in verifica",,10))
T = Array(T,"Caso","Info Es","Numeri Estrazione","Numeri Ricavati","Verifica","colpi","PUNTI")
Call InitTabella(T)
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For pos = 01 To 19
For pos1 = pos + 01 To 20
dis = EstrattoDL(es,pos)
dis1 = EstrattoDL(es,pos1)
If dis = 20 And dis1 = 70 Then
caso = caso + 01
som = Fuori90(EstrattoDL(es,01) + EstrattoDL(es,20))
som1 = Fuori90(EstrattoDL(es,05) + EstrattoDL(es,10))
som2 = Fuori90(EstrattoDL(es,03) + EstrattoDL(es,13))
som3 = Fuori90(EstrattoDL(es,07) + EstrattoDL(es,17))
sommato = Array(00,som,som1,som2,som3)
For klp = 01 To clp
SF = SerieFreqDL(es + klp,es + klp,sommato,AMBATA_)
Call VerificaEsitoDL(sommato,es + klp,AMBATA_,01,esito,colpi,estratti)
V = Array(V,caso,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),StringaNumeri(sommato),estratti,klp,SF)
Call AddRigaTabella(V)
Next
End If
Next
Next
Next
Call CreaTabella()
Call Scrivi("Mod. By disaronno [ http://www.rgl.lu/ ] ",True,False,vbGreen)
End If
End Sub
Function aGetScegliArchivioDL()
Dim aVoci : aVoci = Array(aVoci,"10 e lotto Serale","10 e lotto 5minuti")
aGetScegliArchivioDL = ScegliOpzioneMenu(aVoci,01,"Scegli Tipo Archivio")
End Function
 
Ultima modifica:

DjNomade

Advanced Member >PLATINUM<
Messaggi
1.947
Punti reazione
6
Punti
38
Grazie lotto_tom75 Grazie gcarlo Grazie disaronno è la soluzione che cercavo
spero sia utile ad altri
Ciauzzzzzzzzz
 

Alien.

Advanced Premium Member
Messaggi
23.409
Punti reazione
191
Punti
63
Ciao DJ e gcarlo ottimo ma si potrebbe fare anche per il serale,grazie.
 

DjNomade

Advanced Member >PLATINUM<
Messaggi
1.947
Punti reazione
6
Punti
38
Credodi si basta eliminare o mettere apice a questa riga
'Call ImpostaArchivio10ELotto(02)
 

Alien.

Advanced Premium Member
Messaggi
23.409
Punti reazione
191
Punti
63
Grazie DJ ,resta tutto invariato poi come mai c'è sempre la stessa data ?
 

DjNomade

Advanced Member >PLATINUM<
Messaggi
1.947
Punti reazione
6
Punti
38
in che senso la stessa data
se la elimino la stringa mi viene cosi


10 eLotto serale.jpg10eLotto 5Minuti.jpg
 

gcarlo

Junior Member
Messaggi
13
Punti reazione
6
Punti
3
caiao , abbiamo fatto modificare il listato , con la scelta del gioco serale o 5 minuti
 

Alien.

Advanced Premium Member
Messaggi
23.409
Punti reazione
191
Punti
63
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<
Messaggi
1.947
Punti reazione
6
Punti
38
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
Messaggi
23.409
Punti reazione
191
Punti
63
(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<
Messaggi
1.947
Punti reazione
6
Punti
38
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:

gcarlo

Junior Member
Messaggi
13
Punti reazione
6
Punti
3
buonasera , con questo sistema non si puo verificare la vincita ne' dell' oro .
per il doppio oro , non e ' possibile vederne gli esiti , perche' non e' inserito nell' archivio .
dovrenne usare
Codice:
Sub ImpostaGiocataDL(NumGiocata, VetNumeri, Optional CostoBolletta = 0.5, Optional Durata = 1, Optional SorteInterr = 0, Optional Attesa = 0, Optional aGiocateDaInterrompere = 0, Optional bGiocaNumOro = False)
che pero mi hanno detto che non fuzina bene , e non visuallizza le vincite oro
 

DjNomade

Advanced Member >PLATINUM<
Messaggi
1.947
Punti reazione
6
Punti
38
Grazie gcarlo era una mia curiosita',
magari troveranno una soluzione
Ciauz
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 maggio 2020
    Bari
    40
    58
    46
    71
    84
    Cagliari
    73
    29
    19
    24
    27
    Firenze
    13
    58
    39
    36
    19
    Genova
    68
    63
    58
    55
    31
    Milano
    78
    18
    09
    75
    80
    Napoli
    41
    62
    21
    79
    25
    Palermo
    89
    25
    87
    67
    27
    Roma
    57
    58
    66
    41
    68
    Torino
    06
    87
    20
    02
    46
    Venezia
    90
    16
    77
    52
    26
    Nazionale
    54
    26
    52
    49
    60

Ultimi Messaggi

Alto