R
Roby
Guest
questo script può essere molto utile e permette di fare delle ricerche su una combinazione a scelta
anche di una ventina di numeri, di conoscere quanti volte ja conseguito il punteggio richiesto.
può sopperire abbastanza bene la tua richiesta.
provalo e fammi sapere
anche di una ventina di numeri, di conoscere quanti volte ja conseguito il punteggio richiesto.
può sopperire abbastanza bene la tua richiesta.
provalo e fammi sapere
Codice:
Option Explicit
Sub Main
Dim y,j,colonne,Classe,scolonna,ct,fine,dal,al
Dim RetRit,RitardoMax,RetIncrRitMax,Frequenza,s,Ord
Dim nm(20),nr(10)
Call ImpostaArchivio10ELotto(1)
Do While Classe = ""
Classe = InputBox("Sviluppo classe 2,3,4,5,6,7,8,9,10 (classe max 10)",,"6")
If Classe = 0 Or Classe > 10 Then
MsgBox("Classe valide da 2 a 10, ripetere ")
Classe = ""
Else
Exit Do
End If
Loop
s = CInt(InputBox("Sorte 1,2,3,4,5,6,7,8",,3))
al = InputBox("Statistica all'estrazione n.",,EstrazioneFin)
dal = 8096 : Ord = 5
ScegliNumeri(nm)
ColoreTesto(1)
Scrivi " Situazione della combinazione " & StringaNumeri(nm,"."),1
Scrivi " All'estrazione n. del " & al & "/" & DataEstrazione(al),1
Scrivi " Sviluppata in classe " & Classe & " per la sorte..." & s,1
Scrivi "------------------------------------------------------------------------------------------------",1
ColoreTesto(0)
ReDim atit(5)
ReDim aval(5)
' preimposto i titoli delle colonne
atit(1) = " PR. "
atit(2) = " Nr.Comb."
atit(3) = " RitAtt"
atit(4) = " RitMAX"
atit(5) = " Freq"
' ' inizializzo la tabella
Call InitTabella(atit,2,"center",1.45,5,"Cambria")
colonne = SviluppoIntegrale(nm,Classe)
For y = 1 To UBound(colonne)
scolonna = ""
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),y)
For j = 1 To Classe
scolonna = scolonna & Format2(colonne(y,j)) & " "
nr(j) = colonne(y,j)
Next
Call StatisticaFormazioneDL(nr,s,RetRit,RitardoMax,RetIncrRitMax,Frequenza,dal,al)
If Frequenza > 1 Then
ct = ct + 1
aval(1) = ct
aval(2) = scolonna
aval(3) = RetRit
aval(4) = RitardoMax
aval(5) = Frequenza
Call AddRigaTabella(aval,Bianco_,"center",1)
End If
Next
CreaTabella(Ord)
End Sub