Evidenziare estratti Come fare

[palas]

tu digiti 3 numeri
poichè vuoi la sorte 2 oppure 3

se per l analisi iniziale
devi fare la routine che controlli se nella cinquina di una ruota ne trovi uguali 2 e 3 è ok altrimenti
Bypassi la cinquina e la ruota che stai esaminando

se invece è un problema di verifica esito, cioè dopo aver visto già i numeri su qualche ruota
li vuoi controllare nelle successive se sono usciti di nuovo, devi fare una routine che verifica esito,
facendo sempre lo stesso giro
cioè se nelle cinquine ssuccessive trovi almeno 2 o 3 punti come da te richiesti, è Ok per trovati
accendi quei numeri in quella cinquina e ruota che hai trovato.

probabilmente tutti sti giri come sopra esposti nello script si possono evitare

 

[Xeroxs]

Ciao palas,

Cerco di Spiegarti il mio ragionamento cosi mi puoi dare la giusta dritta
Fisso tre numeri che possono essere da me scelti nel mio caso 1-10-79 a me interessa evidenziare non il singolo estratto che non mi serve ma se lo trova vorrei solo evidenziare la coppia o il terno e da li sviluppare la ricerca, magari il mio modo di creare lo script è stato laborioso ma almeno sono riuscito a fargli evidenziare i numeri, questo è ovvio mi aiuterebbe anche a capire come ragiona il costrutto dello script in quanto in questa fase sono forse più facili ma per me diversi.

la mia idea iniziale era fisso i tre numeri, mi trova un ambo e da li vedere se mi evidenzia nelle estrazioni successive quello mancante, e volevo cercare se mi evidenziava la somma degli estratti usciti facendo un esempio

Ricerca della terna 1-10-79

trovo ambo 1-79

vorrei cercare di evidenziare nelle successive il 10 il numero mancante e il numero 80 dato dalla somma dell' ambo trovato come ambate.

magari è una stupidata ma è una cosa che faccio solo visiva ma è un idea vecchia e con questo programma si può fare.

Ti faccio un esempio con le somme tra due numeri ho riscontrato che con la somma 88 quando si ripete su ruota in poche estrazioni esce spesso il 58 o la sua terzina simmetrica (riferita alla somma 88) e ovvio che posso fare ricerche di questo tipo se riesco a sfruttare meglio il programma

Spero di non essere prolisso nella spiegazione..

Grazie

 

[palas]

da Provare

Option Explicit
' Evidenzia Ambo Spia Scelto Dall'Utente
Sub Main
   Dim Ruota,IniCoL,FinCoL
   Dim Rig,Co1,coLx
   Dim x,a,ct
   Dim aNum(3)
   '**** Se Vuoi Inserire i Numeri nello Script ***
   aNum(1) = 1
   aNum(2) = 51
   aNum(3) = 65
   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
         ct = 0
         ReDim an(90)
         For Co1 = IniCoL To FinCoL
            a = GetValueInt(Rig,Co1)
            For x = 1 To 3     '''' controllo  e conto se estratto  è tra i 3 numeri richiesti
               If aNum(x) = a Then
                  ct = ct + 1
                  an(a) = 1
               End If
            Next
            If ct >= 2 Then    ''' se ne ho trovati almeno 2 evidenzio
               For CoLx = IniCoL To FinCoL
                  a = getValueint(Rig,CoLx)
                  If an(a) = 1 Then
                     Call setCerchio(Rig,CoLx)
                  End If
               Next
            End If
         Next ''Chiude Lettura 5 Estratti
      Next ' Chiude Ruota
   Next ' Chiude Rig
End Sub

 

[palas]

Naturalmente si può aumentare i numeri richiesti come quantita, da 3 a (Y)
li si potrebbe inserire anzichè uno alla volta, anche una lunghetta, basta dividere i numeri con -.:;/ con il carattere che si vuole
basta mettere qualche riga in piu' nello script,
oppure alimentare a mano la Anum

 

[Xeroxs]

Ciao palas
è Perfetto
Va più che bene deve funzionare in questo modo e farò tesoro dei Consigli Intanto Ti Ringrazio

 

[LuigiB]

ciao ho fatto degli aggiornamenti

sulla griglia gia si puo evidenziare a mano e fare disegni non ho capito che dice xeroxs ma sinceramente manco mi interessa perche va bene cosi

il menu degli script non si puo allungare in compenso ho messo un pulsantiuno che consente di selezionare lo script da una directory in modo tale che se sono molti uno se li classifica in directory e li sceglie da li



ho inserito la finestra dei migliori ritardi

ho aggiunto un paio di funzioni per gli script

Clear
GetValoriStat

non ci sono esempi se non ci riuscite da soli spero intevenga legend

 

[Xeroxs]

Buongiorno LuigiB

Grazie Per Quanto hai ancora fatto con gli Aggiornamenti.

Dove Troviamo il Nuovo Aggiornamento

 

[Xeroxs]

Buongiorno palas

Nel RingraziarTi ancora per il tuo contributo sarebbe meglio fare queste analisi con l'inserimento di una lunghetta o Array inserendo i vari Numeri così da renderlo più flessibile e meno dinamico, a onor del vero ci ho provato ma penso che occorre intervenire sulla variabile x ma li non riesco a far evidenziare nulla come posso modificarlo?

Grazie fin da Ora.

 

[LuigiB]

buongiorno .. al solito posto , il link è sempre quello

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]

Ciao, LuigiB, ero convinto che cambiasse ogni volta, Scusami.

Grazie

 

[palas]

ciao Luigi, grazie per l'aggiornamento

ci guardo

 

[LuigiB]

piccolo aggiornamento sul quadro dei ritardi migliori per evidenziare le combinazioni che hanno il ritmax in corso.

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

 

[i legend]

Appena ho un attimo scarico la niova versione
Grazie

 

[palas]

Se fattibile


Luigi per i Migliori Ritardi (Ambi)

già che ci sei non è possibile mettere ( 1 riga in piu') il Ritardo Massimo Storico delle 15 Posizioni Ambi?

o ci vuole troppo tempo di elaborazione?

se ci impiega molto, lascia perdere.

 

[Xeroxs]

piccolo aggiornamento sul quadro dei ritardi migliori per evidenziare le combinazioni che hanno il ritmax in corso.

Ciao, LuigiB

Non Capisco in che modo si evidenziano le combinazioni che hanno il ritmax in corso.
sembra come quello precedente o non ho compreso.

 

[Xeroxs]

Ciao

Intanto sto Cercando di fare dei tentativi ma nulla

Option Explicit
' Evidenzia Ambo Spia Scelto Dall'Utente
Sub Main
   Dim Ruota,IniCoL,FinCoL
   Dim Rig,Co1,coLx
   Dim x,a,ct
   Dim Lungh(1)
   '**** Se Vuoi Inserire i Numeri nello Script ***
   'Lungh(1) = array(0,1,51,65) ' Array ? o Altro
   Lungh(1) = "1.51.65"
   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
         ct = 0
         ReDim an(90)
         For Co1 = IniCoL To FinCoL
            a = GetValueInt(Rig,Co1)
            'For x = 1 To Ubound(Lungh)' Per Array?
            For x = 1 To 3 ' Questo sarà da Modificare
               If Lungh(x) = a Then ' ??
                  ct = ct + 1
                  an(a) = 1
               End If
            Next
            If ct >= 2 Then    ''' se ne ho trovati almeno 2 evidenzio
               For CoLx = IniCoL To FinCoL
                  a = getValueint(Rig,CoLx)
                  If an(a) = 1 Then
                     Call setCerchio(Rig,CoLx)
                  End If
               Next
            End If
         Next ''Chiude Lettura 5 Estratti
      Next ' Chiude Ruota
   Next ' Chiude Rig
End Sub

 

[LuigiB]

se il ritardo è uguale a ritardo max diventano rossi i numeri .,.. niente di speciale

 

[Xeroxs]

Grazie, comunque

 

[palas]

xeroxs provalo

i numeri devono essere divisi da :

per me funziona

Option Explicit
' Evidenzia Ambo Spia Scelto Dall'Utente
Sub Main
   Dim Ruota,IniCoL,FinCoL
   Dim Rig,Co1,coLx
   Dim x
   Dim  a,ct,qt
   Dim n ,lung
   Dim s
   lung = inputbox("Inserire numeri",,"01:51:65:15:70:06:60:26")
    s=Split(lung,":")
    qt = UBound(s)

   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
         ct = 0

         ReDim an(90)
         For Co1 = IniCoL To FinCoL
            a = GetValueInt(Rig,Co1)

            For x = 0 To qt
               If int(s(x)) = a Then
                  ct = ct + 1
                  an(a) = 1
               End If
            Next

            If ct >= 2 Then ''' se ne ho trovati almeno 2 evidenzio
               For coLx = IniCoL To FinCoL
                  a = getValueint(Rig,coLx)
                  If an(a) = 1 Then
                     Call setCerchio(Rig,coLx)
                  End If
               Next
            End If

         Next ''Chiude Lettura 5 Estratti
      Next ' Chiude Ruota
   Next ' Chiude Rig
End Sub

 

[Xeroxs]

Grazie Palas, Davvero Gentile, In questi Giorni provo a creare il Verifica esito prima di passare oltre, sperando di Riuscirci.
Mi hai dato anche Te un Ottimo Contributo.

Grazie Ancora.