X Esselotto o Mike58 o Rubino o Luigi

[Roby]

Vorrei, se possibile avere dei chiarimenti rispetto a questo script.

Praticamente non capisco perchè è stata inserita la specifica alla riga 22 " r2 = 11" e dopo "ru1(1) = r2" , che in seguito viene usato per
"If SerieFreq(es,es,nn1,ru1,1) = 1 Then"

Vorrei capire cosa centra la ruota 11 in questo listato.

Inoltre, se possibile vorrei poter analizzare contemporaneamente sino a 5 o magari 10 numeri spia in modo da poter vedere se vi siano convergenze di numeri frequenti dopo l'uscita di una qualsiasi estrazione.

Faccio un esempio
BA estrazione n. 1 del 2011 58 12 26 85 81
scrivo valori rilevati nel range 1000 estrazioni ba 2 colpi e 10 ambate:
Dal 10.03.2004(8322) al 03.01.2011(8321)
Spia 58 .. frequenti 16 79 70 60 61 22 26 31 17 66
Spia 12 .. frequenti 34 84 66 44 54 02 41 58 05 39
Spia 26 .. frequenti 85 14 13 83 78 76 15 32 86 05
Spia 85 .. frequenti 68 61 09 60 87 82 10 30 20 22
Spia 81 .. frequenti 90 05 70 82 58 55 12 64 56 79

non considerando i numeri che sono presenti almeno 2 volte (le citate convergenze), in questo range di 10 ambate, abbiamo 31 numeri presenti solo 1 volta e sono rispettivamente:
spia 58 il 16 26 31 17 .............. = 4 num. punti 1
spia 12 il 34 84 44 54 2 41 39 ...... = 7 num. punti 1
spia 26 il 85 14 13 83 78 76 15 32 86 = 9 num. punti 1
spia 85 il 67 09 87 10 30 20 .........= 6 num. punti 1
spia 81 il 90 55 12 64 56 ............= 6 num. punti 0

condizionando il tutto si ottengono ( 4*7*9*6*5) 7560 cinquine che al 1° colpo hanno dato la quaterna 83 30 84 26 su bari (non molto entusiasmante in consicerazione del ricavo rispetto alla spesa, però se fosse possibile creare lo script richiesto, potrebbe essere interessante approfondire questa ipotesi di ricerca.

... e se conoscessimo già l'ambata, potrebbe essere interessante questa ricerca???
Grazie.

'BY ESSELOTTO NUMERI FREQUENTI DOPO SPIA X '

Sub Main()

ColoreTesto 2
Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(7),1
Scrivi "modificato da esselotto per mike58 lottoced)" & Chr(7),1
ColoreTesto 0
Dim n(90,6),ru(1),ru1(1),nu(1),nn1(1)

ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,100))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,88))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,2))
If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,1))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,90))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
If Posizione(es,r1,nn) > 0 Then
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo
rs = SerieStorico(fin - ee,fin,nu,ru,1)
fru = SerieFreq(EstrazioneFin - 14,EstrazioneFin,nu,ru,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
ca = EstrazioneFin - es
cnn = EstrattoFrequenza(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
cna = EstrattoRitardo(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
Next

End If
End If


Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10),2
ColoreTesto 0
Scrivi"Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)_
& "estrazioni Totali esaminate : " & ee,2

Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: - - - &

 

[korokoro]

Se può esser utile

Ciao , Leo

*********************************************************************


'0R - Spia 1xx
Sub main()
Dim ru(2) : Dim ru1(10), num(1), rr(1)
Dim n(90,2) : Dim ambi(4005,5) : Dim nn(2)im ambi1(4005,5) : Dim nn1(2)
r=CInt(InputBox("SU CHE RUOTA?",,1))
n1=CInt(InputBox("QUALE NUMERO?",,88))
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,100))
c=CInt(InputBox("QUANTI COLPI?",,2))
casi=0
co=0
fin=EstrazioneFin
ini=EstrazioneFin-ee
For es=ini To fin
num(1)=n1
rr(1)=1 ' qui' cambiare la ruota dove trovare gli ambi
a=0
a=SerieFreq(es,es,num,rr,1)
If a=1 Then
casi=casi+1
ess=es+c
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
n(d,1)=d
n(d,2)=n(d,2)+1
cc=1
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y : ru1(1)=11
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi "NUMERO SPIA "&Cint(n1)&" su "& NomeRuota(r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&c&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
ColoreTesto 1
Scrivi
Scrivi "Num.Ruota | Ambi a Ruota | Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x=1 To 20
riga=" "&Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)
Scrivi riga
riga=""
Next
Scrivi "_____________________________________________________"
For cc=1 To 90
n(cc,1)=0
n(cc,2)=0
Next
End Sub

 

[joi_lotto]

Ciao KoroKoro.
Utile il tuo scrip.
Potresti inserire anche il mese in cui è uscito il n.spia.
Grazie.

 

[claudio8]

Grazie KoroKoro.
Ho visionato lo scrip e mi sembra molto interessante.
Vorrei chiederti se tu lo usi per le previsioni, che affidabilità dà e se hai qualche indicazione per le stesse.

Ho provato con l'88 su BA con casi precedenti al 8 01 2011 e mi ha indicato il 41 come numero più frequente con l'abbinamento nei primi 5 seguenti, inoltre gli ambi 41.8 e 41.3 --- risultato ambo in 2 colpi.

Grazie.
mi ricollego al tuo post http://forum.lottoced.com/topic.asp?TOPIC_ID=124223 e ti chido se sei riuscito ad avere quello che cercavi o se hai qualcosa che possa verificare la frequenza di ambate e ambi dopo l'uscita di particolari formazioni su due ruote, tipo numeri uguali o della stessa terzina ecc.

claudio

 

[imported_n/a]

Ciao Claudio, bella domanda per il tuo primo quesito.
Non ho la risposta certa, ho fatto delle prove con le righe interessate e senza, sembra che possa significare che calcola la presenze 1 sola volta nel numero di colpi analizzati e non la frequenza del numero che si ripete più volte nei colpi richiesti.

Credo che ci possa chiarire meglio esselotto che già avevo avuto modo di far delle differenze tra la presenza e la frequenza.

Aspetto anch'io delle delucidazioni.

Ciao Mike58

 

[imported_n/a]

Ciao claudio, per ricerche numeri e convergenze provate anche questo script.

Sub Main()
'presenze estratti su range di estrazione stabilita'
Dim nu(1),ru(1)
ru(1) = InputBox("qual'è la ruota","ruota di verifica",1)
Ino = InputBox("quante estrazioni vuoi analizzare",,100)
nf = CInt(InputBox("quante ripetizioni controllo? ",,8))

fin = EstrazioneFin
Ini = fin - Ino
ColoreTesto 2
Scrivi "Verifica sulla ruota di " & NomeRuota(ru(1)),1
Scrivi "Periodo verifica : " &(fin - ini) + 1 & " estrazioni",1
Scrivi "Da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1),1
Scrivi "frequenze Numeri superiore a " & nf,1
ColoreTesto 1:Scrivi
Scrivi " Numeri Ripetizioni " & " - presenze" & " - ritardi" & " - ritardo storico e frequenze(14) nel ciclo ",1
ColoreTesto 0
For x = 1 To 90
nu(1) = x
rp = SerieFreq(ini,fin,nu,ru,1)
rt = SerieRitardo(x,fin,nu,ru,1)
rc = SerieStorico(Ini,fin,nu,ru,1)
fc = SerieFreq(EstrazioneFin - 14,EstrazioneFin,nu,ru,1)
OrdinaMatrice nu,- 1,3
If rp > nf Then
Scrivi Space(10) & Format2(x) & Space(14) & Format2(rp) & Space(8) & Format2(rt) & Space(14) & Format2(rc) & Space(10) & Format2(fc)
End If : Next
ColoreTesto 1
Scrivi "_____________________________________________________________________",1
Scrivi""
Scrivi " estratti appena usciti - presenze - ritardo - Ritardo precedente ",2
Scrivi "_____________________________________________________________________",1
Scrivi""


For x = 1 To 90
nu(1) = x
rtt = SerieRitardo(x,fin,nu,ru,1)
rp = SerieFreq(ini,fin,nu,ru,1)
rtp = SerieRitardo(x,Fin - 1,nu,ru,1)
rttp = rtp + 1
OrdinaMatrice nu,- 1,3
If rtt = 0 Then
Scrivi Space(10) & Format2(x) & Space(16) & Format2(rp) & Space(12) & Format2(rtt) & " - " & Format2(rttp)
End If :Next




Scrivi "___________________________________________________________________",1
Scrivi""
Scrivi"**** modifica by Mike58 ****",1

End Sub


Mike58

 

[claudio8]

Grazie Mike, me lo guardo e ti dico

claudio

 

[claudio8]

Voglio inserire uno script di Daniel trovato in rete per cercare di evolvere il livello di uso degli script per me che non mastico molto e per chi vuole seguire queste logiche di ricerca, studio ed approfondimento.
--------------------
Const COLPI=9
Public Ruota(2)
Public Numeri(90)
Public GlobalFreq(90)
Public Ambi(90,90)
Public TotCasi, CasiNeg
Dim varList()
Dim varData()
Dim varRuote1()
Dim varRuote2()
Public StatAmbi(9), StatAmbiTutte(9), StatAmbate(9)
Function Isotopo(estrazione, video)
'trova numero Isotopo uscito soltanto su due ruote e restituisce il numero
Isotopo = 0
For b = 1 To 5
For r1 = 1 To 9
num1 = Estratto(estrazione, r1, b)
num1=CInt(num1)
For r2 = r1 + 1 To 10
num2 = Estratto(estrazione, r2, b)
num2=CInt(num2)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(estrazione, c, b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 Then
If video = 1 Then
ColoreTesto 2
Scrivi "AMBATA ISOTOPA "&Format2(num1)&" rilevata sulle ruote di "&Left(NomeRuota(r1),2)&_
"-"&Left(NomeRuota(r2),2)&"("&DataEstrazione(estrazione)&")",True
Scrivi
ColoreTesto 0
End If
Isotopo = num1
Exit Function
End If
End If
Next
Next
Next
End Function
Function NumSpiaIso(estrazione, numero)
'controlla se il numero spia è Isotopo e restituisce le due ruote
NumSpiaIso = 0
Ruota(1) = 0
Ruota(2) = 0
For b = 1 To 5
For r1 = 1 To 9
num1=Estratto(estrazione, r1, b)
For r2 = r1 + 1 To 10
num2 = Estratto(estrazione, r2, b)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(estrazione, c, b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 And num1 = numero Then
TotCasi = TotCasi + 1
Redim Preserve varList(TotCasi)
Redim Preserve varData(TotCasi)
Redim Preserve varRuote1(TotCasi)
Redim Preserve varRuote2(TotCasi)
varRuote1(TotCasi) = r1
varRuote2(TotCasi) = r2
varData(TotCasi) = estrazione
varList(TotCasi) = DataEstrazione(estrazione) & ": "
'----------------------------------------------------------------------------------------
'ATTENZIONE QUESTA SOTTO E' UNA RIGA UNICA, SE SI PRESENTA SU' DUE, RIUNITELA !!!!!!!
varList(TotCasi)=varList(totcasi)&"["&Left(NomeRuota(r1),2)&"-"&Left(NomeRuota(r2),2)&"]"
'----------------------------------------------------------------------------------------
NumSpiaIso = num1
Ruota(1) = r1
Ruota(2) = r2
Exit Function
End If
End If
Next
Next
Next
End Function
Function PiuFrequenti(inizio)
Dim totfreq(90)
For a = inizio To inizio + (colpi-1)
For b = 1 To 5
num =Estratto(a, ruota(1), b)
totfreq(num) = totfreq(num) + 1
num = Estratto(a, ruota(2), b)
totfreq(num) = totfreq(num) + 1
Next
Next
For c1 = 1 To 90
If totfreq(c1) > 0 Then numeri(c1) = numeri(c1) + 1
GlobalFreq(c1) = GlobalFreq(c1) + totfreq(c1)
Next
End Function
Function FreqAmbi(inizio)
For a = inizio To inizio + (colpi-1)
For b =1 To 5
num1 = Estratto(a, ruota(1), b)
For c =1 To 5
num2 = Estratto(a, ruota(1), c)
Ambi(num1, num2) = Ambi(num1,num2) + 1
Next
Next
For b =1 To 5
num1 = Estratto(a, ruota(2), b)
For c = 1 To 5
num2 = Estratto(a, ruota(2), c)
Ambi(num1, num2) = Ambi(num1, num2) + 1
Next
Next
Next
End Function
Function AmbateUscite(inizio, condizione, num)
Dim a, b, numest1, numest2
AmbateUscite = 0
For a = inizio To inizio + (colpi-1)
For b = 1 To 5
numest1 = Estratto(a, varRuote1(condizione), b)
numest2 = Estratto(a, varRuote2(condizione), b)
If num = numest1 Then
Scrivi "Ambata "&num&" "&Left(NomeRuota(varRuote1(condizione)),2)&_
" (" & a - inizio + 1 & "ºc)"
AmbateUscite = AmbateUscite + 1
StatAmbate(a-inizio+1) = StatAmbate(a-inizio+1) + 1
End If
If num = numest2 Then
Scrivi "Ambata "&num&" "&Left(NomeRuota(varRuote2(condizione)),2)&_
" (" & a - inizio + 1 & "ºc)"
AmbateUscite = AmbateUscite + 1
StatAmbate(a-inizio+1) = StatAmbate(a-inizio+1) + 1
End If
Next
Next
If AmbateUscite = 0 Then
Scrivi "Negativo"
CasiNeg = CasiNeg + 1
End If
End Funct

 

[LuigiB]

bhe intanto ricopiate qui sotto lo script postato da claudio formattato cosi è piu chiaro inoltre lo metto perche copiandolo nella versione non formattata a me a dato qualche errore che ho corretto a beneficio di tutti.

Const COLPI = 9
Public Ruota(2)
Public Numeri(90)
Public GlobalFreq(90)
Public Ambi(90,90)
Public TotCasi,CasiNeg
Dim varList()
Dim varData()
Dim varRuote1()
Dim varRuote2()
Public StatAmbi(9),StatAmbiTutte(9),StatAmbate(9)
Function Isotopo(estrazione,video)
	'trova numero Isotopo uscito soltanto su due ruote e restituisce il numero
	Isotopo = 0
	For b = 1 To 5
		For r1 = 1 To 9
			num1 = Estratto(estrazione,r1,b)
			num1 = CInt(num1)
			For r2 = r1 + 1 To 10
				num2 = Estratto(estrazione,r2,b)
				num2 = CInt(num2)
				If num1 = num2 Then
					trovati = 0
					For c = 1 To 10
						If Estratto(estrazione,c,b) = num1 Then trovati = trovati + 1
					Next
					If trovati = 2 Then
						If video = 1 Then
							ColoreTesto 2
							Scrivi "AMBATA ISOTOPA " & Format2(num1) & " rilevata sulle ruote di " & Left(NomeRuota(r1),2) & _
							"-" & Left(NomeRuota(r2),2) & "(" & DataEstrazione(estrazione) & ")",True
							Scrivi
							ColoreTesto 0
						End If
						Isotopo = num1
						Exit Function
					End If
				End If
			Next
		Next
	Next
End Function
Function NumSpiaIso(estrazione,numero)
	'controlla se il numero spia è Isotopo e restituisce le due ruote
	NumSpiaIso = 0
	Ruota(1) = 0
	Ruota(2) = 0
	For b = 1 To 5
		For r1 = 1 To 9
			num1 = Estratto(estrazione,r1,b)
			For r2 = r1 + 1 To 10
				num2 = Estratto(estrazione,r2,b)
				If num1 = num2 Then
					trovati = 0
					For c = 1 To 10
						If Estratto(estrazione,c,b) = num1 Then trovati = trovati + 1
					Next
					If trovati = 2 And num1 = numero Then
						TotCasi = TotCasi + 1
						ReDim Preserve varList(TotCasi)
						ReDim Preserve varData(TotCasi)
						ReDim Preserve varRuote1(TotCasi)
						ReDim Preserve varRuote2(TotCasi)
						varRuote1(TotCasi) = r1
						varRuote2(TotCasi) = r2
						varData(TotCasi) = estrazione
						varList(TotCasi) = DataEstrazione(estrazione) & ""
						'----------------------------------------------------------------------------------------
						'ATTENZIONE QUESTA SOTTO E' UNA RIGA UNICA, SE SI PRESENTA SU' DUE, RIUNITELA !!!!!!!
						varList(TotCasi) = varList(totcasi) & "[" & Left(NomeRuota(r1),2) & "-" & Left(NomeRuota(r2),2) & "]"
						'----------------------------------------------------------------------------------------
						NumSpiaIso = num1
						Ruota(1) = r1
						Ruota(2) = r2
						Exit Function
					End If
				End If
			Next
		Next
	Next
End Function
Function PiuFrequenti(inizio)
	Dim totfreq(90)
	For a = inizio To inizio +(colpi - 1)
		For b = 1 To 5
			num = Estratto(a,ruota(1),b)
			totfreq(num) = totfreq(num) + 1
			num = Estratto(a,ruota(2),b)
			totfreq(num) = totfreq(num) + 1
		Next
	Next
	For c1 = 1 To 90
		If totfreq(c1) > 0 Then numeri(c1) = numeri(c1) + 1
		GlobalFreq(c1) = GlobalFreq(c1) + totfreq(c1)
	Next
End Function
Function FreqAmbi(inizio)
	For a = inizio To inizio +(colpi - 1)
		For b = 1 To 5
			num1 = Estratto(a,ruota(1),b)
			For c = 1 To 5
				num2 = Estratto(a,ruota(1),c)
				Ambi(num1,num2) = Ambi(num1,num2) + 1
			Next
		Next
		For b = 1 To 5
			num1 = Estratto(a,ruota(2),b)
			For c = 1 To 5
				num2 = Estratto(a,ruota(2),c)
				Ambi(num1,num2) = Ambi(num1,num2) + 1
			Next
		Next
	Next
End Function
Function AmbateUscite(inizio,condizione,num)
	Dim a,b,numest1,numest2
	AmbateUscite = 0
	For a = inizio To inizio +(colpi - 1)
		For b = 1 To 5
			numest1 = Estratto(a,varRuote1(condizione),b)
			numest2 = Estratto(a,varRuote2(condizione),b)
			If num = numest1 Then
				Scrivi "Ambata " & num & " " & Left(NomeRuota(varRuote1(condizione)),2) & _
				" (" & a - inizio + 1 & "ºc)"
				AmbateUscite = AmbateUscite + 1
				StatAmbate(a - inizio + 1) = StatAmbate(a - inizio + 1) + 1
			End If
			If num = numest2 Then
				Scrivi "Ambata " & num

 

[claudio8]

X LUIGI
E' possibile avare su spaziometria nella sez Script un tasto di Debug per poter seguire lo script passo passo come si faceva con l'F8 di Visual Basic ?
Avere la possibilità di visionare passo passo le variazioni dei valori delle variabili ci faciliterebbe il compito sia nella interpretazione che nella costruzione degli stessi.

In questo script ci sono una serie di comandi che non sono stati molto usati da noi del gruppo per cui non è chiara la loro funzione, e quindi mi piacerebbe approfondirli. alcuni fi essi sono:

Const COLPI = 9

Public StatAmbi(9),StatAmbiTutte(9),StatAmbate(9)

ReDim Preserve varList(TotCasi)

Do While spia < 0 Or spia > 90 "condiziona il valore entro i limiti"
sel = InputBox("Digita <0> se vuoi trovare il num. spia in automatico," & _
" altrimenti digita <1..90>")
spia = CInt(sel) " usa sempre la label "sel" per definire quanto selezionato
Loop

inoltre ho provato a creare una input box che chiedesse il numero colpi, che in questo sript è definitoda questa dichiarazione ( Const COLPI = 9) ma non ci sono riuscito.
Perchè, non mi accettava la sostituzione di Public StatAmbi(9),StatAmbiTutte(9),StatAmbate(9)
con Public StatAmbi(COLPI),StatAmbiTutte(COLPI),StatAmbate(COLPI)

Credo che questo listato debba essere usato per un suo approfondimento di composizione di script, che ne pensi??

claudio

 

[LuigiB]

const è la parola chiave con la quake si dichiarano le costanti
le costanti sono come le variabili ma hanno un valore fisso preimpostato

redim preserve si usa per ridimensionare in genre ad una dimensione maggiore un array gia dimensionato , l'uso della parola chiave preserve consente di non perdere il valore degli elementi dell'array che erano stati gia valorizzati prima del redim

Public StatAmbi(9)... dichaira una variabile visibile a tutte
le procedure dello script m notare che queste variabili si devono dichiarare al di fuori di qualsiasi procedura

Do while ... Loop e un costrutto che serve per iterare come il for next ma invece di basarsi su dei limiti min e max si basa sul risultato di una verifica while infatti in inglese vuol dire finche.
Sarebbe come dire Fai finche cio è vero ...continua

riguardo la dichiarazione che ti da errore è normalissimo non si puo fare quello che dici
per il debug non è possibile si tratta di script non di ambiente di programmazione ...

ciao

 

[claudio8]

X Luigi
Come sempre disponibilissimo, grazie.

riguardo la dichiarazione che ti da errore è normalissimo non si puo fare quello che dici .. im maniera assoluta ? [}]o è possibile trovare una alternativa? [}]

per il debug non è possibile si tratta di script non di ambiente di programmazione ... peccato "mission impossibol"
Ciao


claudio

 

[claudio8]

Vorrei notifica a chi ha scaricato il listato che nella giornata di oggi ho provato ad usarlo sul caso isotopo 5 BA FI e mi ha dato come ambata + frequente in 2 colpi il 17 considerando 4472 estrazioni pregresse (dal 5/01/1945).
Forse è un caso, però e capitata l'uscita del 17 a BA
[8D][8D][8D].
Mentre il caso del 15 di BA-TO ha dato il 53 ...

SORPRESA: 53.17 1° colpo su NAZIONALE


Dimenticavo un nuovo metodo Ba1° NA1° terzina simmetrica sviluppo: somma elementi e + 1 per ambate
A colpo stasera 90 a BA e 1 a NA ... porca sfiga [|)][|)][|)]
claudio

 

[claudio8]

X tutti gli amici del forum

---------------------------------------------------------------------------------------------

' VERSIONE con Output modificato 
'Ricerca numero Isotopo uscito soltanto su due ruote( in caso di uscita su 3 ruote lo esclude) e
'restituisce 1 numero + frequente x Ambata ed 1 x Ambo
'postato e scritto da Daniel
Const colpi = 2 		'const è la parola chiave con la quale si dichiarano le costanti, esse sono come le variabili ma hanno un valore fisso preimpostato
Public Ruota(2) 		'dichaira una variabile visibile a tutte le procedure dello script - notare che queste variabili si devono dichiarare al di fuori di qualsiasi procedura
Public Numeri(90)
Public GlobalFreq(90)
Public Ambi(90,90)
Public TotCasi,CasiNeg
Dim varList()
Dim varData()
Dim varRuote1()
Dim varRuote2()
Public c1
Public StatAmbi(2),StatAmbiTutte(2),StatAmbate(2)
Function Isotopo(estrazione,video)
	'trova numero Isotopo uscito "soltanto" su due ruote, escludendo altri casi e restituisce il numero "isotopo"
	Isotopo = 0
	For b = 1 To 5 								'per posizione da 1 a 5
		For r1 = 1 To 9							'per ruota da 1 a 9
			num1 = Estratto(estrazione,r1,b) 			' = Estratto dell'estrazione, ruota e posizione b (b=1 to 5)
			num1 = CInt(num1) 					' intero di num1
			For r2 = r1 + 1 To 10 					'per ruota2 = r1+1 to 10
				num2 = Estratto(estrazione,r2,b) 		' = estratto dell'estrazione, ruota2 e posizione b (b=1 to 5)
				num2 = CInt(num2)					' intero di num1
				If num1 = num2 Then 				' se num1 = num 2
					numeri_trovati = 0			 'imposta una  variabile numeri_trovati a valore = 0
					For c = 1 To 10 				'per c ruota  1 To 10
						If Estratto(estrazione,c,b) = num1 Then numeri_trovati = numeri_trovati + 1	
											'se l'estratto delle ruote da 1 a 10 in posizione b = num1 allora il contatore si incremente di 1
					Next 						' ripete quest'ultima operazione incrementando il contatore numeri_trovati per tante volte, quante
											' ne riscontra la vericidità nella estrazione in analisi
					If numeri_trovati = 2 Then 		' se numeri_trovati = 2 (condizione che verifica la singola isotopia del num1) allora esegui istruzioni
						If video = 1 Then 		' nell'estrazione 7249 ci sono 2 casi di isotopia del 35 BA.TO 5°E + GE.PA 2°E e 1 caso isotopia del 2
											' su GE.PA però considera solo il 1° 35 e non gli altri.. perchè ??
							ColoreTesto 2		' scrive la riga sottostante in coore rosso
							Scrivi "AMBATA ISOTOPA " & Format2(num1) & " rilevata sulle ruote di " & Left(NomeRuota(r1),2) & _
							" - " & Left(NomeRuota(r2),2) & "  il (" & DataEstrazione(estrazione) & ")",True ' true =1 ( E' errata la specifica nella help
											' che per il grassetto richiede -1 ?? )
							Scrivi 			' scrive  riga vuota
							ColoreTesto 0 		' colore nero
						End If
						Isotopo = num1			'  al termine di tutte i cicli effettuati le condizioni  verificati, isotopo = num1
						Exit Function			'  al termine di tutte i cicli For  e le If, esce dalla funzione  se non verificati gli If 						End If
					End If
				End If
			Next
		Next
	Next
End Function
Function NumSpiaIso(estrazione,numero) 'controlla se il numero spia (che inseriamo nella input box?)è Isotopo e restituisce le due ruote
	NumSpiaIso = 0
	Ruota(1) = 0
	Ruota(2) = 0
	For b = 1 To 5
		For r1 = 1 To 9
			num1 = Estratto(estrazione,r1,b)
			For r2 = r1 + 1 To 10
				num2 = Estratto(estrazione,r2,b)
				If num1 = num2 Then
					numeri_trovati = 0
					For c = 1 To 10
						If Estratto(estrazione,c,b) = num1 Then numeri_trovati = numeri_trovati + 1
						Next
						If numeri_trovati = 2 And num1 = numero Then
							TotCasi = TotCasi + 1
							ReDim Preserve varList(TotCasi)
							'ReDim Preserve si usa per ridimensionare in genre ad una dimensione
							'maggiore unArrayy gia dimensionato , l'uso della parola chiave
							'preserve consente di non perdere il valore degli elementi dell'array
							'che erano stati gia valorizzati prima del redim
							ReDim Preserve varData(TotCasi)
							ReDim Pres

 

[claudio8]

...

claudio