Evidenziare estratti Come fare

[LuigiB]

ciao Xerox .. le prime 2 cose ok , per la terza non da errore ma da un messaggio che dice che si possono scegliere da 1 a 5 numeri limite entro i quali si puo muovere una combianziione di numeri al lotto ... per ricerca combinazione si intende trovare tutti i numeri su una tale ruota..

 

[palas]

grazie Luigi

 

[Xeroxs]

Ok LuigiB,
Grazie Per la Spiegazione.

 

[fillotto]

grazie Luigi

per completare i due quadrati di palas 83 a firenze e 39 a Genova che sono riusciti nelle rispettive ruote poco dopo . Addirittura 83 nella stessa posizione! Già ma con il senno di poi.......
palas come hai fatto non riesco nel programma a disegnare niente mi spieghi?

 

[palas]

Luigi una domanda

con l'icona Evidenzia Combinazioni, dovrebbe permettere di far controllare
delle combinazioni già predisposte.

ma quando viene proposto di selezionare (apri e/o salva) inserite
le salva con estensione Comb

ma dentro nella cartella attualmente sono tutte in formato txt.

volevo registrare o importare gli aquiloni (90 FORMAZIONI.txt)

ma devo essere con estensione comb o txt?

 

[palas]

per completare i due quadrati di palas 83 a firenze e 39 a Genova che sono riusciti nelle rispettive ruote poco dopo . Addirittura 83 nella stessa posizione! Già ma con il senno di poi.......
palas come hai fatto non riesco nel programma a disegnare niente mi spieghi?

con lo script di Luigi che ha fatto e postato ieri sera.

ho solo cambiato la grandezza del quadrato


ho copiato lo script nella cartella dove sono raccolti gli script e lanciato per evidenziare le caselle
ho revisione lo script con grandezza quadrato diversa da quella preimpostata.

Nulla di più nulla di meno

 

[LuigiB]

quelle con esternsione comb son o quelle che salvi tu con colori annessi , le formazioni sono in csv

 

[LuigiB]

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

 

[palas]

Genova in arrivo Aquilone dalla ruota di Milano, probabile ambo, perchè trascorsi ormai una decina di concorsi

 

[Zetrix]

Luigi metto evidenza figura

 

[fillotto]

A furia di rompere le scatole sono riuscito ad entrare in media res (si dice così?) .
Quindi da quello che ho capito (finalmente sono riuscito a capire come lanciare uno script )
gli script , in questo programma, sono orientati tutti ad evidenziare degli intervalli che faranno la gioia degli amanti della ciclometria, oltre a delle statistiche inedite da lecarsi i baffi.
Aspettando che i big si scatenino un grazie doveroso a LUIGI

 

[Xeroxs]

Ciao a Tutti,
Cercando di Capire come fare per Altre Soluzioni mi sono Permesso di Modificare quello di I-Legend per Evidenziare le Somme tra due estratti

Sub Main
   Dim Ruota,IniCol,FinCol
   Dim Rig,Col,Col1
   Dim a,b,nSomma
   nSomma=cint(InputBox("Inserisci una Somma da 1 a 90","Ricerca Somma",90))
 
   For Rig = 1 To righe
      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]
               If Somma(a,b) = nSomma Then aN(a) = 1:aN(b) = 1
            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
Function Somma(a,b)
   Dim nSomma
   nSomma = (a + b)
   Do While nSomma > 90
      nSomma = 90 - nSomma
   Loop
   Somma = nSomma
End Function

 

[Xeroxs]

Che Dire,
Grazie Ancora LuigiB, sia per le modifiche che per gli Isocroni, un lavoro perfetto, Cosi in modo più rapido si riescono ad evidenziare ricerche o convergenze che possono tornare utili... wow

 

[LuigiB]

quelli piu che isocroni credo siano sincroni .. isocrono non voleva dire nella stessa posizione estrazionale ?
Mi sa che correggo la dicitura..

 

[palas]

x LuigiB

in (123) ho creato 89 aquiloni che si possono richiamare , cos' come si possono richiamare le cadenze,cinquine pentagonali, quartine radicali etc..
Tutto funziona

 

[LuigiB]

se le posti le metto di default nel programma

 

[Xeroxs]

Ciao, Luigib
I numeri sono isocroni se estratti nella stessa estrazione ma su ruote diverse, al tempo stesso sono sincroni.
Giustamente ricerca il numero con lo stesso ritardo ma su ruote diverse.

 

[palas]

script per identificare terni di somma usciti, mi pare funziona correttamente

Option Explicit
Sub Main
'''ricerca terni di somma sortiti
   Dim Ruota,IniCol,FinCol
   Dim Rig,Col
   Dim Col1,Coll1
   Dim a,b,c,ts
   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
         '''somma estratti
         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)
                  ts = a + b + c
                  If ts > 90 Then
                     Exit For
                  End If
                  If a + b = c Or a + c = b Or b + c = a Then
                     aN(a) = 1
                     aN(b) = 1
                     aN(c) = 1
                  End If
               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

 

[LuigiB]

grazie Xerox mi sa che mi confondevo con isostopi

 

[palas]

Luigi ti ho mandato i file per posta