Novità

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

  • Creatore Discussione Creatore Discussione Juri
  • Data di inizio Data di inizio
J

Juri

Super Member >GOLD<
Ciao a tutti.

Con spaziometria non riesco a vedere ad es su ve 3-4° 23-40 e poi sempre 3-4° es 70-83 ad es.Come posso fare?Sono 6 numeri della sestina esagonale o anche solo distanza 30.Es 32-3 e 62-33.

70-83
23-40

distanza 30 in diagonale,mi sono spiegato?

Oppure

17-2
32-47

uguale in diagonale.

Oppure

17-60
77-30

in verticale.


C'è un modo più veloce che farlo a mano?MI sono spiegato bene?Possono essere sia su una ruota che 2 ruote anche in 7-8 estrazioni precedenti.


Grazie mille.

Statemi bene.
 
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.

Juri.GIF

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
 
Ultima modifica:
Esempio:il 20 febbraio su ge 2 e 4° 32-77 e il 24 febbraio 47-62 venezia.Ambi distanza 30 in diagonale.

Il 27 febbraio su na 6-39 in 1 e 3°.Poi su naz 84-51 1 e 3°.Sono ambi distanza 45 in diagonale.

Mi sono spiegato?Senza un software ciclometrico o che li fa si fa fatica a vederli.In spaziomatria il programma di Luigi non li fa.

Grazie mille.
 
Un programma ciclometrico preciso lo può fare ma vorrei vedere se riesco con meno.

Mi sono spiegato stavolta?

Sui giornali ci sono dei metodi ricercati con i programmi altrimenti a mano su 6-8 numeri è quasi impossibile da fare.

Grazie.
 
ho reperito questa bozza di script di qualche anno fa, se qualcuno vuole lavorarci sopra faccia pure, perché io non ho tempo da seguirlo.
questo calcola le distanze non ciclometriche, ma le distanze normali di n1 e n2

oppure se mike58 o qualcuno ha qualche script più definito sulle distanze ciclometriche di ogni estrazione
forse è meglio.

ciao



Codice: 
Option Explicit
Sub Main
 Dim d,a,b,ct,r1,r2,n1,n2,es,di
 es = InputBox("Estraz.n.",,EstrazioneFin)
 di = CInt(InputBox("Distanza",,30))
 For r1 = 1 To 9
  For r2 = r1 + 1 To 10
   For a = 1 To 5
    n1 = Estratto(es,r1,a)
    For b = 1 To 5
     n2 = Estratto(es,r2,b)
     If Distanza(n1,n2) = di Then
      Scrivi "Distanza   " & di & "     " & SiglaRuota(r1) & "." & Format2(n1) & "  |  " & SiglaRuota(r2) & "." & Format2(n2)
      ct = ct + 1
     End If
    Next
   Next
  Next
 Next
  Scrivi "Totale " & ct
End Sub
 
Ultima modifica di un moderatore:
Juri;n2105174 ha scritto:
Grazie forse riesco a combinare.
Statemi bene.
Clicca per espandere...

Ciao,io non programmo in VBa ma ho trovato questo:

Sub Main()
Dim am(2),ab(3),ruote(3),ruota(4),posta(1),poste(2),post(3)
posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1

quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",300))
If quante = False Then Exit Sub

For es =(EstrazioneFin - quante) To EstrazioneFin
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 r2 = r1 + 1 To 11
c = Estratto(es,r2,p1)
d = Estratto(es,r2,p2)
If r2 = 11 Then r2 = 12

If Distanza(a,c) = 30 And Distanza(b,d) = 30 Then

cont = cont + 1 : Scrivi
ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r1),3) & "." & Space(5) & _
"" & StringaEstratti(es,r1) & "" & Space(5) & "" & Left(NomeRuota(r1),3) & "." & Space(3) & "" & Format2(a) & _
"" & Space(1) & "" & Format2(b) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1
Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r2),3) & "." & Space(5) & _
"" & StringaEstratti(es,r2) & "" & Space(5) & "" & Left(NomeRuota(r2),3) & "." & Space(3) & "" & Format2(c) & _
"" & Space(1) & "" & Format2(d) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1 : Scrivi

Gioca es
Scrivi String(58,151)

End If
'End If :
Next :
Next :
Next :
Next :
Next
'ScriviResoconto
ColoreTesto 2
End Sub
Clicca per espandere...

Trova le distanze 30 in verticale, per modificare in diagonale basta variare questa riga di codice:

If Distanza(a,c) = 30 And Distanza(b,d) = 30 Then

Sostituire (a,c) con (a,d) / Sostituire (b,d) con (b,c)

C'è un'altra cosa da modificare l'incongruenza con la ruta Nazionale che da errore, ma credo che qualche scrippter ti potrà dare una mano....

Ciao.
 
Ultima modifica:
Prova cosi

Codice: 
Sub Main()
 Dim am(2),ab(3),ruote(3),ruota(4),posta(1),poste(2),post(3)
 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
 Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = 30 ",1,,,,3,,1
 Scrivi
 For es =(EstrazioneFin - quante) To EstrazioneFin
  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 r2 = r1 + 1 To 12
      If r2 = 11 Then r2 = 12
      c = Estratto(es,r2,p1)
      d = Estratto(es,r2,p2)
      If r2 = 11 Then r2 = 12
      If Distanza(a,d) = 30 And Distanza(b,c) = 30 Then
       cont = cont + 1 : Scrivi
       ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & cont & "",1 : ColoreTesto 0 : Scrivi
       Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r1),3) & "." & Space(5) & _
       "" & StringaEstratti(es,r1) & "" & Space(5) & "" & Left(NomeRuota(r1),3) & "." & Space(3) & " " & Format2(a) & _
       "" & Space(1) & " " & Format2(b) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1
       Scrivi Space(73) & "><"
       Scrivi DataEstrazione(es,1) & "" & Space(2) & "[" & es & "]ª" & Space(7) & "" & Left(NomeRuota(r2),3) & "." & Space(5) & _
       "" & StringaEstratti(es,r2) & "" & Space(5) & "" & Left(NomeRuota(r2),3) & "." & Space(3) & " " & Format2(c) & _
       "" & Space(1) & " " & Format2(d) & "" & Space(6) & "(" & p1 & "-" & p2 & ")",1 : Scrivi
       'Gioca es
       Scrivi String(90,"=")
      End If
      'End If :
     Next :
    Next :
   Next :
  Next :
 Next
 'ScriviResoconto
 ColoreTesto 2
End Sub
 
Ultima modifica:
Ciao Mike58 grazie che hai risolto, in effetti avevo postato tutto frettolosamente senza fare verifiche ed oltre all’errore della Nazionale si era anche sformattato il listato in questa linea:

po st(3) si era creato uno spazio nel copia incolla.

Ti ringrazio a nome di Juri che adesso potrà spaziare con le sue distanze variando il valore 30 con il 15 nella riga di codice.

Nikor.
 
Mettiamoci l'inputBox per scelta distanza

Codice: 
Sub Main()
 Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3)
 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))
 Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = " & Dist,1,,,,3,,1
 Scrivi
 For es =(EstrazioneFin - quante) To EstrazioneFin
  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 r2 = r1 + 1 To 12
      If r2 = 11 Then r2 = 12
      c = Estratto(es,r2,p1)
      d = Estratto(es,r2,p2)
      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
       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(73) & "><" & " Distanza Diagonale " & dist
       Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & StringaEstratti(es,r2) & Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & p1 & "-" & p2 & ")",1
       'Gioca es
       Scrivi String(90,"=")
      End If
      'End If :
     Next :
    Next :
   Next :
  Next :
 Next
 'ScriviResoconto
 ColoreTesto 2
End Sub
 
Lavoro eccezionale!Grazie mille.

Riesci per caso a farlo uguale anche con più estrazioni su una ruota o 2?Su max 5 estrazioni indietro va bene.Es trovare l'incrocio su bari e bari o bari e milano 5 estrazioni prima.Mi sono spiegato?

Grazie mille.
 
Lavoro eccezionale!Grazie mille.​

Riesci per caso a farlo uguale anche con più estrazioni su una ruota o 2?Su max 5 estrazioni indietro va bene.Es trovare l'incrocio su bari e bari o bari e milano 5 estrazioni prima.Mi sono spiegato?​

Grazie mille​
Clicca per espandere...

Quello che ultimamente dico sempre quando si fa uno script viene creato un certo costrutto o iter operativo per raggiungere uno scopo
poi ricambiare ed aggiungere modifiche diventa complicato

Io ti aggiungo quello che chiedi per estrapolare i dati che ti interessano ma poi per via dei tanti cicli for ed end if
la velocità di elaborazione ne risente parecchio.

Sarebbe utile se ti interessa vedere poche estrazioni di ricerca.
di più non posso fare anche perché sono impegnato in altro.


Codice: 
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
 
Grazie mille.

Cosa mi consigli di fare?Poi non so se funziona.Per ricerche brevi va bene ma almeno 2 mesi o 3.Tu intendevi questo?
 
Come mai nel programma fatto da Mike non vedo il 3 marzo su bari 4-54 in 3 e 4° e poi il 10 marzo 84-64 su torino in 4 e 5° posizione?Sono distanza 30 in diagonale.
Anche un altro programma non vede questa unita.

Non mi dà neanche quella del 20 febbraio su ge 2 e 4° estr 32-77 e poi il 24 febbraio su ve 47-62 in 2 e 4° posizione.

Non vede neanche su ve il 10 febbraio in 1 e 3° 88-42 ve e poi il 3 febbraio 72-58 ve.


Grazie ancora.
 
Perché quel tipo di ricerca lo script non la fa,se vedi la raccolta lo script è impostato per trovare solo gli ambi con stessa distanza diagonale su 2 ruote stessa estrazione.

L'altra ricerca o script non c'è ed è più complicato fare questo script.

Ciao
 
Mike58;n2106616 ha scritto:
Perché quel tipo di ricerca lo script non la fa,se vedi la raccolta lo script è impostato per trovare solo gli ambi con stessa distanza diagonale su 2 ruote stessa estrazione.

L'altra ricerca o script non c'è ed è più complicato fare questo script.

Ciao
Clicca per espandere...

Lo script le cerco ma le salta qualcuna.Non le trova solo in questa estrazione.Parlo dell'ultimo script fatto.
Mi chiede che distanza voglio controllare e metto 30 ma anche 45 o 15 va.

Dov'è l'inghippo?E' un problema del software?

Grazie mille.


[09448] [ 33] 17.03.2018 MI 28.18.55.29.73 28.73 (1-5) X Distanza Diagonale 30 [09439] [ 24] 24.02.2018 RO 13.21.71.73.58 13.58 (1-5)


[09448] [ 33] 17.03.2018 MI 28.18.55.29.73 55.29 (3-4) X Distanza Diagonale 30 [09445] [ 30] 10.03.2018 TO 31.59.83.89.25 59.25 (2-5) 3
 
Ultima modifica:
Mi spiace non ricordavo neanche che avevo postato quel tipo di script, forse devi giocare con le estrazioni.
Visto l'elaborazione impegnativa ho messo da default poche estrazioni (30) con un ritardo precedente di Ricerca a ritroso = 10.

Forse è qui che devi operare al meglio.
per il resto non saprei lo script visto la lunga elaborazione non mi permette di fare verifiche.

Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto