primo step programmatori

[joe]

Un esempio:

Tu hai elencato dei calcoli estraendo "semi-consecutivamente"

le terzine (123 234 345 ...)

Gli ultimi script le estraggono con un ordine "più combinatorio"

(123 124 125 ... ) pur sempre in terzine.

Se non si sa quelle delle 2 differenti è ... la cosa voluta ...

come si fa a capire se si sta facendo bene o meno ?

 

[i legend]

Ciao joe condivido quanto dici.
Non amo gli script a puntata perché personalmente ho bisogno di un filo logico da approntare per gestire uno script.
Diversamente per non rifare ogni volta tutto cerchi di adattare quello già fatto. Puoi immaginare cosa ne viene fuori.
Ciao a tutti
Eugenio spero tu capisca dall esempio che ti ho riscritto dove era l errore.
In un ciclo nidificatp non si possono chiamare due variabili con lo stesso nome. Almeno in spaziometria, in altri linguaggi non saprei

 

[genios]

joe scrive :

Un esempio:

Tu hai elencato dei calcoli estraendo "semi-consecutivamente"

le terzine (123 234 345 ...)

Gli ultimi script le estraggono con un ordine "più combinatorio"

(123 124 125 ... ) pur sempre in terzine.

Se non si sa quelle delle 2 differenti è ... la cosa voluta ...

come si fa a capire se si sta facendo bene o meno ?

Joe ha ragione dovrei come cita lo stesso fare dei calcoli "semi-consecutivamente" e non calcoli combinatori quindi ilegend i tuoi cicli funzionano benissimo ma non sono le terzine che vorrei considerare . Occorre quindi altra soluzione .

ciao Eugenio

 

[genios]

ho ragionato un po dovrebbe essere cosi :

Sub Main
   Dim aN(1)
   aN(1) = 1
   ReDim aRit(0),aIdEstr(0)
   Dim aR(1)
   aR(1) = 1
   Dim ini,fin
   ini = EstrazioneFin - 499
   fin = EstrazioneFin
   Call ElencoRitardiTurbo(aN,aR,1,ini,fin,aRit,aIdEstr) '( QUI METTI i PARAMETRI)
   'non ricordo l ordine
   For i = 1 To UBound(aRit) - 3
      j = i + 1
        x = j + 1
            Scrivi aRit(i)& " " &aRit(j)& " " &aRit(x) & " " & aRit(i)+aRit(j)+aRit(x)
         Next '×
    End Sub

 

[i legend]

Conviene mettere un segno tra i ritardi e la loro somma.
aRit(i)&";"&aRit(j)&";"&aRit(x)&"="& aRit(i)+aRit(j)+aRit(x)
Per un output ti converrebbe usare firmatspace( var,3,1)
Ciao

 

[i legend]

Scusate ma scrivere da cellulare è difficile, farlo con un crash continuo
È snervante.

 

[genios]

ilegend ok miglioro la formattazione in out .

Grazie dell' aiuto e degli insegnamenti .

ciao Eugenio

 

[claudio8]

Si fa con unico ciclo for next
e lo scrivo in italiano:
For i = 1 to ubond (nome matrice) - 2
Scrivi elemento (i) & elemento (i+1) ed elemento (i+2)
Next
Ciao genios

 

[joe]

Ha ragione Claudio,

è sempre meglio ridurre il più possibile il numero di cicli,

di variabili utilizzate e di calcoli.

 

[genios]

Grazie anche a te Claudio8 anche la tua versione funziona a meraviglia.

 

[claudio8]

Genios, devi leggere attentamente quanto ha scritto Joe senza nulla togliere nessun altro.
Tutte le strade portano a Roma...... ma ...

Scherzo ... saluti a tutti.

 

[genios]

Quali sono le differenze tra il dichiarare una variabile con Dim o con Redim e loro uso.

 

[claudio8]

Dim ha dimensione fissa
ReDim ha dimensione variabile:
Leggi questo post e potrai arrivare alla spiegazione dettagliata della tua domanda.

Come impostare in un array x una elaborazione di tipo random dei valori fissi?

Come riportato nell'esempio sottostante vorrei che l'elaborazione di tipo random sottostante mi elaborasse un array numerico con 5 valori fissi sempre uguali e i restanti scelti da tabella "colorata". QuantitaNumeriScelti = ScegliNumeri(Av) aFissi = Array(0,Av(1),Av(2),Av(3),Av(4),Av(5))...

forum.lottoced.com