Novità

x Beppignello

sorujoe

Advanced Member
Mi hai dato questo script in un post ma ti chiedo:
Fa vedere solo le formazioni sfaldate? Non quelle ancora in gioco o sbaglio?
A me serviva avere anche quelle in gioco che non hanno dato ancora esito, puoi postarlo? Grazie

Option Explicit
Sub Main
''''''' B E P P I G N E L L O
Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,RUo,lu,jj,f,retestratti,retidestr
Dim numeri(90),maxnumero(90),ruote(11),comb(999999,5),minim(90,90),ru(1)
'''''input
finale = InputBox("Estrazione n.",,EstrazioneFin)
numericercati = CInt(InputBox("Lunghetta di n.",,5))
s = CInt(InputBox("Sorte lunghetta ",,2))
rmin = "0.0.50.45.40.30.25.25.23.19.18.18.17.15.15.1 2.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Inizio = TimeValue(Time)
ReDim maxmax(30)
Call SplitByChar(rmin,".",maxmax)
'''''10 ruote
For r = 1 To 11
ruote(r) = r
Next
''''''''numeri
For i = 1 To numericercati
maxnumero(i) = 90 + i - numericercati
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
'''' 'memorizza il ritardo minimo dei 4005 ambi sulle ruote individuate
For ia = 1 To 89
For j =(ia + 1) To 90
minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
xt = xt + 1
Messaggio(xt & " - " & numericercati)
Next
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
n = 1
numeri(n) = 1
'inizia la ricerca dei numeri
Do
fine = 1
n = n + 1
numeri(n) = numeri(n - 1) + 1
xl = xl + 1
Messaggio("Attendere,per classi >5 tempi lunghi di elab.." & xl)
' Call AvanzamentoElab(1,99,xl)
If ScriptInterrotto Then Exit Do
Do
If ScriptInterrotto Then Exit Do
If numeri(n) > maxnumero(n) Then
Do
n = n - 1
If n = 0 Then
fine = 0
Exit Do
End If
numeri(n) = numeri(n) + 1
If ScriptInterrotto Then Exit Do
Loop Until numeri(n) <= maxnumero(n)
'''''
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''''' per la sorte delL'AMBO valorizza ritardo ed esclude lunghetta se il ritardo minore del minimo
If n > 1 Then
fineciclo = 1
AmbiRitardovalido = 0
For jk = 1 To(n - 1)
ritardoattuale = minim(numeri(jk),numeri(n))
If Int(ritardoattuale) < Int(maxmax(numericercati)) Then
Exit For
Else
AmbiRitardovalido = AmbiRitardovalido + 1
End If
Next
If AmbiRitardovalido =(n - 1) Then
If n = numericercati Then
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
''''''trova per i 2 capogiochi i primi ambi ritardatari
If s = 2 And numericercati = 2 Then
Iniz = EstrazioneIni
Ini = finale
Primirit = " | "
For pj = 1 To 2
ReDim rita(90,2)
For n2 = 1 To 90
If Int(numeri(pj)) <> Int(n2) Then
rt = AmboRitardoTurbo(11,numeri(pj),n2,Iniz,Ini)
rita(n2,1) = FormattaStringa(rt,"000")
rita(n2,2) = n2
End If
Next
Call OrdinaMatrice(rita,- 1,1)
For o = 1 To 6
If rita(o,1) <> "" Then
Primirit = Primirit & rita(o,1) & "-"
End If
Next
Primirit = Primirit & " |"
Next
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
Call StatisticaFormazioneTurbo(numeri,ruote,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
cz = cz + 1
comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & Format2(RetFre) & " " & Primirit
lu = ""
For jj = 1 To n
lu = lu & Format2(numeri(jj)) & "."
Next
comb(cz,2) = lu
comb(cz,5) = 9999
'''LOOP 10 RUOTE x trovare sulle 10 ruote quelle con retrit>=retritmax
For RUo = 1 To 10
ru(1) = RUo
Call StatisticaFormazioneTurbo(numeri,ru,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
If retrit >= retritmax Then
comb(cz,3) = comb(cz,3) & SiglaRuota(ru(1)) & "-"
comb(cz,4) = comb(cz,4) + 1
If retrit < comb(cz,5) Then
comb(cz,5) = FormattaStringa(retrit,"0000")
End If
End If
Next
'''''''''
numeri(n) = numeri(n) + 1
Else
fineciclo = 0
End If
Else
numeri(n) = numeri(n) + 1
fineciclo = 1
End If
Else
fineciclo = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
If fine = 0 Then Exit Do End If
Loop Until fineciclo = 0
Loop Until fine = 0
ColoreTesto(2)
Scrivi "BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top",1
Scrivi "Lunghette con ritardo minimo " & maxmax(numericercati) & " Sviluppate in classe = " & numericercati & " Per la sorte di.." & s,1
Scrivi "da rilevazione a Tutte......." & finale & " / " & DataEstrazione(finale),1
If numericercati = 2 Then Scrivi "RC RX Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "RcTT RxTT Frq. Combinazione Lunghetta ",1
Call OrdinaMatrice(comb,- 1,1)
ColoreTesto(0)
If cz = 0 Then
Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
Else
For v = 1 To cz
If comb(v,4) > 2 Then
If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2) & " Rmin. " & comb(v,5) & " " & comb(v,4) & "- Ruote.." & comb(v,3),1
'''verificaesito
ReDim nm(10),nur(10)
Call SplitByChar(comb(v,2),".",nm)
For f = 0 To numericercati - 1
nur(f + 1) = nm(f)
Next
Call VerificaEsitoTurbo(nur,ruote,finale + 1,s,,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
Scrivi "---------- " & retidestr & ":.." & retestratti,1
ColoreTesto(0)
End If
End If
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & TempoTrascorso,1
End Sub
 
B

Beppignello

Guest
Ciao Byron

ti spiego con un esempio:
questa è la situazione attuale delle terzine maggiormente in ritardo, elenca tutte le terzine aventi ritardo minimo di 45

Codice:
BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top
Lunghette con ritardo minimo 45:     Sviluppate in classe = 3 Per la sorte di..2
[COLOR=#000000]da rilevazione a Tutte[/COLOR][COLOR=#FF0000].......9616 / 13.04.2019[/COLOR]
RcTT   RxTT Frq.  Combinazione Lunghetta
0115 / 0115 412  36.39.89.  Rmin. 0698      3- Ruote..FI-PA-RO-
0091 / 0093 425  24.37.65.  Rmin. 0297      3- Ruote..BA-GE-NA-
0087 / 0087 426  12.53.54.  Rmin. 0952      3- Ruote..FI-PA-RO-
0084 / 0170 438  03.15.68.  Rmin. 0589      3- Ruote..GE-NA-VE-
0084 / 0084 394  36.68.89.  Rmin. 0566      3- Ruote..FI-MI-NA-
0075 / 0084 430  14.62.76.  Rmin. 0561      3- Ruote..CA-NA-RO-
0074 / 0085 440  23.24.73.  Rmin. 0420      3- Ruote..GE-NA-VE-
0071 / 0088 395  53.54.85.  Rmin. 0720      3- Ruote..FI-MI-PA-
0068 / 0092 411  37.41.54.  Rmin. 0433      3- Ruote..FI-NA-PA-
0066 / 0076 447  01.61.73.  Rmin. 0488      3- Ruote..GE-NA-PA-
0063 / 0091 439  06.51.73.  Rmin. 0466      3- Ruote..BA-FI-GE-
0061 / 0085 430  53.64.69.  Rmin. 0519      3- Ruote..CA-FI-TO-
0061 / 0070 437  12.53.64.  Rmin. 0404      3- Ruote..BA-CA-NA-
0060 / 0106 413  22.52.75.  Rmin. 0755      3- Ruote..FI-MI-RO-
0059 / 0094 452  07.68.82.  Rmin. 0744      3- Ruote..CA-FI-PA-
0057 / 0115 437  37.41.44.  Rmin. 0463      3- Ruote..FI-NA-VE-
0051 / 0090 405  06.53.61.  Rmin. 0419      3- Ruote..NA-RO-TO-
0050 / 0080 469  12.53.58.  Rmin. 0526      3- Ruote..BA-PA-RO-
0048 / 0114 403  22.64.80.  Rmin. 0483      3- Ruote..BA-FI-TO-
0048 / 0106 429  03.68.80.  Rmin. 0497      3- Ruote..GE-NA-VE-
0048 / 0095 427  37.40.87.  Rmin. 0803      3- Ruote..GE-PA-RO-


Totale Combinazioni....4180
Tempo elaborazione..00:01:12
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
mi pare che la volta scorsa il nr.estrazione era 9610

se oggi rilancio la situazione a quell'estrazione si ottiene:

tenendo conto che quelle in rosso sono evase, mentre le altre sono ancora buone da giocare

Codice:
BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top
Lunghette con ritardo minimo 45:     Sviluppate in classe = 3 Per la sorte di..2
da rilevazione a Tutte.......9610 / 30.03.2019
RcTT   RxTT Frq.  Combinazione Lunghetta
0109 / 0109 412  36.39.89.  Rmin. 0692      3- Ruote..FI-PA-RO-
0085 / 0093 425  24.37.65.  Rmin. 0291      3- Ruote..BA-GE-NA-
0081 / 0081 427  45.72.83.  Rmin. 0688      3- Ruote..CA-MI-RO-
----------[COLOR=#FF0000][B]    9612:..BA 83 .. .. .. 72[/B][/COLOR]
0081 / 0081 426  12.53.54.  Rmin. 0946      3- Ruote..FI-PA-RO-
0078 / 0170 438  03.15.68.  Rmin. 0583      3- Ruote..GE-NA-VE-
0078 / 0078 394  36.68.89.  Rmin. 0560      3- Ruote..FI-MI-NA-
0073 / 0076 428  01.52.73.  Rmin. 0512      3- Ruote..GE-NA-PA-
----------    [B][COLOR=#FF0000]9613:..PA .. 73 52 .. ..[/COLOR][/B]
0069 / 0084 430  14.62.76.  Rmin. 0555      3- Ruote..CA-NA-RO-
0068 / 0085 440  23.24.73.  Rmin. 0414      3- Ruote..GE-NA-VE-
0065 / 0088 395  53.54.85.  Rmin. 0714      3- Ruote..FI-MI-PA-
0062 / 0092 411  37.41.54.  Rmin. 0427      3- Ruote..FI-NA-PA-
0060 / 0076 447  01.61.73.  Rmin. 0482      3- Ruote..GE-NA-PA-
0055 / 0117 392  06.38.62.  Rmin. 0604      3- Ruote..FI-GE-MI-
----------   [B][COLOR=#FF0000] 9613:..TO .. .. .. 62 06[/COLOR][/B]
0055 / 0085 430  53.64.69.  Rmin. 0513      3- Ruote..CA-FI-TO-
0055 / 0070 437  12.53.64.  Rmin. 0398      3- Ruote..BA-CA-NA-
0054 / 0106 413  22.52.75.  Rmin. 0749      3- Ruote..FI-MI-RO-
0053 / 0094 452  07.68.82.  Rmin. 0738      3- Ruote..CA-FI-PA-
0052 / 0090 473  03.61.76.  Rmin. 0530      3- Ruote..GE-MI-NA-
----------    [B][COLOR=#FF0000]9616:..MI .. .. 03 61 ..[/COLOR][/B]
0052 / 0084 398  29.33.69.  Rmin. 0763      3- Ruote..BA-MI-TO-
----------   [B][COLOR=#FF0000] 9611:..GE .. .. .. 33 29 - TO .. .. 29 69 ..[/COLOR][/B]
0051 / 0115 437  37.41.44.  Rmin. 0457      3- Ruote..FI-NA-VE-
0046 / 0099 454  50.80.86.  Rmin. 0674      3- Ruote..BA-CA-FI-
----------   [B][COLOR=#FF0000] 9611:..VE .. 80 .. 86 ..[/COLOR][/B]
0046 / 0077 410  37.41.89.  Rmin. 0722      3- Ruote..BA-FI-VE-
----------    [B][COLOR=#FF0000]9613:..NA .. .. 41 89 ..[/COLOR][/B]
0045 / 0106 400  14.37.67.  Rmin. 0376      3- Ruote..GE-MI-NA-
----------    [B][COLOR=#FF0000]9614:..BA 14 67 .. .. ..[/COLOR][/B]
0045 / 0090 405  06.53.61.  Rmin. 0413      3- Ruote..NA-RO-TO-


Totale Combinazioni....4095
Tempo elaborazione..00:01:06
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
da questa situazione si vedono le terzine ultime sfaldate e le rimanenti ancora in attesa o in ritardo.

ora, non capisco esattamente cosa vuoi sapere, se da quanto tempo è nell'elenco o cosaltro.

tieni conto che la domanda da quanto tempo è nell'elenco, si risolve facilmente, perchè le terzine entrano nella lista delle più ritardatarie
solo quando il ritardo supera i 45 concorsi.

quindi se devo fare un esempio per capirci è

la terzina 36.39.89, attualmente la più ritardataria a tutte, ritarda da 109 concorsi - 45 concorsi ritardo minimo elenco, vuol dire che
permane attualmente nell'elenco da 64 concorsi, idem se prendo la 53.64.69 che ritarda attualmente da 55 - 45 ritardo minimo elenco, vuol dire che è entrata da 10 concorsi in questa lista.

questo criterio vale anche per tutte le altre classi, però ciascuna ha un valore di ritardo minimo espresso in questa riga di questa arrays, contenuta nello script.

rmin = "0.0.50.45.40.30.25.25.23.19.18.18.17.15.15.1 2.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
 
Ultima modifica di un moderatore:

sorujoe

Advanced Member
Ciao Beppignello mi spieghi come mai queste tre terzine pur non essendo sincrone lo script li mette in un unico blocco?
RcTT RxTT Frq. Combinazione Lunghetta
0109 / 0109 412 36.39.89. Rmin. 0692 3- Ruote..FI-PA-RO-
0085 / 0093 425 24.37.65. Rmin. 0291 3- Ruote..BA-GE-NA-
0081 / 0081 427 45.72.83. Rmin. 0688 3- Ruote..CA-MI-RO-
---------- 9612:..BA 83 .. .. .. 72
 
Ultima modifica:

Tot42

Junior Member
Buona sera, anzitutto chiedo scusa se invado questo spazio ma si tratta di una curiosità inerente questo sript, in sostanza vorrei chiedere, gentilmente al sig. Beppignello, il significato di Rmin. perchè, a mio parere, dovrebbe essere il ritardo minimo riferito alle tre ruote ma da controlli fatti, ho notato che invece è il ritardo dell'ultima ruota scritta nella riga. Grazie per l'eventuale risposta ed eventualmente dove poter intervenire.
 
B

Beppignello

Guest
intanto grazie per le segnalazioni che fate, ma vediamo prima la spiegazione di cosa fa lo script ed il motivo a prima vista
di un probabile errore.

poi si può modificare in base a cosa si vuole avere e di come si ritiene più opportuno.

metto delle gif così ci capiamo subito.

Cattura5.GIF

Rmin è errato, riporta 698, invece Rmin è 579
le ruote risultano esatte.
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
La seconda terzina riporta solo alcune ruote, perchè lo script calcola solo quelli il cui ritardo attuale
sia uguale al ritardo massimo,
mentre quelle con ritardo che non eguagliano tale condizione non vengono
contemplate, anche se il ritardo si pone tra eventuale massimo e minimo.

vediamo

Cattura8.gif



come si vede GENOVA-BARI-NAPOLI soddisfano tale condizione di RA >= rx
Quindi rientrano nella condizione imposta nello script, le altre RO-CA anche se il
ritardo si trova in mezzo o superiore al minimo, non vengono prese in considerazione.

Qua le ruote ed il ritardo risulta esatto.
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
ora, come avete segnalato, devo correggere lo script perchè risulta errato il RMIN nell'output, vorrei prima di effettuare la modifica
sapere se è meglio secondo voi riportare tutte le ruote in ordine decrescente di ritardo, oppure se la condizione Rc >= Rx può andare bene
quindi farò solo la modifica dove erra il calcolo delle Rmin.

Domani in giornata lo effettuo.
 
B

Beppignello

Guest
in attesa di sapere il vostro parere, potete correggere queste 2 righe, perchè pare che qui è l'errore:


la riga dello script

If retrit < comb(cz,5) Then

deve diventare in questo modo
If retrit < Int(comb(cz,5)) Then


inoltre già che ci siamo modifichiamo quest'altra riga




si trova

Call VerificaEsitoTurbo(nur,ruote,finale + 1,s,,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
Scrivi "---------- " & retidestr & ":.." & retestratti
ColoreTesto(0)
End If

in questo modo

Scrivi "---------- " & retidestr & ":.." & retestratti & " colpo n. " & retidestr-finale,1


permetterà di capire e vedere al volo le sfaldate dopo quanti colpi o concorsi.

salvo altri errori da qualche altra parte.
 
Ultima modifica di un moderatore:
B

Beppignello

Guest
aggiornato
corretto (Rmin delle ruote) ed aggiunto (esito al colpo n.)

Codice:
Option Explicit
Sub Main
   '''''''  B E P P I G N E L L O
   Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
   Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,RUo,lu,jj,f,retestratti,retidestr,nru
   Dim numeri(90),maxnumero(90),ruote(11),comb(999999,6),minim(90,90),ru(1)
   '''''input
   finale = InputBox("Estrazione n.",,EstrazioneFin)
   numericercati = CInt(InputBox("Lunghetta di n.",,5))
   s = CInt(InputBox("Sorte lunghetta ",,2))
   nru = CInt(InputBox("n.Ruote con RC >= RX",,2))
   rmin = "0.0.50.45.40.30.25.25.23.19.18.18.17.15.15.1 2.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
   Inizio = TimeValue(Time)
   ReDim maxmax(30)
   Call SplitByChar(rmin,".",maxmax)
   '''''10 ruote
   For r = 1 To 10
      ruote(r) = r
   Next
   ''''''''numeri
   For i = 1 To numericercati
      maxnumero(i) = 90 + i - numericercati
   Next
   '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
   '''' 'memorizza il ritardo minimo dei 4005 ambi sulle ruote individuate
   For ia = 1 To 89
      For j =(ia + 1) To 90
         minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
         xt = xt + 1
         Messaggio(xt & " - " & numericercati)
      Next
   Next
   '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
   n = 1
   numeri(n) = 1
   'inizia la ricerca dei numeri
   Do
      fine = 1
      n = n + 1
      numeri(n) = numeri(n - 1) + 1
      xl = xl + 1
      Messaggio("Attendere,per classi >5 tempi lunghi di elab.." & xl)
      If ScriptInterrotto Then Exit Do
      Do
         If ScriptInterrotto Then Exit Do
         If numeri(n) > maxnumero(n) Then
            Do
               n = n - 1
               If n = 0 Then
                  fine = 0
                  Exit Do
               End If
               numeri(n) = numeri(n) + 1
               If ScriptInterrotto Then Exit Do
            Loop Until numeri(n) <= maxnumero(n)
            '''''
         End If
         '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
         ''''' per la sorte delL'AMBO valorizza ritardo ed esclude lunghetta se il ritardo minore del minimo
         If n > 1 Then
            fineciclo = 1
            AmbiRitardovalido = 0
            For jk = 1 To(n - 1)
               ritardoattuale = minim(numeri(jk),numeri(n))
               If Int(ritardoattuale) < Int(maxmax(numericercati)) Then
                  Exit For
               Else
                  AmbiRitardovalido = AmbiRitardovalido + 1
               End If
            Next
            If AmbiRitardovalido =(n - 1) Then
               If n = numericercati Then
                  '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
                  ''''''trova per i 2 capogiochi i primi ambi ritardatari
                  If s = 2 And numericercati = 2 Then
                     Iniz = EstrazioneIni
                     Ini = finale
                     Primirit = " | "
                     For pj = 1 To 2
                        ReDim rita(90,2)
                        For n2 = 1 To 90
                           If Int(numeri(pj)) <> Int(n2) Then
                              rt = AmboRitardoTurbo(11,numeri(pj),n2,Iniz,Ini)
                              rita(n2,1) = FormattaStringa(rt,"000")
                              rita(n2,2) = n2
                           End If
                        Next
                        Call OrdinaMatrice(rita,- 1,1)
                        For o = 1 To 6
                           If rita(o,1) <> "" Then
                              Primirit = Primirit & rita(o,1) & "-"
                           End If
                        Next
                        Primirit = Primirit & " |"
                     Next
                  End If
                  '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
                  Call StatisticaFormazioneTurbo(numeri,ruote,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
                  cz = cz + 1
                  comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & Format2(RetFre) & " " & Primirit
                  comb(cz,6) = FormattaStringa(retrit,"0000")
                  lu = ""
                  For jj = 1 To n
                     lu = lu & Format2(numeri(jj)) & "."
                  Next
                  comb(cz,2) = lu
                  comb(cz,5) = 9999
                  '''LOOP 10 RUOTE x trovare sulle 10 ruote quelle con retrit>=retritmax
                  For RUo = 1 To 10
                     ru(1) = RUo
                     Call StatisticaFormazioneTurbo(numeri,ru,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
                     If retrit >= retritmax Then
                        comb(cz,3) = comb(cz,3) & SiglaRuota(ru(1)) & "-"
                        comb(cz,4) = comb(cz,4) + 1

                        If retrit < Int(comb(cz,5)) Then
                           comb(cz,5) = retrit
                        End If
                     End If
                  Next
                  '''''''''
                  numeri(n) = numeri(n) + 1
               Else
                  fineciclo = 0
               End If
            Else
               numeri(n) = numeri(n) + 1
               fineciclo = 1
            End If
         Else
            fineciclo = 0
         End If
         '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
         If fine = 0 Then Exit Do End If
      Loop Until fineciclo = 0
   Loop Until fine = 0
   ColoreTesto(2)
   Scrivi "BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top",1
   Scrivi "Lunghette con ritardo minimo " & maxmax(numericercati) & ":     Sviluppate in classe = " & numericercati & " Per la sorte di.." & s,1
   Scrivi "Condizione imposta:  Nell'elenco ci sono solo Ritardi attuali >= Ritardo Massimo di Ruota ",1
   Scrivi "da rilevazione a Tutte......." & finale & " / " & DataEstrazione(finale),1
   If numericercati = 2 Then Scrivi "RC   RX     Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
   If numericercati <> 2 Then Scrivi "RcTT   RxTT Frq.  Combinazione Lunghetta ",1
   Call OrdinaMatrice(comb,- 1,6)
   ColoreTesto(0)
   If cz = 0 Then
      Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
   Else
      For v = 1 To cz
         If comb(v,4) > nru Then
            If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2) & "  Rmin. " & comb(v,5) & "      " & comb(v,4) & "- Ruote.." & comb(v,3),1
            '''verificaesito
            ReDim nm(10),nur(10)
            Call SplitByChar(comb(v,2),".",nm)
            For f = 0 To numericercati - 1
               nur(f + 1) = nm(f)
            Next
            Call VerificaEsitoTurbo(nur,ruote,finale + 1,s,,,,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(2)
               Scrivi "----------    " & retidestr & ":.." & retestratti & "    colpo n. " & retidestr - finale,1
               ColoreTesto(0)
            End If
         End If
      Next
   End If
   Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
   ColoreTesto(2)
   Scrivi "Tempo elaborazione.." & TempoTrascorso,1
End Sub
 
B

Beppignello

Guest
Ciao lottotom
.mi devi fare qualche esempio di cosa vuoi
perché non ho capito di che tabella ti riferisci.
 

lotto_tom75

Advanced Premium Member
Beppignello;n2166889 ha scritto:
Ciao lottotom
.mi devi fare qualche esempio di cosa vuoi
perché non ho capito di che tabella ti riferisci.

Ciao beppignello, grazie ma credo di aver già risolto così:

Codice:
ReDim numeri(0)
qns = ScegliNumeri(numeri)

Prima mi dava errore perchè non avevo remmato la dim numeri(90) :)

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto