|
|
| Ciao a tutti, sulla base della discussione iniziata dall'amico HERAT a questo post ( https://lottogam.forumfree.it/?t=79779020) ecco il listato che consente la ricerca dei Gruppi di catene di Ambi Consecutivi su Ruota con Coppia Consecutivi Capogioco Option Explicit Sub Main 'Ricerca di Gruppi di catene di Ambi Consecutivi su Ruota con Coppia Consecutivi Capogioco: scritto da Gam il 24.07.2023 su modifica di Herat Dim ruote(1) Dim st,at,capogioco,capogioco2,eIni,Efin,LivArch,cat,Gruppo,Att,Sto,Freq,Gr Dim ambo(2),ambo2(2),NumAmbi,PrimoEl,UltimoEl,conta Dim r,k,x,sFile,riga,StoMAX
NumAmbi = 10 ' numero ambi consecutivi StoMAX = 0' valore minimo per stampare i risultati
eIni = EstrazioneIni Efin = EstrazioneFin
LivArch = 0 ' Archivio
sFile = GetDirectoryTemp & "Catena_" & NumAmbi & "_Ambi_Consecutivi_Con_Coppia_Capogioco_Consecutiva_su_Ruota_da_" & eIni & "_a_" & Efin & "su_L_" & LivArch &".txt" ' costruisce un percorso valido usando la dir temp dell'applicazione Call EliminaFile(sFile)
For capogioco = 1 To 4 For capogioco2 = capogioco + 1 To capogioco + 1 If ScriptInterrotto Then Exit Sub For r = 1 To 10 If r = 11 Then r = 12 ruote(1) = 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("Catene formate da " & NumAmbi & " Ambi - con Coppia Capogioco " & capogioco & " - " & capogioco2 & " " & SiglaRuota(r))
For x = 0 To NumAmbi - 1 ambo(1) = capogioco :ambo(2) = k + x ambo2(1) = capogioco2: ambo2(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,r) If capogioco2 <> k + x And PrimoEl < 91 And UltimoEl < 91 Then Call AddNumeriToGruppoStatistico(ambo2,r) 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 > StoMAX Then If Att >= Sto Then riga = "Catena " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & "-" & Format2(capogioco2) & " " & PrimoEl & " " & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") & " ***" ' Scrivi riga Call ScriviFile(sFile,riga) Else riga = "Catena " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & "-" & Format2(capogioco2) & " " & PrimoEl & " " & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") ' Scrivi riga Call ScriviFile(sFile,riga) End If End If PrimoEl = "" UltimoEl = "" End If Next Next Next Next Scrivi TempoTrascorso Scrivi Gr & " Gruppi di ambi analizzati" Call ScriviFile(sFile,TempoTrascorso) Call ScriviFile(sFile,Gr & " Gruppi di ambi analizzati") Call CloseFileHandle(sFile) Call LanciaFile(sFile) End Sub Saluti
|
| |