aiuto x script

[genios]

Avrei bisogno di uno script che dal 1945 ad oggi mi dica quante volte la decina naturale 81-82-83-84-85-86-87-88-89-90 abbia superato le 54 estrazioni ?

Ciao Eugenio

 

[genios]

Avrei bisogno di uno script che dal 1945 ad oggi mi dica quante volte la decina naturale 81-82-83-84-85-86-87-88-89-90 abbia superato le 54 estrazioni ?

Ciao Eugenio

E' forse troppo complicato ?

 

[genios]

Nessuno disponibile ?

 

[genios]

GRAzie perfetto .

Ciao Eugenio

 

[genios]

Scusami se disturbo ancora disaronno si potrebbe fare per singola ruota ?

Ciao Eugenio

 

[salvo50]

Ciao a Tutti!

Chiedo scusa a Disaronno mi sono permesso di modificare questo script per soddisfare l'ultima richiesta di Genios, comunque se la cosa ti dà fastidio dimmelo che lo tolgo

Option Explicit
Sub Main()
Scrivi " aiuto x script  di genios ",1' - http://forum.lottoced.com/f12/aiuto-x-script-118773/ -
Dim dec,rit,fin,Ini,es,r,b,a,k
Dim ru(10),nu(10),sorte
dec = CInt(InputBox("Quale decina vuoi analizzare?",,8))
rit = CInt(InputBox("Quale ritardo vuoi analizzare?",,54))
r = CInt(InputBox("Scegli ruota",,10))

sorte = ScegliSorte
nu(01) = dec & 01
nu(02) = nu(01) + 1
nu(03) = nu(02) + 1
nu(04) = nu(03) + 1
nu(05) = nu(04) + 1
nu(06) = nu(05) + 1
nu(07) = nu(06) + 1
nu(08) = nu(07) + 1
nu(09) = nu(08) + 1
nu(10) = nu(09) + 1
fin = EstrazioneFin
Ini = 3862 ' qui cambia il valore se vuoi variare il periodo di ricerca
a = 00
k = 00
Scrivi "Statistica Cronologia ritardi decina " & Format2(dec & 00) & " [ " & StringaNumeri(nu,"-",True) & " ]",1
Scrivi
Scrivi "Statistica dall' estrazione " & GetInfoEstrazione(Ini) & " all' estrazione " & GetInfoEstrazione(fin),1
Scrivi
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
ru(1) = r
b = a
a = SerieRitardoTurbo(Ini,es,nu,ru,sorte)
If b > a And b > rit Then k = k + 01:Scrivi FormattaStringa(k,"000") & "  " & DataEstrazione(es - 1) & "  " & SiglaRuota(r) & "  Rit.: " & FormatSpace(b,3)
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "La Decina " & Format2(dec & 00) & " ha superato il Ritardo di " & Format2(rit) & " estrazioni per la sorte " & NomeSorte(sorte) & " : " & Format2(k) & " volte su tutte le ruote",3,3,3
End Sub
Function ScegliSorte()
ReDim aVoci(04)
aVoci(00) = "Punti (01)"
aVoci(01) = "Punti (02)"
aVoci(02) = "Punti (03)"
aVoci(03) = "Punti (04)"
aVoci(04) = "Punti (05)"
ScegliSorte = ScegliOpzioneMenu(aVoci,01,"Secegli tipo combinazione") + 01
End Function

 

[genios]

Grazie a tutti e due ( salvo50 e disaronno ) mi spiegate se avete voglia e tempo la funzione Sceglisorte . Per quale motivo si trova fuori dal programma principale ? Ciao Eugenio


Function ScegliSorte()
ReDim aVoci(04)
aVoci(00) = "Punti (01)"
aVoci(01) = "Punti (02)"
aVoci(02) = "Punti (03)"
aVoci(03) = "Punti (04)"
aVoci(04) = "Punti (05)"
ScegliSorte = ScegliOpzioneMenu(aVoci,01,"Secegli tipo combinazione") + 01
End Function