Per dirla alla "Austin Powers" sarebbe...

[i legend]

Ciao tom
Qui chiedo a luigi
Dato che la vogliamo in output
Potremmo dichiarare
Private nUpper
Cosi lo calcoliamo solo nella function
E lo passiamo alla property .
Sarebbe sbagliato?

 

[LuigiB]

Ciao Legend , se il bios lo consentiva si poteva installare da usb ..un sistema si trovava al limite ti dovevi solo ricomprare a 20 euro un lettore cd/dvd a 40 addirittura un masterizzatore ... .. piutosto non dirmi che ti metti vista .. problemi con uac che io sappia stavano solo li ...

 

[LuigiB]

Ciao tom
Qui chiedo a luigi
Dato che la vogliamo in output
Potremmo dichiarare
Private nUpper
Cosi lo calcoliamo solo nella function
E lo passiamo alla property .
Sarebbe sbagliato?

devi semplicemente fare una proprietà che rerstituisca ubound (aIncrRitardi) .. nUpper era una variabile locale usata nella sub .. per uno alle prime armi che cerca proprio quel valore per fare la sua modifica a costo 0 fa gola .. pensa " ah ecco qui quello che m iserviva mo lo uso" .. devi fare come ti ho detto..
devi cercare di mantenere una certa solidità del codice ...

 

[LuigiB]

invece per risolvere il problema proposto da silop va usata la funzione

NumVirtToNumReale

spiegata nell'help

 

[i legend]

Ecco la prima ipotesi era quella buona
Grazie mille luigi
Ricordi che ho detto che tanti anni fa avevo gli addominali? Ecco non ci sono più perché non è solo la modifica a costo zero che mi fa gola


Allora per tom
Public property get qIncr
qIncr = ubound ( array ritardi)
End property
Ora non mi ricordo come abbiamo chiamato l array degli incrementi.
Poi fai come nel post sopra e lo passi nelle sub
Fammi sapere
Ciao a tutti

 

[lotto_tom75]

Ciao ragazzi...
Forse potevi risparmiare anche quelle 35 euro se facevi il ripristino configurazione sistema i legend come ti avevo suggerito. Ad ogni modo ti è andata abbastanza bene per il prezzo.

Tornando a noi ho provato la tua ultima chicca (e anche la soluzione per stampare il valore che mi serviva, che funziona anche quella alla grande! GRAZIE) e mi da solo un errore in fase iniziale, dopo il quale fa tutto in modo esemplare.

Ti riporto l'img dell'errore se puoi indicarmi come provare a toglierlo




e appena ti torna il pc "rinato.." come ti ho già scritto pochi post addietro sarebbe ultra scopadelicissimo riuscire ad aggiungere tra le opzioni dello sviluppo casuale una piccola.. tabellina.. colorata... di quelle che ci piacciono tanto... per poter importare anche lì il gruppo di numeri voluto... che altrimenti nello sviluppo integrale (dove c'è già per altro la tabella) sarebbe impossibile gestire per classi superiori alla 6ina...

Ti riporto l'immagine della sezione possibilmente da upgradare... in tal senso...




... con la tabellina colorata di questo tipo ...




Augurando al tuo pc in the hospital... una prontissima guarigione e di tornare più forte di prima... facendoti dimenticare... il tuo smartphone per quanto riguarda le tue fantastiche programmazioni "mobili..."

Salutissimi e grazie ancora i legend di nick e di fatto!

 

[LuigiB]

ahah goloso lo sono pure io ... non me ne parlare

 

[lotto_tom75]

Mi associo... alle boccucce fameliche...
Per Luigi: ma sei contro gli smiles? ... che metti sempre la faccina "fai da te "

 

[LuigiB]

eh sono un tipo sobrio e all'antica ahahah

 

[i legend]

HuCh! Anche io sono un tipo huch sob...huch sobrio

 

[i legend]

Tom non so perché Quell errore .
Per lo sviluppo casuale dei numeri scelti non saprei .
Se utilizzarsi mo le stringhe dei sistemi a riduzione?
Anziché utilizzare i file .txt utilizziamo i .col
Sviluppi i sistemi integrali o ridotti.
Compromesso anche per chi non sa sviluppare formazioni in txt
Fammi sapere se l idea può essere di tuo gradimento
Anche tu un golosone?
A dopo

 

[LuigiB]

legend .. per lo sviluppo casuale dei numeri è semplicissimo ... certo non lo è se non hai il pc sotto mano e non puoi consultare l'help e i parametri della funzione che ottiene la colonna casuale.

quella funzione riceve anche un array con i nymeri da usare , tale array si alimenta con sceglinumeri ..

 

[LuigiB]

se vuoi imparare legend il cellulare lo devi usare per telefonare ... e il pc per programmare fidati

 

[LuigiB]

l'errore di tom è al 90% nella funzione che passa gli elementi alla lista di selezione del filtro .. cancellatela e riscrivetela daccapo un parametro alal volta iniziando con quella funzionante

 

[i legend]

Certo che voglio imparare .
Cell per chiamare e postare i saluti
Spaziometria per programmare

Appena ho il PC ti disturbo e ti chiedo consiglio per
Installare spaziometria.


Grazie mille

X tom
Puoi postare la funzione isCondizioneRispettata
Che vediamo dove può essere l errore?
Poi appena posso vedo di implementare anche la parte che chiedevi, con Sceglinumeri, se è facile come dice luigi.
In effetti non avevo mai utilizzato quella funzione.

A dopo.

 

[lotto_tom75]

Certo che voglio imparare .
Cell per chiamare e postare i saluti
Spaziometria per programmare

Appena ho il PC ti disturbo e ti chiedo consiglio per
Installare spaziometria.


Grazie mille

X tom
Puoi postare la funzione isCondizioneRispettata
Che vediamo dove può essere l errore?
Poi appena posso vedo di implementare anche la parte che chiedevi, con Sceglinumeri, se è facile come dice luigi.
In effetti non avevo mai utilizzato quella funzione.

A dopo.

Certo i legend

Function IsCondizioneRispettata
Dim nUpper,Ris
nUpper = UBound(aElencoIncrRitMax)

mIncrRitardoMaxSto = MassimoV(aElencoIncrRitMax,0,nUpper - 1)
' condizioni di filtro:
'1)Ultimo ritardo >0
'2)IncrRitMax e nell ultima estrazione esaminata
'3) Vengono considerate solo le formazioni che hanno avuto almeno sei incrementi del rit max sto
If aElencoRit(UBound(aElencoRit)) > 0 And aIdEstrIncrRitMax(nUpper) = mFine And nUpper >= mQIncrRitMax Then
Select Case mFiltro
Case 0
' incremento massimo storico è uguale all incremento Massimo corrente
Ris =(mIncrRitardoMaxSto = aElencoIncrRitMax(nUpper))
Case 1
Ris =(mIncrRitardoMaxSto <= aElencoIncrRitMax(nUpper))
Case 2
Ris =(mIncrRitardoMaxSto >= aElencoIncrRitMax(nUpper))
End Select
IsCondizioneRispettata = Ris'
Else
IsCondizioneRispettata = False
End If
End Function

Si sono una buona forchetta... anche io i legend anche se a vedermi (almeno per adesso...) non si direbbe...

 

[i legend]

Ciao tom la funzione non è come vuole luigi o meglio come dovrebbe essere scritta correttamente ma l errore non credo sia qui.Se prima filava tutto liscio riporta l ultimo codice che hai scritto.
Ossia la property
E dove hai inserito la riga nella sub.
Forse è troppo ma valutiamo tutto
A domani

Domanda per luigi che esula da questo.

Tu che ci lavori a parte le interfacce grafiche dei film
Secondo te qual è il software esteticamente più bello? Se si può dire ovviamente

A domani

 

[lotto_tom75]

Ciao tom la funzione non è come vuole luigi o meglio come dovrebbe essere scritta correttamente ma l errore non credo sia qui.Se prima filava tutto liscio riporta l ultimo codice che hai scritto.
Ossia la property
E dove hai inserito la riga nella sub.
Forse è troppo ma valutiamo tutto
A domani

Domanda per luigi che esula da questo.

Tu che ci lavori a parte le interfacce grafiche dei film
Secondo te qual è il software esteticamente più bello? Se si può dire ovviamente

A domani

Buongiorno legend

Dunque... ho provato a ricercare quanto hai richiesto ma non la trovo..

Nel messaggio di errore comunque si riporta un 380 forse la riga relativa?

Se si... come si attiva la numerazione delle righe? Non trovo nemmeno quello oggi...

 

[i legend]

Ciao tom prova a postare la parte del For Each clsL
Dove hai modificato.

E la funzione id filtro.
Se non è qui non saprei
Non vedo l ora di riavere il PC e spaziometria

 

[lotto_tom75]

Ciao tom prova a postare la parte del For Each clsL
Dove hai modificato.

E la funzione id filtro.
Se non è qui non saprei
Non vedo l ora di riavere il PC e spaziometria

Ciao legend io te le posto ma non credo sia lì l'errore perchè mi pare di non averci messo mano in quelle

for each

For Each clsL In collLunghette
Call Scrivi("Formazione     : " & clsL.LunghettaString)
Call Scrivi("Ritardo        : " & clsL.Ritardo)
Call Scrivi("RitMax         : " & clsL.RitardoMax)
Call Scrivi("Freq           : " & clsL.Frequenza)
Call Scrivi("IncrRitMx      : " & clsL.IncrRitMax)
Call Scrivi(" IncrRitMaxSto : " & clsL.IncrRitMaxSto)
Call Scrivi(" s incrementi  : " & clsL.strIncRitMaxSto)
Call clsL.DisegnaGraficoIncrRitMax
Next

e

get idfiltro

Filtroe = GetidFiltro
qIncrRitMax = Int(InputBox("SelezionaQuantitaMinimaIncrementi","",6))
If(Fine > Inizio) And UBound(aRuote) > 0 And Sorte > 0 Then
Call Scrivi("Archivio : " & Iif(sFile <> "",sFile,"Archivio lotto"))
Select Case ScegliTipoSviluppo
Case 1
Call AnalisiLunghetteFromFileTxt(Inizio,Fine,aRuote,Sorte,Filtro,qIncrRitMax)
Case 2
Call AnalisiLunghetteFromNumeriCasuali(Inizio,Fine,aRuote,Sorte,Filtro,qIncrRitMax)
Case 3
Call AnalisiLunghetteFromSceglinumeri(Inizio,Fine,aRuote,Sorte,Filtro,qIncrRitMax)
End Select
End If

Ti ricordi come si attiva la numerazione delle righe nella sezione script di spaziometria?

1
2
3
4
5
ecc...

in modo da poter cercare facilmente la riga 380 menzionata nel popup di errore... TNX!