Buonasera Baffo ,io ho provato a fare un autocomposizione di script tramite il pulsante su Spaziometria e riguarderebbe Ambi uguali Isotopi, non so se può essere di aiuto mi sembra che si avvicina alla tua richiesta ,forse andrebbe modificato qualcosa ,io più di questo non riesco a fare, ma spero che possa essere di aiuto ,se qualcuno che ci sa fare con gli script e lo migliora ,ben venga.
Codice:
Sub Main
Dim i ' variabile generica per controllo cicli
Dim idEstr ' controlla lo scorrimento del ciclo di analisi
Dim Inizio ' è il limite inferiore del ciclo di analisi
Dim Fine ' è il limite superiore del ciclo di analisi
Dim nDaFare ' è il numero di estrazioni contenute nel range
Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi
Dim Ruote(12) ' contiene le ruote in gioco
Dim Poste (10) ' contiene le poste per ciascuna sorte giocata
Dim PosteTT (10) ' contiene le poste per ciascuna sorte giocata su tutte
Dim vetNumEstratto(10)' contiene i numeri da giocare per Estratto la gestione è a carico dell'utente
Dim vetNumAmbo(10)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
Dim vetNumTerno(10)' contiene i numeri da giocare per Terno la gestione è a carico dell'utente
Dim idGiocata ' identifica le giocate effettuate
Dim CollFigTrovate ' collection contenente gli ambi uguali trovati
Dim clsFg ' Classe per enumerare la collection
' Imposto i limiti del range di analisi
Inizio = 1 ' 1 - 07/01/1871
Fine = 10467 ' 105 - 02/07/2024
' Imposto le ruote in gioco
Call ImpostaRuote(Ruote)
' Imposto le poste in gioco
Call ImpostaPoste(Poste)
Call ImpostaPoste(PosteTT)
' Calcolo estrazioni da fare
nDaFare = Fine - (Inizio- 1)
' Blocco analisi estrazioni
For idEstr = Inizio To Fine
' Qui va il codice che l'utente dovra scrivere per analizzare il metodo
' Come esempio nel codice c'è una funzione di rilevamento condizioni
' eventualemte sostituire il codice di rilevamento condizioni con
' codice adatto alle esigenze
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
If GetAmbiUgualiIsotopi(idEstr, CollFigTrovate) > 0 Then
idGiocata = 0 ' azzera le giocate
' Scorre le figure trovate
For Each clsFg In CollFigTrovate
ReDim aNumeriFig(0)
Call GetArrayNumeriFromFiguraCiclo(clsFg, aNumeriFig) ' ottengo i numeri della figura
idGiocata = idGiocata + 1 'incrementa il numero della giocata
Call ImpostaGiocata (idGiocata ,aNumeriFig,Ruote,Poste,10) ' gioca la combinazione per 10 colpi
Call DisegnaEstrazioneFromFiguraCiclometrica(idEstr, clsFg)' Disegno l'estrazione con la condizione rilevata
Next
Call Gioca (idEstr , True)
End If
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
' Gestione avanzamento elaborazione
nFatte = nFatte + 1
Call AvanzamentoElab(0, nDaFare, nFatte)
' Gestione messaggio
Call Messaggio ("Estrazioni elaborate : " & nFatte)
' Gestione interruzione elaborazione
If ScriptInterrotto Then Exit For
Next
Call ScriviResoconto
End Sub
Sub ImpostaRuote (vetR) ' imposta la ruote in gioco
vetR(1) = 1
vetR(2) = 2
vetR(3) = 3
vetR(4) = 4
vetR(5) = 5
vetR(6) = 6
vetR(7) = 7
vetR(8) = 8
vetR(9) = 9
vetR(10) = 10
vetR(11) = 12
End Sub
Sub ImpostaPoste (vetP) ' imposta le poste in gioco
vetP(1) = 1
vetP(2) = 1
vetP(3) = 1
End Sub
