Risultati della ricerca

Ecco il codice completo : Option Explicit Class clsLunghetta Private mSNumeri Private mRitardo Public Property Let sNumeri(Value) mSNumeri = Value End Property Public Property Get sNumeri() sNumeri = mSNumeri End Property Public Property Let Ritardo(Value)...

Manca un ultima cosa. Scrivere a video i risultati. Lo facciamo semplicemente in questo modo (non chiedetemi la spiegazione di questo codice fin troppo banale) For y = 1 To QuantitaLunghette Call Scrivi("Formazione : " & Lunghette(y).sNumeri & " " & "Ritardo : " & Lunghette(y).ritardo...

Arriviamo a questo punto Option Explicit Class clsLunghetta Private mSNumeri Private mRitardo Public Property Let sNumeri(Value) mSNumeri = Value End Property Public Property Get sNumeri() sNumeri = mSNumeri End Property Public Property Let Ritardo(Value)...

Cosa succede quando arriviamo all'ultimo controllo? If Ritardo5 > RitardoMinimo Then End if Qui proverò a spiegare nel miglior modo possibile ma purtroppo il concetto è molto contorto. Scorro tramite un ciclo for da 1 alla quantità di lunghette Se il ritardo del 5 numero è maggiore del...

Impostiamo per ogni valore (da 1 a 5) della variabile "Lunghetta" (Non confondetelo con l'array Lunghette di classi lunghette) il valore assunto dalle variabili n1,n2,n3,n4,n5. For n1 = 1 To 86 Lunghetta(1) = n1 For n2 = n1 + 1 To 87 Lunghetta(2) = n2 For n3 = n2 + 1 To 88...

Una volta fatto ciò imposteremo il valore del RitardoMinimo Supponiamo di aver impostato QuantitaLunghette pari a 50 il RitardoMinimo sarà uguale al valore di ritardo posto al 50 "posto" dell'array. RitardoMinimo = Lunghette(QuantitaLunghette).ritardo Il primo numero della lunghetta sarà...

Grazie mille :D

Da questo momento so che si scatenerà il disastro. Prima di procedere con il resto dello script farò una premessa per evitare inutili discussioni. Essere un buon programmatore e fare un buon programma implica diverse cose, ma soprattutto una: Evitare come la peste i cicli For nidificati...

Lo script inizia a prendere forma e diventa cosi : Option Explicit Class clsLunghetta Private mSNumeri Private mRitardo Public Property Let sNumeri(Value) mSNumeri = Value End Property Public Property Get sNumeri() sNumeri = mSNumeri End Property Public Property...

questa parte di codice so che provocherà un attacco di panico ad alcuni : For i = 1 To QuantitaLunghette Set Lunghette(i) = New clsLunghetta Next In ImpostaParametri noi passiamo l'array Lunghette. L'array lunghette deve essere un array di "Classi Lunghette" quindi una volta...

Quindi arriviamo a questo punto : Option Explicit Class clsLunghetta Private mSNumeri Private mRitardo Public Property Let sNumeri(Value) mSNumeri = Value End Property Public Property Get sNumeri() sNumeri = mSNumeri End Property Public Property Let...

Bene possiamo ritornare alla programmazione pura. Siamo arrivati a questo punto Class clsLunghetta Private mSNumeri Private mRitardo Public Property Let sNumeri(Value) mSNumeri = Value End Property Public Property Get sNumeri() sNumeri = mSNumeri End...

Bene continuiamo con il lato "programmazione".

Assolutamente si! Falsata al 100% senza ombra di dubbio. Sono abbastanza pazzo ma non fino al punto di dire una ca**zat* del genere ahahaahaha.

Aaaaah ma tu parli in ottica globale!!! Ora ho capito e ti chiedo scusa ho frainteso. Certo che hai ragione! Ma non centra nulla con quello che sto dicendo io! io intendo il ritardo minimo tra tutti gli ambi presenti nella lunghetta e non a livello globale di tutti gli ambi esistenti! qual è...

Ci mancherebbe Nikor il tuo è un commento più che apprezzato. D'altro canto sto navigando nelle "tue acque" ed è anche giusto che come capitano dica la tua. Ma io ho un piccolo vizio. Ciò che dico è sempre comprovato dai fatti. Il ritardo che assume la lunghetta è il ritardo  minimo tra...

Seconda parte della spiegazione terminata. A presto per il continuo.

Come calcoliamo il ritardo degli estratti? Attraverso la pappa già pronta di LuigiB è un gioco da ragazzi. nColonneTot = InitSviluppoIntegrale(aNumeri,1) ' ciclo che continua fiono a quando le colonne non finiscono Do While GetCombSviluppo(aCol) Call RitardoCombinazione...Ecc...

Entriamo nel vivo della programmazione. Ci sono molteplici modi per giungere al risultato, ma io ho deciso di utilizzare una via mediana (ne troppo semplice, ne troppo complessa) in modo tale da ripassare anche alcuni concetti "avanzati". Proviamo a scrivere il codice per ricercare le lunghette...

Continuerò domani tempo permettendo 💪