Novità

aiuto per uno script

F

fata65

Super Member >GOLD<
vediamo se riesco a spiegarmi: innanzitutto la condizione è in qualunque estrazione dove sia presente lo stesso numero isotopo su due ruote, sommiamo i due numeri uguali (eventuale fuori 90) questo è il numero base con cui effettuare le prossime somme, lo chiameremo A. Ora consideriamo nella ruota più alta implicata il numero che si trova a dx del numero di ricerca, lo sommiamo ad A ed ecco la prima ambata, effettuare il vertibile per la seconda. Poi prendere la ruota più bassa il solito numero a dx del numero di ricerca e sommare ad A ecco la terza ambata, effettuare il vertibile anche di questa. Passiamo a sommare poi il numero a sx del numero di ricerca della ruota in alto e lo sommiamo ad A, il solito vertibile e lo stesso nella ruota sottostante.

ES. 23/02/2012 NA 67 18 48 65 71
TO 18 16 73 65 60

65+65=130-90=40 40+71=21/12
40+60=100=10/1
40+48=88/89
40+73=113=23/32
 
Dovrebbe essere così....
Ciao


Codice: 
Sub Main()
	Dim ruote(10)
	Dim ambata1(2) : Dim ambata2(2) : Dim ambata3(2) : Dim ambata4(2)
	Dim posta(2)
	Dim poste(2)
	posta(1) = 1
	posta(2) = 1
	k = 10
	ColoreTesto 1:Scrivi String(43," ") & "METODO DI FATA65 °°° SCRIPT BY BLACKMORE"
	t = 0
	ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8495)
	ini = ec
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 9
			For r1 = r + 1 To 10
				For p1 = 2 To 4
					pp = p1 - 1
					p2 = p1 + 1
					a = Estratto(es,r,p1)
					b = Estratto(es,r1,p1)
					c = Estratto(es,r,p2)
					d = Estratto(es,r1,p2)
					e = Estratto(es,r,pp)
					f = Estratto(es,r1,pp)
					If b = a Then
						t = t + 1
						ColoreTesto 1
						Scrivi
						ColoreTesto 0
						Scrivi String(95,"*") & " Caso n° " & Format2(t),1
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a)
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b)
						ruote(1) = r
						ruote(2) = r1
						xx = Fuori90(a + b)
						ambata1(1) = Fuori90(xx + c)
						ambata1(2) = Vert(ambata1(1))
						ambata2(1) = Fuori90(xx + d)
						ambata2(2) = Vert(ambata2(1))
						ambata3(1) = Fuori90(xx + e)
						ambata3(2) = Vert(ambata3(1))
						ambata4(1) = Fuori90(xx + f)
						ambata4(2) = Vert(ambata4(1))
						ImpostaGiocata 1,ambata1,ruote,posta,k,2
						ImpostaGiocata 2,ambata2,ruote,posta,k,2
						ImpostaGiocata 3,ambata3,ruote,posta,k,2
						ImpostaGiocata 4,ambata4,ruote,posta,k,2
						Gioca es
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub
 
grazzie perfetto Blackmore:o

mancano altri numeri isotopi 78 ba-nap
16 tor-nazio
4 vene- naz
 
Ultima modifica:
Ciao ...

mi ero permesso di scrivere ... ma la risposta è arrivata, prima.

Statisticamente, dovrebbero essere, quasi perfettamente, tre casi per ogni estrazione.

Codice: 
[B][SIZE=2]02.08.2012

[/SIZE][/B][SIZE=2]Ba 05.66.14.49.78 78 5° 66+05=71 66+49=25

Na 50.70.13.16.78 78 5° 66+50=26 66+16=82


[B]02.08.2012

[/B]Ge 23.70.15.71.22 70 2° 50+15=65 50+23=73

Na 50.70.13.16.78 70 2° 50+13=63 50+50=10


[B]02.08.2012

[/B]Na 50.70.13.16.78 16 4° 32+78=20 32+13=45

Pa 55.76.31.16.88 16 4° 32+88=30 32+31=63


[B]02.08.2012

[/B]To 16.02.63.84.17 16 1° 32+02=34 32+17=49

Nz 16.04.02.54.69 16 1° 32+04=36 32+69=11


[B]02.08.2012

[/B]Ve 80.04.36.61.44 04 2° 08+36=44 08+80=88

Nz 16.04.02.54.69 04 2° 08+02=10 08+16=24
[/SIZE]

:)
 
Per la Nazionale non c'è problema, basta aggiungerla
Riguardo a Ba - Na il 78 è si isotopo, ma in 5° posizione, lo script prende in considerazione solo gli
isotopi dalla 2° alla 4° posizione in modo da poter usare il numero "a destra" e il numero "a sinistra"
come scritto nella spiegazione
Se qualcosa non andasse bene nel listato, Joe può tranquillamente intervenire per modificarlo essendo molto più bravo di me
anche perchè io più di così non so fare (mi spiace)
Ciao

Aggiunta la Nazionale...


Codice: 
Sub Main()
	Dim ruote(10)
	Dim ambata1(2) : Dim ambata2(2) : Dim ambata3(2) : Dim ambata4(2)
	Dim posta(2)
	Dim poste(2)
	posta(1) = 1
	posta(2) = 1
	k = 10
	ColoreTesto 1:Scrivi String(43," ") & "METODO DI FATA65 °°° SCRIPT BY BLACKMORE"
	t = 0
	ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8495)
	ini = ec
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 10
			For r1 = r + 1 To 11
			If r1= 11 Then r1 = 12 
				For p1 = 2 To 4
					pp = p1 - 1
					p2 = p1 + 1
					a = Estratto(es,r,p1)
					b = Estratto(es,r1,p1)
					c = Estratto(es,r,p2)
					d = Estratto(es,r1,p2)
					e = Estratto(es,r,pp)
					f = Estratto(es,r1,pp)
					If b = a Then
						t = t + 1
						ColoreTesto 1
						Scrivi
						ColoreTesto 0
						Scrivi String(95,"*") & " Caso n° " & Format2(t),1
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a)
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b)
						ruote(1) = r
						ruote(2) = r1
						xx = Fuori90(a + b)
						ambata1(1) = Fuori90(xx + c)
						ambata1(2) = Vert(ambata1(1))
						ambata2(1) = Fuori90(xx + d)
						ambata2(2) = Vert(ambata2(1))
						ambata3(1) = Fuori90(xx + e)
						ambata3(2) = Vert(ambata3(1))
						ambata4(1) = Fuori90(xx + f)
						ambata4(2) = Vert(ambata4(1))
						ImpostaGiocata 1,ambata1,ruote,posta,k,2
						ImpostaGiocata 2,ambata2,ruote,posta,k,2
						ImpostaGiocata 3,ambata3,ruote,posta,k,2
						ImpostaGiocata 4,ambata4,ruote,posta,k,2
						Gioca es
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub
 
. La triade e composta da tre numeri, usciti in una medesima estrazione, di cui il secondo rappresenta la somma o la differenza degli altri due.
I esempio: – NAPOLI: 33 48 81 (il centrale 48 è la differenza fra 33 e 81) e, come si vede, l’ordine è ascensionale; la settimana successiva si ebbe la riproduzione dell’ambo 33-48 per la ruota di ROMA.
 
Ciao Fata ed un saluto anche Blackmore, innanzi tutto complimenti per lo script ... snello, veloce e preciso.

E' vero, nella descrizione "isotopi" porta a considerare le 5 posizioni; Mentre "destra" & "sinistra" le restringono a 3.

Dicotomia che si può sanare solo con l'intervento e l'esperienza del metodista o

con l'analisi dei risultati ottenibili con diverse veisioni dello script.

Ho redatto per il secondo script (quello che considera anche la Nazionale)

questa semplicissima modifica ... portando il range della posizione principale da 1 a 5

e riportando il risultati entro i limiti consentiti, per le posizioni descritte come di destra e di sinistra.

E' dunque sufficiente apportare pochissime modifiche allo script per ottenere tutti gli "stessi" risultati

che avevo prodotto con il mio script.... (quello che evidentemente era già pronto quando blackmore ha postato il suo).

Codice: 
For p1 = 1 To 5
     pp = p1 - 1 : If pp = 0 Then pp = 5
     p2 = p1 + 1 : If p2 = 6 Then p2 = 1

Con queste modifiche troverebbe :

Codice: 
[FONT=Courier New][SIZE=2][COLOR=#0000ff]                                           METODO DI FATA65 °°° SCRIPT BY BLACKMORE

*********************************************************************************************** Caso n° 01
02.08.2012   05.66.14.49.78      BA 78
02.08.2012   50.70.13.16.78      NA 78

*********************************************************************************************** Caso n° 02
02.08.2012   23.70.15.71.22      GE 70
02.08.2012   50.70.13.16.78      NA 70

*********************************************************************************************** Caso n° 03
02.08.2012   50.70.13.16.78      NA 16
02.08.2012   55.76.31.16.88      PA 16

*********************************************************************************************** Caso n° 04
02.08.2012   16.02.63.84.17      TO 16
02.08.2012   16.04.02.54.69      NZ 16

*********************************************************************************************** Caso n° 05
02.08.2012   80.04.36.61.44      VE 04
02.08.2012   16.04.02.54.69      NZ 04

[/COLOR][/SIZE][/FONT]

Un caro saluto a tutti.
 
ciao joe91 il codice inserito come faccio a modificarlo complimenti anche a te puoi farlo tu grazie:confused:
 
se vuoi avrei un altro favore da chiedere, dobbiamo ricercare un ambo ripetuto avente uno dei due
elementi ripetuto almeno tre volte. Dopo che abbiamo rintracciato la condizione base
dobbiamo anche cercare degli elementi isotopi all'ambo ripetuto per determinare le ruote
secondarie; tali elementi devono avere le seguenti caratteristiche:
a) somma dell'ambo ripetuto e/o relativo complementare e/o diametrale;
b) i complementi a 45 e/o a 46 e/o a 89 degli elementi dell'ambo ripetuto;
c) la distanza dell'ambo ripetuto e/o il complementare di essa ;
d) i numeri equidistanti all'ambo ripetuto che si ottengono sottraendo e sommando la distanza
dell'ambo ripetuto ai due elementi che lo compongono.
e)condizione speciale: trovare in qualsiasi ruota il valore della somma o il diametrale isotopo
agli elementi dell'ambo nell'arco delle 2-3 estrazioni precedenti o successive.
A questo punto basterà ricavare la somma e la differenza dell'ambo ripetuto

L'estrazione del 25 Settembre 2010 esemp
Su Torino e
Venezia è sortito l'ambo ripetuto 37-76 col 76 ripetuto
-8 di Ba complemento a 45 del 37 , 88 di Ba equidistante (76-37=39 ;37+90=127-39=88 ,
39+76=25, 25 e 88 equidistanti)
-59 di Na complemento a 45 del 76, 39 di Na distanza dell'ambo ripetuto
67 di Pa complementare della somma dell'ambo ripetuto (37+76=23, 90-23=67)
39 di To distanza dell'ambo ripetuto.
e possibile un listato graziee infinite a tutti e due un forte abbraccio da fata65
 
Codice: 
Sub Main()
    Dim ruote(10)
    Dim ambata1(2) : Dim ambata2(2) : Dim ambata3(2) : Dim ambata4(2)
    Dim posta(2)
    Dim poste(2)
    posta(1) = 1
    posta(2) = 1
    k = 10
    ColoreTesto 1:Scrivi String(43," ") & "METODO DI FATA65 °°° SCRIPT BY BLACKMORE"
    t = 0
    ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8495)
    ini = ec
    fin = EstrazioneFin
    For es = ini To fin
  AvanzamentoElab ini,fin,es
  For r = 1 To 10
   For r1 = r + 1 To 11
   If r1= 11 Then r1 = 12 
    For p1 = 1 To 5 
     pp = p1 - 1 : If pp=0 Then pp = 5 
     p2 = p1 + 1 : If p2=6 Then p2 = 1
     a = Estratto(es,r,p1)
     b = Estratto(es,r1,p1)
     c = Estratto(es,r,p2)
     d = Estratto(es,r1,p2)
     e = Estratto(es,r,pp)
     f = Estratto(es,r1,pp)
     If b = a Then
      t = t + 1
      ColoreTesto 1
      Scrivi
      ColoreTesto 0
      Scrivi String(95,"*") & " Caso n° " & Format2(t),1
      Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a)
      Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b)
      ruote(1) = r
      ruote(2) = r1
      xx = Fuori90(a + b)
      ambata1(1) = Fuori90(xx + c)
      ambata1(2) = Vert(ambata1(1))
      ambata2(1) = Fuori90(xx + d)
      ambata2(2) = Vert(ambata2(1))
      ambata3(1) = Fuori90(xx + e)
      ambata3(2) = Vert(ambata3(1))
      ambata4(1) = Fuori90(xx + f)
      ambata4(2) = Vert(ambata4(1))
      ImpostaGiocata 1,ambata1,ruote,posta,k,2
      ImpostaGiocata 2,ambata2,ruote,posta,k,2
      ImpostaGiocata 3,ambata3,ruote,posta,k,2
      ImpostaGiocata 4,ambata4,ruote,posta,k,2
      Gioca es
     End If
    Next
   Next
  Next
  If ScriptInterrotto Then Exit For
    Next
    ScriviResoconto
End Sub


Per quanto riguarda l'altro script che hai richiesto purtroppo, nell'immediato,

non riesco ad elaborarlo per mancanza di tempo.

Spero che qualcuno possa esserti d'aiuto.

Cordiali saluti.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 aprile 2025
    Bari
    23
    43
    18
    70
    32
    Cagliari
    68
    86
    69
    48
    67
    Firenze
    35
    38
    72
    33
    51
    Genova
    88
    74
    80
    84
    61
    Milano
    58
    44
    77
    29
    21
    Napoli
    50
    45
    37
    16
    27
    Palermo
    89
    26
    15
    28
    75
    Roma
    42
    46
    82
    48
    31
    Torino
    08
    75
    01
    42
    36
    Venezia
    57
    40
    61
    17
    02
    Nazionale
    38
    05
    58
    17
    15
    Estrazione Simbolotto
    Genova
    11
    34
    03
    35
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto