Novità

per il nostro scripter(esselotto)

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
ciao quando avanzi un po di tempo mi occorre questo script x ricercare ambi simmetrici
RINTRACCIARE GLI AMBI
In 2 estrazioni consecutive si devono rintracciare 2 ambi simmetrici (cioè ambi di distanza 30)
sortiti su 2 ruote diverse ma assolutamente in posizione isotopa cioè nelle
stesse colonne di estrazione.
Esempio: se i due numeri che formano l' ambo sono usciti al 3° e 5° posto estrazionale
anche il secondo ambo dovrà essere sortito nella 3a e 5a colonna.
praticamente lo script mi deve ricercare solo ambi in 2 estrazioni consecutive in posti isotopi
spero in un tuo riscontro positivo
ciao;)
 
con il permesso di esselotto

ambi simmetrici x arcor

Codice:
=======================================================
sab 30.05.2009 [ Mi -  41.11 in 3/5 ^ pos. ]
sab 30.05.2009 [ Na -  57.14 in 3/5 ^ pos. ]
-------------------------------------------- caso n° 1
=======================================================
sab 11.07.2009 [ Pa -  29.59 in 3/2 ^ pos. ]
sab 11.07.2009 [ Ro -  85.26 in 3/2 ^ pos. ]
-------------------------------------------- caso n° 2
=======================================================
mar 28.07.2009 [ To -  87.57 in 4/2 ^ pos. ]
mar 28.07.2009 [ Ve -  06.48 in 4/2 ^ pos. ]
-------------------------------------------- caso n° 3
=======================================================
gio 20.08.2009 [ Ro -  47.77 in 2/5 ^ pos. ]
gio 20.08.2009 [ To -  31.71 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 4
=======================================================
sab 19.09.2009 [ Na -  35.05 in 3/1 ^ pos. ]
sab 19.09.2009 [ Pa -  03.47 in 3/1 ^ pos. ]
-------------------------------------------- caso n° 5
=======================================================
sab 19.09.2009 [ Pa -  70.10 in 2/5 ^ pos. ]
sab 19.09.2009 [ Ro -  07.14 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 6
=======================================================
sab 31.10.2009 [ Mi -  22.52 in 5/3 ^ pos. ]
sab 31.10.2009 [ Na -  66.29 in 5/3 ^ pos. ]
-------------------------------------------- caso n° 7
=======================================================
mar 15.12.2009 [ To -  82.52 in 5/1 ^ pos. ]
mar 15.12.2009 [ Ve -  47.72 in 5/1 ^ pos. ]
-------------------------------------------- caso n° 8
=======================================================
mar 26.01.2010 [ To -  21.81 in 5/2 ^ pos. ]
mar 26.01.2010 [ Ve -  81.22 in 5/2 ^ pos. ]
-------------------------------------------- caso n° 9
=======================================================
sab 06.03.2010 [ To -  31.01 in 2/4 ^ pos. ]
sab 06.03.2010 [ Ve -  54.21 in 2/4 ^ pos. ]
-------------------------------------------- caso n° 10
=======================================================
sab 13.03.2010 [ To -  90.30 in 4/3 ^ pos. ]
sab 13.03.2010 [ Ve -  50.11 in 4/3 ^ pos. ]
-------------------------------------------- caso n° 11
=======================================================
gio 25.03.2010 [ Na -  80.20 in 4/3 ^ pos. ]
gio 25.03.2010 [ Pa -  53.24 in 4/3 ^ pos. ]
-------------------------------------------- caso n° 12
=======================================================
sab 08.05.2010 [ To -  21.81 in 2/5 ^ pos. ]
sab 08.05.2010 [ Ve -  71.40 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 13
=======================================================
sab 26.06.2010 [ Mi -  81.21 in 2/4 ^ pos. ]
sab 26.06.2010 [ Na -  28.83 in 2/4 ^ pos. ]
-------------------------------------------- caso n° 14
=======================================================
gio 29.07.2010 [ Ca -  47.77 in 1/4 ^ pos. ]
gio 29.07.2010 [ Fi -  48.15 in 1/4 ^ pos. ]
-------------------------------------------- caso n° 15
 Casi totali (15)
 Ambi simmetrici ISO by JakMan x Arcor Lottoced

scripter:
Codice:
Sub main()
Dim ruota(2)

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
casi=0
fin=EstrazioneFin 
ini=fin-ee 

For es=ini To fin 
   Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by JackMan ]"

  For r1=1 To 9 : r2=r1+1 
      For p1=1 To 5 : For p2=1 To 5 
        a=Estratto(es-1,r1,p1) :b=Estratto(es-1,r1,p2)
        ds1=Distanza(a,b) : ds2=Distanza(c,d)
        c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2)
        If ds1=ds2 And ds1=30 Then
          casi=casi+1:Scrivi String(55,"="),1 
          Scrivi DataEstrazione(es-1,1)&" [ "&SiglaRuota(r1)&" -  "&Format2(a)&_
	    "."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ]"
          Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" -  "&Format2(c)&_
	    "."&Format2(d)&" in "&(p1)&"/"&p2&" ^ pos. ]"
          Scrivi String(44,"-")&" caso n° "
 
ciao jackman non mi sono spiegato un ambo deve esere presente in una estrazione poi in quella immediatamente successiva deve essrci un altro ambo simmetrico in un altra ruota con i due numeri in posizione isotopa del primo ambo rinvenuto nell'estrazione prima
occorre correggere
ciao e grazie;)
 
quote:Originally posted by arcor

ciao jackman non mi sono spiegato un ambo deve esere presente in una estrazione poi in quella immediatamente successiva deve essrci un altro ambo simmetrico in un altra ruota con i due numeri in posizione isotopa del primo ambo rinvenuto nell'estrazione prima
occorre correggere
ciao e grazie;)

prova adesso e fammi sapere... altrimenti fai un esempio
:)
Codice:
=======================================================
mer 03.06.2009 [ Ro -  48.78 in 5/4 ^ pos. ]
gio 04.06.2009 [ To -  87.45 in 5/4 ^ pos. ]
-------------------------------------------- caso n° 1
=======================================================
sab 04.07.2009 [ To -  44.74 in 1/4 ^ pos. ]
mar 07.07.2009 [ Ve -  39.71 in 1/4 ^ pos. ]
-------------------------------------------- caso n° 2
=======================================================
gio 20.08.2009 [ Ro -  77.47 in 5/2 ^ pos. ]
sab 22.08.2009 [ To -  58.79 in 5/2 ^ pos. ]
-------------------------------------------- caso n° 3
=======================================================
sab 19.09.2009 [ Ro -  67.07 in 4/2 ^ pos. ]
mar 22.09.2009 [ To -  90.15 in 4/2 ^ pos. ]
-------------------------------------------- caso n° 4
=======================================================
mar 03.11.2009 [ Ro -  03.33 in 4/1 ^ pos. ]
gio 05.11.2009 [ To -  02.61 in 4/1 ^ pos. ]
-------------------------------------------- caso n° 5
=======================================================
mar 17.11.2009 [ Ro -  33.03 in 1/4 ^ pos. ]
gio 19.11.2009 [ To -  44.08 in 1/4 ^ pos. ]
-------------------------------------------- caso n° 6
=======================================================
gio 24.12.2009 [ Ba -  80.20 in 4/3 ^ pos. ]
lun 28.12.2009 [ Ca -  74.22 in 4/3 ^ pos. ]
-------------------------------------------- caso n° 7
=======================================================
mar 05.01.2010 [ Ca -  24.84 in 1/5 ^ pos. ]
gio 07.01.2010 [ Fi -  37.16 in 1/5 ^ pos. ]
-------------------------------------------- caso n° 8
=======================================================
gio 25.02.2010 [ Na -  73.13 in 1/3 ^ pos. ]
sab 27.02.2010 [ Pa -  77.51 in 1/3 ^ pos. ]
-------------------------------------------- caso n° 9
=======================================================
sab 27.02.2010 [ Mi -  71.41 in 2/4 ^ pos. ]
mar 02.03.2010 [ Na -  26.33 in 2/4 ^ pos. ]
-------------------------------------------- caso n° 10
=======================================================
mar 09.03.2010 [ Ca -  90.60 in 5/2 ^ pos. ]
gio 11.03.2010 [ Fi -  84.53 in 5/2 ^ pos. ]
-------------------------------------------- caso n° 11
=======================================================
sab 24.07.2010 [ Ca -  45.75 in 4/1 ^ pos. ]
mar 27.07.2010 [ Fi -  81.33 in 4/1 ^ pos. ]
-------------------------------------------- caso n° 12
 Casi totali (12)
 Ambi simmetrici ISO by JakMan x Arcor Lottoced
 
quote:Originally posted by arcor

ciao quando avanzi un po di tempo mi occorre questo script x ricercare ambi simmetrici
RINTRACCIARE GLI AMBI
In 2 estrazioni consecutive si devono rintracciare 2 ambi simmetrici (cioè ambi di distanza 30)
sortiti su 2 ruote diverse ma assolutamente in posizione isotopa cioè nelle
stesse colonne di estrazione.
Esempio: se i due numeri che formano l' ambo sono usciti al 3° e 5° posto estrazionale
anche il secondo ambo dovrà essere sortito nella 3a e 5a colonna.
praticamente lo script mi deve ricercare solo ambi in 2 estrazioni consecutive in posti isotopi
spero in un tuo riscontro positivo
ciao;)

ciao arcor visto adesso, mi hanno preceduto, posizioni isotope in due estrazioni
consecutive. Lascio finire al nostro bravo amico jackman.

Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°
 
allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota);) e sempre in estrazioni consecutive
 
quote:Originally posted by arcor

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota);) e sempre in estrazioni consecutive


abbiamo già capito?
consecutive o successive e uguale basta che ti sposti di un'estrazione.


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°
 
quote:Originally posted by esselotto

quote:Originally posted by arcor

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota);) e sempre in estrazioni consecutive


abbiamo già capito?
consecutive o successive e uguale basta che ti sposti di un'estrazione.


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

avevo sbagliato......................
successive o precedenti ..........e uguale basta che ti sposti di un'estrazione


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°
 
quote:Originally posted by arcor

allora faccio un esempio immaginario in data 8-01-2010 esce a ba l'ambo
31-61 in prima e terzo posto
estrazione successiva in data 10-01-2010 esce su ve 58-88 in primo e terzo posto
lo script deve rilevare solo questo ok(mai nella stessa ruota);) e sempre in estrazioni consecutive

adesso è quello giusto spero...?
ciao a esselotto & arcor

Codice:
=======================================================
mar 27.04.2010 [ Fi -  08.38 in 3/4 ^ pos. ]
gio 29.04.2010 [ Nz -  47.17 in 3/4 ^ pos. ]
-------------------------------------------- caso n° 1
=======================================================
mar 04.05.2010 [ Ge -  33.03 in 1/5 ^ pos. ]
gio 06.05.2010 [ Ve -  37.07 in 1/5 ^ pos. ]
-------------------------------------------- caso n° 2
=======================================================
gio 20.05.2010 [ Ca -  71.11 in 2/5 ^ pos. ]
sab 22.05.2010 [ Ve -  49.19 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 3
=======================================================
gio 20.05.2010 [ Pa -  15.45 in 2/5 ^ pos. ]
sab 22.05.2010 [ Ve -  49.19 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 4
=======================================================
mar 25.05.2010 [ Ba -  84.24 in 2/5 ^ pos. ]
gio 27.05.2010 [ Fi -  42.12 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 5
=======================================================
mar 25.05.2010 [ Ge -  88.28 in 1/2 ^ pos. ]
gio 27.05.2010 [ Ro -  41.11 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 6
=======================================================
sab 12.06.2010 [ Pa -  59.89 in 3/5 ^ pos. ]
mar 15.06.2010 [ Ve -  77.47 in 3/5 ^ pos. ]
-------------------------------------------- caso n° 7
=======================================================
gio 17.06.2010 [ Pa -  35.65 in 3/4 ^ pos. ]
sab 19.06.2010 [ Ve -  06.36 in 3/4 ^ pos. ]
-------------------------------------------- caso n° 8
=======================================================
gio 24.06.2010 [ Na -  07.67 in 4/5 ^ pos. ]
sab 26.06.2010 [ To -  19.79 in 4/5 ^ pos. ]
-------------------------------------------- caso n° 9
=======================================================
sab 26.06.2010 [ Ca -  39.09 in 3/5 ^ pos. ]
mar 29.06.2010 [ Mi -  14.74 in 3/5 ^ pos. ]
-------------------------------------------- caso n° 10
=======================================================
mar 29.06.2010 [ Ca -  10.70 in 1/2 ^ pos. ]
gio 01.07.2010 [ Fi -  40.10 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 11
=======================================================
mar 29.06.2010 [ Ca -  10.70 in 1/2 ^ pos. ]
gio 01.07.2010 [ Ge -  55.25 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 12
=======================================================
gio 01.07.2010 [ Fi -  40.10 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ro -  04.34 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 13
=======================================================
gio 01.07.2010 [ Fi -  40.10 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ve -  41.71 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 14
=======================================================
gio 01.07.2010 [ Ge -  55.25 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ro -  04.34 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 15
=======================================================
gio 01.07.2010 [ Ge -  55.25 in 1/2 ^ pos. ]
sab 03.07.2010 [ Ve -  41.71 in 1/2 ^ pos. ]
-------------------------------------------- caso n° 16
=======================================================
gio 15.07.2010 [ Ba -  88.58 in 2/5 ^ pos. ]
sab 17.07.2010 [ Fi -  42.12 in 2/5 ^ pos. ]
-------------------------------------------- caso n° 17
 
quote:Originally posted by arcor

ciao quando avanzi un po di tempo mi occorre questo script x ricercare ambi simmetrici
RINTRACCIARE GLI AMBI
In 2 estrazioni consecutive si devono rintracciare 2 ambi simmetrici (cioè ambi di distanza 30)
sortiti su 2 ruote diverse ma assolutamente in posizione isotopa cioè nelle
stesse colonne di estrazione.
Esempio: se i due numeri che formano l' ambo sono usciti al 3° e 5° posto estrazionale
anche il secondo ambo dovrà essere sortito nella 3a e 5a colonna.
praticamente lo script mi deve ricercare solo ambi in 2 estrazioni consecutive in posti isotopi
spero in un tuo riscontro positivo
ciao;)

Caro arcor,
scusa se mi intrometto, ma dovresti correggere la definizione AMBI SIMMETRICI in AMBI DA TERZINA SIMMETRICA oppure meglio AMBI DISTANZA 30
perchè nel lotto gli AMBI SIMMETRICI sono un'altra cosa e puoi generare confusione.
Per la precisione, si dicono AMBI SIMMETRICI quegli ambi composti da due numeri primi la cui semisomma ha distanza uguale dai due numeri.
E servono per previsioni eccellenti.

Ciao,
Giuseppe.

Hasta la victoria siempre
 
ciao ragazzi lo script è perfetto perdonatemi sono io che non mi sono spiegato bene un grazie a jackman e uno a giuseppe e a esselotto per il loro intervento
vi saluto;)
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19
Indietro
Alto