CODICE
Option Explicit
Sub Main
Dim idEstr,Ruota
Dim Inizio,Fine
Dim nClasseFrz
Dim id,k
Dim nElemFrz
Dim nQAmbetti
Dim nEstrTot
Dim nFrqMedia
Dim sNomeFrz
Inizio = EstrazioneIni
Fine = EstrazioneFin
Ruota = ScegliRuota
nEstrTot =(Fine + 1) - Inizio
ReDim aElemFormazione(0)
Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
nElemFrz = UBound(aElemFormazione)
ReDim aValStat(nElemFrz,4)
' indice 0 il ritardo
' 1 freq
' 2 ritmax
' 3 incr rit max
' 4 presenze
If Ruota > 0 And nClasseFrz > 1 Then
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
For idEstr = Inizio To Fine
' inserire qui il codice che analizza l'estrazione corrente
nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)
If nQAmbetti > 0 Then
aValStat(id,0) = 0
aValStat(id,1) = aValStat(id,1) + nQAmbetti
aValStat(id,3) = 0
aValStat(id,4) = aValStat(id,4) + 1
Else
aValStat(id,0) = aValStat(id,0) + 1
If aValStat(id,0) > aValStat(id,2) Then
aValStat(id,2) = aValStat(id,0)
aValStat(id,3) = aValStat(id,3) + 1
End If
End If
If ScriptInterrotto Then Exit For
Next
Call AvanzamentoElab(1,nElemFrz,id)
If ScriptInterrotto Then Exit For
Next
Dim aV
aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
Call InitTabella(aV,2,,3,5)
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
aV(1) = StringaNumeri(aNumInGioco)
aV(2) = aValStat(id,0)
aV(3) = aValStat(id,1)
aV(4) = aValStat(id,2)
aV(5) = aValStat(id,3)
aV(6) = aValStat(id,4)
nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
Call AddRigaTabella(aV)
Next
Call Scrivi("Statistica_Ambetto",1,1,2,4,3)
Call Scrivi("Analisi su formazione : " & sNomeFrz)
Call Scrivi("Sulla ruota : " & NomeRuota(Ruota))
Call Scrivi("Da : " & GetInfoEstrazione(Inizio))
Call Scrivi("A : " & GetInfoEstrazione(Fine))
Call Scrivi("Totali range : " & nEstrTot)
Call Scrivi
Call CreaTabella(2)
End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
Dim k
ReDim aNumInGioco(nClasseFrz)
For k = 1 To nClasseFrz
aNumInGioco(k) = aElemFormazione(id,k)
Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
Dim s
Dim n
Dim id
ReDim aNomiForm(0)
Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
nClasseFrz = GetClasseFormazione(aNomiForm(id))
sNome = aNomiForm(id)
End If
End Sub
