Come vedo una distanza 15 o 30 in diagonale,verticale e orizzon anche su 1- 2 ruote?

[Juri]

Allora vedo se farmi aiutare con lo script che c'è.

Grazie.

 

[Juri]

Ti riferisci a Spaziometria con l'evdenzia numeri ,all'Editor di o agli script o cos'altro?
con questi numeri, "ve 3-4° 23-40 e poi sempre 3-4° es 70-83"
a che estrazioni ti riferisci?
Cerca di essere più esplicativo nella richiesta.

Percorso menu Spaziometria --> Elenco estrazioni --> tasto123 ( evidenzia numeri,)
all'apertira della tabella dei numeri puoi sceglierli e dopo anche salvarli con none.
es: sestina esagonale del.... evidenzia i 6 numeri e salva.
Ti consiglio di farlo singolarmente per tutti i gruppi di sestine, terzine, quartine ecc che ti interessano altrimenti quando devi fare le ricerche ti verranno evidenziati ttutti i numeri.



Editor strutture spaziometriche, è molto lungo da spiegare e sinceramente non lo ricordo a menadito quindi scarica e vediti il o i video postato da Rabberto qui: VIDEOSPIEGAZIONE SPAZIOMETRIA :
https://forum.lottoced.com/forum/lot...38#post2104038

Per gli scrpt invece dovresti richiedere volta per volta le tipologie di ricerche da fare, o fare un elenco ben dettagliato ed attenedere che qualcuno si renda disponibile, tempo permettendo.
Ps: se hai voglia di imparare a scrivere script, nello stesso post trovi il link dei video di SPAZIOSCRIPT.

Ciao

Complimenti Claudio!
Solo ora ho letto bene cosa dicevi e mi aiuta anche questo.

Grazie ancora a tutti per l'aiuto!

 

[Juri]

Come riesco a vedere le distanze 30 ma non delle sestine esagonali ma di qualsiasi numero?Sia in diagonale,orizzonatale e verticale in più estrazioni?Con spaziometria si può impostare qualcosa di simile?Ho provato a vederlo ma non c'è.Ha molte funzioni valide.
Grazie.

 

[salvo50]

Ciao Juri, vedi se ti va bene

 'Chiesto da Juri
'Come riesco a vedere le distanze 30 ma non delle sestine esagonali ma di qualsiasi numero?
'Sia In diagonale,orizzonatale e verticale In più estrazioni?
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim FIn,Es,Ini,Caso,Casi
    Dim R1,R2,P1,P2,P3,P4,P,PP,A,B,C,D,E1,E2
    Dim Dab,Dcd,Dac,Dbd,Dad,Dbc,Dist
    Dist = 30 ' per variare la distanza da cercare
    FIn = EstrazioneFin
    Ini = FIn - 1
    For Es = Ini To FIn
        Messaggio Es
        AvanzamentoElab Ini,FIn,Es
        Caso = 0
        For R1 = 1 To 10
            For P1 = 1 To 4
                For P2 = P1 + 1 To 5
                    A = Estratto(Es,R1,P1)
                    B = Estratto(Es,R1,P2)
                    For R2 = R1 + 1 To 11
                        If R2 = 11 Then R2 = 12
                        For P3 = 1 To 4
                            For P4 = P3 + 1 To 5
                                C = Estratto(Es,R2,P3)
                                D = Estratto(Es,R2,P4)
                                'A---B
                                '|   |
                                'C---D
                                Dab = Distanza(A,B) : Dcd = Distanza(C,D)
                                Dac = Distanza(A,C) : Dbd = Distanza(B,D)
                                Dad = Distanza(A,D) : Dbc = Distanza(B,C)
                                'condizione per avere una distanza specifica (quella impostata) in orizontale, o verticale o diagonale
                                If(Dab = Dist And Dcd = Dist) Or(Dac = Dist And Dbd = Dist)Or(Dad = Dist And Dbc = Dist) Then
                                '-----------------------------------------------------------------------------------------------------
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 2
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P = 1 To 5
                                        E1 = Estratto(Es,R1,P)
                                        If E1 = A Or E1 = B Then
                                            ColoreTesto 2
                                        Else
                                            ColoreTesto 0
                                        End If
                                        Scrivi Format2(E1) & " ",1,0
                                        ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                        E2 = Estratto(Es,R2,PP)
                                        If E2 = C Or E2 = D Then
                                            ColoreTesto 2
                                        Else
                                            ColoreTesto 0
                                        End If
                                        Scrivi Format2(E2) & " ",1,0
                                        ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi "     Distanza " & Format2 (Dist) & Space(8) & "Distanze " & Space(7),1,0
                                    Scrivi "Distanze" & Space(8) & "Distanze",1
                                    Scrivi "Oriz. o Vert. o Diag" & Space(4) & "Orizontali" & Space(5),1,0
                                    Scrivi " Verticali       Diagonali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(14),1,0
                                    Scrivi Format2(Dab) & Space(14) & Format2(Dac),1,0
                                    Scrivi Space(14) & Format2(Dad),1
                                    Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(14),1,0
                                    Scrivi Format2(Dcd) & Space(14) & Format2(Dbd),1,0
                                    Scrivi Space(14) & Format2(Dbc),1
                                    Scrivi
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
End Sub

 

[Juri]

Grazie mille Salvo per la disponibilità.Il link va bene.Si può avere anche con distanza max di 8 estrazioni?I calcoli vanno bene ma nè prende di più.Poi sarebbe perfetto.

 

[Juri]

Esempio:
[09452] [ 37] 27.03.2018 RO 76.48.37.84.36 37.36 (3-5)
X Distanza Diagonale 30
[09446] [ 31] 13.03.2018 RO 34.06.07.30.25 06.07 (2-3) 2 Qui c'è distanza 6 estrazioni.

[09452] [ 37] 27.03.2018 MI 10.77.56.19.53 10.19 (1-4)
X Distanza Diagonale 30
[09442] [ 27] 03.03.2018 MI 06.90.79.40.45 79.40 (3-4) 2
DISTANZA 10 ESTR solo su milano.
n quello che hai fatto tu è più completo perchè vedo tutte le distanze 30 e non solo in diagonale. Va bene anche su una ruota ma a distanza di 8 estrazioni.Queste non riesco proprio a farle con più estrazioni ma non la stessa. Grazie.

 

[salvo50]

Ciao, ho impostato una sola ruota, la ricerca fino a 8 estrazioni indietro, la distanza da cercare e l'estrazione da dove iniziare i calcoli, con inputbox così si possono variare da esterno

 'Chiesto da Juri
'Come riesco a vedere le distanze 30 ma non delle sestine esagonali ma di qualsiasi numero?
'Sia In diagonale,orizzonatale e verticale In più estrazioni ruota unica?
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim FIn,Es,Ess,Ini,Ind,Caso,Casi
    Dim R1,Ru,P1,P2,P3,P4,P,PP,A,B,C,D,E1,E2
    Dim Dab,Dcd,Dac,Dbd,Dad,Dbc,Dist
    Ini = CInt(InputBox("Da quale estrazione iniziare?",,9400))
    Dist = CInt(InputBox("Quale distanza cercare?",,30))
    Ind = CInt(InputBox("Fino a quante estrazioni indietro?",,8))
    Ru = CInt(InputBox(" Quale ruota? ",,6))
    FIn = EstrazioneFin
    For Es = Ini To FIn
        For Ess = Es - 1 To(Es - Ind) Step - 1
            Messaggio Es
            AvanzamentoElab Ini,FIn,Es
            Caso = 0
            For R1 = Ru To Ru
                For P1 = 1 To 4
                    For P2 = P1 + 1 To 5
                        A = Estratto(Es,R1,P1)
                        B = Estratto(Es,R1,P2)
                        For P3 = 1 To 4
                            For P4 = P3 + 1 To 5
                                C = Estratto(Ess,R1,P3)
                                D = Estratto(Ess,R1,P4)
                                'A---B
                                '|   |
                                'C---D
                                Dab = Distanza(A,B) : Dcd = Distanza(C,D)
                                Dac = Distanza(A,C) : Dbd = Distanza(B,D)
                                Dad = Distanza(A,D) : Dbc = Distanza(B,C)
                                'condizione per avere una distanza specifica (quella impostata) in orizontale, o verticale o diagonale
                                If(Dab = Dist And Dcd = Dist) Or(Dac = Dist And Dbd = Dist)Or(Dad = Dist And Dbc = Dist) Then
                                    '-----------------------------------------------------------------------------------------------------
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 2
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P = 1 To 5
                                        E1 = Estratto(Es,R1,P)
                                        If E1 = A Or E1 = B Then
                                            ColoreTesto 2
                                        Else
                                            ColoreTesto 0
                                        End If
                                        Scrivi Format2(E1) & " ",1,0
                                        ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Ess) & " del " & DataEstrazione(Ess)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For PP = 1 To 5
                                        E2 = Estratto(Ess,R1,PP)
                                        If E2 = C Or E2 = D Then
                                            ColoreTesto 2
                                        Else
                                            ColoreTesto 0
                                        End If
                                        Scrivi Format2(E2) & " ",1,0
                                        ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi "     Distanza " & Format2(Dist) & Space(8) & "Distanze " & Space(7),1,0
                                    Scrivi "Distanze" & Space(8) & "Distanze",1
                                    Scrivi "Oriz. o Vert. o Diag" & Space(4) & "Orizontali" & Space(5),1,0
                                    Scrivi " Verticali       Diagonali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(14),1,0
                                    Scrivi Format2(Dab) & Space(14) & Format2(Dac),1,0
                                    Scrivi Space(14) & Format2(Dad),1
                                    Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(14),1,0
                                    Scrivi Format2(Dcd) & Space(14) & Format2(Dbd),1,0
                                    Scrivi Space(14) & Format2(Dbc),1
                                    Scrivi
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
End Sub

 

[Juri]

Per la ruota va bene.Non si riesce a fare un comando unico dove basta che metto io la distanza da cercare e le estrazioni da andare indietro?Altrimenti mi tocca mettere le 10 ruote ogni volta.


Questo script sotto fatto da Mike va bene ma salta molte previsioni e non so il perchè.


Sub Main()
Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
If quante = False Then Exit Sub
dist = CInt(InputBox("Quale Distanza",,30))
rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = " & Dist,1,,,,3,,1
Scrivi
Ini = EstrazioneFin - quante
fin = EstrazioneFin
For es = Ini To fin
Messaggio "[" & es & "]ª"
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
For ex = es - 10 To es - 1
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(ex,r2,p3)
d = Estratto(ex,r2,p4)

If r2 = 11 Then r2 = 12
If Distanza(a,d) = dist And Distanza(b,c) = dist Then
n1(1) = a
n1(2) = b
n2(1) = c
n2(2) = d
ru(1) = r2
sf = SerieRitardo(Ini,es,n2,ru,2)
If sf < rit Then
cont = cont + 1 : Scrivi
ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & Space(10) & StringaNumeri(n1,,1) & vbTab & "(" & p1 & "-" & p2 & ")",1
Scrivi Space(74) & "X" & " Distanza Diagonale " & dist
Scrivi GetInfoEstrazione(ex) & vbTab & SiglaRuota(r2) & vbTab & StringaEstratti(ex,r2) & Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & p3 & "-" & p4 & ")" & vbTab & sf,1
'Gioca es
Scrivi String(90,"=")
End If
End If :
Next :
Next :
Next :
Next :
Next
Next
Next
Next
'ScriviResoconto
ColoreTesto 2
End Sub

 

[Juri]

Il tuo fatto su una ruota con tutte le distanze è perfetto che vedo tutto.Pi se voglio metto la distanza 9-18 ecc.Con tutte le ruote sarebbe il max.Poi mi accorgo da solo se salta delle previsioni.Con quello messo da Mike nè saltava anche 5-7 anche buone.Fa solo in diagonale.

Le sestine esagonali vanno bene.Se le puoi mettere va bene.Lo dicevo visto che con spaziometria le vedo ma mi tocca metterle a mano ogni volta che le ho salvate.Faccio vari passaggi.Per quello ti ho detto che facevo senza.
Con tutto in un unico script non faccio il resto 2-3 volte.

Mi auguro di essermi spiegato bene.

Grazie mille del tuo lavoro.

 

[Juri]

Qualcuno mi può aiutare per quanto scritto l'11 aprile?
Grazie lo stesso se non si può.

Buona serata.