roy
Super Member >PLATINUM<
perchè lo script non dà risultati giusti?
e se possibile mettere in gioco i numeri super frequenti....
o appena rintracciata una condizione di un numero precisato di frequenti in un x ciclo metterli in gioco grazie
CIAO
e se possibile mettere in gioco i numeri super frequenti....
o appena rintracciata una condizione di un numero precisato di frequenti in un x ciclo metterli in gioco grazie
Codice:
Sub Main()
Dim nu(1),ru(1)
ru(1) = InputBox("qual'è la ruota","ruota di verifica",12)
ini = InputBox("da quale estrazione","da quale estrazione",8940)
fin = EstrazioneFin
ColoreTesto 2
Scrivi "Verifica sulla ruota di " & NomeRuota(ru(1)),1
Scrivi "Periodo verifica : " &(fin - ini) + 1 & " estrazioni",1
Scrivi "Da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1),1
ColoreTesto 1:Scrivi
Scrivi " Numeri Ripetizioni ",1
ColoreTesto 0
For x = 1 To 90
nu(1) = x
rp = SerieFreq(ini,fin,nu,ru,1) - 1
If rp > 1 Then
Scrivi Space(9) & Format2(x) & Space(15) & rp,1
End If : Next : End Sub
CIAO
Ultima modifica: