Novità

INNOVATIVA RICERCA STATISTICA

Grazie Beppignello
Lanciando lo script questi sono i risultati alla data 17/11/2016,
Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n.2581/17.11.2016 SuperEnalotto -7 SuperStar in Ritardo.............38.85.44.50.24.83.77.13. -7 Migliori IdR+IdF...Capogioco.....05.28.27.58.15.46.29.42. -7 Più in Ritardo...................33.05.42.38.15.58.27.89. -7 Sotto Frequenti .................60.59.09.28.05.50.07.23. -7 Più Frequenti ...................85.90.01.81.55.77.88.49. -7 Radicali più in Ritardo..........33.05.89.08.29.30.88.10. -7 Gemelli più in Ritardo...........33.88.11.77.66.55.22. - Nr.in Evidenza x Somma Ritardi <100 >360.........34.67.09.43.59.48.18.04.65.68.61.45.54.83.32.25.12.01.86.85. Rilancio con l'aggiornamento del 19/11/2016 questi sono i risultat
Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n.2582/19.11.2016 SuperEnalotto -7 SuperStar in Ritardo.............44.38.85.50.24.83.77.13. -7 Migliori IdR+IdF...Capogioco.....05.27.58.15.46.42.10.16. -7 Più in Ritardo...................33.05.42.38.15.58.27.89. -7 Sotto Frequenti .................60.59.09.50.28.05.07.23. -7 Più Frequenti ...................85.90.01.55.81.88.77.83. -7 Radicali più in Ritardo..........33.05.89.08.30.10.88.70. Oggi è uscito il 44 come superstar,e lo ritrovo ancora come ritardatario nell'aggiornamento del 19/11/2016. Altra richiesta se fattibile volevo chiedere se si poteva fare la stessa modifica sullo script 10elotto mettendo i numeri oro. Grazie
edesimone
 
Ultima modifica:
Codice: 
Option Explicit
Sub Main
 Dim rie(90,15),an(1)
 Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit,yy,retesito,retestratti,retidestr,da,elesom,f,k
 Dim e1,e2,e3,e4,e5,e6,e8
 f = EstrazioniArchivioSE
 fine = InputBox("Estrazione n.",,f)
 det = InputBox("Dettaglio Graduatorie",,"NO")
 ''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
 Dim atitolo(17),aris(17)
 '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
 '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
 atitolo(1) = " ID "
 atitolo(2) = " SuperE."
 atitolo(3) = " Nr. "
 atitolo(4) = " RaE "
 atitolo(5) = " Gr.1 "
 atitolo(6) = " Fre "
 atitolo(7) = " Gr.2 "
 atitolo(8) = " IdR+IdF "
 atitolo(9) = " "
 atitolo(10) = " Tot.Rit"
 atitolo(11) = " key1 "
 atitolo(12) = " key2 "
 atitolo(13) = " key3 "
 atitolo(14) = "Star"
 SetTableWidth("85%px")
 Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 ReDim aNum(90),stella(90,2),afre(90)
 For k = 1 To fine
  ''' calcola RitardoCombinazione
  For n = 1 To 90
   aNum(n) = aNum(n) + 1
   stella(n,1) = stella(n,1) + 1
   stella(n,2) = Format2(n)
  Next
  aNum(EstrattoSE(k,1)) = 0
  aNum(EstrattoSE(k,2)) = 0
  aNum(EstrattoSE(k,3)) = 0
  aNum(EstrattoSE(k,4)) = 0
  aNum(EstrattoSE(k,5)) = 0
  aNum(EstrattoSE(k,6)) = 0
  stella(EstrattoSE(k,8),1) = 0
  ''''''frequenza
  afre(EstrattoSE(k,1))  = afre(EstrattoSE(k,1)) + 1
  afre(EstrattoSE(k,2))  = afre(EstrattoSE(k,2)) + 1
  afre(EstrattoSE(k,3))  = afre(EstrattoSE(k,3)) + 1
  afre(EstrattoSE(k,4))  = afre(EstrattoSE(k,4)) + 1
  afre(EstrattoSE(k,5))  = afre(EstrattoSE(k,5)) + 1
  afre(EstrattoSE(k,6))  = afre(EstrattoSE(k,6)) + 1
  '''''''''''''''''
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 ''''''''''ritardo''''
 For n = 1 To 90
  iy = iy + 1
  rie(iy,2) = Format2(n)
  rie(iy,3) = aNum(n)
  rie(iy,4) = afre(n)
  rie(iy,5) = 0
  rie(iy,6) = 0
  rie(iy,7) = 0
  rie(iy,8) = 0
  rie(iy,9) = 0
  key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
  key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
  rie(iy,13) = key1
  rie(iy,14) = key2
  rie(iy,15) = 0
 Next
 ''''graduatoria ritardo
 Call OrdinaMatrice(rie,- 1,3)
 we = 0
 If det <> "NO" Then
  Scrivi " SuperEnalotto ",1
  Scrivi " E L E N C O X R I T A R D O ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) > 0 Then
   we = we + 1
   rie(e,5) = we
   rie(e,6) = 0
   rie(e,7) = 0
   rie(iy,8) = 0
   If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
  End If
 Next
 ''''graduatoria frequenza
 Call OrdinaMatrice(rie,1,4)
 we = 0
 If det <> "NO" Then
  Scrivi " SuperEnalotto",1
  Scrivi " E L E N C O X f r e q u e n z a ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) <> "" Then
   If rie(e,4) > 0 Then
    we = we + 1
    rie(e,7) = we
    rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
    If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
   End If
  End If
 Next
 ' ''''' graduatoria di somma
 ColoreTesto(1)
 Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazioneSE(fine),1
 Scrivi " SuperEnalotto",1
 ColoreTesto(0)
 Call OrdinaMatrice(rie,1,8)
 elesom = ""
 For t = 1 To 90
  '''''''''''''''''''''''''''''''''''''''''''''''
  v = v + 1
  If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
  '''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
  aris(1) = FormattaStringa(v,"00")
  aris(2) = "Super"
  aris(3) = rie(t,2)
  aris(4) = rie(t,3)
  aris(5) = rie(t,5)
  aris(6) = rie(t,4)
  aris(7) = rie(t,7)
  aris(8) = rie(t,8)
  aris(9) = rie(t,15)
  aris(11) = rie(t,13)
  aris(12) = rie(t,14)
  aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
  '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
  '''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
  an(1) = rie(t,2)
  Call ElencoRitardiSE(an,1,1,fine,aretritardi,aretidestr)
  limusc = UBound(aretritardi)
  If limusc > 0 And limusc > 10 Then
   nusc = limusc - 10 : Totrit = 0
   For nusc = nusc + 1 To limusc - 1
    Totrit = Totrit + aretritardi(nusc)
   Next
   aris(10) = Totrit + rie(t,3)
   If aris(10) <= 100 Or aris(10) >= 360 Then
    elesom = elesom & Format2(aris(3)) & "."
   End If
  Else
   aris(10) = 0
  End If
  '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
  aris(14) = stella(rie(t,2),1)
  Call AddRigaTabella(aris,,,1)
  Call SetColoreCella(3,RGB(155,255,155),vbBlack)
  Call SetColoreCella(8,RGB(255,255,202),vbBlack)
 Next
 ''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
 ColoreTesto(2)
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''''''''calcola 7 SUperStar o Stella in Ritardo
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(stella,-1,1)
 For z = 1 To 7
  ele = ele & Format2(stella(z,2)) & "."
 Next
 Scrivi "-7 SuperStar in Ritardo............." & ele,1
 ''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
 ColoreTesto(2)
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''''''''''''calcola 7 migliori
 '''''idr+idf
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,1,8)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Migliori IdR+IdF...Capogioco....." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''Ritardo
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,- 1,3)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Più in Ritardo..................." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''Sotto Frequenti
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,1,4)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Sotto Frequenti ................." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''' + Frequenti
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,- 1,4)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Più Frequenti ..................." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ColoreTesto(2)
 '''''''''''''''''radicali
 ReDim nm(32,2)
 iz = 0
 For z = 1 To 90
  For y = 1 To 8
   If Radicale(Int(rie(z,2))) = y Then
    iz = iz + 1
    nm(iz,1) = rie(z,2)
    nm(iz,2) = rie(z,3)
   End If
  Next
 Next
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
  yy = yy + 1
  nr(yy) = Format2(nm(z,1))
 Next
 Scrivi "-7 Radicali più in Ritardo.........." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''''''''''''''Gemelli
 ColoreTesto(2)
 ReDim nm(90,2)
 iz = 0
 For z = 1 To 90
  If Gemello(rie(z,2)) = True Then
   iz = iz + 1
   nm(iz,1) = rie(z,2)
   nm(iz,2) = rie(z,3)
  End If
 Next
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
  yy = yy + 1
  nr(yy) = Format2(nm(z,1))
 Next
 Scrivi "-7 Gemelli più in Ritardo..........." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''''''''''''''Tot.SOmma ritardi  (9+1)
 ColoreTesto(2)
 Call OrdinaMatrice(nm,- 1,2)
 Dim qtsr
 ReDim nr(35)
 Call SplitByChar(elesom,".",nr)
 qtsr = UBound(nr)
 Scrivi "-  Nr.in Evidenza x Somma Ritardi <100 >360........." & elesom,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 Call CreaTabellaOrdinabile(8,1,1)
End Sub


corretto star e 7 più in ritardo superstar!

buona domenica
 
[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jphf.jpg"}[/IMG2]




LA graduatoria "Gr.3" a cosa si riferisce?
e la "somma" sarebbe il risultato di 10 estrazioni consecutive?
grazie x i chiarimenti che vorrai darci...

PS:
- per le frequenze da che estrazione inizie l'analisi?
- il Tot Rit del script che pubblico qui sotto , è diverso o uguale a quello da cui deriva la tua tabella? , insomma il dato "somma" della tua tabella è uguale al " Tot Rit " della mia tabella?
-per non parlare della graduatoria 3 , ci dCattura.JPG ?
 

Allegati

  • Cattura.JPG
    Cattura.JPG
    31,2 KB · Visite: 2
  • Cattura.JPG
    Cattura.JPG
    31,2 KB · Visite: 2
Ultima modifica:
La grad3 e' un tentativo di legare un sincronismo di somma uguale

vediamo se riesco a spiegarmi bene

i sincronismi che numerico ha richiesto all'origine erano ritardo e frequenza
con le 2 graduatorie ordinate differentemente
con una estensione di una graduatoria 3 con delle sue regole.

qua la differenza che ho posto io

la graduatoria 3 di numerico non mi convince come risultati, in quanto e' come quella dei sistemi virtuali, dove sebbene rientrano in un determinato tempo per ritardi, in verita' sono soggetti ad aumentare col trascorrere delle estrazioni.

le mie differenti idee, in fase di test sono:

bi-sincronia ritardo/frequenza ok

a) somma IDR+IDF
questa somma delle posizione nelle 2 grad.1 e grad.2
legano sicuramente il bi-sincronismo, quando c'è, ma lega anche numeri diversi non in bisincronismo
b) a questo punto è necessaria un grad.3 che dimostri un sincronismo
tra bisincroni ma con somma idr+idf diversa.

la ragione è questa:
ho controllato a campione, che il bisincronismo a 3 livelli
spesso sforna estratti, ma sembra a prima vista che i tempi siano un po dilatati (vedi gli estratti BARI 51 e 69 )

rispetto agli altri casi (vedi FI 45 e 69 e NA 61 e 44)

perché?

è quello che sto cercando di capire.


anche numerico all'inizio ha detto che il bi-sincronismo doveva farsi carico di numeri derivanti anche da altre ruote, perché spesso si scambiavano le ruote in uscita.

qua è più o meno lo stesso concetto, se si guarda solo al bi-sincronismo, si è raggiunto solo una parte dell'obbiettivo, ma rimane
scoperto un'altra parte dei ragionamenti.

il bi-sincronismo, diventa il tri-sincronismo

ritardo/frequenza/somma idr+idf


----------------------------------------------------------------

ultima cosa in merito alla colonna Totrit.

genios ha richiesto 10 ritardi precedenti,
ma io avevo impostato già sul mio script di lavoro 4 ritardi precedenti
in quanto per me ne bastano 4 per capire se un numero è frequente di breve periodo.

questa è la differenza tra i 2 script, ma il concetto è sempre quello
 
Ultima modifica di un moderatore:
Beppignello;n2023492 ha scritto:
Codice: 
Option Explicit
Sub Main
Dim rie(90,15),an(1)
Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit,yy,retesito,retestratti,retidestr,da,elesom,f,k
Dim e1,e2,e3,e4,e5,e6,e8
f = EstrazioniArchivioSE
fine = InputBox("Estrazione n.",,f)
det = InputBox("Dettaglio Graduatorie",,"NO")
''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
Dim atitolo(17),aris(17)
'''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
'''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
atitolo(1) = " ID "
atitolo(2) = " SuperE."
atitolo(3) = " Nr. "
atitolo(4) = " RaE "
atitolo(5) = " Gr.1 "
atitolo(6) = " Fre "
atitolo(7) = " Gr.2 "
atitolo(8) = " IdR+IdF "
atitolo(9) = " "
atitolo(10) = " Tot.Rit"
atitolo(11) = " key1 "
atitolo(12) = " key2 "
atitolo(13) = " key3 "
atitolo(14) = "Star"
SetTableWidth("85%px")
Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
ReDim aNum(90),stella(90,2),afre(90)
For k = 1 To fine
''' calcola RitardoCombinazione
For n = 1 To 90
aNum(n) = aNum(n) + 1
stella(n,1) = stella(n,1) + 1
stella(n,2) = Format2(n)
Next
aNum(EstrattoSE(k,1)) = 0
aNum(EstrattoSE(k,2)) = 0
aNum(EstrattoSE(k,3)) = 0
aNum(EstrattoSE(k,4)) = 0
aNum(EstrattoSE(k,5)) = 0
aNum(EstrattoSE(k,6)) = 0
stella(EstrattoSE(k,8),1) = 0
''''''frequenza
afre(EstrattoSE(k,1)) = afre(EstrattoSE(k,1)) + 1
afre(EstrattoSE(k,2)) = afre(EstrattoSE(k,2)) + 1
afre(EstrattoSE(k,3)) = afre(EstrattoSE(k,3)) + 1
afre(EstrattoSE(k,4)) = afre(EstrattoSE(k,4)) + 1
afre(EstrattoSE(k,5)) = afre(EstrattoSE(k,5)) + 1
afre(EstrattoSE(k,6)) = afre(EstrattoSE(k,6)) + 1
'''''''''''''''''
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
''''''''''ritardo''''
For n = 1 To 90
iy = iy + 1
rie(iy,2) = Format2(n)
rie(iy,3) = aNum(n)
rie(iy,4) = afre(n)
rie(iy,5) = 0
rie(iy,6) = 0
rie(iy,7) = 0
rie(iy,8) = 0
rie(iy,9) = 0
key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
rie(iy,13) = key1
rie(iy,14) = key2
rie(iy,15) = 0
Next
''''graduatoria ritardo
Call OrdinaMatrice(rie,- 1,3)
we = 0
If det <> "NO" Then
Scrivi " SuperEnalotto ",1
Scrivi " E L E N C O X R I T A R D O ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) > 0 Then
we = we + 1
rie(e,5) = we
rie(e,6) = 0
rie(e,7) = 0
rie(iy,8) = 0
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
End If
Next
''''graduatoria frequenza
Call OrdinaMatrice(rie,1,4)
we = 0
If det <> "NO" Then
Scrivi " SuperEnalotto",1
Scrivi " E L E N C O X f r e q u e n z a ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) <> "" Then
If rie(e,4) > 0 Then
we = we + 1
rie(e,7) = we
rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
End If
End If
Next
' ''''' graduatoria di somma
ColoreTesto(1)
Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazioneSE(fine),1
Scrivi " SuperEnalotto",1
ColoreTesto(0)
Call OrdinaMatrice(rie,1,8)
elesom = ""
For t = 1 To 90
'''''''''''''''''''''''''''''''''''''''''''''''
v = v + 1
If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
'''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
aris(1) = FormattaStringa(v,"00")
aris(2) = "Super"
aris(3) = rie(t,2)
aris(4) = rie(t,3)
aris(5) = rie(t,5)
aris(6) = rie(t,4)
aris(7) = rie(t,7)
aris(8) = rie(t,8)
aris(9) = rie(t,15)
aris(11) = rie(t,13)
aris(12) = rie(t,14)
aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
an(1) = rie(t,2)
Call ElencoRitardiSE(an,1,1,fine,aretritardi,aretidestr)
limusc = UBound(aretritardi)
If limusc > 0 And limusc > 10 Then
nusc = limusc - 10 : Totrit = 0
For nusc = nusc + 1 To limusc - 1
Totrit = Totrit + aretritardi(nusc)
Next
aris(10) = Totrit + rie(t,3)
If aris(10) <= 100 Or aris(10) >= 360 Then
elesom = elesom & Format2(aris(3)) & "."
End If
Else
aris(10) = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
aris(14) = stella(rie(t,2),1)
Call AddRigaTabella(aris,,,1)
Call SetColoreCella(3,RGB(155,255,155),vbBlack)
Call SetColoreCella(8,RGB(255,255,202),vbBlack)
Next
''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
ColoreTesto(2)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''''''''calcola 7 SUperStar o Stella in Ritardo
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(stella,-1,1)
For z = 1 To 7
ele = ele & Format2(stella(z,2)) & "."
Next
Scrivi "-7 SuperStar in Ritardo............." & ele,1
''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
ColoreTesto(2)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''''''''''''calcola 7 migliori
'''''idr+idf
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,1,8)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Migliori IdR+IdF...Capogioco....." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''Ritardo
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,- 1,3)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Più in Ritardo..................." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''Sotto Frequenti
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,1,4)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Sotto Frequenti ................." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''' + Frequenti
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,- 1,4)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Più Frequenti ..................." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
ColoreTesto(2)
'''''''''''''''''radicali
ReDim nm(32,2)
iz = 0
For z = 1 To 90
For y = 1 To 8
If Radicale(Int(rie(z,2))) = y Then
iz = iz + 1
nm(iz,1) = rie(z,2)
nm(iz,2) = rie(z,3)
End If
Next
Next
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(nm,- 1,2)
For z = 1 To 7
ele = ele & Format2(nm(z,1)) & "."
yy = yy + 1
nr(yy) = Format2(nm(z,1))
Next
Scrivi "-7 Radicali più in Ritardo.........." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''''''''''''''Gemelli
ColoreTesto(2)
ReDim nm(90,2)
iz = 0
For z = 1 To 90
If Gemello(rie(z,2)) = True Then
iz = iz + 1
nm(iz,1) = rie(z,2)
nm(iz,2) = rie(z,3)
End If
Next
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(nm,- 1,2)
For z = 1 To 7
ele = ele & Format2(nm(z,1)) & "."
yy = yy + 1
nr(yy) = Format2(nm(z,1))
Next
Scrivi "-7 Gemelli più in Ritardo..........." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''''''''''''''Tot.SOmma ritardi (9+1)
ColoreTesto(2)
Call OrdinaMatrice(nm,- 1,2)
Dim qtsr
ReDim nr(35)
Call SplitByChar(elesom,".",nr)
qtsr = UBound(nr)
Scrivi "- Nr.in Evidenza x Somma Ritardi <100 >360........." & elesom,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Call CreaTabellaOrdinabile(8,1,1)
End Sub


corretto star e 7 più in ritardo superstar!

buona domenica
Clicca per espandere...


ciao Beppignello
grazie per tutto quello che stai facendo,
ti chiedo se ti è possibile tra i tuoi numerosi
impegni e studi di poter trovare del tempo
per rendere questo script utilizzabile anche
per il 10elotto serale

ti ringrazio anticipatamente per la tua disponibilità
e cortesia ed ancora grazie per tutto

ciao

:) :) :)
 
10 e Lotto



Codice: 
Option Explicit
Sub Main
 Dim rie(90,15),an(1)
 Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit,yy,retesito,retestratti,retidestr,da,elesom,f,k
 Dim e1,e2,e3,e4,e5,e6,e8
 ImpostaArchivio10ELotto(1)
 f = EstrazioniArchivioDL
 fine = InputBox("Estrazione n.",,f)
 det = InputBox("Dettaglio Graduatorie",,"NO")
 ''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
 Dim atitolo(17),aris(17)
 '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
 '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
 atitolo(1) = " ID "
 atitolo(2) = " 10eLOTTO"
 atitolo(3) = " Nr. "
 atitolo(4) = " RaE "
 atitolo(5) = " Gr.1 "
 atitolo(6) = " Fre "
 atitolo(7) = " Gr.2 "
 atitolo(8) = " IdR+IdF "
 atitolo(9) = " "
 atitolo(10) = " Tot.Rit"
 atitolo(11) = " key1 "
 atitolo(12) = " key2 "
 atitolo(13) = " key3 "
 atitolo(14) = " Rit.ORO"
 SetTableWidth("85%px")
 Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 '''oro 1 posizione bari
 ReDim apos(5)
 apos(1) = True
 ''''''''''ritardo''''
 For n = 1 To 90
  iy = iy + 1
  rie(iy,2) = Format2(n)
  rie(iy,3) = EstrattoRitardoDL(n,EstrazioneIni,fine)
  rie(iy,4) = EstrattoFrequenzaDL(n,EstrazioneIni,fine)
  rie(iy,5) = 0
  rie(iy,6) = 0
  rie(iy,7) = 0
  rie(iy,8) = 0
  rie(iy,9) = 0
  key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
  key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
  rie(iy,13) = key1
  rie(iy,14) = key2
  rie(iy,15) = EstrattoRitardoTurbo(1,n,EstrazioneIni,fine,,,apos)
 Next
 ''''graduatoria ritardo
 Call OrdinaMatrice(rie,- 1,3)
 we = 0
 If det <> "NO" Then
  Scrivi " 10eLotto ",1
  Scrivi " E L E N C O X R I T A R D O ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) > 0 Then
   we = we + 1
   rie(e,5) = we
   rie(e,6) = 0
   rie(e,7) = 0
   rie(iy,8) = 0
   If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
  End If
 Next
 ''''graduatoria frequenza
 Call OrdinaMatrice(rie,1,4)
 we = 0
 If det <> "NO" Then
  Scrivi " 10eLotto ",1
  Scrivi " E L E N C O X f r e q u e n z a ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) <> "" Then
   If rie(e,4) > 0 Then
    we = we + 1
    rie(e,7) = we
    rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
    If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
   End If
  End If
 Next
 ' ''''' graduatoria di somma
 ColoreTesto(1)
 Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazioneDL(fine),1
 Scrivi " 10 e Lotto ",1
 ColoreTesto(0)
 Call OrdinaMatrice(rie,1,8)
 elesom = ""
 For t = 1 To 90
  '''''''''''''''''''''''''''''''''''''''''''''''
  v = v + 1
  If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
  '''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
  aris(1) = FormattaStringa(v,"00")
  aris(2) = "10eLotto"
  aris(3) = rie(t,2)
  aris(4) = rie(t,3)
  aris(5) = rie(t,5)
  aris(6) = rie(t,4)
  aris(7) = rie(t,7)
  aris(8) = rie(t,8)
  aris(9) = rie(t,15)
  aris(11) = rie(t,13)
  aris(12) = rie(t,14)
  aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
  '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
  '''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
  an(1) = rie(t,2)
  Call ElencoRitardiDL(an,1,EstrazioneIni,fine,aretritardi,aretidestr)
  limusc = UBound(aretritardi)
  If limusc > 0 And limusc > 10 Then
   nusc = limusc - 10 : Totrit = 0
   For nusc = nusc + 1 To limusc - 1
    Totrit = Totrit + aretritardi(nusc)
   Next
   aris(10) = Totrit + rie(t,3)
   If aris(10) <= 100 Or aris(10) >= 360 Then
    elesom = elesom & Format2(aris(3)) & "."
   End If
  Else
   aris(10) = 0
  End If
  '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
  '''RITARDO ORO
  aris(14) = rie(t,15)
  Call AddRigaTabella(aris,,,1)
  Call SetColoreCella(3,RGB(155,255,155),vbBlack)
  Call SetColoreCella(8,RGB(255,255,202),vbBlack)
 Next
 ''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
 ColoreTesto(2)
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''''''''''''calcola 7 migliori
 '''''idr+idf
 ele = "" : yy = 0
 ReDim nr(10)
 Call OrdinaMatrice(rie,1,8)
 For z = 1 To 10
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-10 Migliori IdR+IdF...Capogioco....." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''Ritardo
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(10)
 Call OrdinaMatrice(rie,- 1,3)
 For z = 1 To 10
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-10 Più in Ritardo..................." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''Sotto Frequenti
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(10)
 Call OrdinaMatrice(rie,1,4)
 For z = 1 To 10
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-10 Sotto Frequenti ................." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''' + Frequenti
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(10)
 Call OrdinaMatrice(rie,- 1,4)
 For z = 1 To 10
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-10 Più Frequenti ..................." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ColoreTesto(2)
 '''''''''''''''''radicali
 ReDim nm(32,2)
 iz = 0
 For z = 1 To 90
  For y = 1 To 8
   If Radicale(Int(rie(z,2))) = y Then
    iz = iz + 1
    nm(iz,1) = rie(z,2)
    nm(iz,2) = rie(z,3)
   End If
  Next
 Next
 ele = "" : yy = 0
 ReDim nr(10)
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 10
  ele = ele & Format2(nm(z,1)) & "."
  yy = yy + 1
  nr(yy) = Format2(nm(z,1))
 Next
 Scrivi "-10 Radicali più in Ritardo.........." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''''''''''''''Gemelli
 ColoreTesto(2)
 ReDim nm(90,2)
 iz = 0
 For z = 1 To 90
  If Gemello(rie(z,2)) = True Then
   iz = iz + 1
   nm(iz,1) = rie(z,2)
   nm(iz,2) = rie(z,3)
  End If
 Next
 ele = "" : yy = 0
 ReDim nr(8)
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 8
  ele = ele & Format2(nm(z,1)) & "."
  yy = yy + 1
  nr(yy) = Format2(nm(z,1))
 Next
 Scrivi "-8 Gemelli più in Ritardo..........." & ele,1
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 Call CreaTabellaOrdinabile(8,1,1)
End Sub


ciao
 
Ultima modifica di un moderatore:
Beppignello è possibile inserire nei tuoi capolavori, una istruzione che ci consenta di esaminare le ultime ''x'' estrazioni ? Con il lotto non c'è problema ci avvaliamo del mini browser, ma per il 10 e lotto e il suprenalotto diventa problematico andare a verificàre l'ultima o la ''i esima' estrazione. Vedi se si può fare e che non comporti grandi lavori, altrimenti lascia perdere. Grazie in ôgni caso.
 
Ma con quale archivio, spaziometria? o altro.

vuoi un listato delle estrazioni cosi' come sono avvenute?
 
Beppignello;n2024628 ha scritto:
Ma con quale archivio, spaziometria? o altro.

vuoi un listato delle estrazioni cosi' come sono avvenute?
Clicca per espandere...

si va benissimo l'archivio di spaziometria. Magari riportare, ad esempio, le ultime 10 estrazioni. Ma ripeto, se è una cosa complicata, per un doveroso rispetto e per non abusare della tua disponibilità, puoi ignorare questa mia richiesta. Un cordiale saluto.
 
l'ho fatto così
si ottengono 2 tabelle, una per il 10 e lotto serale e l'altra per il superenalotto
scegli tu quante estrazioni vuoi nell'elenco
il tutto è esportabile in excel



Codice: 
Option Explicit
Sub Main
 ColoreTesto(1)
 Scrivi " 2 Tabelle Riepilogative delle Estrazioni 10 e Lotto Serale  e  S u p e r E n a l o t t o",1
 Scrivi " Ottenute dagli archivi da Spaziometria.",1
 Scrivi " Ricordarsi di aggiornare gli archivi all'ultima Estrazione ",1
 Scrivi "------------------------------------------------------------------------------------------",1
 ColoreTesto(0)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ''''''10 e L o t t o
 Dim f,quante,Ini
 ImpostaArchivio10ELotto(1)
 f = EstrazioniArchivioDL
 quante = InputBox("Quante Estrazioni Vuoi in tabella? ",,15)
 ''''''crea tabella estrazioni 10 e Lotto
 Dim atit1(4),aris1(4)
 '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
 '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
 atit1(1) = " 10eLOTTO"
 atit1(2) = " Nr.e Data "
 atit1(3) = " N u m e r i "
 atit1(4) = " Oro "
 SetTableWidth("85%px")
 Call InitTabella(atit1,2,"left",1.5,5,"Cambria")
 Ini = f - quante
 For Ini = Ini + 1 To f
  aris1(1) = "10eLotto"
  aris1(2) = Ini & " / " & DataEstrazioneDL(Ini)
  ReDim nr(20)
  Call GetEstrazioneCompletaDL(Ini,nr)
  aris1(3) = StringaNumeri(nr,".")
  aris1(4) = Estratto(Ini,1,1) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Call AddRigaTabella(aris1,,,1)
 Next
 CreaTabellaOrdinabile(2)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ''''Nota Bene
 '''aggiorna eventuali estrazioni, selezionare altrimenu e lanciare plugin aggiorna estrazioni superenalotto
 '''''''''
 ''''''S u p e r E n a l o t t o
 Dim fS,NUMERI,U
 fS = EstrazioniArchivioSE
 ''''''crea tabella estrazioni 10 e Lotto
 Dim atit2(5),aris2(5)'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
 '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
 atit2(1) = " SuperEnalotto "
 atit2(2) = " Nr.e Data "
 atit2(3) = " N u m e r i "
 atit2(4) = " Jolly "
 atit2(5) = " Stella  "
 SetTableWidth("85%px")
 Call InitTabella(atit2,2,"left",1.5,5,"Cambria")
 Ini = fS - quante
 For Ini = Ini + 1 To fS
  aris2(1) = "S u p e r "
  aris2(2) = Ini & " / " & DataEstrazioneSE(Ini)
  ReDim nr(8)
  NUMERI = ""
  Call GetEstrazioneCompletaSE(Ini,nr,False)
  For U = 1 To 6
   NUMERI = NUMERI & Format2(nr(U)) & "."
  Next
  aris2(3) = NUMERI
  aris2(4) = nr(7)
  aris2(5) = nr(8)
  Call AddRigaTabella(aris2,,,1)
 Next
 CreaTabellaOrdinabile(2)
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
 
skygirl;n2023240 ha scritto:
Ciao a tutti/e complimenti per il grande lavoro Beppignello e numerico

trovo molto interessante il 66 come Capogioco in particolar modo su NA
e propongo il 66.39 NA
[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jSTe.jpg"}[/IMG2]

Aggiungo anche ROMA 66.39.44


vediamo un po'...
Un saluto
Clicca per espandere...

esce al 3° colpo il 66.44 FI
peccato è uscito su FI
 
VERAMENTE A FIR SONO USCITI 66.44.11 o sbaglio? come da gemelli in ritardo
 
Ultima modifica:

CAPIGIOCO.​
Per l'estrazione di domani sera, l'individuazione di un singolo capogioco, mi sembra rischiosa per cui mi servirò di 3 capigioco di cui uno, primo in graduatoria con un buon valore (3), e gli altri 2 con valore di graduatoria sincrono (4 per entrambi).

RUOTA DI CAGLIARI prima in classifica con valore di somma = 3: capogioco nr.33 abbinato ai gemelli
33-11
33-22
33-44
33-55
33-66
33-77
33-88

RUOTA DI MILANO Seconda in classifica parimerito con Palermo con valore di somma = 4 e capogioco nr.9
9-11
9-22
9-33
9-44
9-55
9-66
9-77
9-88

RUOTA DI PALERMO idem come sopra e con capogioco nr.14
14-11
14-22
14-33
14-44
14-55
14-66
14-77
14-88

La paola ora spetta alle "lavatrici" :D
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
(post del 19/11/2016)

il 26/11/2016 sono usciti ben 2 capigioco: il 33 a Cagliari e il 9 a Milano restituendo 16 ambate oltre a un grappolo di gemelli usciti precedentemente. Suppongo che, se la ''somma di posizione'' continuerà a dare buoni consigli sul capogioco da sfruttare, sarà un piacere portare avanti questa strategia.
 
90 ambate con il capogioco 14. Se esce il 14 al primo colpo, si fanno 94 ambate, altrimenti si procede con le normali progrssioni 2x1. Capogioco desunto dalla ''Somma di Posizione'': è il 14 di Palermo e, ovviamente, tutto l'impianto va giocato sulla ruota di Palermo..
[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2kjkA.jpg"}[/IMG2]
 
Ultima modifica:
Beppignello;n2023635 ha scritto:
10 e Lotto



Codice: 
Option Explicit
Sub Main
Dim rie(90,15),an(1)
Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit,yy,retesito,retestratti,retidestr,da,elesom,f,k
Dim e1,e2,e3,e4,e5,e6,e8
ImpostaArchivio10ELotto(1)
f = EstrazioniArchivioDL
fine = InputBox("Estrazione n.",,f)
det = InputBox("Dettaglio Graduatorie",,"NO")
''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
Dim atitolo(17),aris(17)
'''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
'''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
atitolo(1) = " ID "
atitolo(2) = " 10eLOTTO"
atitolo(3) = " Nr. "
atitolo(4) = " RaE "
atitolo(5) = " Gr.1 "
atitolo(6) = " Fre "
atitolo(7) = " Gr.2 "
atitolo(8) = " IdR+IdF "
atitolo(9) = " "
atitolo(10) = " Tot.Rit"
atitolo(11) = " key1 "
atitolo(12) = " key2 "
atitolo(13) = " key3 "
atitolo(14) = " Rit.ORO"
SetTableWidth("85%px")
Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
'''oro 1 posizione bari
ReDim apos(5)
apos(1) = True
''''''''''ritardo''''
For n = 1 To 90
iy = iy + 1
rie(iy,2) = Format2(n)
rie(iy,3) = EstrattoRitardoDL(n,EstrazioneIni,fine)
rie(iy,4) = EstrattoFrequenzaDL(n,EstrazioneIni,fine)
rie(iy,5) = 0
rie(iy,6) = 0
rie(iy,7) = 0
rie(iy,8) = 0
rie(iy,9) = 0
key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
rie(iy,13) = key1
rie(iy,14) = key2
rie(iy,15) = EstrattoRitardoTurbo(1,n,EstrazioneIni,fine,,,apos)
Next
''''graduatoria ritardo
Call OrdinaMatrice(rie,- 1,3)
we = 0
If det <> "NO" Then
Scrivi " 10eLotto ",1
Scrivi " E L E N C O X R I T A R D O ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) > 0 Then
we = we + 1
rie(e,5) = we
rie(e,6) = 0
rie(e,7) = 0
rie(iy,8) = 0
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
End If
Next
''''graduatoria frequenza
Call OrdinaMatrice(rie,1,4)
we = 0
If det <> "NO" Then
Scrivi " 10eLotto ",1
Scrivi " E L E N C O X f r e q u e n z a ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) <> "" Then
If rie(e,4) > 0 Then
we = we + 1
rie(e,7) = we
rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
End If
End If
Next
' ''''' graduatoria di somma
ColoreTesto(1)
Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazioneDL(fine),1
Scrivi " 10 e Lotto ",1
ColoreTesto(0)
Call OrdinaMatrice(rie,1,8)
elesom = ""
For t = 1 To 90
'''''''''''''''''''''''''''''''''''''''''''''''
v = v + 1
If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
'''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
aris(1) = FormattaStringa(v,"00")
aris(2) = "10eLotto"
aris(3) = rie(t,2)
aris(4) = rie(t,3)
aris(5) = rie(t,5)
aris(6) = rie(t,4)
aris(7) = rie(t,7)
aris(8) = rie(t,8)
aris(9) = rie(t,15)
aris(11) = rie(t,13)
aris(12) = rie(t,14)
aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
an(1) = rie(t,2)
Call ElencoRitardiDL(an,1,EstrazioneIni,fine,aretritardi,aretidestr)
limusc = UBound(aretritardi)
If limusc > 0 And limusc > 10 Then
nusc = limusc - 10 : Totrit = 0
For nusc = nusc + 1 To limusc - 1
Totrit = Totrit + aretritardi(nusc)
Next
aris(10) = Totrit + rie(t,3)
If aris(10) <= 100 Or aris(10) >= 360 Then
elesom = elesom & Format2(aris(3)) & "."
End If
Else
aris(10) = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''RITARDO ORO
aris(14) = rie(t,15)
Call AddRigaTabella(aris,,,1)
Call SetColoreCella(3,RGB(155,255,155),vbBlack)
Call SetColoreCella(8,RGB(255,255,202),vbBlack)
Next
''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
ColoreTesto(2)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''''''''''''calcola 7 migliori
'''''idr+idf
ele = "" : yy = 0
ReDim nr(10)
Call OrdinaMatrice(rie,1,8)
For z = 1 To 10
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-10 Migliori IdR+IdF...Capogioco....." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''Ritardo
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(10)
Call OrdinaMatrice(rie,- 1,3)
For z = 1 To 10
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-10 Più in Ritardo..................." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''Sotto Frequenti
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(10)
Call OrdinaMatrice(rie,1,4)
For z = 1 To 10
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-10 Sotto Frequenti ................." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''' + Frequenti
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(10)
Call OrdinaMatrice(rie,- 1,4)
For z = 1 To 10
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-10 Più Frequenti ..................." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
ColoreTesto(2)
'''''''''''''''''radicali
ReDim nm(32,2)
iz = 0
For z = 1 To 90
For y = 1 To 8
If Radicale(Int(rie(z,2))) = y Then
iz = iz + 1
nm(iz,1) = rie(z,2)
nm(iz,2) = rie(z,3)
End If
Next
Next
ele = "" : yy = 0
ReDim nr(10)
Call OrdinaMatrice(nm,- 1,2)
For z = 1 To 10
ele = ele & Format2(nm(z,1)) & "."
yy = yy + 1
nr(yy) = Format2(nm(z,1))
Next
Scrivi "-10 Radicali più in Ritardo.........." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''''''''''''''Gemelli
ColoreTesto(2)
ReDim nm(90,2)
iz = 0
For z = 1 To 90
If Gemello(rie(z,2)) = True Then
iz = iz + 1
nm(iz,1) = rie(z,2)
nm(iz,2) = rie(z,3)
End If
Next
ele = "" : yy = 0
ReDim nr(8)
Call OrdinaMatrice(nm,- 1,2)
For z = 1 To 8
ele = ele & Format2(nm(z,1)) & "."
yy = yy + 1
nr(yy) = Format2(nm(z,1))
Next
Scrivi "-8 Gemelli più in Ritardo..........." & ele,1
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoDL(nr,da,1,1,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Call CreaTabellaOrdinabile(8,1,1)
End Sub


ciao
Clicca per espandere...

ciao Beppignello
ho provato questo script ma mi da errore,
potresti gentilmente riguardarlo e correggerlo

grazie infinite per i tuoi numerosi interventi e collaborazioni

ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 novembre 2024
    Bari
    35
    16
    24
    41
    85
    Cagliari
    89
    30
    10
    81
    72
    Firenze
    38
    60
    16
    13
    28
    Genova
    52
    15
    80
    08
    53
    Milano
    33
    77
    06
    54
    73
    Napoli
    01
    50
    64
    35
    36
    Palermo
    02
    01
    19
    33
    62
    Roma
    33
    48
    72
    47
    68
    Torino
    62
    28
    18
    75
    31
    Venezia
    03
    54
    27
    14
    71
    Nazionale
    02
    44
    27
    86
    78
    Estrazione Simbolotto
    Torino
    30
    07
    39
    14
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto