Option Explicit
Sub Main
' x Zetrix
' Test_DisegnaEstrazioneQN
' Script V.2.0 By Joe del 10/05/2024
'
Dim E,S,X,J,Y,A,K,R,B,C,D,F
Dim AF,BF,CF,DF,FF
Dim Nu(10) ' Colonne della Tabella
Dim Righe,Colonne
Dim nCaselleDaEvid
Dim aQuadroNum
Dim aNumDaEvid
Dim ES
Righe = 9
Colonne = 10
ReDim aQuadroNum(Righe,Colonne)
ReDim aNumDaEvid(500,1) ' Quantità di caselle possibili
'
R = ScegliRuota
X = InputBox("Quante estrazioni vuoi controllare?",,18)
Scrivi "dal " & DataEstrazione(EstrazioneFin - X + 1,,,"/"),1,1
Scrivi "al " & DataEstrazione(EstrazioneFin,,,"/"),1,1
Y =((EstrazioneFin - X) - EstrazioneFin)
Scrivi("ESTRAZIONI" & Y & "")
Scrivi("RUOTA= " & SiglaRuota(R) & "")
'
For S = 1 To 9 'Riga della Tabella
For E = 1 To 10 'Colonne della Tabella
Nu(E) = E - 1*10 + S*10 ' Formato della Tabella
'
'
For ES = EstrazioneFin - X + 1 To EstrazioneFin
'
A = Estratto(ES,R,1)
B = Estratto(ES,R,2)
C = Estratto(ES,R,3)
D = Estratto(ES,R,4)
F = Estratto(ES,R,5)
'
AF = EstrattoFrequenzaTurbo(R,A,EstrazioneFin - X + 1,EstrazioneFin)
BF = EstrattoFrequenzaTurbo(R,B,EstrazioneFin - X + 1,EstrazioneFin)
CF = EstrattoFrequenzaTurbo(R,C,EstrazioneFin - X + 1,EstrazioneFin)
DF = EstrattoFrequenzaTurbo(R,D,EstrazioneFin - X + 1,EstrazioneFin)
FF = EstrattoFrequenzaTurbo(R,F,EstrazioneFin - X + 1,EstrazioneFin)
'
aQuadroNum(S,E) = Nu(E)
'
'
'
'If aQuadroNum(S,E) = A And AF = 1 Or aQuadroNum(S,E) = B And BF = 1 Or aQuadroNum(S,E) = C And CF = 1 Or aQuadroNum(S,E) = D And DF = 1 Or aQuadroNum(S,E) = F And FF = 1 Then
If aQuadroNum(S,E) = A And AF > 1 Or aQuadroNum(S,E) = B And BF > 1 Or aQuadroNum(S,E) = C And CF > 1 Or aQuadroNum(S,E) = D And DF > 1 Or aQuadroNum(S,E) = F And FF > 1 Then
'If aQuadroNum(S,E) = A And AF = 0 Or aQuadroNum(S,E) = B And BF = 0 Or aQuadroNum(S,E) = C And CF = 0 Or aQuadroNum(S,E) = D And DF = 0 Or aQuadroNum(S,E) = F And FF = 0 Then
'
'
'
nCaselleDaEvid = nCaselleDaEvid + 1
aNumDaEvid(nCaselleDaEvid,0) = S
aNumDaEvid(nCaselleDaEvid,1) = E
'
End If
Next
Next
Next
Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
'Scrivi StringaNumeri()
End Sub