Evidenziare estratti Come fare

[LuigiB]

devi mettere virtulabox ... come te lo devo dire ?

comunque altro aggiornamento ora è possibile rileggere i valori dalla lista output ,siccome quella non si azzera la si puo usare per tenere informazioni tra una esecuzione e l'altra...

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

sostituire sempre tutte le cartelle ...poi ci rimettete gli script vostri personali ...

Option explicit
Sub Main

    dim idPrimaRiga  , id  , r
    dim sKey , aValue
 
   MostraFormOutput
    idPrimaRiga = GetIdEstrPrimaRiga()
   
    for r = 1 to Righe
        id = idPrimaRiga  + (r -1)
        call AddRigaOutput(GetDataEstr(id) ,,r)
       
    next
   
    sKey = int(inputbox ("Inserire un numero da 1 a 100 , solo i numeri fino a " & Righe & " saranno trovati") )
    if skey <> 0 then
        if getvalueoutput (sKey , aValue) then
            msgbox avalue(0)
        else
            msgbox "non trovato"
        end if
    end if

End sub

 

[palas]

un passettino fatto anche oggi, grazie

 

[palas]

scelte varie tra le Terzine Gialle attualmente in corso
le rosse si sono sfaldate nei concorsi precedenti

 

[Xeroxs]

Buongiorno a Tutti,
Mi Rendo Conto che le mie lacune sono forse troppe, o forse faccio fatica a digerire certi incastri, Non Volendo restare indietro nella comprensione ho bisogno di capire come incastrare i Cicli For per i 5 estratti, Perché non so dove e perché mi perdo nel capire come impostarle in quanto se no assimilo come mi devo muovere nelle 5 posizioni in questo nuovo progetto ho l'impressione di restare al palo e quindi non poter realizzare qualcosa di costruttivo.

Ho Ripreso lo Script fatto da I-Legend e modificato per fare la somma dei 5 estratti per capire bene come ciclare la ricerca ma non ci riesco non trova tutte le somme realmente presenti perchè non capisco realmente quale è il primo vero passo per ciclare

Option Explicit
' Ricerca la Somma Scelta dei Cinque Estratti
Sub Main
   Dim Ruota,IniCol,FinCol
   Dim Rig,Col
   Dim Coll,Colll,Collll,Colllll ' Le Colonne o Posizioni di Ogni Ruota dalla seconda alla Quinta 
   Dim a,b,c,d,e,nSomma ' i Cinque Estratti e la Somma da Ricercare
   nSomma = cint(InputBox("Inserisci una Somma da 1 a 90","Ricerca Somma",90))
   For Rig = 1 To righe ' Ciclo le Righe Delle singole Estrazioni
        If GetValue(Rig,0) = "00" Then
        Exit For
        End If   
      For Ruota = 1 To 11 ' Ciclo Ogni Ruota
         FinCol = Ruota*5 ' Le Cinque Colonne o Posizioni degli Estratti
         IniCol = FinCol - 4
         ReDim aN(90)
         For Col = IniCol To FinCol - 3
            a = GetValueInt(Rig,Col)
            For Coll = Col + 1 To FinCol - 2
               b = GetValueInt(Rig,Coll) 'as Long [Ottiene il valore di una cella espresso come numero intero]
               For Colll = Coll + 1 To FinCol - 1
                  c = GetValueInt(Rig,Colll)
                  For Collll = Colll + 1 To FinCol
                     d = GetValueInt(Rig,Collll)
                     For Colllll = Collll + 1 To FinCol
                        e = GetValueInt(Rig,Colllll)
                        If Somma(a,b,c,d,e) = nSomma Then aN(a) = 1 : aN(b) = 1 : aN(c) = 1 : aN(d) = 1 : aN(e) = 1
                     Next
                  Next
               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 La Somma dei 5 Estratti
Function Somma(a,b,c,d,e)
   Dim nSomma
   nSomma = (a + b + c + d + e)
   Do While nSomma > 90
      nSomma = 90 - nSomma
   Loop
   Somma = nSomma
End Function

Ora per capire avrei voluto chiamare le Col ovvero colonne o posizione degli estratti con Co1 Co2 e così via ma nel mentre mi chiedo è sbagliato ovvero comicio a contare da Col che sarebbe la prima colonna ovvero il primo estratto di pari e coll dovrebbe essere il secondo e cosi Via ma poi nel andare a vanti mi sono perso.

Non So se sono stato troppo prolisso nel esporre il mio problema e spero che qualcuno mi aiuti a capire dove sbaglio in quanto essendo puro VBScript occorre rispettare bene le regole che al momento evidentemente mi sfuggono.

Sperando di non Deludere qualcuno in questo mio intoppo!

 

[i legend]

S=0
For i = inicol to FinCol
E= getvalueint (riga,i)
S=s+E
Next
S=fuori90(s)

Questa è è la somma dei numeri
Ciao

 

[Xeroxs]

Ciao I_legend Ci sto provando,
Purtroppo avevo capito bene negli script classici ma ora, mah... mi sento davvero stupido

In cosa sbaglio. se non è un problema chiedere.

Sub Main
   Dim Ruota,IniCol,FinCol
   Dim Rig,Col
   Dim E,nSomma,i
   Dim Somma
   nSomma=cint(InputBox("Inserisci una Somma da 1 a 90","Ricerca Somma",90))
   Somma = 0
   For Rig = 1 To righe
      For Ruota = 1 To 11
         FinCol = Ruota*5
         ReDim aN(90)
            For i = IniCol To FinCol
               E = GetValueInt(Rig,i)
               Somma = Somma + E   
               If Somma = nSomma Then aN(E) = 1
            Next
         For i = IniCol To FinCol '<---------------------- Dove sbaglio? forse questo Ciclo no e da fare se lo incastro nel precedente
            E = getValueint(Rig,ì)
            If aN(E) = 1 Then
               Call setCerchio(Rig,i)
            End If
         Next
      Next ' Chiude Ruota
   Next 'Chiude Riga
End Sub
Function Somma(E)
   Dim nSomma
   nSomma = Somma
   Do While nSomma > 90
      nSomma = 90 - nSomma
   Loop
   Somma = nSomma
End Function

Lo so mi rendo conto e spero di no apparire RomiC.

 

[i legend]

Innanzi tutto manca iniCol
Som=0
For i = IniCol To FinCol
E = GetValueInt(Rig,i)
Som = Som + E

Next
Confronti la somma fuori dal ciclo una volta ottenuta

If somma(som) = nSomma then
'Se la somma corrisponde colori tutte 'le celle
'A cosa serve aN?
For i = inicol to FinCol
Call setCerchio(Rig,i)
Next
End If

Ciao

 

[palas]

ho una domanda

come impostare estrazioneINI e EstrazioneFin ?

in modo semplice come lettura da a


in basso alla videata figura 9904 ma come si chiama quel campo o valore?

potrebbe essere nEstrTot?

 

[LuigiB]

Ciao Palas , lo script lavora solo sulla griglia visibile.
E' possibvile ottenere l'id estrazioen della prima riga come ho gia spiegato, da quella poi si possono conoscere le atre estrazioni mostrate nella griglia ...

 

[palas]

si lo so, ma chiedevo se c'era la possibilità di calcolare la (frequenza che ha avuto) della combinazione che appare a video a prescindere dal range o grandezza della griglia

 

[LuigiB]

Ciao gli script staistici vanno fatti con spaziometria , infondo la particolarità di questi script è che possono disegnare sulla griglia niente altro questo consente di risolvereil probelema COME EVIDENZIARE I NUMERI che poi è il titolo di queesto thread ..ma le stesse condizioni si potrebero trovare senza bisogno di evidenziare i numeri direttamente con uno scrit in spaziometria

 

[palas]

ok, grazie

 

[Xeroxs]

Buonasera a Tutti Voi

Nei miei Tentati sulla somma degli estratti ho "fatto" Questo Script che Evidenzia la somma cercata

Come posso impostare il Fuori 90 delle somme sugli estratti?

Option Explicit
' Ricerca la Somma Scelta di Quattro Estratti
Sub Main
   Dim Ruota,IniCo1,FinCo1
   Dim Rig,Co1
   Dim Co2,Co3,Co4
   Dim a,b,c,d,e,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
         FinCo1 = Ruota*5
         IniCo1 = FinCo1 - 4
         ReDim aN(90)
         For Co1 = IniCo1 To FinCo1 - 3
            a = GetValueInt(Rig,Co1)
            For Co2 = Co1 + 1 To FinCo1 - 2
               b = GetValueInt(Rig,Co2) 'as Long [Ottiene il valore di una cella espresso come numero intero]
               For Co3 = Co2 + 1 To FinCo1
                  c = GetValueInt(Rig,Co3)
                  For Co4 = Co3 + 1 To FinCo1
                     d = GetValueInt(Rig,Co4)   
                     If Somma(a,b,c,d) = nTSomma Then aN(a) = 1 : aN(b) = 1 : aN(c) = 1 : aN(d) = 1
                  Next
               Next
            Next
         Next
         For Co1 = IniCo1 To FinCo1
            a = getValueint(Rig,Co1)
            If aN(a) = 1 Then
               Call setCerchio(Rig,Co1)
            End If
         Next
      Next
   Next
End Sub

Grazie Come Sempre

 

[Xeroxs]

un passettino fatto anche oggi, grazie

Ciao, Palas potersti postare lo script o Chiedo Troppo? Vorrei approfondire il procedimento.

Grazie Comunque

 

[palas]

Ciao Xeroxs, guarda che io sono il meno adatto a dare qualche consiglio, forse mi avete
confuso con qualcun'altro.

comunque fammi capire, la somma che vuoi far fare allo script è con i 5 estratti o con 4 estratti
e che deve corrispondere con quella da te scelta?
If Somma(a,b,c,d) = nTSomma Then

abcd in una cinquina possono avere 5 disposizioni diverse, quindi vanno sviluppate tutte le posizioni
ma solo 5 avranno o possono avere la somma da te richiesta

o vuoi che siano posizioni fisse 1-2-3-4 estratto? è solo un esempio

 

[Xeroxs]

Ciao Palas,
Grazie Per L'attenzione, Ho Visto che hai creato uno script al di la delle analisi volevo capire il procedimento per poterlo sfruttare per delle ricerche, lo volevo fare con il diametrale in decina ma devo capire come crearre gli ambi, per cui faccio un esempio evidenzio le terzine di somma 90 e mi costruisco una piccola ricerca per verificare gli esiti, per esempio trovo la somma e gioco il 90 esempio banale o mi gioco il suo diametrale e per capire come fare dei test.

Sto creando delle ricerche per evidenziare sulla videata gli esiti.

Questo progetto mi piace e non vorrei lasciarlo incompleto.

Grazie

 

[Xeroxs]

PS
Non Ti sottovalutare, anche io non sono all'altezza dei migliori ma ora sono in grado di afre dei Test veri con spaziometria verificare anche quei metodi che alcuni miei amici comprano e cosi capisco quanto devono piangere..

 

[palas]

intanto ho visto che qua manca -1

For Co3 = Co2 + 1 To FinCo1 (**** -1 )

 

[Xeroxs]

Grazie Palas,
Mi sono Creato sia per le terzine che per quartine e cinquine sia la ricerca con fuori90 che senza e sembrano fuzionare.

intanto testo il tuo consiglio su quanto avevo postato

 

[palas]

questa va modificata così

If a+b+c+d = nTSomma Then aN(a) = 1 : aN(b) = 1 : aN(c) = 1 : aN(d) = 1

ora escono i numeri evidenziati, se lo lanci