Option Explicit
'Verificare eventuali Bugs
' Non si garantisce la correttezza dei dati rilevati,gli errori sono sempre possibili
Sub Main
Call SetColorSezione(RGB(207,208,212))
Dim IdEstr,p1,p2,srP1,srP2,freqE1,freqE2,Esi,nclp,sEstr
Dim aR(1):aR(1) = ScegliRuota
If aR(1) = 11 Then Exit Sub
Dim aCp0(2),aCp1(1),aCp2(1),aP1(1)
aP1(1) = 1
Dim RngRic:RngRic = 42' qui mwtti il lasso di ricerca
Dim aRt(1):aRt(1) = 11
Dim Fin:Fin = EstrazioneFin
Dim qEstr:qEstr = 100
Dim Ini:Ini = Fin -(qEstr - 1)
Scrivi " Estensione Range : " & RngRic
Dim sTab:sTab = "Inizio Range analisi | Fine Range Analisi | NC | Ambo_Spia | E1 |FreqE1| E2 |FreqE2|Estratto| Esito |Colpo| Estratti | Esito |Colpo| Estratti "
Scrivi " ",,0
Scrivi String(Len(sTab),"_"),,0,,vbWhite
Scrivi " "
Scrivi " ",,0
Scrivi FormatSpace("Ruota | " & FormatSpace(NomeRuota(aR(1)),12) & Space(105) & "| TUTTE",Len(sTab)),1,0,RGB(237,236,241),RGB(103,101,104)
Scrivi " "
Scrivi " ",,0
Scrivi sTab,,,RGB(233,232,237),RGB(103,101,104)
'analizzo le ultime 100 estrazioni
For IdEstr = Fin To Ini Step - 1
ReDim aEstr(0)
Call GetArrayNumeriRuota(IdEstr,aR(1),aEstr)
For p1 = 1 To 4
For p2 = p1 + 1 To 5
aCp0(1) = aEstr(p1)
aCp0(2) = aEstr(p2)
aCp1(1) = aEstr(p1)
aCp2(1) = aEstr(p2)
srP1 = SerieUltima(IdEstr -(RngRic),IdEstr - 1,aCp0,aR,2)
If IdEstr - srP1 <= RngRic Then
freqE1 = SerieFreqTurbo(srP1,IdEstr,aCp1,aR,1)
freqE2 = SerieFreqTurbo(srP1,IdEstr,aCp2,aR,1)
If freqE1 > 2 And freqE2 = 2 Then
Scrivi " ",,0
Scrivi GetInfoEstrazione(srP1) & " | " & GetInfoEstrazione(IdEstr) & " | " & FormatSpace(IdEstr - srP1,2,1) & " | " & FormatSpace(StringaNumeri(aCp0,,True),10,1) & _
" | " & FormatSpace(aCp1(1),2) & " | " & FormatSpace(freqE1,5,1) & "| " & FormatSpace(aCp2(1),2) & " | " & FormatSpace(freqE2,5,1) & "| ",,0,vbWhite
Scrivi FormatSpace(aCp2(1),5,1) & " ",1,0,vbWhite,RGB(128,0,0)
Scrivi " ",,0,vbWhite
Call VerificaEsitoTurbo(aCp2,aR,IdEstr + 1,1,9,,Esi,nclp,sEstr)
Scrivi FormatSpace(Esi,12,1) & " | " & nclp & "| " & FormatSpace(sEstr,18),1,0,RGB(176,239,163),RGB(0,85,0)
Call VerificaEsitoTurbo(aCp0,aRt,IdEstr + 1,2,25,,Esi,nclp,sEstr)
Scrivi FormatSpace(Esi,12,1) & " | " & FormatSpace(nclp,2,1) & "| " & FormatSpace(sEstr,37),1,,RGB(45,198,125),RGB(234,255,255)
ElseIf freqE1 = 2 And freqE2 > 2 Then
Scrivi " ",,0
Scrivi GetInfoEstrazione(srP1) & " | " & GetInfoEstrazione(IdEstr) & " | " & FormatSpace(IdEstr - srP1,2,1) & " | " & FormatSpace(StringaNumeri(aCp0,,True),10,1) & _
" | " & FormatSpace(aCp1(1),2) & " | " & FormatSpace(freqE1,5,1) & "| " & FormatSpace(aCp2(1),2) & " | " & FormatSpace(freqE2,5,1) & "| ",,0,vbWhite
Scrivi FormatSpace(aCp1(1),5,1) & " ",1,0,vbWhite,RGB(128,0,0)
Scrivi " ",,0,vbWhite
Call VerificaEsitoTurbo(aCp1,aR,IdEstr + 1,1,9,,Esi,nclp,sEstr)
Scrivi FormatSpace(Esi,12,1) & " | " & nclp & "| " & FormatSpace(sEstr,18),1,0,RGB(176,239,163),RGB(0,85,0)
Call VerificaEsitoTurbo(aCp0,aRt,IdEstr + 1,2,25,,Esi,nclp,sEstr)
Scrivi FormatSpace(Esi,12,1) & " | " & FormatSpace(nclp,2,1) & "| " & FormatSpace(sEstr,37),1,,RGB(45,198,125),RGB(234,255,255)
End If
End If
Next
Next
Call AvanzamentoElab(Ini,Fin,IdEstr)
Next
Scrivi Scrivi
End Sub