Novità

Previsioni spaziometria

Marco60

Junior Member
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
 
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.
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 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
 

Allegati

  • Script x figure geometriche.png
    Script x figure geometriche.png
    135 KB · Visite: 44

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
Indietro
Alto