Option Explicit
Sub Main
Dim estrazione
Dim Inizioverifica
Dim Inizioanalisi
Dim Fineanalisi
Dim rit,ritmax,Incmax,freq
Inizioanalisi = EstrazioneIni
Fineanalisi = EstrazioneFin
Dim ruota(1)
'ruota(1) = BA_
Dim sortediricerca
sortediricerca = 2
Dim estrazionidaverificare
estrazionidaverificare = CInt(InputBox("estrazioni da verificare",,2700))
Inizioverifica = Fineanalisi - estrazionidaverificare
'modulodiverifica---------------------------------------------------------------------
Dim colpidiverifica
Dim sortediverifica
Dim ruotadiverifica(1)
Dim colpodiuscita
Dim colpomassimo
Dim colpirimanenti
Dim casipositivi
Dim casinegativi
Dim casiattuali
Dim casitotali
Dim estrattiusciti
Dim esitoverifica
Dim estrazionediuscita
Dim colpirimanentiminimi
Dim ruotaconcolpirimanentiminimi
Dim formazioneconcrtmin
colpirimanentiminimi = EstrazioneFin
Dim esi
Dim ncolpo
'x salvataggio numero di colpi rispettivi
Dim qClp
Dim E
qClp = 2700 '18
ReDim aClp(qClp)
' carico la matrice
For E = 1 To 2700
aClp(E) = 0
Next
'----------------------------------------------
'ruotadiverifica(1) = BA_
sortediverifica = 2
colpidiverifica = estrazionidaverificare - 2
'-----------------------------------------------------------------------------------------
Dim ru
For ru = 1 To 10
ruota(1) = ru
ruotadiverifica(1) = ru
For estrazione = Inizioverifica To Fineanalisi
Call Messaggio(NomeRuota(ru) & " " & GetInfoEstrazione(estrazione) & " clpmax " & colpomassimo & " crtmin " & colpirimanentiminimi & " c+ " & casipositivi & " c- " & casinegativi & " ca " & casiattuali)
'Scrivi
'Scrivi "<font color=red>estrazione " & GetInfoEstrazione(estrazione) & "</font>"
'Scrivi
'Scrivi NomeRuota(ru)
'Scrivi
ReDim sRiga(10) '(3)
Dim x
Dim aNumeri
Dim sRiga2
Dim sRiga3
'Dim gruppibasenumericidoc(90)
sRiga(1) = Array(0,1,2,3,4,5,6,7,8,9,10)
sRiga(2) = Array(0,11,12,13,14,15,16,17,18,19,20)
sRiga(3) = Array(0,21,22,23,24,25,26,27,28,29,30)
sRiga(4) = Array(0,31,32,33,34,35,36,37,38,39,40)
sRiga(5) = Array(0,41,42,43,44,45,46,47,48,49,50)
sRiga(6) = Array(0,51,52,53,54,55,56,57,58,59,60)
sRiga(7) = Array(0,61,62,63,64,65,66,67,68,69,70)
sRiga(8) = Array(0,71,72,73,74,75,76,77,78,79,80)
sRiga(9) = Array(0,81,82,83,84,85,86,87,88,89,90)
Dim r
For r = 1 To 9
'Call SplitByChar(StringaNumeri(sRiga(r)),".",aNumeri)
x = UBound(sRiga(r))
Do
'Call Scrivi(StringaNumeri(aNumeri))
'Call Scrivi(StringaNumeri(sRiga(r)))
sRiga(r)(x) = 0
x = x - 1
Call StatisticaFormazioneTurbo(sRiga(r),ruota,sortediricerca,rit,ritmax,Incmax,freq,Inizioanalisi,estrazione)
'Scrivi StringaNumeri(sRiga(r)) & " ra " & rit & " rs " & ritmax & " incmax " & Incmax & " freq " & freq
'filtro
Dim diff
diff = ritmax - rit
'If diff=0 Then
Call VerificaEsitoTurbo(sRiga(r),ruotadiverifica,estrazione + 1,sortediverifica,colpidiverifica,,esitoverifica,colpodiuscita,estrattiusciti,estrazionediuscita)
'Call VerificaEsitoTurbo(sRiga(r),ruotadiverifica,estrazione + 1,sortediverifica,colpidiverifica,,esitoverifica,ncolpo,estrattiusciti,estrazionediuscita)
If esitoverifica <> "" Then
'Scrivi esitoverifica
casipositivi = casipositivi + 1
If colpodiuscita > colpomassimo Then
colpomassimo = colpodiuscita
End If
Else
colpirimanenti = colpidiverifica -(EstrazioneFin - estrazione)
If colpirimanenti < 0 Then
'Scrivi "<font color=red>esito negativo</font>"
casinegativi = casinegativi + 1
Else
'Scrivi "<font color=blue>colpi rimanenti " & colpirimanenti & "</font>"
casiattuali = casiattuali + 1
If colpirimanenti < colpirimanentiminimi Then
colpirimanentiminimi = colpirimanenti
ruotaconcolpirimanentiminimi = ru
formazioneconcrtmin = StringaNumeri(sRiga(r))
End If
End If
End If
'End If ' filtro if
'enumerazione e salvataggio dei rispettivi colpi
If esitoverifica <> "" Then
'Scrivi esitoverifica & " " & E & " Colpo=" & colpodiuscita
aClp(colpodiuscita) = aClp(colpodiuscita) + 1
Else
'Scrivi
End If
'-------------------------------------------------------
Loop While x >= 3
Call AvanzamentoElab(Inizioverifica,Fineanalisi,estrazione)
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next 'x r
If ScriptInterrotto Then Exit For
Next 'x ru
casitotali = casipositivi + casinegativi + casiattuali
Scrivi
Scrivi "c+ " & casipositivi
Scrivi "c- " & casinegativi
Scrivi "ca " & casiattuali
Scrivi "ct " & casitotali
Scrivi "%+ " &(casipositivi/casitotali)*100
Scrivi "clpmax " & colpomassimo
Scrivi "crtmin " & colpirimanentiminimi
Scrivi "ruota con crtmin " & ruotaconcolpirimanentiminimi
Scrivi "formazione con crtmin " & formazioneconcrtmin
Scrivi
For E = 1 To 2700
Scrivi "Colpo" & E & " =" & aClp(E)
Next
Scrivi
Scrivi "Tt " & TempoTrascorso
Scrivi
End Sub
