| ti metto lo script senza metterlo in spoiler Francamente è anomalo, prova su altri forum stessa piattaforma e ve di se ti si apre lo spoiler . P.s. sono proprio questi vecchietti che tengono in piedi la vita di questi forum. ------------------------------------------------------------------------------------------------------------------
Sub Main Dim Ru(1),Terne(3),aN(90),aCol,T,V Dim nClasse Ini = 3950'EstrazioneIni fin = EstrazioneFin - 1 fine = EstrazioneFin Classe = CInt(3) sorte = CInt(2) ritmaxx = CInt(1000) nClasse = Classe ResetTimer T = Array(T,"kk","Terne","Rit Corr","Rit Max","IncrMax","Fre","verifica 1","Verifica Ruota Venus","Colpo") Call InitTabella(T) For r = 1 To 10 Ru(1) = r For k = 1 To 90 aN(k) = k Next nCol = InitSviluppoIntegrale(aN,nClasse) k = 0 Do While GetCombSviluppo(aCol) k = k + 1 Terne(1) = aCol(1) Terne(2) = aCol(2) Terne(3) = aCol(3) If Terne(1) <> Terne(2) And Terne(2) <> Terne(3) Then sf = SerieRitardoTurbo(Ini,fin,Terne,Ru,sorte) If sf > ritmaxx Then kk = kk + 1 Call Messaggio("Elaboro Terne per Ambo " & TempoTrascorso) Call AvanzamentoElab(1,90,kk) Call StatisticaFormazioneTurbo(Terne,Ru,sorte,rit,max,Incr,fre,Ini,fin) 'If rit > ritmaxx Then Call VerificaEsitoTurbo(Terne,Ru,fin - rit,3,,,esito,,esa,ida) Call VerificaEsitoTurbo(Terne,Ru,fine,sorte,,,,,esb,idb) If esito <> "" Then kkk = kkk + 1 '------------estrapola ruota venus --------------------- If r = 1 Then rr = Array(0,1,6,7) If r = 2 Then rr = Array(0,2,3,8,12) If r = 3 Then rr = Array(0,2,3,8,12) If r = 4 Then rr = Array(0,4,5,9,10) If r = 5 Then rr = Array(0,4,5,9,10) If r = 6 Then rr = Array(0,1,6,7) If r = 7 Then rr = Array(0,1,6,7) If r = 8 Then rr = Array(0,2,3,8,12) If r = 9 Then rr = Array(0,4,5,9,10) If r = 10 Then rr = Array(0,4,5,9,10) 'spp = SeriePrima(fin-rit+1,fin,Terne,rr,2) Call VerificaEsitoTurbo(Terne,rr,fin - rit + 1,2,,,,clp,essa,idss) V = Array(V,kkk,StringaNumeri(Terne),rit + 1,max + 1,Incr,fre,esa,essa,clp) Call AddRigaTabella(V) End If End If 'Loop End If Loop Next Call CreaTabella(3) Scrivi TempoTrascorso End Sub
|