Option Explicit
Sub Main
Dim R1,R2,R3,E,X,I,RB,RK,K,S,Q
Dim nRighe,nColonne
Dim nCaselleDaEvid
Dim aQuadroNum
Dim aNumDaEvid
Dim stesto
'
nRighe = 12
nColonne = 6
ReDim aQuadroNum(nRighe,nColonne)
ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100
Q = InputBox("Inizia sequenza da.....0-1-2-3-4-5-6-7-8-9-10-11?",,0)
S = InputBox("Quale sequenza.........1-2-3-4-5-6-7-8-9-10-11?",,0)
X = InputBox("Quante estrazioni vuoi controllare?",,0)
For R1 = 1 To 12
If R1 = 11 Then R1 = 12 End If
'
For RK = S To S
'
For E = 1 To 5
For K = Q To 90 Step RK
stesto = Fuori90(Format2(K)) & "."
Scrivi stesto,0,0
'
aQuadroNum(R1,E) = Estratto(EstrazioneFin - X,R1,E)
'
'
If(aQuadroNum(R1,E)) = Fuori90(K) Then
nCaselleDaEvid = nCaselleDaEvid + 1
'
aNumDaEvid(nCaselleDaEvid,0) = R1
aNumDaEvid(nCaselleDaEvid,1) = E
'
'
End If
'--------------------------------------------
If R1 = 12 Then ' -> disegna la nazionale
End If
Next
Next
Next
Next
ReDim aMatriceLegami(nCaselleDaEvid - 1,3)
For R1 = 1 To nCaselleDaEvid - 1
aMatriceLegami(R1,0) = aNumDaEvid(R1,0)
aMatriceLegami(R1,1) = aNumDaEvid(R1,1)
aMatriceLegami(R1,2) = aNumDaEvid(R1 + 1,0)
aMatriceLegami(R1,3) = aNumDaEvid(R1 + 1,1)
Next
'-----------------------------
'-----------------------------
Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,aMatriceLegami,CLng(0))
Call DisegnaEstrazione(EstrazioneFin - X,aNumDaEvid,aMatriceLegami,CLng(0))
Scrivi
Scrivi
Scrivi "Disegna sequenza da ? " & Q & "",0,0,6,2,3
Scrivi
Scrivi "Quale sequenza ? " & S & "",0,0,3,2,3
Scrivi
End Sub