Sub Main()
Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1),nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
Inizio = EstrazioneFin - 10
fine = EstrazioneFin
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,5)
r1 = InputBox("Quale ruota visualizzare ",,6)
Scrivi " Quadro estrazionale statistica numeri estratti ",1,0,3
Scrivi " su n° " & ex & " estrazioni ",1,0,7
Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
Scrivi
Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
ReDim atitoli(65)
atitoli(1) = " "
atitoli(2) = " DATA "
atitoli(3) = " "
atitoli(4) = " 1°E "
atitoli(5) = " 2°E "
atitoli(6) = " 3°E "
atitoli(7) = " 4°E "
atitoli(8) = " 5°E "
atitoli(9) = " "
atitoli(10) = " SM 1° "
atitoli(11) = " SM 2° "
atitoli(12) = " SM 3° "
atitoli(13) = " SM 4° "
atitoli(14) = " SM 5° "
atitoli(15) = " "
atitoli(16) = " DF 1° "
atitoli(17) = " DF 2° "
atitoli(18) = " DF 3° "
atitoli(19) = " DF 4° "
atitoli(20) = " DF 5° "
atitoli(21) = " "
atitoli(22) = " SM 1-2 R1-R2"
atitoli(23) = " SM 1-3 R1-R2"
atitoli(24) = " SM 1-4 R1-R2"
atitoli(25) = " SM 1-5 R1-R2"
atitoli(26) = " SM 2-3 R1-R2"
atitoli(27) = " SM 2-4 R1-R2"
atitoli(28) = " SM 2-5 R1-R2"
atitoli(29) = " SM 3-4 R1-R2"
atitoli(30) = " SM 3-5 R1-R2"
atitoli(31) = " SM 4-5 R1-R2"
atitoli(32) = " "
atitoli(33) = " DF 1-2 R1-R2"
atitoli(34) = " DF 1-3 R1-R2"
atitoli(35) = " DF 1-4 R1-R2"
atitoli(36) = " DF 1-5 R1-R2"
atitoli(37) = " DF 2-3 R1-R2"
atitoli(38) = " DF 2-4 R1-R2"
atitoli(39) = " DF 2-5 R1-R2"
atitoli(40) = " DF 3-4 R1-R2"
atitoli(41) = " DF 3-5 R1-R2"
atitoli(42) = " DF 4-5 R1-R2"
atitoli(43) = " "
atitoli(44) = " SM 1-2 R2-R1"
atitoli(45) = " SM 1-3 R2-R1"
atitoli(46) = " SM 1-4 R2-R1"
atitoli(47) = " SM 1-5 R2-R1"
atitoli(48) = " SM 2-3 R2-R1"
atitoli(49) = " SM 2-4 R2-R1"
atitoli(50) = " SM 2-5 R2-R1"
atitoli(51) = " SM 3-4 R2-R1"
atitoli(52) = " SM 3-5 R2-R1"
atitoli(53) = " SM 4-5 R2-R1"
atitoli(54) = " "
atitoli(55) = " DF 1-2 R2-R1"
atitoli(56) = " DF 1-3 R2-R1"
atitoli(57) = " DF 1-4 R2-R1"
atitoli(58) = " DF 1-5 R2-R1"
atitoli(59) = " DF 2-3 R2-R1"
atitoli(60) = " DF 2-4 R2-R1"
atitoli(61) = " DF 2-5 R2-R1"
atitoli(62) = " DF 3-4 R2-R1"
atitoli(63) = " DF 3-5 R2-R1"
atitoli(64) = " DF 4-5 R2-R1"
atitoli(65) = " "
Call InitTabella(atitoli,1,,3,5)
For ess = Inizio To fine
ruo(1) = r
ruo(2) = r1
a = Estratto(ess,r,1)
aa = Estratto(ess,r1,1)
b = Estratto(ess,r,2)
bb = Estratto(ess,r1,2)
c = Estratto(ess,r,3)
cc = Estratto(ess,r1,3)
d = Estratto(ess,r,4)
dd = Estratto(ess,r1,4)
e = Estratto(ess,r,5)
ee = Estratto(ess,r1,5)
n1(1) = a
n2(1) = b
n3(1) = c
n4(1) = d
n5(1) = e
nn1(1) = aa
nn2(1) = bb
nn3(1) = cc
nn4(1) = dd
nn5(1) = ee
rp1 = Fuori90(a + aa)
rp2 = Fuori90(b + bb)
rp3 = Fuori90(c + cc)
rp4 = Fuori90(d + dd)
rp5 = Fuori90(e + ee)
sf1 = Differenza(a,aa)
sf2 = Differenza(b,bb)
sf3 = Differenza(c,cc)
sf4 = Differenza(d,dd)
sf5 = Differenza(e,ee)
ReDim avalori(65)
avalori(1) = " "
avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
avalori(3) = " "
avalori(4) = a & "." & aa
avalori(5) = b & "." & bb
avalori(6) = c & "." & cc
avalori(7) = d & "." & dd
avalori(8) = e & "." & ee
avalori(9) = " "
avalori(10) = rp1
avalori(11) = rp2
avalori(12) = rp3
avalori(13) = rp4
avalori(14) = rp5
avalori(15) = " "
avalori(16) = sf1
avalori(17) = sf2
avalori(18) = sf3
avalori(19) = sf4
avalori(20) = sf5
avalori(21) = " "
avalori(22) = Fuori90(a + bb)
avalori(23) = Fuori90(a + cc)
avalori(24) = Fuori90(a + dd)
avalori(25) = Fuori90(a + ee)
avalori(26) = Fuori90(b + cc)
avalori(27) = Fuori90(b + dd)
avalori(28) = Fuori90(b + cc)
avalori(29) = Fuori90(c + dd)
avalori(30) = Fuori90(c + ee)
avalori(31) = Fuori90(d + ee)
avalori(32) = " "
avalori(33) = Differenza(a,bb)
avalori(34) = Differenza(a,cc)
avalori(35) = Differenza(a,dd)
avalori(36) = Differenza(a,ee)
avalori(37) = Differenza(b,cc)
avalori(38) = Differenza(b,dd)
avalori(39) = Differenza(b,cc)
avalori(40) = Differenza(c,dd)
avalori(41) = Differenza(c,ee)
avalori(42) = Differenza(d,ee)
avalori(43) = " "
avalori(44) = Fuori90(aa + b)
avalori(45) = Fuori90(aa + c)
avalori(46) = Fuori90(aa + d)
avalori(47) = Fuori90(aa + e)
avalori(48) = Fuori90(bb + c)
avalori(49) = Fuori90(bb + d)
avalori(50) = Fuori90(bb + c)
avalori(51) = Fuori90(cc + d)
avalori(52) = Fuori90(cc + e)
avalori(53) = Fuori90(dd + e)
avalori(54) = " "
avalori(55) = Differenza(aa,b)
avalori(56) = Differenza(aa,c)
avalori(57) = Differenza(aa,d)
avalori(58) = Differenza(aa,e)
avalori(59) = Differenza(bb,c)
avalori(60) = Differenza(bb,d)
avalori(61) = Differenza(bb,c)
avalori(62) = Differenza(cc,d)
avalori(63) = Differenza(cc,e)
avalori(64) = Differenza(dd,e)
avalori(65) = " "
nu(1) = a
nu(2) = b
nu(3) = c
nu(4) = d
nu(5) = e
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(1,vbBlue)
Call SetColoreCella(3,vbBlue)
Call SetColoreCella(9,vbBlue)
Call SetColoreCella(15,vbBlue)
Call SetColoreCella(21,vbBlue)
Call SetColoreCella(32,vbBlue)
Call SetColoreCella(43,vbBlue)
Call SetColoreCella(54,vbBlue)
Call SetColoreCella(65,vbBlue)
Call SetColoreCella(4,vbYellow)
Call SetColoreCella(5,vbYellow)
Call SetColoreCella(6,vbYellow)
Call SetColoreCella(7,vbYellow)
Call SetColoreCella(8,vbYellow)
Next
CreaTabella()
Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
Call PicEsegui
End Sub
Sub Main()
Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1),nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
Inizio = CInt(InputBox(" Estrazione da analizzare ?",,8746))
fine = Inizio
'ex = fine - Inizio
'r = InputBox("Quale ruota visualizzare ",,5)
'r1 = InputBox("Quale ruota visualizzare ",,6)
Scrivi " Quadro estrazionale statistica numeri estratti ",1,0,3
Scrivi " su n° " & ex & " estrazioni ",1,0,7
Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
Scrivi
Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
ReDim atitoli(65)
atitoli(1) = " "
atitoli(2) = " DATA "
atitoli(3) = " "
atitoli(4) = " 1°E "
atitoli(5) = " 2°E "
atitoli(6) = " 3°E "
atitoli(7) = " 4°E "
atitoli(8) = " 5°E "
atitoli(9) = " "
atitoli(10) = " SM 1° "
atitoli(11) = " SM 2° "
atitoli(12) = " SM 3° "
atitoli(13) = " SM 4° "
atitoli(14) = " SM 5° "
atitoli(15) = " "
atitoli(16) = " DF 1° "
atitoli(17) = " DF 2° "
atitoli(18) = " DF 3° "
atitoli(19) = " DF 4° "
atitoli(20) = " DF 5° "
atitoli(21) = " "
atitoli(22) = " SM 1-2 R1-R2"
atitoli(23) = " SM 1-3 R1-R2"
atitoli(24) = " SM 1-4 R1-R2"
atitoli(25) = " SM 1-5 R1-R2"
atitoli(26) = " SM 2-3 R1-R2"
atitoli(27) = " SM 2-4 R1-R2"
atitoli(28) = " SM 2-5 R1-R2"
atitoli(29) = " SM 3-4 R1-R2"
atitoli(30) = " SM 3-5 R1-R2"
atitoli(31) = " SM 4-5 R1-R2"
atitoli(32) = " "
atitoli(33) = " DF 1-2 R1-R2"
atitoli(34) = " DF 1-3 R1-R2"
atitoli(35) = " DF 1-4 R1-R2"
atitoli(36) = " DF 1-5 R1-R2"
atitoli(37) = " DF 2-3 R1-R2"
atitoli(38) = " DF 2-4 R1-R2"
atitoli(39) = " DF 2-5 R1-R2"
atitoli(40) = " DF 3-4 R1-R2"
atitoli(41) = " DF 3-5 R1-R2"
atitoli(42) = " DF 4-5 R1-R2"
atitoli(43) = " "
atitoli(44) = " SM 1-2 R2-R1"
atitoli(45) = " SM 1-3 R2-R1"
atitoli(46) = " SM 1-4 R2-R1"
atitoli(47) = " SM 1-5 R2-R1"
atitoli(48) = " SM 2-3 R2-R1"
atitoli(49) = " SM 2-4 R2-R1"
atitoli(50) = " SM 2-5 R2-R1"
atitoli(51) = " SM 3-4 R2-R1"
atitoli(52) = " SM 3-5 R2-R1"
atitoli(53) = " SM 4-5 R2-R1"
atitoli(54) = " "
atitoli(55) = " DF 1-2 R2-R1"
atitoli(56) = " DF 1-3 R2-R1"
atitoli(57) = " DF 1-4 R2-R1"
atitoli(58) = " DF 1-5 R2-R1"
atitoli(59) = " DF 2-3 R2-R1"
atitoli(60) = " DF 2-4 R2-R1"
atitoli(61) = " DF 2-5 R2-R1"
atitoli(62) = " DF 3-4 R2-R1"
atitoli(63) = " DF 3-5 R2-R1"
atitoli(64) = " DF 4-5 R2-R1"
atitoli(65) = " "
Call InitTabella(atitoli,1,,3,5)
For ess = Inizio To fine
For r = 1 To 10
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
ruo(1) = r
ruo(2) = r1
a = Estratto(ess,r,1)
aa = Estratto(ess,r1,1)
b = Estratto(ess,r,2)
bb = Estratto(ess,r1,2)
c = Estratto(ess,r,3)
cc = Estratto(ess,r1,3)
d = Estratto(ess,r,4)
dd = Estratto(ess,r1,4)
e = Estratto(ess,r,5)
ee = Estratto(ess,r1,5)
n1(1) = a
n2(1) = b
n3(1) = c
n4(1) = d
n5(1) = e
nn1(1) = aa
nn2(1) = bb
nn3(1) = cc
nn4(1) = dd
nn5(1) = ee
rp1 = Fuori90(a + aa)
rp2 = Fuori90(b + bb)
rp3 = Fuori90(c + cc)
rp4 = Fuori90(d + dd)
rp5 = Fuori90(e + ee)
sf1 = Differenza(a,aa)
sf2 = Differenza(b,bb)
sf3 = Differenza(c,cc)
sf4 = Differenza(d,dd)
sf5 = Differenza(e,ee)
ReDim avalori(65)
avalori(1) = " "
avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
avalori(3) = " "
avalori(4) = a & "." & aa
avalori(5) = b & "." & bb
avalori(6) = c & "." & cc
avalori(7) = d & "." & dd
avalori(8) = e & "." & ee
avalori(9) = " "
avalori(10) = rp1
avalori(11) = rp2
avalori(12) = rp3
avalori(13) = rp4
avalori(14) = rp5
avalori(15) = " "
avalori(16) = sf1
avalori(17) = sf2
avalori(18) = sf3
avalori(19) = sf4
avalori(20) = sf5
avalori(21) = " "
avalori(22) = Fuori90(a + bb)
avalori(23) = Fuori90(a + cc)
avalori(24) = Fuori90(a + dd)
avalori(25) = Fuori90(a + ee)
avalori(26) = Fuori90(b + cc)
avalori(27) = Fuori90(b + dd)
avalori(28) = Fuori90(b + cc)
avalori(29) = Fuori90(c + dd)
avalori(30) = Fuori90(c + ee)
avalori(31) = Fuori90(d + ee)
avalori(32) = " "
avalori(33) = Differenza(a,bb)
avalori(34) = Differenza(a,cc)
avalori(35) = Differenza(a,dd)
avalori(36) = Differenza(a,ee)
avalori(37) = Differenza(b,cc)
avalori(38) = Differenza(b,dd)
avalori(39) = Differenza(b,cc)
avalori(40) = Differenza(c,dd)
avalori(41) = Differenza(c,ee)
avalori(42) = Differenza(d,ee)
avalori(43) = " "
avalori(44) = Fuori90(aa + b)
avalori(45) = Fuori90(aa + c)
avalori(46) = Fuori90(aa + d)
avalori(47) = Fuori90(aa + e)
avalori(48) = Fuori90(bb + c)
avalori(49) = Fuori90(bb + d)
avalori(50) = Fuori90(bb + c)
avalori(51) = Fuori90(cc + d)
avalori(52) = Fuori90(cc + e)
avalori(53) = Fuori90(dd + e)
avalori(54) = " "
avalori(55) = Differenza(aa,b)
avalori(56) = Differenza(aa,c)
avalori(57) = Differenza(aa,d)
avalori(58) = Differenza(aa,e)
avalori(59) = Differenza(bb,c)
avalori(60) = Differenza(bb,d)
avalori(61) = Differenza(bb,c)
avalori(62) = Differenza(cc,d)
avalori(63) = Differenza(cc,e)
avalori(64) = Differenza(dd,e)
avalori(65) = " "
nu(1) = a
nu(2) = b
nu(3) = c
nu(4) = d
nu(5) = e
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(1,vbBlue)
Call SetColoreCella(3,vbBlue)
Call SetColoreCella(9,vbBlue)
Call SetColoreCella(15,vbBlue)
Call SetColoreCella(21,vbBlue)
Call SetColoreCella(32,vbBlue)
Call SetColoreCella(43,vbBlue)
Call SetColoreCella(54,vbBlue)
Call SetColoreCella(65,vbBlue)
Call SetColoreCella(4,vbYellow)
Call SetColoreCella(5,vbYellow)
Call SetColoreCella(6,vbYellow)
Call SetColoreCella(7,vbYellow)
Call SetColoreCella(8,vbYellow)
'End If
Next
Next
Next
CreaTabella()
Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
Call PicEsegui
End Sub