| CITAZIONE (mike58 @ 21/10/2023, 09:14) 2 - elenco ambi consecutivi sortiti su estrazione e ne verifica la Ri-Sortita nei colpi ed elenco sortita colpi (x Matteo tutto da decifrare) - prima Bozza. Sub Main Dim Nu(2),Ru(1),T,cc(300) Ini = EstrazioneFin - 300 fin = EstrazioneFin Tot = fin - Ini + 1 T = Array(T,"es","Ruota","AmbiCons","Verifica","Colpo","id") Call InitTabella(T) For es = Ini To fin For r = 1 To 10 For p1 = 1 To 4 For p2 = p1 + 1 To 5 a = Estratto(es,r,p1) b = Estratto(es,r,p2) If Differenza(a,b) = 1 Then k = k + 1 Nu(1) = a Nu(2) = b Ru(1) = r End If Next Next If k > 0 Then Call VerificaEsito(Nu,Ru,es + 1,2,Tot,,esito,clp,esa,id) ' For x = 1 To 300 If esito <> "" And clp = x Then cc( = cc( + 1 Next ' T = Array(T,es,SiglaRuota(r),StringaNumeri(Nu),esa,clp,id) Call AddRigaTabella(T) End If k = 0 Next Next CreaTabella For xx = 1 To UBound(cc) If cc(xx) > 0 Then Scrivi "Colpo : " & xx & vbTab & "Esiti : " & cc(xx) End If Next End Sub Ciao Buon studio Ciao Mike, in riferimento allo script 2 di sopra da te fatto ieri 21/10/2023 ore 9.14 è esattamente quello che cercavo e che in parte in passato mi ero procurato ma non riesco a trovare. L'unico piccolo problema è questo 10305 GE 74.73 17 0 10305 MI 71.70 17 0 10305 NA 70.69 17 0 10305 PA 36.37 17 0 10305 RO 23.24 17 0 10305 TO 69.70 17 0 Cioè nel concorso 10305 mi dà 6 ambi consecutivi invece di 8, in pratica della ruota di Ge mi riporta solo un ambo invece di tre e mi pare che faccia la stessa cosa ogni volta in cui su una ruota ci sono due o più ambi consecutivi. Si può rimediare? Avevo già quasi trovato tutto quello che m'interessava, ma c'erano alcuni dati che non mi tornavano e poi ho capito perché. In definitiva per risolvere tutto quello che cerco a me serve una tabella uguale ed identica nello stesso formato di quella che dà questo script, che mi riporti tutti gli ambi consecutivi sortiti dal 15-09-2009. Grazie per questo ottimo lavoro, buon fine serata, ciao Matteo CITAZIONE (mike58 @ 19/10/2023, 14:36) Ciao Matteo, visto che si parla anche di ambi consecutivi sincroni al ritardo, ho fatto uno script che elenca gli ambi consecutivi al ritardo trovato. Giusto per avere anche sottocchio questa situazione. Sub Main Dim rc(1),aN(2) Ini = EstrazioneIni fin = EstrazioneFin - 1 Scrivi "***** Ambi Consecutivi Sincroni al Ritardo *****",1,,,1,3 T = "Q.tà" & Space(1) & " Rit_Corr" & Space(15) & "Ambi e Ruota" & Space(17) & "|" Scrivi T,1,,,,,,1 For rit = 700 To 1 Step - 1 For r = 1 To 10 For n1 = 1 To 89 n2 = n1 + 1 a = AmboRitardoTurbo(r,n1,n2,Ini,fin) If a = rit Then aN(1) = n1 : aN(2) = n2 rc(1) = a k = k + 1 riga = riga & SiglaRuota(r) & " - " & StringaNumeri(aN,,1) & " | " 'Scrivi k & vbTab & a & vbTab & SiglaRuota(r) & " - " & n1 & "." & n2 End If 'Next Next Next If k > 2 Then Scrivi k & vbTab & rc(1) & vbTab & " | " & riga End If riga = "" k = 0 'k = 0 Next End Sub Dimenticavo di dirti che questo script invece gli ambi li riporta tutti gli otto di sopra, ciao Matteo
|