Agli esperti di listati se possibile

[solare]

Ciao, chiedo cortesemente la realizzazione di questo listato, se fattibile.
Inserisco la ruota, il numero interessato.
Il listato dovra' visualizzare gli ultimi 27 volte che è sortito il numero con relativo ritardo
nonchè il ritardo attuale,minimo, massimo e la media di sortita che ha mantenuto nelle 27 volte che è sortito.
Spero di essermi spiegato bene.
Grazie in anticipo

 

[joe]

Solare, quando leggo: "Se è possibile" la voglia di dare risposta si dimezza.

Si fa con pochissime estrazioni.

Scegliendo Ruota e Numero con If Posizione (numero, ruota, estrazione)>0 / si conta fino a X = 27

ed intanto si elaborano statistiche.

Devi considerare che il primo ritardo si completa otre le 27 sortite e spesso l'ultimo non è completo.

Dunque 27 è un numero che non corrispondente a 27 ritardi (veri).

In sintesi potrebbe essere qualcosa di simile (e da sistemare meglio)

Option Explicit
Sub Main
   Dim Es,R,N,X,Rit,Q 
Dim M,A,B
   R = CInt( InputBox ("Esempio: 1 = Bari" ,"SCEGLI LA RUOTA",1))
   N = CInt( InputBox ("Quale Numero ?" ,"SCEGLI IL NUMERO",1))
   Q = CInt( InputBox ("Presenze in elenco ?" ,"SCEGLI LA QUANTITA'",27))
   Es = EstrazioneFin
   B = Es
   Scrivi "Ultime " &  Q & " Estrazioni del N° " & N & " nella Ruota di " & NomeRuota (R)& Chr (13),1  
   Do While X < Q
      Rit = Rit + 1
      If Posizione(Es,R,N) > 0 Then
         X = X + 1
         Scrivi FormatSpace(X,3) & FormatSpace(Es,6) & StringaEstratti(Es,R) & " Rit" & FormatSpace(Rit,4,1)
         If Rit < B Then B = Rit
         If Rit > A Then A = Rit
         Rit = 0
      End If
      Es = Es - 1
   Loop
   Scrivi
   Scrivi "Estr.neces. " & EstrazioneFin - Es + 1
   Scrivi "Massimo Rit " & A
   Scrivi "Minimo  Rit " & B
   Scrivi "Media   Rit " & Round ((EstrazioneFin - Es + 1)/Q,1)
End Sub

 

[solare]

Solare, quando leggo: "Se è possibile" la voglia di dare risposta si dimezza. Si fa con pochissime estrazioni. Scegliendo Ruota e Numero con If Posizione (numero, ruota, estrazione)>0 / si conta fino a X = 27 ed intanto si elaborano statistiche. Devi considerare che il primo ritardo si completa otre le 27 sortite e spesso l'ultimo non è completo. Dunque 27 è un numero che non corrispondente a 27 ritardi (veri). In sintesi potrebbe essere qualcosa di simile (e da sistemare meglio)

 Option Explicit Sub Main Dim Es,R,N,X,Rit,Q Dim M,A,B R = BA_ N = 1 Q = 27 Es = EstrazioneFin B = Es Do While X < Q Rit = Rit + 1 If Posizione(Es,R,N) > 0 Then X = X + 1 Scrivi FormatSpace(X,3) & FormatSpace(Es,6) & StringaEstratti(Es,R) & " Rit" & FormatSpace(Rit,4,1) If Rit < B Then B = Rit If Rit > A Then A = Rit Rit = 0 End If Es = Es - 1 Loop Scrivi Scrivi "Estr.neces. " & EstrazioneFin - Es + 1 Scrivi "Massimo Rit " & A Scrivi "Minimo Rit " & B Scrivi "Media Rit " & Round ((EstrazioneFin - Es + 1)/Q,1) End Sub

Grazie Joe, però non ho la possibilità di inserire la ruota ed il numero che voglio io.
scusami, ho visto adesso che bisogna agire sul listato.

 

[joe]

Ciao Solare,

Ho modificato lo script, aggiungendo gli inputbox per le 3 possibilità di scelta:

Numero / Ruota / Volte.

 

[Sakti]

Ottimo lavoro Joe grandeee

 

[silop2005]

Joe vedi la posta
Silop

 

[solare]

Ciao Solare,

Ho modificato lo script, aggiungendo gli inputbox per le 3 possibilità di scelta:

Numero / Ruota / Volte.

Grazie infinite Joe, sempre gentile