Sub Main
Dim ru(1),n1(1),n2(1),n3(1),n4(1),n5(1),nu(5),Nst(5)
QT = InputBox("QUANTE ESTRAZIONI",,90)
R = InputBox("QUALE RUOTA",,5)
QV = CInt(InputBox("QUALE VALORE EVIDENZIARE",,3))
Ini = EstrazioneFin - QT
fin = EstrazioneFin
Tot = fin - Ini
Scrivi " ******* Tabellone Analitico ****** By Mike58 ***** ",True,True,2,4,4
Scrivi "Estrazioni analizzate..." & Tot,True,True,,2,3
ReDim T(17)
T(1) = " data "
T(2) = " Ruota "
T(3) = " Estratti "
T(4) = " Ritardo "
T(5) = "E.1"
T(6) = "E.2"
T(7) = "E.3"
T(8) = "E.4"
T(9) = "E.5"
T(10) = "R.1"
T(11) = "R.2"
T(12) = "R.3"
T(13) = "R.4"
T(14) = "R.5"
T(15) = " Ritardo "
T(16) = " contatore "
T(17) = " contatore "
Call InitTabella(T,1,,3,5)
ReDim tt(17)
tt(1) = " data "
tt(2) = " Ruota "
tt(3) = " Estratti "
tt(4) = " Ritardo "
tt(5) = "C"
tt(6) = "a"
tt(7) = "du"
tt(8) = "t"
tt(9) = "i"
tt(10) = "Ri"
tt(11) = "ma"
tt(12) = "s"
tt(13) = "t"
tt(14) = "i"
tt(15) = " Storico "
tt(16) = " Rimasti "
tt(17) = " caduti "
Call AddRigaTabella(tt,3,,3)
For es = fin To Ini Step - 1
ru(1) = R
c = c + 1
'For p = 1 To 5
n1(1) = Estratto(es,r,1)
n2(1) = Estratto(es,r,2)
n3(1) = Estratto(es,r,3)
n4(1) = Estratto(es,r,4)
n5(1) = Estratto(es,r,5)
nu(1) = n1(1)
nu(2) = n2(1)
nu(3) = n3(1)
nu(4) = n4(1)
nu(5) = n5(1)
ReDim v(20)
v(1) = DataEstrazione(es)
v(2) = SiglaRuota(r)
v(3) = StringaEstratti(es,r)
'st = SerieStorico(Ini,fin,nu,ru,1)
v(4) = c - 1 '& " - Sto " & st 'SerieRitardo(es+1,fin,nu,ru,1)
cc = c - 1
If SerieFreq(es,fin,n1,ru,1) > 1 Then v(5) = n1(1)
If SerieFreq(es,fin,n2,ru,1) > 1 Then v(6) = n2(1)
If SerieFreq(es,fin,n3,ru,1) > 1 Then v(7) = n3(1)
If SerieFreq(es,fin,n4,ru,1) > 1 Then v(8) = n4(1)
If SerieFreq(es,fin,n5,ru,1) > 1 Then v(9) = n5(1)
If SerieRitardo(Ini,fin,n1,ru,1) = cc Then v(10) = n1(1)
If SerieRitardo(Ini,fin,n2,ru,1) = cc Then v(11) = n2(1)
If SerieRitardo(Ini,fin,n3,ru,1) = cc Then v(12) = n3(1)
If SerieRitardo(Ini,fin,n4,ru,1) = cc Then v(13) = n4(1)
If SerieRitardo(Ini,fin,n5,ru,1) = cc Then v(14) = n5(1)
Nst(1) = v(10)
Nst(2) = v(11)
Nst(3) = v(12)
Nst(4) = v(13)
Nst(5) = v(14)
st = SerieStorico(Ini,fin,Nst,ru,1)
v(15) = st
If v(10) > 0 Then ct1 = 1
If v(10) = "" Then ct1 = 0
If v(11) > 0 Then ct2 = 1
If v(11) = "" Then ct2 = 0
If v(12) > 0 Then ct3 = 1
If v(12) = "" Then ct3 = 0
If v(13) > 0 Then ct4 = 1
If v(13) = "" Then ct4 = 0
If v(14) > 0 Then ct5 = 1
If v(14) = "" Then ct5 = 0
v(16) = ct1 + ct2 + ct3 + ct4 + ct5
v(17) = 5 - v(16)
v(18) = v(10) + v(11) + v(12) + v(13) + v(14)
sm = SommaEstratti(es,r)
v(19) = sm - v(18)
v(20) = sm
Call AddRigaTabella(v,,,3)
For x = 5 To 9
Call SetColoreCella((x),2,4)
Next
For xx = 10 To 14
If v(16) = QV Then Call SetColoreCella((xx),3,1)
If v(16) = QV Then Call SetColoreCella(4,3,1)
If v(16) <> QV Then Call SetColoreCella((xx),4,2)
Next
If v(16) = QV Then Call SetColoreCella(16,3,1)
Call SetColoreCella(15,7)
'Scrivi DataEstrazione(es) & " - " & SiglaRuota(ru(1)) & " - " & StringaEstratti(es,ru(1)) & " - " & Format2(rit) & " - caduti " & Format2(fre) & " Rimasti... " & c - fre' & nu(p) = 0
'c = 0
'Next
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub