Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
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à...
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...
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...
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...
Considerando che il software è stato scritto in vb.net e comprendendo che molti di voi non hanno dimestichezza (se non assoluta ignoranza) del linguaggio, procederò con uno script in spaziometria in modo tale da parlare "la stessa lingua".
Visto l'interessamento al riguardo (ho ricevuto 43 email e non scherzo) procedo con la spiegazione. Dobbiamo iniziare con una semplice domanda.
Che cosa da vita al ritardo di una lunghetta?
Badate bene, ho parlato di lunghetta e non di estratto,ambo, terno ecc...
Sappiamo perfettamente che...
Per completezza e come mi e ci ha insegnato Luigib, più in là pubblicherò una spiegazione sul metodo utilizzato. Magari qualcuno tira fuori dal cappello qualcosa di migliore oppure un'ottimizzazione del codice preesistente 😃