ppaaoolloo
Super Member >PLATINUM<
ciao
chiedo cortesemente se qualcuno riesce a modificarmi questo script,
cercherò di essere breve e spero il più chiaro possibile nello spiegare
ciò che vorrei e non me ne vogliate se mi incarterò un pochino, sono pronto a
rispiegarlo finchè non raggiungerò l'obiettivo anche se penso che per
uno che formula script non dovrebbe essere particolarmente difficile e
comunque spero nella vostra generosa disponibilità.
credo che lo script che chiedo completerà una serie di buone statistiche fatte da script
che man mano avete fatto ed anche ho trovato su questo forum.
questo script trova delle coppie di numeri in ritardo ruota per ruota tenendo conto
delle 5 posizioni delle colonne, quello che richiedo invece io è quello di avere il calcolo
di queste statistiche solo tenendo conto della 4 e 5 posizione insieme, quindi non tenendo
conto se questa coppia di numeri esce nella posizione 1 o 2 o 3.
ad esempio con l'estrazione del 06/06/2017 a bari
82 - 27 - 70 - 68 - 19
si dovrebbe tener conto solo dei numeri 68 e 19 per
calcolare le statistiche dato che si trovano
nella quarta e quinta posizione, quindi
ignorando la prima posizione del numero 82
ignorando la prima posizione del numero 27
ignorando la prima posizione del numero 70
e così via per tutte e 10 le ruote + nazionale + la ruota "tutte"
spero nella vostra disponibilità e cortesia
aggiungo solo che questo è uno script del grande Mike58
ringrazio anticipatamente
ciao
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(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " -1 "
atitoli(07) = " -2 "
atitoli(08) = " -3 "
atitoli(09) = " -4 "
atitoli(10) = " -5 "
atitoli(11) = " -6 "
atitoli(12) = " -7 "
atitoli(13) = " -8 "
atitoli(14) = " -9 "
atitoli(15) = " -10 "
atitoli(16) = " Estr. "
atitoli(17) = " +2 "
atitoli(18) = " +3 "
atitoli(19) = " +4 "
atitoli(20) = " +5 "
atitoli(21) = " +6 "
atitoli(22) = " +7 "
atitoli(23) = " +8 "
atitoli(24) = " +9 "
atitoli(25) = " +10 "
atitoli(26) = " +11 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " 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),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,, estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
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(30)
avalori(01) = " Dec. " & Format2
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = hhh
avalori(13) = iii
avalori(14) = lll
avalori(15) = mmm
avalori(16) = aaa
avalori(17) = aaa + bbb
avalori(18) = aaa + bbb + ccc
avalori(19) = aaa + bbb + ccc + ddd
avalori(20) = aaa + bbb + ccc + ddd + eee
avalori(21) = aaa + bbb + ccc + ddd + eee + fff
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF
Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
chiedo cortesemente se qualcuno riesce a modificarmi questo script,
cercherò di essere breve e spero il più chiaro possibile nello spiegare
ciò che vorrei e non me ne vogliate se mi incarterò un pochino, sono pronto a
rispiegarlo finchè non raggiungerò l'obiettivo anche se penso che per
uno che formula script non dovrebbe essere particolarmente difficile e
comunque spero nella vostra generosa disponibilità.
credo che lo script che chiedo completerà una serie di buone statistiche fatte da script
che man mano avete fatto ed anche ho trovato su questo forum.
questo script trova delle coppie di numeri in ritardo ruota per ruota tenendo conto
delle 5 posizioni delle colonne, quello che richiedo invece io è quello di avere il calcolo
di queste statistiche solo tenendo conto della 4 e 5 posizione insieme, quindi non tenendo
conto se questa coppia di numeri esce nella posizione 1 o 2 o 3.
ad esempio con l'estrazione del 06/06/2017 a bari
82 - 27 - 70 - 68 - 19
si dovrebbe tener conto solo dei numeri 68 e 19 per
calcolare le statistiche dato che si trovano
nella quarta e quinta posizione, quindi
ignorando la prima posizione del numero 82
ignorando la prima posizione del numero 27
ignorando la prima posizione del numero 70
e così via per tutte e 10 le ruote + nazionale + la ruota "tutte"
spero nella vostra disponibilità e cortesia
aggiungo solo che questo è uno script del grande Mike58
ringrazio anticipatamente
ciao
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(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " -1 "
atitoli(07) = " -2 "
atitoli(08) = " -3 "
atitoli(09) = " -4 "
atitoli(10) = " -5 "
atitoli(11) = " -6 "
atitoli(12) = " -7 "
atitoli(13) = " -8 "
atitoli(14) = " -9 "
atitoli(15) = " -10 "
atitoli(16) = " Estr. "
atitoli(17) = " +2 "
atitoli(18) = " +3 "
atitoli(19) = " +4 "
atitoli(20) = " +5 "
atitoli(21) = " +6 "
atitoli(22) = " +7 "
atitoli(23) = " +8 "
atitoli(24) = " +9 "
atitoli(25) = " +10 "
atitoli(26) = " +11 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " 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),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,, estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
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(30)
avalori(01) = " Dec. " & Format2
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = hhh
avalori(13) = iii
avalori(14) = lll
avalori(15) = mmm
avalori(16) = aaa
avalori(17) = aaa + bbb
avalori(18) = aaa + bbb + ccc
avalori(19) = aaa + bbb + ccc + ddd
avalori(20) = aaa + bbb + ccc + ddd + eee
avalori(21) = aaa + bbb + ccc + ddd + eee + fff
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF
Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
Ultima modifica: