Per Mike58 o chi è capace

[solare]

Ciao chiedo cortesemente se possibile modificare questo listato per il 10elotto serale e 5minuti.
Grazie

Sub Main
Dim N(1),T,V,VetN,VetQ
Ini = EstrazioneIni' - 180
fin = EstrazioneFin
Tot = fin - Ini
Scrivi "Script By Mike58 > Per avere un'idea dei numeri migliori considerare i quelli con media ritardo più bassa ",1,,,1,2,,1
Scrivi" Un'ottimo uso di questa mia idea è selezionare la o le ruote ordinare per decina è selezionare i numeri che rientrano in un ritardo dopo la sortita dello stesso di max 7/8 estrazioni"
ReDim R(0)
Rr = ScegliRuote(R)
Scrivi "Elenco Numeri Su Ruote di : " & StringaRuote(R),1
Scrivi
T = Array(T,"Numero","Rp1","Rp2","Rp3","Rp4","Rp5","Rp 6","Rp7","Rp8","Rp9","Rp10","Rp11","Rp12","Rp13"," Rp14","Rp15","Rp16","Rp17","Rp18","Rp19","Rp20","Q .tà Rip","Num Rip","Rip al Rit","Tot Rit","Media Rit")
Call InitTabella(T,RGB(146,139,126),,3,5)
'ReDim Nn(0)
'ScegliNumeri(Nn)
For x = 1 To 90'UBound(Nn)
N(1) = x

Call Messaggio("Elaboro Numeri . . . . . . . " & x)
Call AvanzamentoElab(1,90,x)

'------ elenco ritardi..............
ReDim rp(20),fr(20)
Inizio = EstrazioneIni
fine = EstrazioneFin
somrit12 = 0
For z = 1 To 20
rp(z) = SerieRitardoTurbo(Inizio,fine,N,R,1)
somrit12 = somrit12 + rp(z) + 1
fr(1) = SerieFreqTurbo(fine - somrit12,fine,N,R,1)
fine = fine -(rp(z) + 1)

Med = Round(somrit12/20,2)
freq = fr(1) '+ 1
Mfr = Round(freq/20,2)

Next
bb = 0
For xx = 1 To 20
If rp(xx) = rp(1) Then bb = bb + 1
Next
'.........................................
Call NumeriRipetutiRilevatiV(rp,VetN,VetQ)


V = Array(V,StringaNumeri(N),rp(1),rp(2),rp(3),rp(4),rp(5),rp(6),rp(7),rp(8),rp(9),rp(10),rp(11),rp(12),rp(13),rp(14),rp(15),rp(16),rp(17),rp(18),rp(19),rp(20),_
StringaNumeri(VetQ),StringaNumeri(VetN),bb,somrit12,Med)
Call AddRigaTabella(V,,,3,,"Cambria")
bb = ""
For x1 = 1 To 2
For x2 = x1 + 1 To 21
If V(x1) = V(x2) Then Call SetColoreCella((x1),3,0)
If V(x2) = V(x1) Then Call SetColoreCella((x2),3,0)

Next
Next
Next
CreaTabellaOrdinabile(2)
End Sub

 

[Membro cancellato 16574]

buonanotte,
Salutandola , in attesa di Mike58 , postiamo il listato modificato.

Option Explicit
'Per Mike58 o chi è capace di solare
'http://forum.lottoced.com/forum/lottoced/area-download/2055530-per-mike58-o-chi-%C3%A8-capace
Sub Main()
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim N(01),T,V,VetN,VetQ
Dim Ini,fin,Tot
Ini = EstrazioneIniDL' - 180
fin = EstrazioneFinDL
Tot = fin - Ini
Call Scrivi("Script By Mike58 > Per avere un'idea dei numeri migliori considerare i quelli con media ritardo più bassa ",01,,,01,02,,01)
Call Scrivi(" Un'ottimo uso di questa mia idea è ordinare per decina è selezionare i numeri che rientrano In un ritardo " & _
"dopo la sortita dello stesso di max 7/8 estrazioni")
Call Scrivi("Elenco Numeri",01)
Call Scrivi
T = Array(T,"Numero","Rp01","Rp02","Rp03","Rp04","Rp05","Rp06","Rp07","Rp08","Rp09","Rp10","Rp11","Rp12","Rp13",_
"Rp14","Rp15","Rp16","Rp17","Rp18","Rp19","Rp20","Q .tà Rip","Num Rip","Rip al Rit","Tot Rit","Media Rit")
Call InitTabella(T,RGB(146,139,126),,03,05)
'ReDim Nn(0)
'ScegliNumeri(Nn)
Dim x
For x = 01 To 90'UBound(Nn)
N(01) = x
Call Messaggio("Elaboro Numeri . . . . . . . " & Format2(x))
Call AvanzamentoElab(01,90,x)
'------ elenco ritardi..............
ReDim rp(20),fr(20)
Dim Inizio,fine,SomRit12
Inizio = EstrazioneIniDL
fine = EstrazioneFinDL
SomRit12 = 00
Dim z,Med,freq,Mfr
For z = 01 To 20
rp(z) = SerieRitardoDL(Inizio,fine,N,AMBATA_)
SomRit12 = SomRit12 + rp(z) + 01
fr(01) = SerieFreqDL(fine - SomRit12,fine,N,AMBATA_)
fine = fine -(rp(z) + 01)
Med = Round(SomRit12 / 20,02)
freq = fr(01) '+ 01
Mfr = Round(freq / 20,02)
Next
Dim bb,xx
bb = 00
For xx = 01 To 20
If rp(xx) = rp(01) Then bb = bb + 01
Next
'.........................................
Call NumeriRipetutiRilevatiV(rp,VetN,VetQ)
V = Array(V,StringaNumeri(N),rp(01),rp(02),rp(03),rp(04),rp(05),rp(06),rp(07),rp(08),rp(09),rp(10),rp(11),rp(12),_
rp(13),rp(14),rp(15),rp(16),rp(17),rp(18),rp(19),rp(20),StringaNumeri(VetQ),StringaNumeri(VetN),bb,SomRit12,Med)
Call AddRigaTabella(V,,,03,,"Cambria")
bb = ""
Dim x1,x2
For x1 = 01 To 02
For x2 = x1 + 01 To 21
If V(x1) = V(x2) Then Call SetColoreCella((x1),03,00)
If V(x2) = V(x1) Then Call SetColoreCella((x2),03,00)
Next
Next
Next
CreaTabellaOrdinabile(2)
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli Archivio 10eLotto") + 01
End Function

Controllare Sempre .
Salvo Errori ed Omissis .

 

[solare]

Perfetto, grazie Magia .....