INNOVATIVA RICERCA STATISTICA

edesimone · 19 Novembre 2016

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

Beppignello · 20 Novembre 2016

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

Beppignello · 20 Novembre 2016

uscito ieri sera l'ambo 89 02 a Tutte/milano

ruota con ritardo inferiore a 18

edesimone · 20 Novembre 2016

Beppignello grazie
un saluto
edesimone

vincenzo4221 · 20 Novembre 2016

[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 d

?

Beppignello · 20 Novembre 2016

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

ppaaoolloo · 20 Novembre 2016

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

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

Beppignello · 20 Novembre 2016

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

numerico · 24 Novembre 2016

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.

Beppignello · 24 Novembre 2016

Ma con quale archivio, spaziometria? o altro.

vuoi un listato delle estrazioni cosi' come sono avvenute?

numerico · 24 Novembre 2016

Beppignello;n2024628 ha scritto:
Ma con quale archivio, spaziometria? o altro.

vuoi un listato delle estrazioni cosi' come sono avvenute?

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.

Beppignello · 24 Novembre 2016

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

Beppignello · 24 Novembre 2016

dimmi se ti va bene così.

ciao

numerico · 24 Novembre 2016

x Beppignello
OK grazie mille

skygirl · 27 Novembre 2016

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

esce al 3° colpo il 66.44 FI
peccato è uscito su FI

kira · 27 Novembre 2016

VERAMENTE A FIR SONO USCITI 66.44.11 o sbaglio? come da gemelli in ritardo

numerico · 27 Novembre 2016

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"
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
(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.

numerico · 1 Dicembre 2016

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]

ppaaoolloo · 8 Dicembre 2016

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

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

Beppignello · 8 Dicembre 2016

ciao

hai guardato l'archivio 10 e lotto se è aggiornato?

INNOVATIVA RICERCA STATISTICA

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Allegati

Beppignello

Guest

Super Member >PLATINUM<

Beppignello

Guest

Super Member >GOLD<

Beppignello

Guest

Super Member >GOLD<

Beppignello

Guest

Beppignello

Guest

Super Member >GOLD<

Advanced Member >GOLD<

Premium Member

Super Member >GOLD<

Super Member >GOLD<

Super Member >PLATINUM<

Beppignello

Guest