variazione script di Luigi per lunghette

[Mike58]

Per Paolo, hai ragione !!! se elabori molti numeri lo script è come temevo va in errore di elaborazione.

Invece se elabori un numero minimo lo script termina l'elaborazione, è come ti ho detto le tabelle hanno un limite in scrittura, per ora anch'io non saprei.

Per Magia e l'amico Disaronno il lavoro di conversione e scrittura dati è stato enorme, ma fa tutte le statistiche richieste, anche se si potrebbe ottimizzzare, ma visto che il lavoro è stato fatto, la richiesta di chicco3 è stata soddisfatta in pieno.

Per ora ciao a tutti.

 

[LuigiB]

Caio a tutti , a proposito di questo argomento sto riscrivendo la routnie per la ricerca lunghette sia dentro spaziometria sia tramite script , sara possibile impostare i numeri da sviluppare .. portate pazienza qualche giorno e siate pronti a fare i test d confronto con altri sw cosi vediamo se si risolve ... ciao a tutti

 

[Mike58]

Ciao Luigi, se può servire ecco alcuni dati in Lunghetta da 10 per ritardo.

BA: 13.14.21.27.41.62.67.72.84.85 RIT.305
CA: 04.10.29.39.46.53.62.67.75.79 RIT.299
FI: 06.08.31.39.62.66.79.81.87.89 RIT.252
GE: 04.06.14.22.29.47.53.75.76.83 RIT.277
MI: 09.22.30.36.48.65.68.71.76.87 RIT.302
NA: 07.09.18.22.32.49.59.70.79.87 RIT.263
PA: 02.03.13.14.31.50.57.63.71.88 RIT.277
RM: 05.10.21.24.27.39.42.44.73.89 RIT.281
TO: 02.03.11.28.59.60.68.69.74.78 RIT.279
VE: 02.05.11.17.48.50.52.58.76.77 RIT.269
NZ: 07.10.23.35.37.53.58.60.72.87 RIT.279

Estrazione Fin : 31.01.2017
Tempo elaborazione: 1,25 (sec.)

 

[chicco3]

Grazie magia e mike questa sera ci guardo e poi vi dirò ciao

 

[pippopippo]

Buongiorno,
Salutando tutti gli intervenuti .
In Attesa di Mike58 , che salutiamo .
Postiamo questo listato , di Blackmore .
Puo' essere un punto di partenza .

Option Explicit
Sub Main
Dim Ini,fin,Tot
Ini = EstrazioneIni
fin = EstrazioneFin
Tot = EstrazioniRicerca
Dim Sorte
Sorte = ScegliSorte
Call Scrivi("TABELLA RITARDI E FREQUENZE x " & NomeSorte(Sorte),01,01,,00,04)
Call Scrivi("( Terzine Simmetriche - Quartine radicali - ",01,00,,00,04)
Call Scrivi("Cinquine pentagonali - Sestine esagonali - ",01,01,,00,04)
Call Scrivi("Cadenze - Figure - Decine - Tabelline - Gemelli )",01,01,,00,04)
Call Scrivi("Script originale By Blackmore , mod. disaronno ",01,01,,00,04)
Call Scrivi()
Call Scrivi(String(40," ") & "Script originale By Blackmore , mod. disaronno ",01)
Call Scrivi()
Call Scrivi("INIZIO RICERCA : " & DataEstrazione(Ini) & " °°° FINE RICERCA : " & _
DataEstrazione(fin) & " °°° ESTRAZIONI ESAMINATE :" & Tot,01,,,,04)
Call Scrivi()
Dim W_Ruote
Dim ruote(12)
For W_Ruote = 01 To 12
ruote(01) = W_Ruote
Dim RetRit,RetRitMax,RetIncrRitMax,RetFre
Dim RetEsito,RetEstratti,RetIdEstr
Dim x
'------------------------------------------------------------------------------------------------------
ReDim n07(30)
Dim nn07
Dim atitoli07
atitoli07 = Array(atitoli07," TERZINE SIMM. "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli07,vbGreen,,03,00)
For x = 01 To 30
n07(01) = x:n07(02) = n07(01) + 30:n07(03) = n07(02) + 30
n07(04) = n07(03) + 30:n07(05) = n07(04) + 30:n07(06) = n07(05) + 30
n07(07) = n07(06) + 30:n07(08) = n07(07) + 30:n07(09) = n07(08) + 30
n07(10) = n07(09) + 30:n07(11) = n07(10) + 30:n07(12) = n07(11) + 30
n07(13) = n07(12) + 30:n07(14) = n07(13) + 30:n07(15) = n07(14) + 30
n07(16) = n07(15) + 30:n07(17) = n07(16) + 30:n07(18) = n07(17) + 30
n07(19) = n07(18) + 30:n07(20) = n07(19) + 30:n07(21) = n07(20) + 30
n07(22) = n07(21) + 30:n07(23) = n07(22) + 30:n07(24) = n07(23) + 30
n07(25) = n07(24) + 30:n07(26) = n07(25) + 30:n07(27) = n07(26) + 30
n07(28) = n07(27) + 30:n07(29) = n07(28) + 30:n07(30) = n07(29) + 30
Call StatisticaFormazioneTurbo(n07,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n07,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn07 = Array(n07(01),n07(02),n07(03))
Dim avalori07
avalori07 = Array(avalori07,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn07,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori07(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori07,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n08(04)
Dim nn08
Dim atitoli08
atitoli08 = Array(atitoli08," QUARTINE RAD. "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli08,vbGreen,,03,00)
For x = 01 To 08
If x = 01 Then n08(01) = 01 : n08(02) = 10 : n08(03) = 11 :n08(04) = 19
If x = 02 Then n08(01) = 02 : n08(02) = 20 : n08(03) = 22 :n08(04) = 29
If x = 03 Then n08(01) = 03 : n08(02) = 30 : n08(03) = 33 :n08(04) = 39
If x = 04 Then n08(01) = 04 : n08(02) = 40 : n08(03) = 44 :n08(04) = 49
If x = 05 Then n08(01) = 05 : n08(02) = 50 : n08(03) = 55 :n08(04) = 59
If x = 06 Then n08(01) = 06 : n08(02) = 60 : n08(03) = 66 :n08(04) = 69
If x = 07 Then n08(01) = 07 : n08(02) = 70 : n08(03) = 77 :n08(04) = 79
If x = 08 Then n08(01) = 08 : n08(02) = 80 : n08(03) = 88 :n08(04) = 89
Call StatisticaFormazioneTurbo(n08,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n08,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn08 = Array(n08(01),n08(02),n08(03),n08(04))
Dim avalori08
avalori08 = Array(avalori08,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn08,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori08(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori08,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n05(18)
Dim nn05
Dim atitoli05
atitoli05 = Array(atitoli05," CINQUINE PENT. "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli05,vbGreen,,03,00)
For x = 01 To 18
n05(01) = x:n05(02) = n05(01) + 18:n05(03) = n05(02) + 18
n05(04) = n05(03) + 18:n05(05) = n05(04) + 18:n05(06) = n05(05) + 18
n05(07) = n05(06) + 18:n05(08) = n05(07) + 18:n05(09) = n05(08) + 18
n05(10) = n05(09) + 18:n05(11) = n05(10) + 18:n05(12) = n05(11) + 18
n05(13) = n05(12) + 18:n05(14) = n05(13) + 18:n05(15) = n05(14) + 18
n05(16) = n05(15) + 18:n05(17) = n05(16) + 18:n05(18) = n05(17) + 18
Call StatisticaFormazioneTurbo(n05,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n05,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn05 = Array(n05(01),n05(02),n05(03),n05(04),n05(05))
Dim avalori05
avalori05 = Array(avalori05,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn05,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori05(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori05,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n06(15)
Dim nn06
Dim atitoli06
atitoli06 = Array(atitoli06," SESTINE ESAG. "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli06,vbGreen,,03,00)
For x = 01 To 15
n06(01) = x:n06(02) = n06(01) + 15:n06(03) = n06(02) + 15
n06(04) = n06(03) + 15:n06(05) = n06(04) + 15:n06(06) = n06(05) + 15
n06(07) = n06(06) + 15:n06(08) = n06(07) + 15:n06(09) = n06(08) + 15
n06(10) = n06(09) + 15:n06(11) = n06(10) + 15:n06(12) = n06(11) + 15
n06(13) = n06(12) + 15:n06(14) = n06(13) + 15:n06(15) = n06(14) + 15
Call StatisticaFormazioneTurbo(n06,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n06,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn06 = Array(n06(01),n06(02),n06(03),n06(04),n06(05),n06(06))
Dim avalori06
avalori06 = Array(avalori06,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn06,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori06(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori06,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n01(09)
Dim nn01
Dim atitoli01
atitoli01 = Array(atitoli01," CADENZE "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli01,vbGreen,,03,00)
For x = 01 To 10
n01(01) = Cadenza(x)
If x = 10 Then n01(01) = x * 10 - 90:n01(02) = n01(01) + 10:n01(03) = n01(01) + 20
n01(04) = n01(01) + 30:n01(05) = n01(01) + 40:n01(06) = n01(01) + 50
n01(07) = n01(01) + 60:n01(08) = n01(01) + 70:n01(09) = n01(01) + 80
Call StatisticaFormazioneTurbo(n01,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n01,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn01 = Array(n01(01),n01(02),n01(03),n01(04),n01(05),n01(06),n01(07),n01(08),n01(09))
Dim avalori01
avalori01 = Array(avalori01,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn01,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori01(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori01,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n03(10)
Dim nn03
Dim atitoli03
atitoli03 = Array(atitoli03," FIGURE "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli03,vbGreen,,3,0)
For x = 01 To 09
n03(01) = x:n03(02) = n03(01) + 09:n03(03) = n03(02) + 09:n03(04) = n03(03) + 09
n03(05) = n03(04) + 09:n03(06) = n03(05) + 09:n03(07) = n03(06) + 09
n03(08) = n03(07) + 09:n03(09) = n03(08) + 09:n03(10) = n03(09) + 09
Call StatisticaFormazioneTurbo(n03,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n03,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn03 = Array(n03(01),n03(02),n03(03),n03(04),n03(05),n03(06),n03(07),n03(08),n03(09),n03(10))
Dim avalori03
avalori03 = Array(avalori03,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn03,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori03(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori03,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n02(10)
Dim nn02
Dim atitoli02
atitoli02 = Array(atitoli02," DECINE "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli02,vbGreen,,03,00)
For x = 01 To 09
If x = 01 Then n02(01) = 01 : n02(02) = 02 : n02(03) = 03 :n02(04) = 04: n02(05) = 05: _
n02(06) = 06: n02(07) = 07: n02(08) = 08: n02(09) = 09 :n02(10) = 10
If x = 02 Then n02(01) = 11 : n02(02) = 12 : n02(03) = 13 :n02(04) = 14: n02(05) = 15: _
n02(06) = 16: n02(07) = 17: n02(08) = 18: n02(09) = 19 :n02(10) = 20
If x = 03 Then n02(01) = 21 : n02(02) = 22 : n02(03) = 23 :n02(04) = 24: n02(05) = 25: _
n02(06) = 26: n02(07) = 27: n02(08) = 28: n02(09) = 29 :n02(10) = 30
If x = 04 Then n02(01) = 31 : n02(02) = 32 : n02(03) = 33 :n02(04) = 34: n02(05) = 35: _
n02(06) = 36: n02(07) = 37: n02(08) = 38: n02(09) = 39 :n02(10) = 40
If x = 05 Then n02(01) = 41 : n02(02) = 42 : n02(03) = 43 :n02(04) = 44: n02(05) = 45: _
n02(06) = 46: n02(07) = 47: n02(08) = 48: n02(09) = 49 :n02(10) = 50
If x = 06 Then n02(01) = 51 : n02(02) = 52 : n02(03) = 53 :n02(04) = 54: n02(05) = 55: _
n02(06) = 56: n02(07) = 57: n02(08) = 58: n02(09) = 59 :n02(10) = 60
If x = 07 Then n02(01) = 61 : n02(02) = 62 : n02(03) = 63 :n02(04) = 64: n02(05) = 65: _
n02(06) = 66: n02(07) = 67: n02(08) = 68: n02(09) = 69 :n02(10) = 70
If x = 08 Then n02(01) = 71 : n02(02) = 72 : n02(03) = 73 :n02(04) = 74: n02(05) = 75: _
n02(06) = 76: n02(07) = 77: n02(08) = 78: n02(09) = 79 :n02(10) = 80
If x = 09 Then n02(01) = 81 : n02(02) = 82 : n02(03) = 83 :n02(04) = 84: n02(05) = 85: _
n02(06) = 86: n02(07) = 87: n02(08) = 88: n02(09) = 89 :n02(10) = 90
Call StatisticaFormazioneTurbo(n02,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n02,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn02 = Array(n02(01),n02(02),n02(03),n02(04),n02(05),n02(06),n02(07),n02(08),n02(09),n02(10))
Dim avalori02
avalori02 = Array(avalori02,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn02,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori02(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori02,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n04(10)
Dim nn04
Dim atitoli04
atitoli04 = Array(atitoli04," TABELLINE "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli04,vbGreen,,03,00)
For x = 01 To 09
If x = 01 Then n04(01) = 01 : n04(02) = 02 : n04(03) = 03 :n04(04) = 04: n04(05) = 05: _
n04(06) = 06: n04(07) = 07: n04(08) = 08: n04(09) = 09 :n04(10) = 10
If x = 02 Then n04(01) = 02 : n04(02) = 04 : n04(03) = 06 :n04(04) = 08: n04(05) = 10: _
n04(06) = 12: n04(07) = 14: n04(08) = 16: n04(09) = 18 :n04(10) = 20
If x = 03 Then n04(01) = 03 : n04(02) = 06 : n04(03) = 09 :n04(04) = 12: n04(05) = 15: _
n04(06) = 28: n04(07) = 21: n04(08) = 24: n04(09) = 27 :n04(10) = 30
If x = 04 Then n04(01) = 04 : n04(02) = 08 : n04(03) = 12 :n04(04) = 16: n04(05) = 20: _
n04(06) = 24: n04(07) = 28: n04(08) = 32: n04(09) = 36 :n04(10) = 40
If x = 05 Then n04(01) = 05 : n04(02) = 10 : n04(03) = 15 :n04(04) = 20: n04(05) = 25: _
n04(06) = 30: n04(07) = 35: n04(08) = 40: n04(09) = 45 :n04(10) = 50
If x = 06 Then n04(01) = 06 : n04(02) = 12 : n04(03) = 18 :n04(04) = 24: n04(05) = 30: _
n04(06) = 36: n04(07) = 42: n04(08) = 48: n04(09) = 54 :n04(10) = 60
If x = 07 Then n04(01) = 07 : n04(02) = 14 : n04(03) = 21 :n04(04) = 28: n04(05) = 35: _
n04(06) = 42: n04(07) = 49: n04(08) = 56: n04(09) = 63 :n04(10) = 70
If x = 08 Then n04(01) = 08 : n04(02) = 16 : n04(03) = 24 :n04(04) = 32: n04(05) = 40: _
n04(06) = 48: n04(07) = 56: n04(08) = 64: n04(09) = 72 :n04(10) = 80
If x = 09 Then n04(01) = 09 : n04(02) = 18 : n04(03) = 27 :n04(04) = 36: n04(05) = 45: _
n04(06) = 54: n04(07) = 63: n04(08) = 72: n04(09) = 81 :n04(10) = 90
Call StatisticaFormazioneTurbo(n04,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n04,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
nn04 = Array(n04(01),n04(02),n04(03),n04(04),n04(05),n04(06),n04(07),n04(08),n04(09),n04(10))
Dim avalori04
avalori04 = Array(avalori04,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn04,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori04(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori04,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Next
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
ReDim n10(08)
Dim nn10
Dim atitoli10
atitoli10 = Array(atitoli10," GEMELLI "," Ruota "," Numeri "," Ritardo ",_
" Rit. Sto. "," Frequenza "," Ultima uscita "," Data di uscita ")
Call InitTabella(atitoli10,vbGreen,,03,00)
n10(01) = 11 : n10(02) = 22 : n10(03) = 33 : n10(04) = 44
n10(05) = 55 : n10(06) = 66 : n10(07) = 77 : n10(08) = 88
Call StatisticaFormazioneTurbo(n10,ruote,Sorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,fin)
Call VerificaEsitoTurbo(n10,ruote,fin - RetRit,Sorte,,,RetEsito,,RetEstratti,RetIdEstr)
x = 01 : nn10 = Array(n10(01),n10(02),n10(03),n10(04),n10(05),n10(06),n10(07),n10(08))
Dim avalori10
avalori10 = Array(avalori10,Format2(x),NomeRuota(ruote(01)),StringaNumeri(nn10,,True),_
RetRit,RetRitMax,RetFre,RetEstratti,RetEsito)
If RetEsito <> "" Then avalori10(08) = DataEstrazione(RetIdEstr) & " [n° " & RetIdEstr & "]"
Call AddRigaTabella(avalori10,,,04,,01)
Call SetColoreCella(04,RGB(164,255,255))
Call SetColoreCella(03,,vbBlue)
Call SetColoreCella(05,RGB(255,184,149))
Call SetColoreCella(06,RGB(255,255,128),00)
If RetRit = 00 Then Call SetColoreCella(04,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(07,RGB(255,128,255))
If RetRit = 00 Then Call SetColoreCella(08,RGB(255,128,255))
Call CreaTabella()
Call Scrivi()
'------------------------------------------------------------------------------------------------------
Call Messaggio("Ruota Analizzata : " & NomeRuota(W_Ruote))
Call AvanzamentoElab(01,12,W_Ruote)
Next
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,01," Scegli Tipo Sorte ") + 01
End Function

Controllare Sempre .
Salvo Errori ed Omissis .

buona sera magia,

nella tabella "CADENZE" mancano dei numeri.
si può correggere lo script
gentilmente grazie

 

[chicco3]

Ciao magia e Mike lo script va bene, forse non mi sono spiegato bene devo avere il modo di inserire dei numeri ed avere una convergenza sul massimo ritardatario,frequenza e indice di convenienza di quelle formule. Faccio un esempio che vale per tutte e sei:-

- SESTINA ESAGONALE 6-21-36-51-66-81 RIT., FREQUENZA E I.C.;

- TERZINA SIMMETRICA25=25-55-85 RIT.FREQ. E I.C.- e cosa anche le altre.

Da questi numeri mi deve restituire i numeri che io inserisco 20 o 30 che siano. Grazie fatemi sapere chicco 3

 

[LuigiB]

ciao Mike , grazie della tabellina .. avendo visto i tempi di un secondo e venticinque per il calcolo di tutte e dieci le ruote penso che farete bene ad usare l'altro programma ...ahahhah
un tempo inarrivabile anche se mi era venuta una buona idea per un nuovo algoritmo....
Ciao ...

 

[Mike58]

Ciao Luigi,il tempo l'ho volutamente fatto notare per far capire che si può fare, e si può migliorare anche nel vbscript.
Spero proprio che tu riesca a trovare un buon algoritmo.

Un salutissimo e un buon lavoro

 

[i legend]

Buon lavoro luigi
un saluto a Mike

 

[joe]

Ciao Luigi.

Mi permetto di scrivere una cosa, premettendo che io stesso non so quanto sia giusta.

Acquisire il ritardo degli Ambi e dei Terni, al tempo dell'esecuzione dello script , è gravoso.

Se invece questi ritardi fossero precalcolati, una tantum,

al momento, dell' aggiunta di una nuova estrazione in archivio,

essi potrebbero essere "disponibili", senza il tempo necessario per calcolarli.

Penso pertanto, che i tempi indicati da Mike, non siano raggiungibili,

se di ogni Ambo ed ogni terno si deve ANCHE calcolare il ritardo.

Se invece per esempio quelli per il terno, fossero precalcolati,

potrebbero costituire un bel trampolino per il calcolo di

lunghette con più numeri.

 

[LuigiB]

Ciao Joe..grazie del suggerimento quella che proponi e una tecnica assolutamente nota nel mondo informatico tuttavia presenta degli svantaggi ..una ricerca lunghetto versatile deve poter cercare lunghetto per varie sorti e con diverse misure..il tuo1sistema andrebbe bene per combinazioni secche...facendo l esempio delle decine per ambo una volta uscita un estrazione bisognerebbe aggiornare tutte le decine che si compongono con gli 85 numeri che non sono usciti al ritardo +1 e tutte le decine che contengono i famosi 10 ambi che non sono certamente solo 10.al ritardo 0..un bel casino ...senza calcolare che lo stesso discorso va fatto per le altre lunghette con altre sorti.. l algoritmo del programma usato da Mike sarà molto complesso forse si salva qualcosa ma non in modo così semplice... una buona idea mi era venuta à performante ma certo non fa 10 ruote in un secondo......poi considerate che anche io ho i miei limiti.. mica sono un ingegnere.....vedremo..

 

[Mike58]

Luigi, il discorso si complica quando vengono elaborate su ruota le 10 lunghette ordinate per ritardo 0,15 sec di elaborazione.

vedi videata e come può essere utile.

 

[joe]

Ciao Mike ...

Come sai, di quell'ambiente, non ne conosco la programmazione (non avendo VL7).

Tuttavia il rispetto di quei tempi, a grandi linee,

dovrebbero essere ottenibili anche con Spaziometria.

Per le lunghette da 10 numeri ho 1.3 secondi ... penso migliorabile.

 

[LuigiB]

Joe ma il metodo che hai usato tu è applicabile a varie sorti o lo hai previsto specifico per la sorte di ambo ?

 

[joe]

Ciao Luigi.

No è molto rigido.

Perchè le sorti secondo me sono in pratica 2: Ambo e Terno.

Come pure 10 numeri sono teoricamente sbagliati.

Per Ambo con 6/7 numeri, a tutte, non so se si è già in perdita certa al primo colpo.

Dovrei controllare ... ma penso che al massimo si arrivi a 2 colpi.

Non mi sono appassionato oltre il livello minimo necessario ...

a migliorare un risultato già ridondante e più che soddifcente.

Cioè quello di ottenere numeri "inutili" (in teoria ed in pratica) ad un non giocatore.

Questo però non toglie interesse all'argomento.

Anche se, come detto, non mi ci sono dedicato oltre.

 

[LuigiB]

infatti Joe .. ... non sai da quanti anni è che ogni tanto mi riviene la fissa di trovare un buon algoritmo
che sia versatile per dimensione lunghetta e sorte ..la mia è una sfida informatica infatti..non sono focalizzato sull'aspetto convenienza pratica ...Ciao..

 

[ppaaoolloo]

ciao
riporto su questo 3D che rischiava di essere dimenticato

vorrei sapere se ci sono state implementazioni
per spaziometria,
tempo fa provandolo mi sembrava che non fosse preciso

ringrazio tutti per gli sforzi fatti e per la gentilezza dimostrata

ciao