cambio dello script del lotto per il superenalotto

[ppaaoolloo]

ciao
ho questo script per il lotto
vorrei poterlo utilizzaren anche per il superenalotto
chiedo aiuto

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




ringrazio anticipatamente

saluti

 

[Alien.]

ciao mi da errore qua...... num(y,i)=gruppi(x,y,i) la x non va bene l'ho aggiunta ma nulla da fare help è.....trasformarlo per il super non sarebbe male

 

[Membro cancellato 16574]

Buongiorno ,
Salutando tutti , postiamo il listato modificato .

Option Explicit
Sub Main
   Dim QualeTab : QualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
   Dim QT : QT = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
   Dim Sorte : Sorte = CInt(InputBox("QUALE SORTE ",,1))
   Dim Color : Color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
   Dim FIn,Ini : FIn = EstrazioniArchivioSE : Ini = FIn - QT
   Dim aTitoli : Call aGetIntestazione(Ini,FIn,Sorte) : Call aGetTitoli(aTitoli)
   ReDim A(90) : Call aGetDati(A)
   Dim N,NU,Ritardo,RitardoMax,IncrRitMax,Frequenza,RetEsito,RetEstratti,RetEsitoF,RetEstrF,x
   Dim aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm
   For N = 01 To UBound(A) : Call Messaggio(N) : Call AvanzamentoElab(01,UBound(A),N)
      Call aGetStatistiche(NU,A,N,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,FIn,_
      RetEsito,RetEstratti,RetEsitoF,RetEstrF,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm)
      If Frequenza > 00 Then
         Dim aValori : Call aGetValori(aValori,N,NU,Ritardo,RitardoMax,aaa,bbb,ccc,_
         ddd,eee,fff,ggg,hhh,iii,lll,mmm,QT,Frequenza,RetEstratti,RetEsitoF,RetEstrF)
      End If
      For x = 01 To 15
         If N = Color Then Call SetColoreCella((x),03,01)
      Next
   Next
   Call SetTableWidth("100%") : Call aGetSceltaTabella(QualeTab) : Call aGetPic()
End Sub
Function aGetIntestazione(Ini,fin,Sorte)
   Call Scrivi("SUPERENALOTTO ",01,00,02,04,03)
   Call Scrivi(" dal " & DataEstrazioneSE(Ini) & " al " & DataEstrazioneSE(fin),01)
   Call Scrivi("Sorte analizzata..." & NomeSorte(Sorte),01,01,,01,03) : Call Scrivi()
End Function
Function aGetTitoli(aTitoli)
   aTitoli = Array(aTitoli,"Fila","Numeri","Rit.","Rit. M"_
   ,"Estr.","- 01","- 02","- 03","- 04","- 05","- 06","- 07","- 08","- 09","- 10",_
   "Estr.","+ 02","+ 03","+ 04","+ 05","+ 06","+ 07","+ 08","+ 09","+ 10","+ 11",_
   "I.C.","Media uscita","Stringa estratti","Ultima ESTR_Esito")
   Call InitTabella(aTitoli,02,,02,05)
End Function
Function aGetDati(A)
   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"
End Function
Sub aGetStatistiche(Nu,A,N,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,FIn,_
   RetEsito,RetEstratti,RetEsitoF,RetEstrF,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm)
   Nu = Split("00-" &(A(N)),"-")
   Call StatisticaFormazioneSE(Nu,Sorte,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,FIn)
   Call VerificaEsitoSE(Nu,FIn - Ritardo,Sorte,,RetEsito,,RetEstratti)
   Call VerificaEsitoSE(Nu,FIn,AMBATA_,,RetEsitoF,,RetEstrF)
   aaa = SerieFreqSE(FIn,FIn,Nu,AMBATA_)
   bbb = SerieFreqSE(FIn - 01,FIn - 01,Nu,AMBATA_) : ccc = SerieFreqSE(FIn - 02,FIn - 02,Nu,AMBATA_)
   ddd = SerieFreqSE(FIn - 03,FIn - 03,Nu,AMBATA_) : eee = SerieFreqSE(FIn - 04,FIn - 04,Nu,AMBATA_)
   fff = SerieFreqSE(FIn - 05,FIn - 05,Nu,AMBATA_) : ggg = SerieFreqSE(FIn - 06,FIn - 06,Nu,AMBATA_)
   hhh = SerieFreqSE(FIn - 07,FIn - 07,Nu,AMBATA_) : iii = SerieFreqSE(FIn - 08,FIn - 08,Nu,AMBATA_)
   lll = SerieFreqSE(FIn - 09,FIn - 09,Nu,AMBATA_) : mmm = SerieFreqSE(FIn - 10,FIn - 10,Nu,AMBATA_)
End Sub
Function aGetValori(aValori,N,NU,Ritardo,RitardoMax,aaa,bbb,ccc,ddd,eee,_
   fff,ggg,hhh,iii,lll,mmm,QT,Frequenza,RetEstratti,RetEsitoF,RetEstrF)
   aValori = Array(aValori," Dec. " & Format2(N),StringaNumeri(NU,,True),Ritardo,RitardoMax,_
   aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm,aaa,_
   aaa + bbb,aaa + bbb + ccc,aaa + bbb + ccc + ddd,aaa + bbb + ccc + ddd + eee,_
   aaa + bbb + ccc + ddd + eee + fff,aaa + bbb + ccc + ddd + eee + fff + ggg,_
   aaa + bbb + ccc + ddd + eee + fff + ggg + hhh,aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii,_
   aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll,_
   aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm,_
   Round(QT/Frequenza,02),Round(Frequenza/QT*Ritardo,02),RetEstratti,RetEsitoF & " : " & RetEstrF)
   Call AddRigaTabella(aValori,,,02)
End Function
Function aGetSceltaTabella(QualeTab)
   If QualeTab = 01 Then Call CreaTabella(06)
   If QualeTab = 02 Then Call CreaTabellaOrdinabile(06)
   If QualeTab > 02 Then MsgBox " errore digit Tabella"
End Function
Function aGetPic()
   Call PicClear() : Call PicStampaTesto(01,10,"Script by Mike58 ",,01,01,,11,vbRed) : Call PicEsegui()
End Function

Controllare Sempre .
Salvo Errori ed Omissis .