ppaaoolloo
Super Member >PLATINUM<
Buongiorno a tutti
questo script che il grande Mike mi aveva gentilmente fatto,
mi sono accorto che non calcola esattamente gli estratti,
chiedo a Mike o a chi può farlo di poterlo correggere
ringrazio anticipatamente
saluti
Sub Main
Dim a(90)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(37)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = "Rd1"
atitoli(06) = "Rd2"
atitoli(07) = "Rd3"
atitoli(08) = "Rd4"
atitoli(09) = "Rd5"
atitoli(10) = "Sum 5"
atitoli(11) = "Sum 2"
atitoli(12) = " Estr. "
atitoli(13) = " +2 "
atitoli(14) = " +3 "
atitoli(15) = " +4 "
atitoli(16) = " +5 "
atitoli(17) = " +6 "
atitoli(18) = " +7 "
atitoli(19) = " +8 "
atitoli(20) = " +9 "
atitoli(21) = " +10 "
atitoli(22) = " +11 "
atitoli(23) = " Estr. "
atitoli(24) = " -1 "
atitoli(25) = " -2 "
atitoli(26) = " -3 "
atitoli(27) = " -4 "
atitoli(28) = " -5 "
atitoli(29) = " -6 "
atitoli(30) = " -7 "
atitoli(31) = " -8 "
atitoli(32) = " -9 "
atitoli(33) = " -10 "
atitoli(34) = " I.C. "
atitoli(35) = " Media uscita "
atitoli(36) = " Stringa estratti "
atitoli(37) = " Ultima ESTR_Esito "
Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02"
a(02) = "02-03"
a(03) = "03-04"
a(04) = "04-05"
a(05) = "05-06"
a(06) = "06-07"
a(07) = "07-08"
a(08) = "08-09"
a(09) = "09-10"
a(10) = "10-11"
a(11) = "11-12"
a(12) = "12-13"
a(13) = "13-14"
a(14) = "14-15"
a(15) = "15-16"
a(16) = "16-17"
a(17) = "17-18"
a(18) = "18-19"
a(19) = "19-20"
a(20) = "20-21"
a(21) = "21-22"
a(22) = "22-23"
a(23) = "23-24"
a(24) = "24-25"
a(25) = "25-26"
a(26) = "26-27"
a(27) = "27-28"
a(28) = "28-29"
a(29) = "29-30"
a(30) = "30-31"
a(31) = "31-32"
a(32) = "32-33"
a(33) = "33-34"
a(34) = "34-35"
a(35) = "35-36"
a(36) = "36-37"
a(37) = "37-38"
a(38) = "38-39"
a(39) = "39-40"
a(40) = "40-41"
a(41) = "41-42"
a(42) = "42-43"
a(43) = "43-44"
a(44) = "44-45"
a(45) = "45-46"
a(46) = "46-47"
a(47) = "47-48"
a(48) = "48-49"
a(49) = "49-50"
a(50) = "50-51"
a(51) = "51-52"
a(52) = "52-53"
a(53) = "53-54"
a(54) = "54-55"
a(55) = "55-56"
a(56) = "56-57"
a(57) = "57-58"
a(58) = "58-59"
a(59) = "59-60"
a(60) = "60-61"
a(61) = "61-62"
a(62) = "62-63"
a(63) = "63-64"
a(64) = "64-65"
a(65) = "65-66"
a(66) = "66-67"
a(67) = "67-68"
a(68) = "68-69"
a(69) = "69-70"
a(70) = "70-71"
a(71) = "71-72"
a(72) = "72-73"
a(73) = "73-74"
a(74) = "74-75"
a(75) = "75-76"
a(76) = "76-77"
a(77) = "77-78"
a(78) = "78-79"
a(79) = "79-80"
a(80) = "80-81"
a(81) = "81-82"
a(82) = "82-83"
a(83) = "83-84"
a(84) = "84-85"
a(85) = "85-86"
a(86) = "86-87"
a(87) = "87-88"
a(88) = "88-89"
a(89) = "89-90"
a(90) = "90-01"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" &(a
),"-")
'------ posizioni di ritardo -----------------
For p = 1 To 5
ReDim aPos(5)
aPos(p) = True
'rd = EstrattoRitardo(Ru(1),a,Ini,fin,,,aPos)
rd = RitardoCombinazione(aRuote,nu,1,0,aPos)
ReDim Preserve pos(p)
pos(p) = rd
Next
'----------------------------------------------
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,Nothing,esitoF,,estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,fin,fin,,aPos)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
hhh = SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,nu,aRuote,1)
iii = SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,nu,aRuote,1)
lll = SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,nu,aRuote,1)
mmm = SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,nu,aRuote,1)
'End If
If fre > 0 Then
ReDim avalori(37)
avalori(01) = " Dec. " & Format2
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = pos(1)
avalori(06) = pos(2)
avalori(07) = pos(3)
avalori(08) = pos(4)
avalori(09) = pos(5)
avalori(10) = pos(1) + pos(2) + pos(3) + pos(4) + pos(5)
avalori(11) = pos(1) + pos(2)
avalori(12) = aaa
avalori(13) = aaa + bbb
avalori(14) = aaa + bbb + ccc
avalori(15) = aaa + bbb + ccc + ddd
avalori(16) = aaa + bbb + ccc + ddd + eee
avalori(17) = aaa + bbb + ccc + ddd + eee + fff
avalori(18) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(19) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(20) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(21) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(23) = aaa
avalori(24) = bbb
avalori(25) = ccc
avalori(26) = ddd
avalori(27) = eee
avalori(28) = fff
avalori(29) = ggg
avalori(30) = hhh
avalori(31) = iii
avalori(32) = lll
avalori(33) = mmm
avalori(34) = Round(qt/fre,2)
avalori(35) = Round(fre/qt*rit,2)
avalori(36) = retestratti
avalori(37) = esitoF & " : " & estrF
Call AddRigaTabella(avalori)
End If
For x = 1 To 36
If n = color Then Call SetColoreCella((x),3,1)
Next
For y = 5 To 9
If avalori(3) = avalori
Then Call SetColoreCella(,4,2)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(3)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(3)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
questo script che il grande Mike mi aveva gentilmente fatto,
mi sono accorto che non calcola esattamente gli estratti,
chiedo a Mike o a chi può farlo di poterlo correggere
ringrazio anticipatamente
saluti
Sub Main
Dim a(90)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(37)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = "Rd1"
atitoli(06) = "Rd2"
atitoli(07) = "Rd3"
atitoli(08) = "Rd4"
atitoli(09) = "Rd5"
atitoli(10) = "Sum 5"
atitoli(11) = "Sum 2"
atitoli(12) = " Estr. "
atitoli(13) = " +2 "
atitoli(14) = " +3 "
atitoli(15) = " +4 "
atitoli(16) = " +5 "
atitoli(17) = " +6 "
atitoli(18) = " +7 "
atitoli(19) = " +8 "
atitoli(20) = " +9 "
atitoli(21) = " +10 "
atitoli(22) = " +11 "
atitoli(23) = " Estr. "
atitoli(24) = " -1 "
atitoli(25) = " -2 "
atitoli(26) = " -3 "
atitoli(27) = " -4 "
atitoli(28) = " -5 "
atitoli(29) = " -6 "
atitoli(30) = " -7 "
atitoli(31) = " -8 "
atitoli(32) = " -9 "
atitoli(33) = " -10 "
atitoli(34) = " I.C. "
atitoli(35) = " Media uscita "
atitoli(36) = " Stringa estratti "
atitoli(37) = " Ultima ESTR_Esito "
Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02"
a(02) = "02-03"
a(03) = "03-04"
a(04) = "04-05"
a(05) = "05-06"
a(06) = "06-07"
a(07) = "07-08"
a(08) = "08-09"
a(09) = "09-10"
a(10) = "10-11"
a(11) = "11-12"
a(12) = "12-13"
a(13) = "13-14"
a(14) = "14-15"
a(15) = "15-16"
a(16) = "16-17"
a(17) = "17-18"
a(18) = "18-19"
a(19) = "19-20"
a(20) = "20-21"
a(21) = "21-22"
a(22) = "22-23"
a(23) = "23-24"
a(24) = "24-25"
a(25) = "25-26"
a(26) = "26-27"
a(27) = "27-28"
a(28) = "28-29"
a(29) = "29-30"
a(30) = "30-31"
a(31) = "31-32"
a(32) = "32-33"
a(33) = "33-34"
a(34) = "34-35"
a(35) = "35-36"
a(36) = "36-37"
a(37) = "37-38"
a(38) = "38-39"
a(39) = "39-40"
a(40) = "40-41"
a(41) = "41-42"
a(42) = "42-43"
a(43) = "43-44"
a(44) = "44-45"
a(45) = "45-46"
a(46) = "46-47"
a(47) = "47-48"
a(48) = "48-49"
a(49) = "49-50"
a(50) = "50-51"
a(51) = "51-52"
a(52) = "52-53"
a(53) = "53-54"
a(54) = "54-55"
a(55) = "55-56"
a(56) = "56-57"
a(57) = "57-58"
a(58) = "58-59"
a(59) = "59-60"
a(60) = "60-61"
a(61) = "61-62"
a(62) = "62-63"
a(63) = "63-64"
a(64) = "64-65"
a(65) = "65-66"
a(66) = "66-67"
a(67) = "67-68"
a(68) = "68-69"
a(69) = "69-70"
a(70) = "70-71"
a(71) = "71-72"
a(72) = "72-73"
a(73) = "73-74"
a(74) = "74-75"
a(75) = "75-76"
a(76) = "76-77"
a(77) = "77-78"
a(78) = "78-79"
a(79) = "79-80"
a(80) = "80-81"
a(81) = "81-82"
a(82) = "82-83"
a(83) = "83-84"
a(84) = "84-85"
a(85) = "85-86"
a(86) = "86-87"
a(87) = "87-88"
a(88) = "88-89"
a(89) = "89-90"
a(90) = "90-01"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" &(a
),"-")'------ posizioni di ritardo -----------------
For p = 1 To 5
ReDim aPos(5)
aPos(p) = True
'rd = EstrattoRitardo(Ru(1),a
,Ini,fin,,,aPos)rd = RitardoCombinazione(aRuote,nu,1,0,aPos)
ReDim Preserve pos(p)
pos(p) = rd
Next
'----------------------------------------------
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,Nothing,esitoF,,estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,fin,fin,,aPos)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
hhh = SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,nu,aRuote,1)
iii = SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,nu,aRuote,1)
lll = SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,nu,aRuote,1)
mmm = SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,nu,aRuote,1)
'End If
If fre > 0 Then
ReDim avalori(37)
avalori(01) = " Dec. " & Format2
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = pos(1)
avalori(06) = pos(2)
avalori(07) = pos(3)
avalori(08) = pos(4)
avalori(09) = pos(5)
avalori(10) = pos(1) + pos(2) + pos(3) + pos(4) + pos(5)
avalori(11) = pos(1) + pos(2)
avalori(12) = aaa
avalori(13) = aaa + bbb
avalori(14) = aaa + bbb + ccc
avalori(15) = aaa + bbb + ccc + ddd
avalori(16) = aaa + bbb + ccc + ddd + eee
avalori(17) = aaa + bbb + ccc + ddd + eee + fff
avalori(18) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(19) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(20) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(21) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(23) = aaa
avalori(24) = bbb
avalori(25) = ccc
avalori(26) = ddd
avalori(27) = eee
avalori(28) = fff
avalori(29) = ggg
avalori(30) = hhh
avalori(31) = iii
avalori(32) = lll
avalori(33) = mmm
avalori(34) = Round(qt/fre,2)
avalori(35) = Round(fre/qt*rit,2)
avalori(36) = retestratti
avalori(37) = esitoF & " : " & estrF
Call AddRigaTabella(avalori)
End If
For x = 1 To 36
If n = color Then Call SetColoreCella((x),3,1)
Next
For y = 5 To 9
If avalori(3) = avalori
Then Call SetColoreCella(,4,2)Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(3)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(3)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
