Risultati della ricerca

Ciao Grande silop .. ben ritrovato ... è grazie a te che Spaziometria ha ancora le sue estrazioni...

ciao , per cambiare le formazioni si deve agire qui. devi sostituire i numeri che ci sono gia , se ci sono formazioni in piu o in meno devi aggiungere/rimuovere il blocco di 3 righe Set cFrz = New clsFormazione cFrz.SetNumeri("1;2;3;4;5;6;7;8;9;10") Call...

questro è il punto dove individua il numero oggetto di analisi , in questo caso la prima cifra di un numero che puo essere una unita , una decina o una centinaia.. dipende da quanto è lungo il numero .. .dal punto di vista dello script è solo la prima cifra c =...

ecco . .bravo .. .Adoperati .... :cool: :)

Vedi LottoTom quanto è facile modificare i miei script ? Pensa che l'ultimo che voleva modificare uno dei tuoi è morto ..... :)

io come limiti avevo messo 10 18 .. li cè solo una decina che rientra nel range

secondo la mia ipotesi la ragione di evidenziare la situazione dei 90 numeri presi all'estrazione precedente a quella di analisi serve per verificare almeno visivamente se sono usciti dei numeri il cui scarto rispetto ai valori di riferimento era negativo , e soprattutto quanti numeri c'erano...

veramente non ho capito .. grazie a tuti per i complimenti

Option Explicit Class clsQuantita Private mValue Private mQuantita Public Property Let Value(v) mValue = v End Property Public Property Get Value Value = mValue End Property Public Property Let Quantita(v) mQuantita = v End Property...

Option Explicit Class clsQuantita Private mValue Private mQuantita Public Property Let Value(v) mValue = v End Property Public Property Get Value Value = mValue End Property Public Property Let Quantita(v) mQuantita = v End...

ho fatto delle modifiche ... Option Explicit Sub Main Dim r Dim aQPerCifra,aPercPerCifra,nQrit Dim nClasse,nSorte nClasse = ScegliEsito nSorte = ScegliEsito If nSorte <= nClasse Then For r = 1 To 12 If r = 11 Then r = 12 Call...

su richiesta di Silop -

vedi che ho fatto una piccola correzione qui aNumDaSvil = Array ( 0,1,2,3,4,5,6, 7, 8, 9,10,12) avevo messo 11 al posto di 12 ciao ...

E' si vede come è chiaro ... un cristallo :) .... eccoti l'esempio ... Option Explicit Sub Main ' tutte le dim si fanno all'inizio !!! e non è la prima volta che te lo dico Dim aNumDaSvil Dim aRuoteq Dim sLunghetta Dim aNumeriLunghetta Dim k , j ReDim aRuote(4) Dim nSorte...

tu sei partito cosi ARUOTEQ1(4) ARUOTEQ1(1) = BA_ ARUOTEQ1(2) = CA_ ARUOTEQ1(3) = FI_ ARUOTEQ1(4) = GE_ Vorrei, se fosse possibile, dinamicizzare il valore 1 e le sigle delle ruote dopo l'= affinchè possa avere tutti i 330 casi possibili relativi alle 330 quartine di ruote unite che si formano...

ok quindi in quest oprimo pezzo diciamo che hai valorizzato l'array che avevi dichiarato con ARuote ( 330 ,4). Tutto questo che hai scrittosopra essendo solo 33 0 le combinazioni si puo ottenere in questo altro modo Dim aNumDaSvil Dim aRuote aNumDaSvil = Array ( 0,1,2,3,4,5,6, 7, 8...

mbe ? lo hai levaot sto ciclo sul contatore ? a parte che avevi gia la variabile i ....

il contatore si deve incrementare ad ogni nuova colonna di 1 che c'entra fare il ciclo ?

quasi ARUOTEQ(contatore ,k) = anum ( k) o no ?

comunque mi pare ci fosse una funzione che sviluppava le combinazioni in memoria e alimentava proprio un array della forma che serve a te. Questo ti eviterebbe la parte precedente ...