PER UNO SCRIPTER VOLENTEROSO

[Roby]

CHIEDO GENTILMENTE SE C'E' QUALCUNO CHE HA' VOGLIA DI VERIFICARE CON UNO SCRIPT QUESTA TEORIA,SECONDO ME INTERESSANTE E MAGARI POI SVILUPPARLA IMPLEMENTANDO ALTRI INDICI ALLA RICERCA DEL RITARDATARIO FRA I TRE MENZIONATI DALLA TEORIA....

GRAZIE A CHI VORRA DEDICARSI.

Topic author: n/a
Subject: Una vera chicca.....Limite 315
Posted on: 14/09/2006 17:54:21
Message:

Ho a disposizione molti metodi, alcuni molto vecchi, accumulati dal lontano 1980, e sono felice di metterli, pian piano a disposizione di tutti. Pochi conoscono il limite 315,o meglio, il "limite di rottura 315" elaborato molti anni fa per "prevedere" la sortita di uno dei primi 3 ritardatari di una ruota. Come si è arrivati a stabilire questo limite non saprei, ma è certo che nel 90% dei casi ci azzecca.
Voi sapete che,e gli esperti del lotto lo dicono, che giocare con i ritardatari è come darsi una martellata sui co******. Personalmente, su un famoso 4 a Genova, ho visto strisciate da ex 500mila lire e assegni di diversi milioni per un totale di ex 300milioni a fronte di una vincita di 400 ex milioni.
Non è un vero e proprio metodo, ma può dare indicazioni su quando, presumibilmente,potrà uscire uno dei primi 3 ritardatari.
Prendo come esempio, alla data attuale, FIRENZE che presenta questi primi 3 ritardatari:
N°66....rit 93
N°59....rit 61
N°12....rit 58
Sommando i ritardi dei 3 n° si ha il totale 212 (93+61+58=212)
Da questo totale, per arrivare al limite 315 manca 103 (315-212=103)
In teoria mancano 103 colpi per arrivare al famoso limite, ma in realtà, poichè i n° in gioco sono 3 si ha (103:3= 34,3).
I ritardi,se non sortisce nessuno dei 3 numeri citati, verrà incrementato di 3...il n° 66 passerà a 94,il n° 59 passerà a 62, il n° 12 passerà a 59. (94+62+59=215) (315-215=100) (100:3=33,3)
Mancheranno quindi 33 colpi affinchè si raggiunga il limite. Si va avanticosì finchè non mancheranno 3 o 4 colpi al limite per mettere in gioco i 3 numeri.
Naturalmente questo discorso vale per le ruote che hanno almeno uno o, meglio ancora, 2 centenari sennò, come nell'esempio riportato..ci vuole una vita.
Ricordate che non è valido per il capolista ritardatario, ma per i primi 3 numeri principalmente in ritardo.
Dalle verifiche fatte, il limite 315 può andare oltre max di 5 estrazioni quindi, se avete intenzione di attuare questo metodo, andateci cauti.

SUERTE !!!!

 

[imported_n/a]

Ciao Artemisio, mi sembra di avere nella mia collezione di script qualcosa di simile alla teoria del tuo metodo.
Lo posto cosi come io l'ho corretto secondo quelle che erano le mie teorie sui ritardatari.
La base per le modifiche c'è se riesci modificalo secondo la teoria da te esposta fai pure, altrimenti con un po di calma rileggo attentamente e posso rimodificarlo io.

Ciao
Mike58

'-----------------------------------------

Sub Main()
	'ottimo X RITARDATARI'
	Dim n(1)
	Dim m(1)
	Dim o(1)
	Dim numeri(14,3)
	Dim am(3)
	Dim posta(1)
	Dim ruote(1)
	posta(1) = 1
	fin = EstrazioneFin
	ini = fin - 200
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 12
			ruote(1) = r
			n(1) = NumeroPosRit(es,r,1)
			m(1) = NumeroPosRit(es,r,2)
			o(1) = NumeroPosRit(es,r,3)
			If n(1) <> numeri(r,1) Or m(1) <> numeri(r,2)Or o(1) <> numeri(r,3) Then
				rt1 = SerieRitardo(es - 300,es,n,ruote,1)
				rt2 = SerieRitardo(es - 300,es,m,ruote,1)
				rt3 = SerieRitardo(es - 300,es,o,ruote,1)
				st1 = SerieStorico(EstrazioneIni,EstrazioneFin,n,ruote,1)
				st2 = SerieStorico(EstrazioneIni,EstrazioneFin,m,ruote,1)
				mediart =(rt1 + rt2 + rit3)/3
				mediast =(st1 + st2)
				dif = mediart
				If dif > 70 Then
					Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
					Format2(n(1)) & " - - > > con ritardo di " & rt1,1
					Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
					Format2(m(1)) & " - - > > con ritardo di " & rt2,1
					Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
					Format2(o(1)) & " - - > > con ritardo di " & rt3,1
					ColoreTesto 1
					Scrivi mediart & " < - - - - - - media ritardo attuale ",1
					'Scrivi mediast & " < - - - - - - media ritardo storico ",1
					ColoreTesto 2
					Scrivi dif & " ATTENZIONE!!!!! somma totale suuperiore a 70 quindi prossimo alla rottura!! ",1
					ColoreTesto 0
					am(1) = n(1)
					am(2) = m(1)
					am(3) = o(1)
					ImpostaGiocata 1,am,ruote,posta,13,1
					Gioca es
					numeri(r,1) = am(1)
					numeri(r,2) = am(2)
					numeri(r,3) = am(3)
					Scrivi
				End If
			End If
		Next
	Next
	ScriviResoconto
End Sub

 

[Roby]

Ciao MIKE58,ti ringrazio per lo script messo a disposizione,ma non e' esattamente quello che cercavo io.Mi spiego:

Prendendo per buono questo limite 315,volevo verificare se,a condizioni rispettate e cioe' avere uno o due ritardatari su 3, centenari,nel corso degli anni questo limite e' stato prolifico nell'arco delle max 5 estrazioni successive.
Poi c'e' un'altra questione. E' mia opinione che con l'avvento delle venus alcune cose sono cambiate,quindi nelle mie ricerche parto sempre dal 4 maggio 2005 ,data della prima estrazione con le venus.
Qundi farei partire la ricerca da li'.Purtroppo con gli script sono una schiappa e questo e' risaputo......

grazie e buona giornata.


SUERTE !!!!

 

[imported_n/a]

Ciao Artemisio, ti avevo postato una base di script per arrivare al limite dei 315 se eri un po capace a leggere le poche righe di codice cosi da poter modificare per raggiungere il tuo risultato.
Io ti riposto lo script con il limite 315 e la data 4-5-2005.

chiaramente la somma ritardo si riferisce ai 3 numeri ritardatari su ruota singola.
Purtroppo oggi non ho tempo per soffermarmi ulteriormente

ti riallego lo script corretto in alcuni punti.
ps. con questi dati lo script risulta molto piu' lento....

Mike58.

Sub Main()
	'ottimo X RITARDATARI'
	Dim n(1)
	Dim m(1)
	Dim o(1)
	Dim numeri(14,3)
	Dim am(3)
	Dim posta(1)
	Dim ruote(1)
	posta(1) = 1
	fin = EstrazioneFin
	ini = 7441 ' data 4-5-2005
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 12
			ruote(1) = r
			n(1) = NumeroPosRit(es,r,1)
			m(1) = NumeroPosRit(es,r,2)
			o(1) = NumeroPosRit(es,r,3)
			If n(1) <> numeri(r,1) Or m(1) <> numeri(r,2)Or o(1) <> numeri(r,3) Then
				rt1 = SerieRitardo(es - 1300,es,n,ruote,1)
				rt2 = SerieRitardo(es - 1300,es,m,ruote,1)
				rt3 = SerieRitardo(es - 1300,es,o,ruote,1)
				st1 = SerieStorico(EstrazioneIni,EstrazioneFin,n,ruote,1)
				st2 = SerieStorico(EstrazioneIni,EstrazioneFin,m,ruote,1)
				somritardo = rt1 + rt2 + rt3
				mediart =(rt1 + rt2 + rit3)/3
				mediast =(st1 + st2)
				dif = somritardo
				If dif > 315 Then
					Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
					Format2(n(1)) & " - - > > con ritardo di " & rt1,1
					Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
					Format2(m(1)) & " - - > > con ritardo di " & rt2,1
					Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
					Format2(o(1)) & " - - > > con ritardo di " & rt3,1
					ColoreTesto 1
					Scrivi
					Scrivi somritardo & " somma totale dei 3 ritardi per ruota ",1,- 1,6
					Scrivi mediart & " < - - - - - - media ritardo attuale ",1
					Scrivi mediast & " < - - - - - - media ritardo storico ",1
					ColoreTesto 2
					Scrivi dif & " ATTENZIONE!!!!! somma totale suuperiore a 315 quindi prossimo alla rottura!! ",1
					ColoreTesto 0
					am(1) = n(1)
					am(2) = m(1)
					am(3) = o(1)
					ImpostaGiocata 1,am,ruote,posta,13,1
					Gioca es
					numeri(r,1) = am(1)
					numeri(r,2) = am(2)
					numeri(r,3) = am(3)
					Scrivi
				End If
			End If
		Next
	Next
	ScriviResoconto
End Sub

 

[Roby]

Grazie Mike per lo script a velocita della luce.

Un paio di appunti sulle modifiche da fare quando avrai un pò di tempo:

--Siccome la ricerca su tutte le ruote è lenta dovresti metterla per singola ruota(io modificavo il valore ogni volta).

--Trova si le condizioni, ma se si accavallano tra di loro attende l'uscita o la negativa per la successiva e porta anche come "valore 387"( guarda a Cagliari tra il 2005/2006).

Ciao e grazie

 

[imported_n/a]

Ciao Parmando mi fa piacere che hai apprezzato lo script.
Si!! purtroppo così con i range impostati e un pò lungo nei tempi di elaborazione.
Per te e chi voglia fare modifiche si può cambiare l'inizio del range
ini = 7441 ' data 4-5-2005
e la ricerca sulle ruote preferite se vuoi solo una ruota cambia
For r = 1 To 12
ruote(1) = r

con for r = 1 to 1
ruote(1) = 1 ' esempio bari
oppure per + ruote
assegnare a dim ruota(3) ' esempio 3 ruote
ruota(1) = 1
ruota(2) = 2
ruota(3) = 3

togliendo chiaramrnte il loop for r = 1 to xx.

fate tutte le verifiche a vostro piacimento.

ps. le righe per la mofifica dei valori sono:

somritardo = rt1 + rt2 + rt3
mediart =(rt1 + rt2 + rit3)/3
mediast =(st1 + st2)
dif = somritardo
If dif > 315 Then


Ciao e se c'è bisogno non mancherò di intervenire.

Mike58

 

[DjNomade]

Ciauz
a forza di smanettare sono arrivato a questo, spero non sia di confusione se alla fine ho commesso eventuali errori,comunque lo metto lo stesso magari qualcuno capace lo puo' correggere
Notte a tutti!!!

Sub Main()
'ottimo X RITARDATARI'con modifiche di DjNomade
Dim n(1)
Dim m(1)
Dim o(1)
Dim numeri(14,3)
Dim am(3)
Dim posta(1)
Dim ruote(1)
posta(1) = 1
r = ScegliRuota
ruote(1) = r

ini = 7441 ' data 4-5-2005
fin = EstrazioneFin
co=0
For es = ini To fin
Messaggio (es)
'For r = 2 To 3


n(1) = NumeroPosRit(es,r,1)
m(1) = NumeroPosRit(es,r,2)
o(1) = NumeroPosRit(es,r,3)
If n(1) <> numeri(r,1) Or m(1) <> numeri(r,2)Or o(1) <> numeri(r,3) Then
rt1 = SerieRitardo(Ini,es,n,ruote,1)
rt2 = SerieRitardo(Ini,es,m,ruote,1)
rt3 = SerieRitardo(Ini,es,o,ruote,1)
st1 = SerieStorico(Ini,es,n,ruote,1)
st2 = SerieStorico(Ini,es,m,ruote,1)
st3 = SerieStorico(Ini,es,o,ruote,1)
somritardo = rt1 + rt2 + rt3
mediart =(rt1 + rt2 + rt3)/3
mediast =(st1 + st2+ st3)/3
dif =315-somritardo
dif1 =(315-somritardo)/3
If dif1<10 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(n(1)) & " - - > > con ritardo di " & rt1,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(m(1)) & " - - > > con ritardo di " & rt2,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(o(1)) & " - - > > con ritardo di " & rt3,1
ColoreTesto 1
Scrivi
Scrivi somritardo & " somma totale dei 3 ritardi per ruota ",1
Scrivi mediart & " < - - - - - - media ritardo attuale ",1
Scrivi mediast & " < - - - - - - media ritardo storico ",1
Scrivi st1 & " < - - - ritardo storico- 1° ritardatario",1
Scrivi st2 & " < - - - ritardo storico- 2° ritardatario ",1
Scrivi st3 & " < - - - ritardo storico- 3° ritardatario ",1
ColoreTesto 2
Scrivi " 315-"& somritardo & " = "& dif &" ATTENZIONE!!!!! "&dif1 & "--colpi di media per raggiungere il limite 315-- quindi prossimo alla rottura!! ",1
ColoreTesto 0

co=co+1
am(1) = n(1)
am(2) = m(1)
am(3) = o(1)
ImpostaGiocata 1,am,ruote,posta,dif1,1
Gioca es
numeri(r,1) = am(1)
numeri(r,2) = am(2)
numeri(r,3) = am(3)
Scrivi
End If
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

DJ il tuo script trova la condizione prima di arrivare a 315 e la fà giocare fino a quando ci arriva, invece si dovrebbe mettere in gioco la condizione dopo il raggiungimento della suddetta quota.

Ciao

 

[Roby]

Ora sembra a posto:

Sub Main()
'ottimo X RITARDATARI'
Dim n(1)
Dim m(1)
Dim o(1)
Dim numeri(14,3)
Dim am(3)
Dim posta(1)
Dim ruote(1)
posta(1) = 1
r = ScegliRuota
ruote(1) = r

ini = 7441 ' data 4-5-2005
fin = EstrazioneFin
co=0
For es = ini To fin
Messaggio (es)
'For r = 2 To 3


n(1) = NumeroPosRit(es,r,1)
m(1) = NumeroPosRit(es,r,2)
o(1) = NumeroPosRit(es,r,3)
If n(1) <> numeri(r,1) Or m(1) <> numeri(r,2)Or o(1) <> numeri(r,3) Then
rt1 = SerieRitardo(Ini,es,n,ruote,1)
rt2 = SerieRitardo(Ini,es,m,ruote,1)
rt3 = SerieRitardo(Ini,es,o,ruote,1)
st1 = SerieStorico(Ini,es,n,ruote,1)
st2 = SerieStorico(Ini,es,m,ruote,1)
st3 = SerieStorico(Ini,es,o,ruote,1)
somritardo = rt1 + rt2 + rt3
mediart =(rt1 + rt2 + rt3)/3
mediast =(st1 + st2)
dif = somritardo
If dif > 315 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(n(1)) & " - - > > con ritardo di " & rt1,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(m(1)) & " - - > > con ritardo di " & rt2,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & _
Format2(o(1)) & " - - > > con ritardo di " & rt3,1
ColoreTesto 1
Scrivi
Scrivi somritardo & " somma totale dei 3 ritardi per ruota ",1
Scrivi mediart & " < - - - - - - media ritardo attuale ",1
Scrivi mediast & " < - - - - - - media ritardo storico ",1
Scrivi st1 & " < - - - ritardo storico- 1° ritardatario",1
Scrivi st2 & " < - - - ritardo storico- 2° ritardatario ",1
Scrivi st3 & " < - - - ritardo storico- 3° ritardatario ",1
ColoreTesto 2
Scrivi " 315-"& somritardo & " = "& dif &" ATTENZIONE!!!!! "&dif1 & " rottura somma raggiunta!! ",1
ColoreTesto 0
am(1) = n(1)
am(2) = m(1)
am(3) = o(1)
ImpostaGiocata 1,am,ruote,posta,30,1
Gioca es
numeri(r,1) = am(1)
numeri(r,2) = am(2)
numeri(r,3) = am(3)
Scrivi
End If
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub

 

[pico2005]

Quindi se ho ben capito su Nazionale sono caldissimi perchè la somma dei ritardi è 315 i numeri:

22 - 52 - 79

dove peraltro è appena uscito 82 che fa parte della triade 22 - 52 - 82.

Che la balena soffra

 

[solare]

Ottimo complimenti
scusate come mai questo ultimo script è lentissimo sulla lazionale e non mostra lo stato attuale relativo al 22 ma si ferma l'elaborazione al 14052011.
Grazie

 

[DjNomade]

quote:Originally posted by parmando

DJ il tuo script trova la condizione prima di arrivare a 315 e la fà giocare fino a quando ci arriva, invece si dovrebbe mettere in gioco la condizione dopo il raggiungimento della suddetta quota.

Ciao

Ciauz parmando quello che dici è vero ma solo perche' sul primo post di artemisio avevo letto questo:

Prendo come esempio, alla data attuale, FIRENZE che presenta questi primi 3 ritardatari:
N°66....rit 93
N°59....rit 61
N°12....rit 58
Sommando i ritardi dei 3 n° si ha il totale 212 (93+61+58=212)
Da questo totale, per arrivare al limite 315 manca 103 (315-212=103)
.......
Si va avanti così finchè non mancheranno 3 o 4 colpi al limite per mettere in gioco i 3 numeri.

Ho capito male??
Ciauz buona domenica

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[imported_n/a]

Ragazzi intanto ringrazio dj per aver contribiuto alla correzione dello script però secondo me con la ricerca su ruota singola il metodo perde la sua efficacia.
Il valore 315 e una vecchia intiuzione del passato e sappiamo tutti che nel lotto niente è eterno e duraturo e i numeri e le statistiche cambiano comportamento ciclicamente.
Pertanto per diminuire i tempi di elaborazione fate partire lo script da una data meno lontana e cosi lo script elaborerà il responso in tempi accettabili.

Per DJ. inserisci negli scipt un po lunghi la routine tempo di elaborazione

ciao Mike58

Sub Main
nStart = Timer
'------------script-inizio--------------------


'------------fine------------------------------------------
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

 

[Roby]

quote:Originally posted by solare

Ottimo complimenti
scusate come mai questo ultimo script è lentissimo sulla lazionale e non mostra lo stato attuale relativo al 22 ma si ferma l'elaborazione al 14052011.
Grazie

Perchè fà di somma totale proprio 315...modifica lo script in 314 e vedrai che apparirà.

Ciao

 

[DjNomade]

quote:Originally posted by mike58



Per DJ. inserisci negli scipt un po lunghi la routine tempo di elaborazione

ciao Mike58

Sub Main
nStart = Timer
'------------script-inizio--------------------


'------------fine------------------------------------------
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Grazie mike58 su queste funzioni sono completamente ignorante
serve per ridurre i tempi di elaborazione?
comunque adesso provo a metterlo
Ciauz


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[imported_n/a]

No DJ serve per vedere il tempo di elaborazione, per ridurlo intervieni sui range delle estrazioni da controllare.

PS. vedo che con tutte le modifiche il mio script ha perso efficacia
mi preme di nuovo sottolineare che la metodologia è veritiera se agisce su tutte le ruote e su tutti i casi di ritardatari.

Io lo elaboro in 3 minuti e penso che sia un tempo accettabile per avere degli esiti significativi.

Poi fate vobis.

Ciao

Mike58

 

[antonino]

cge routine bisogna aggiungere per avere come riepilogo i 3 numeri più ritardatari su ciascuna ruota?.
Grazie per chi vorrà inserire il relativo script.
saluti e sempre in gamba,
nino

nino

 

[imported_n/a]

Antonino per quello che chiedi non bisogna aggiungere nessuna routine
ma creare un listato ad ok.
Comunque se non ho capito male quello che chiedi eccoti l'elenco dei + ritardatari su tutte le ruote.

Sub Main()
'ritardi su ruota determinata'
Dim nn
Dim i
Dim ruote(1)
Dim numeri(90)
nn = InputBox("Introdurre il numero di numeri da tabellare:",,5)
For r = 1 To 12
ruote(1) = r
Scrivi String(135,"=")
Scrivi " Primi " & CStr(nn) & " ritardatari sulla ruota di " & NomeRuota(r),2
Scrivi String(135,"-")
For i = 1 To nn
numeri(1) = NumeroPosRit(EstrazioneFin,r,i)
sr = SerieRitardo(EstrazioneIni(),EstrazioneFin(),numeri,ruote,1)
If sr > 99 Then
ColoreTesto 2
Scrivi CStr(i) & "°" & vbTab & CStr(numeri(1)) & vbTab & _
"Ritardo: " & vbTab & sr & _
vbTab & " - - - storico: " & vbTab & SerieStorico(EstrazioneFin - 300,EstrazioneFin(),numeri,ruote,1) & _
vbTab & " - - - frequenza Numero range 200 Estrazioni" & vbTab & " - - - > [ " & SerieFreq(EstrazioneFin - 200,EstrazioneFin,numeri,ruote,1) & " ] ",1
Else
ColoreTesto 0
Scrivi CStr(i) & "°" & vbTab & CStr(numeri(1)) & vbTab & _
"Ritardo: " & vbTab & sr & _
vbTab & " - - - storico: " & vbTab & SerieStorico(EstrazioneFin - 300,EstrazioneFin(),numeri,ruote,1) & _
vbTab & " - - - frequenza Numero range 200 Estrazioni" & vbTab & " - - - > [ " & SerieFreq(EstrazioneFin - 200,EstrazioneFin,numeri,ruote,1) & " ] "
End If
Next
Next
End Sub

 

[antonino]

Grazie. Era ciò che volevo.
Saluti,
nino

nino

 

[rossonero8]

correggere gli script x Spaziometria

correggere gli script x Spaziometria

QUI GLI SCRIPT RELATIVI AL LIMITE DI ROTTURA 315

If n(1) & lt; & gt; numeri(r,1) Or m(1) & lt; & gt; numeri(r,2)Or o(1) & lt; & gt; numeri(r,3) Then
mi dice che è previsto Then

forse bisogna cambiare lt -gt
grazie