Evidenziare estratti Come fare

[lotto_tom75]

Mi sono messo solo adesso a spippolare anche su questa tua nuova chicca spaziale... Luigi... Davvero spettacolare Ma è possibile anche evidenziare gruppi di combinazioni volute generate da qualsivoglia gruppo numerico di base? Es. tutti i 45 ambi generabili dai primi 10 numeri consecutivi ecc... Ad ogni modo davvero incredibile... Senza contare poi la sua estensibilità funzionale praticamente infinita... tramite la sezione script... Magnificamente superrima

 

[LuigiB]

Ciao Tom .. ora fa pure questo . .dopo che inserisci la combinazione modifica il punteggio minimo ...

LottoOpen

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[Xeroxs]

Buongiorno a Tutti,

Ciao, LuigiB, Mammamia quanto sei Bravo, credimi non esagero nei complimenti,
quando facevo delle selezioni per alcune aziende e dover scegliere le persone giuste era difficile non tanto per capacità delle persone perchè le aziende cercavano anche alcune "cose specifiche" che andavano dalla fiducia ad altro e non sempre forse quasi mai riuscivo a far combaciare certe cose, ma da quel che ho potuto vedere in questo Forum molti di Voi forse hanno preso o fatto scelte che non li hanno soddisfatti per quanto riguarda il lavoro ma che avete sicuramente capacità che vanno oltre il normale standard, Da quel che leggo alcuni fanno o hanno svolto lavori diversi da quanto si svolge in questo Forum, ma le capacità espresse sono davvero oltre.

Come Te, LuigiB, I-Legend, Joe, Mike58, Salvo50 ( Che è Cosi Bravo e Volenteroso nel creare quanto chiedono alcuni Utenti)
agli altri come Druid,Blacklotto,Master, sperando di non dimenticarne alcuno.

Un Grazie Va anche a Claudio8 che non vedo da un pò di giorni postare qualche suo commento e credo che in quasto nuovo progetto sarebbe in grado di dare un valore aggiunto non indifferente, a Lui spero che non si sia offeso riguardo alla discussione " Creare Elenco Presenze" Vorrei dire che non mi sono arreso, anzi sto studiando quanto più posso per arrivare ad assorbire quanto scritto da Lui e da I-Legend per riuscire da solo a fare certe cose, purtroppo poi bisogna fare i conti con la vita che ci circonda e con la base su certi argomnti che non è poco, ma posso dire che anche grazie a Lui molte cose mi sono più note.

Grazie a Tutti. Davvero
Tornando sul Programma, LuigiB, Ancora un ottimo Aggiornamento e mi spiace non essere all'altezza nella programmazione per essere di Aiuto come forse vorresti in questo progetto.

 

[Xeroxs]

Ciao, Palas

Grazie per aver postato lo Script, mi hai aiutato a capire altre cose.
Io Propongo un alternativa per il terno di somma di una Terzina potendo scegliere la Somma Voluta.

Option Explicit
' Ricerca la Somma Scelta di tre Estratti = Terno di Somma della Terzina
Sub Main
   Dim Ruota,IniCol,FinCol
   Dim Rig,Col
   Dim Col1,Coll1
   Dim a,b,c,nTSomma
   nTSomma = cint(InputBox("Inserisci una Somma da 1 a 90","Ricerca Somma",90))
   For Rig = 1 To righe
        If GetValue(Rig,0) = "00" Then
     Exit For
    End If   
      For Ruota = 1 To 11
         FinCol = Ruota*5
         IniCol = FinCol - 4
         ReDim aN(90)
         For Col = IniCol To FinCol - 1
            a = GetValueInt(Rig,Col)
            For Col1 = Col + 1 To FinCol
               b = GetValueInt(Rig,Col1) 'as Long [Ottiene il valore di una cella espresso come numero intero]
               For Coll1 = Col1 + 1 To FinCol
                  c = GetValueInt(Rig,Coll1)
                  If Somma(a,b,c) = nTSomma Then aN(a) = 1 : aN(b) = 1 : aN(c) = 1
               Next
            Next
         Next
         For Col = IniCol To FinCol
            a = getValueint(Rig,Col)
            If aN(a) = 1 Then
               Call setCerchio(Rig,Col)
            End If
         Next
      Next
   Next
End Sub
' Funzione Per il Terno Di Somma
Function Somma(a,b,c)
   Dim nTSomma
   nTSomma = (a + b +c)
   Do While nTSomma > 90
      nTSomma = 90 - nTSomma
   Loop
   Somma = nTSomma
End Function

 

[Xeroxs]

Ciao LuigiB,

Volevo Capire a cosa potrebbe servire il modulo "Conversione Numeri".

Grazie

 

[palas]

Ho tentato di fare un verifica esito entro 1 mese(13colpi) , esponendoli con il colore Blue

 

[fillotto]

Ho tentato di fare un verifica esito entro 1 mese(13colpi) , esponendoli con il colore Blue

potresi mettere il codice?

 

[palas]

prima lo controllo, poi se va bene lo posto

volevo esporre un messaggio al termine dell'operazione, un piccolo form message , ma non riesco a metterlo solo
informativo, ma richiede per forza una risposta.

sapete come si può fare?

 

[palas]

da provare

Option Explicit
Sub Main
   '''ricerca terni di somma sortiti
   Dim Ruota,IniCol,FinCol
   Dim Rig,Col
   Dim Col1,Coll1,colx
   Dim a,b,c,ts,es,aa
   For Rig = 1 To righe
      If GetValue(Rig,0) = "00" Then
         Exit For
      End If
      ReDim aN(90)
      For Ruota = 1 To 11
         FinCol = Ruota*5
         IniCol = FinCol - 4
         '''somma estratti
         For Col = IniCol To FinCol - 1
            a = GetValueInt(Rig,Col)
            es = Rig
            For Col1 = Col + 1 To FinCol
               b = GetValueInt(Rig,Col1) 'as Long [Ottiene il valore di una cella espresso come numero intero]
               For Coll1 = Col1 + 1 To FinCol
                  c = GetValueInt(Rig,Coll1)
                  ts = a + b + c
                  If ts > 90 Then
                     Exit For
                  End If
                  ReDim anum(3),aN(90)
                  If a + b = c Or a + c = b Or b + c = a Then
                     aN(a) = 1
                     aN(b) = 1
                     aN(c) = 1
                     anum(1) = a
                     anum(2) = b
                     anum(3) = c
                     For Colx = IniCol To FinCol
                        aa = getValueint(Rig,Colx)
                        If aN(aa) = 1 Then
                           Call setCerchio(Rig,Colx)
                           '''prova verifica esito
                           Call VerificaEsito(anum,Rig,ruota)
                        End If
                     Next
                  End If
               Next
            Next
         Next
      Next
   Next
  '''   msgbox(" In Blu quelli usciti in 1 Mese ")
End Sub
Function VerificaEsito(aNum,rig,ruota)
   Dim rigcol,k,nu,w,lastestr,FincolV,IniColV
   FincolV = Ruota*5
   IniColV = FincolV - 4
   rigcol = rig
   lastestr = rig + 13
   '''verifica per 13 colpi
   For rigcol = rigcol + 1 To lastestr
      '''fine file exit
      If GetValue(rigcol,0) = "00" Then
         Exit For
      End If
      '''controlla se presente 1 della terzina per 5 posizioni
      For w = 1 To 3
         For k = 0 To 4
            If aNum(w) > 0 Then
               If GetValueInt(rigcol,IniColV + k) = Int(aNum(w)) Then
                  Call setCerchio(rigcol,IniColV + k,vbBlue)
               End If
            End If
         Next
      Next
   Next
End Function

 

[i legend]

Ciao attenzione ai cicli for delle terzine
Non vorrei scrivere una sciocchezza ma co trollate

For Col = IniCol To FinCol - 2
 a = GetValueInt(Rig,Col)
 For Col1 = Col + 1 To FinCol -1
 b = GetValueInt(Rig,Col1) 'as Long [Ottiene il valore di una cella espresso come numero intero]
 For Coll1 = Col1 + 1 To FinCol
 c = GetValueInt(Rig,Coll1) 
If Somma(a,b,c) = nTSomma Then aN(a) = 1 : aN(b) = 1 : aN(c) = 1 
Next 
Next 
Next

Ciao

 

[Xeroxs]

Grazie I-Legend
Corretto

 

[lotto_tom75]

Ciao Tom .. ora fa pure questo . .dopo che inserisci la combinazione modifica il punteggio minimo ...

LottoOpen

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Without words... you are the in the LuigiB

 

[LuigiB]

altro aggiornamento ...mi raccomando come minimo dovete sostituire sempre file exe e dll ...

LottoOpen

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[LuigiB]

prima lo controllo, poi se va bene lo posto

volevo esporre un messaggio al termine dell'operazione, un piccolo form message , ma non riesco a metterlo solo
informativo, ma richiede per forza una risposta.

sapete come si può fare?

ciao Palas , non ho capito bene se vuoi esporre il messaggio l'utente dovrà pur chiuderlo .... che intendi ?

 

[LuigiB]

Ciao LuigiB,

Volevo Capire a cosa potrebbe servire il modulo "Conversione Numeri".

Grazie

ciao Xeros , se hai notato è possibile generare gli archivi paralleli per posizione , quindi dal menu a tedina in basso a sinistra si puo scegliere se operare sull'archivio lotto o se usare un archivio di livello superiore da L1 ad L5 a seconda di quanti archivi superiori lutente ha impostato.

ebbene se uno fa le ricerche su questi archivi paralleli e di livello superiore e individua delle situazioni interessanti per giocare quei numeri questi vanno riconvertiti in modo da ottenere i numeri giusti dell'archivio reale... se usi ad esempi una ricerca sul livello L3 e individui dei numeri su Bari all'estrazione X allora tramite quel modulo dovrai impostare ruota Bari , estrazione X e nella casellina livello 3 i tuoi numeri
in questo modo otterrai i numeri dell'archivio reale ..

 

[Xeroxs]

Ciao LugiB
Nel Testare/Provare il nuovo aggiornamento ho riscontrato

- Isocroni
nel Tabellone Analitico é possibile attivare la colorazione dei numeri quando clicchi sul numero come per le altre soluzioni.

- Evidenzia Cominazioni
Ho Visto che i numeri scelti vengono attivati viene evidenziato solo il colore e non + il numero è una scelta?

- Evidenzia Riga Grigia
Cosa dovrebbe fare o non mi sono accorto di cosa accade quando è attivata

Stavo Pensando ad un'altra Richiesta da esporre ma non so come impostarla, ci penso un po.

 

[Xeroxs]

Grazie LuigiB per la spiegazione, mi ero sempre chiesto a cosa potessero servire, provo ad usarle.

 

[LuigiB]

Ciao LugiB
Nel Testare/Provare il nuovo aggiornamento ho riscontrato

- Isocroni
nel Tabellone Analitico é possibile attivare la colorazione dei numeri quando clicchi sul numero come per le altre soluzioni.

- Evidenzia Cominazioni
Ho Visto che i numeri scelti vengono attivati viene evidenziato solo il colore e non + il numero è una scelta?

- Evidenzia Riga Grigia
Cosa dovrebbe fare o non mi sono accorto di cosa accade quando è attivata

Stavo Pensando ad un'altra Richiesta da esporre ma non so come impostarla, ci penso un po.

cambia i colori nelle impostazioni , si puo cambiare sia sfondo che colore carattere

evidenzia la riga della griglia se ci passi sopra (estrazioni) se ci clicchi (tabanalitico)

 

[Xeroxs]

Ok Grazie.

 

[i legend]

Ciao luigi
Allora non ho ancora scaricato i nuovi aggiornamenti.
Purtroppo non compare l icona sul desktop, non restano i memoria gli script.
Dove sbaglio?
Un altra cosa.
Nella pagina script sarebbe possibile avere le parole chiave evidenziate come in spaziometria? Anche le funzioni personal .
Altro suggerimento domanda :
gli script interagiscono solo con la griglia orizzontale o anche con il mini browser?
Gli msgbox essendo legati allo scorrere della griglia vengono lanciati ad ogni scroll.
Altro non saprei . Ora aggiorno lotto open e se mi vengono in mente altri suggerimenti li posto.
Il fatto che non si possono più modificare gli script ,se dovessero esserci errori è un cosa triste.
A dopo.