Somma ritardi numero 90

[genios]

Avrei bisogno di uno script che mi calcoli la somma dei ritardi del numero 90 sulla ruota di bari in 500 estrazioni partendo dall' estrazione iniziale 9001.
Quindi somma ritardi del n. 90 ruota Ba dall' estrazione 9001 alla 9500 .

GRAZIE Eugenio

 

[C-64]

Ciao,
Pensavo di trovare pubblicato un tuo primo progetto...

 

[genios]

Sto studiando visual studio 2022 . Ma sono ancora lontano .

 

[genios]

Sto studiando l' interfaccia grafica . In pratica sto a ciao Mondo .

 

[joe]

Escluso il primo ritardo forse incompleto e l'ultimo ritardo forse incompleto ...

la somma dei ritardi è 500 (meno i ritardi incompleti che essendo incompleti non sono determinabili o indeterminati o terminati).

Quelli di qualsiasi altro numero Idem.

Cioè che sia "500" la somma dei ritardi ... lo hai deciso tu.

 

[i legend]

Ritardi in 500 estrazioni
Con ElencoRitardiTurbo imposti i parametri che vuoi e hai i ritardi .
Con un ciclo li sommi .
Ciao.

 

[C-64]

Sto studiando l' interfaccia grafica . In pratica sto a ciao Mondo .

L'importante è che non hai abbandonato, qualsiasi sia il linguaggio che ti interessa.

 

[genios]

Escluso il primo ritardo forse incompleto e l'ultimo ritardo forse incompleto ...

la somma dei ritardi è 500 (meno i ritardi incompleti che essendo incompleti non sono determinabili o indeterminati o terminati).

Quelli di qualsiasi altro numero Idem.

Cioè che sia "500" la somma dei ritardi ... lo hai deciso tu.

 

[joe]

Option Explicit
Sub Main
   Dim N,R,Ini,Fin,Es,Rit,Tot
   N = 90 : R = BA_
   Ini = 9501 : Fin = 10000
   For Es = Ini To Fin
      If Posizione(Es,R,N) > 0 Then
         Rit = Es - Ini
         Tot = Tot + Rit
         Ini = Es
         Scrivi "+" & Rit,0,0
      End If
   Next
   Rit = Es - Ini
   Tot = Tot + Rit
   Scrivi " = " & Tot
End Sub

 

[genios]

Option Explicit
Sub Main
   Dim N,R,Ini,Fin,Es,Rit,Tot
   N = 90 : R = BA_
   Ini = 9501 : Fin = 10000
   For Es = Ini To Fin
      If Posizione(Es,R,N) > 0 Then
         Rit = Es - Ini
         Tot = Tot + Rit
         Ini = Es
         Scrivi "+" & Rit,0,0
      End If
   Next
   Rit = Es - Ini
   Tot = Tot + Rit
   Scrivi " = " & Tot
End Sub

bene qui i ritardi che coincidono con le estrazioni . E se volessimo contare le presenze del 90 sempre nell' arco dell' estrazioni 9501 a 10000 .

Ciao Eugenio

 

[joe]

bene qui i ritardi che coincidono con le estrazioni . E se volessimo contare le presenze del 90 sempre nell' arco dell' estrazioni 9501 a 10000 .

Ciao Eugenio

NO, Eugenio,

I ritardi non coincidono con le estrazioni.

2 Estrazioni consecutive sono i limiti del Ritardo.

I termini, iniziale e finale, del ritardo compreso tra essi.

Non è possibile che dopo anni ed anni di lotto e di esempi,

in uno script predisposto, non si riesca ad inserire la conta delle presenze!

Dim N,R,Ini,Fin,Es,Pres,Rit,Tot

If ... Then
Pres = Pres + 1
End If

Scrivi "Pres = " & Pres

 

[genios]

NO, Eugenio,

I ritardi non coincidono con le estrazioni.

2 Estrazioni consecutive sono i limiti del Ritardo.

I termini, iniziale e finale, del ritardo compreso tra essi.

Non è possibile che dopo anni ed anni di lotto e di esempi,

in uno script predisposto, non si riesca ad inserire la conta delle presenze!

Dim N,R,Ini,Fin,Es,Pres,Rit,Tot

If ... Then
Pres = Pres + 1
End If

Scrivi "Pres = " & Pres

Bene oltre la Funzione Posizione quale altra Funzione di spazio script si puo' usare ?

 

[joe]

Bene oltre la Funzione Posizione quale altra Funzione di spazio script si puo' usare ?

Come dicevo ...

Non è possibile che dopo anni ed anni di lotto e di esempi,

in uno script predisposto, non si riesca ad inserire la conta delle presenze!

 

[genios]

Come dicevo ...

Non è possibile che dopo anni ed anni di lotto e di esempi,

in uno script predisposto, non si riesca ad inserire la conta delle presenze!

Come scrivevo quello che è fuorviante è l' uso della funzione posizione anche se poi fa al caso in questione e comunque penso che sia stata sviluppata per far tutt' altra cosa .