annuncio

Comprimi
Ancora nessun annuncio.

x Beppignello

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • x Beppignello

    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,retri t,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardova lido,ritardoattuale,rminn,cz,v
    Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Pr imirit,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,re tritmax,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,retri tmax,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


  • #2
    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
    da rilevazione a Tutte.......9616 / 13.04.2019
    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 Beppignello; 15-04-2019, 14:23.
    ..ciao

    Commenta


    • #3
      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-
      ----------    9612:..BA 83 .. .. .. 72
      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-
      ----------    9613:..PA .. 73 52 .. ..
      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-
      ----------    9613:..TO .. .. .. 62 06
      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-
      ----------    9616:..MI .. .. 03 61 ..
      0052 / 0084 398  29.33.69.  Rmin. 0763      3- Ruote..BA-MI-TO-
      ----------    9611:..GE .. .. .. 33 29 - TO .. .. 29 69 ..
      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-
      ----------    9611:..VE .. 80 .. 86 ..
      0046 / 0077 410  37.41.89.  Rmin. 0722      3- Ruote..BA-FI-VE-
      ----------    9613:..NA .. .. 41 89 ..
      0045 / 0106 400  14.37.67.  Rmin. 0376      3- Ruote..GE-MI-NA-
      ----------    9614:..BA 14 67 .. .. ..
      0045 / 0090 405  06.53.61.  Rmin. 0413      3- Ruote..NA-RO-TO-
      
      
      Totale Combinazioni....4095
      Tempo elaborazione..00:01:06
      Ultima modifica di Beppignello; 15-04-2019, 14:40.
      ..ciao

      Commenta


      • #4
        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 Beppignello; 15-04-2019, 14:35.
        ..ciao

        Commenta


        • #5

          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 di BYRON; 15-04-2019, 15:17.

          Commenta


          • #6
            ah ho capito si ferma allo sfaldamento e poi riparte Grazie sono dati utili ma delicati da gestire

            Commenta


            • #7
              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.

              Commenta


              • #8
                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.

                Clicca sull'immagine per ingrandirla.Â*  Nome:   Cattura5.GIFÂ* Visite: 0Â* Dimensione: 35.7 KBÂ* ID: 2166780

                Rmin Ŕ errato, riporta 698, invece Rmin Ŕ 579
                le ruote risultano esatte.


                Ultima modifica di Beppignello; 15-04-2019, 21:48.
                ..ciao

                Commenta


                • #9
                  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 frappone tra eventuale massimo e minimo.

                  vediamo

                  Clicca sull'immagine per ingrandirla. 

Nome:   Cattura8.gif 
Visite: 156 
Dimensione: 36.0 KB 
ID: 2166788



                  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 Beppignello; 15-04-2019, 21:50.
                  ..ciao

                  Commenta


                  • #10
                    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.
                    ..ciao

                    Commenta


                    • #11
                      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 Beppignello; 15-04-2019, 22:22.
                      ..ciao

                      Commenta


                      • #12
                        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
                        ..ciao

                        Commenta


                        • #13
                          Grazie

                          Commenta


                          • #14
                            grazie di cuore, anche perchÓ non avrei saputo come intervenire. salvatore

                            Commenta


                            • #15
                              Ciao Beppignello, complimenti per lo script. Interessantissimo.
                              Ultima modifica di lotto_tom75; 16-04-2019, 18:26.
                              NON SI GARANTISCE ALCUNA VINCITA. Giocare sempre con estrema moderazione perchŔ la Fortuna Ŕ Geka... ma la Sfiga ci vede benissimo! Presente.. in ogni dove... anche su faccialibro - " Non stare davanti a me potrei non seguirti, non stare dietro di me potrei non esserti di guida, ma sta al mio fianco e sii semplicemente mio amico/a " (Albert Camus). Cerca... Lotto IncMax e Good Luck Everybody! NamastŔ!

                              Commenta

                              Unconfigured Ad Widget

                              Comprimi

                              Ultima estrazione del lotto

                              Comprimi

                              Estrazione del lotto
                              sabato 20 aprile 2019
                              Bari
                              63
                              04
                              46
                              16
                              05
                              Cagliari
                              04
                              65
                              87
                              13
                              27
                              Firenze
                              45
                              37
                              31
                              20
                              42
                              Genova
                              44
                              40
                              55
                              77
                              81
                              Milano
                              35
                              14
                              31
                              59
                              41
                              Napoli
                              83
                              52
                              81
                              11
                              04
                              Palermo
                              68
                              82
                              78
                              60
                              29
                              Roma
                              65
                              13
                              35
                              66
                              29
                              Torino
                              24
                              69
                              06
                              03
                              76
                              Venezia
                              24
                              39
                              58
                              41
                              26
                              Nazionale
                              89
                              37
                              71
                              39
                              31
                              Sto operando...
                              X