| Salve Gam. Modificando un tuo splendido script ho creato questo con copia capogioco. Gli storici partono dal 14-9-46 da BA a VE e dal 4-5-2005 per NZ
Gruppo 16925 di 10 Ambi CA [26 27 46-55] Sto 0354 Att 0004 Gruppo 57388 di 10 Ambi TO [83 84 54-63] Sto 0427 Att 0427 ***
'Ricerca di Gruppi di Ambi Consecutivi con Coppia Capogioco consecutiva su Ruota: Scritto da Gam il 20.12.2019 - v. 1.0 - modificato da HERAT Sub Main()
Dim ruota1,ruota2,ruota3 Dim st,at,capogioco,eIni,Efin,LivArch,cat,Gruppo,Att,Sto,Freq,Gr,capogioco2 Dim ambo(3),NumAmbi,PrimoEl,UltimoEl,conta,ambi(3)
NumAmbi = 10' numero ambi consecutivi eIni = EstrazioneFin - 6320 Efin = EstrazioneFin LivArch = 0
For capogioco = 1 To 89 For capogioco2 = capogioco + 1 To capogioco+1 'For 'impostare 90 per tutti i capigioco If ScriptInterrotto Then Exit Sub For r = 1 To 10 If r <> TT_ Then ruota1 = r For k = 1 To 90 - NumAmbi + 1 If k = capogioco - NumAmbi + 1 Then k = k + NumAmbi If k > 90 Then Exit For If capogioco <> NumAmbi And capogioco2 <> NumAmbi And capogioco <> k And capogioco2 <> k Then
Messaggio("NumeroAmbi " & NumAmbi & " Capogioco " & capogioco & " Capogioco2 " & capogioco2 & " " & SiglaRuota(r) & " " & k)
For x = 0 To NumAmbi - 1 ambo(1) = capogioco :ambo(2) = k + x ambi(1) = capogioco2: ambi(2) = k + x PrimoEl = Format2(k) UltimoEl = Format2(k + NumAmbi - 1) If capogioco <> k + x And(PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambo,ruota1) If capogioco2 <> k + x And(PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambi,ruota1) conta = conta + 1 Next If conta = NumAmbi Then Call StatisticaGruppoFormazioniTurbo(2,Att,Sto,Freq,Gruppo,eIni,Efin,LivArch) :Gr = Gr + 1 conta = 0
If Sto > 350 Then 'impostare un valore per limitare il numero di casi di ricerca 'Scrivi Gruppo If Att > 350 Then ColoreTesto 2 Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " [" & Format2(capogioco) & " " & Format2(capogioco2) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") & " ***" ColoreTesto 0 Else Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " [" & Format2(capogioco) & " " & Format2(capogioco2) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") 'End If End If End If End If PrimoEl = "" UltimoEl = "" Next End If Next Next Next Scrivi TempoTrascorso End Sub
|