script di Mike che non conta esattamente gli estratti

[ppaaoolloo]

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

 

[ppaaoolloo]

up

 

[rubino2]

ciao

intanto, prova a correggere queste righe dello script?
che corrispondano a queste

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,ini,fin,,aPos)



e a queste vanno in aggiunta dopo

Call AddRigaTabella(avalori)

dopo gli altri for che ci sono aggiungi queste

For x = 24 To 33
If avalori(x) > 0 Then Call SetColoreCella((x),RGB(128,255,255),1)
Next


lancialo

e poi dimmi cosa non trovi esatto così entriamo nello specifico

 

[ppaaoolloo]

ciao rubino2
ho provato a fare quello che mi hai indicato ma non va bene,

ecco cosa non trovo esatto nello script
ti faccio degli esempi sperando di riuscire a farlo capire

lo script conta quanti numeri consecutivi sono usciti nell'estrazione (estr.)
ma poi anche quelli estratti nelle precedenti estrazioni (-1) (-2) (-3) ecc.
a seconda se era l'estrazione precedente -1 oppure -2 oppure -3 ecc.

poi ci sono le colonne che sommano gli stratti delle varie estrazioni ad esempio + 2
somma le uscite degli ultimi 2 concorsi, +3 somma gli ultimi 3 concorsi ecc.

mi sono accorto che questi conteggi non sono esatti
a me risulta che alcuni numeri escono ma nelle colonne non vengono conteggiati

nella prima colonna ci sono i due numeri consecutivi
nella seconda il ritardo
nella terza il ritardo massimo
nella quarta il ritardo nella prima posizione come estratto determinato
nella quinta il ritardo nella seconda posizione come estratto determinato
nella sesta il ritardo nella terza posizione come estratto determinato
nella settima il ritardo nella quarta posizione come estratto determinato
nella ottava il ritardo nella quinta posizione come estratto determinato

nella nona la somma delle cinque colonne dei ritardi
nella decima la somma delle prime due colonne dei ritardi

fino a qui i risultati sono tutti giusti

nella undicesima colonna indica gli estratti dell'ultima estrazione cioè quanti numeri sono usciti

ma qui già in alcune righe il conteggio non è giusto

me ne sono accordo facendo la ricerca sulla ruota "tutte"
infatti dove inizia il rit. 0 dovrebbero esserci quanti estratti ci sono ma non lo fa
dove invece il ritardo è diverso da 0 è esatto

spero di essermi spiegato bene altrimenti farò altri esempi

grazie anticipatamente

fammi sapere

saluti

 

[rubino2]

io ho provato in questo modo:
questo sono le 3 righe che trovi nello script

la prima vedi che c'è ' è stata esclusa è remmata ed è stata attivata la seconda call statisticaform......etc.
come vedi io ho tolto ' attivando la riga seriefreq e mettendo ''''' sulla riga cal statisticaform.....

aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
'''' Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,ini,fin,,aPos)

ho lanciato lo script che presenta questo prospetto




prova a controllare e se va bene, ti posto eventualmente lo script, ma credo che non serve, perch si tratta solo di togliere un 'apice e metterlo su un'altra.
salvare e lanciare il tutto

fammi sapere se si è risolto

 

[ppaaoolloo]

ciao Rubino2
se riesci a mettermi lo script è meglio
perché non ho ben capito cosa fare,
più tardi sono davanti al PC e riesco
a provarlo e ti faccio sapere se lavora
in maniera giusta

grazie ancora per la tua disponibilità

 

[rubino2]

script :

Sub Main
Dim a(90)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
'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)
' Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,ini,fin,,aPos)
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(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)
Call SetColoreCella(12,RGB(255,128,128),1)
End If
For y = 5 To 9
If avalori(3) = avalori Then Call SetColoreCella(,4,2)
Next
For x = 24 To 33
If avalori(x) > 0 Then Call SetColoreCella((x),RGB(128,255,255),1)
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



prova a lanciarlo

 

[ppaaoolloo]

ciao rubino2
ti ringrazio ancora molto
ma purtroppo un incidente domestico
a mia madre successo in mattinata mi tiene
lontano dal PC.....
mi trovo attualmente in ospedale e ti sto scrivendo
con il telefono
ti farò sapere appena possibile
grazie ancora e scusami
buona domenica

 

[ppaaoolloo]

ciao rubino2
oggi ho avuto modo di provarlo e testarlo
e sembra proprio che ora con le variazioni che
hai eseguito vada veramente bene

un sentito ringraziamento per la tua disponibilità
e per la tua gentilezza

saluti