Previsioni spaziometria

[Marco60]

Buongiorno a tutti, ho installato il programma spaziometria , sono incuriosito dalle figure geometriche che può rilevare il programma, domanda da inesperto, come si possono ricavare previsioni da queste figure?
Grazie

 

[Marcorun]

Ciao....provo a risponderti io che non sono certo un mago del lotto come invece ce ne sono molti qui...
potresti cominciare con qualche script tipo quello che ti allego.

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 vetNumEstratto(10)' contiene i numeri da giocare per Estratto la gestione è a carico dell'utente
    Dim idGiocata ' identifica le giocate effettuate
    Dim CollFigTrovate ' collection contenente i triangoli trovati
    Dim clsFg ' Classe per enumerare la collection
    
    
    
    ' Imposto i limiti del range di analisi
    Inizio = (EstrazioniArchivio - 500)+1
    Fine = EstrazioniArchivio
    
    ' Imposto le ruote in gioco
    Call ImpostaRuote(Ruote)
    ' Imposto le poste in gioco
    Call ImpostaPoste(Poste)
    
    ' 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 GetCollTriangoliEquilateri(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 DisegnaCerchioCiclometrico(aNumeriFig)' Disegno il cerchio ciclometrico
                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

End Sub
Sub ImpostaPoste (vetP) ' imposta le poste in gioco
    vetP(1) = 1

End Sub

Lo puoi ottenere (anche diversi)così,se riesco ti metto la foto

 

[Marco60]

Grazie,ho provato a eseguirlo ma mi da errore

 

[Marcorun]

Grazie,ho provato a eseguirlo ma mi da errore

A me funziona,assicurati di copiare/incollare bene.
Quando apri un nuovo script,devi cancellare quei caratteri che ci sono di default.......fa sapere

 

[Marco60]

Perfetto, cancellato codice esistente e incollato il tuo, tutto ok, grazie