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
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20

Ultimi Messaggi

Indietro
Alto