metus.ls

aldino · 16 Giugno 2014

una buona giornata a tutti voi

ho reinstallato spazio ,1.1.71 ,e cercando le evetuali novita' ,mi sono accorto che nella cartella script
c'era il listato genera netodi sommativi METUS.........in realta' c'era anche prima ma l'ho scoperto solo ora

che qui di seguito riporto''

Sub Main()
Dim som(5,5,90)
Dim estr(2,5)
Dim Val(5,5,90)
Dim amb(90)
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1 - 10)",,1)
es = InputBox("Inserisci 0 per l'ultima,1 la prima,2 la seconda,ecc.(0 - 8)",,1)
numes = InputBox("Numero di estrazioni da considerare",,139)
perc = InputBox("Inserisci la percentuale minima di risultati che deve dare l'ambata(0 - 100)",,100)
ultest = 8267
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
Scrivi "All'ultima del mese"
Else
Scrivi "Alla " + es + "° del mese"
End If ' If eval(es) = 0 Then ...
Scrivi "Statistica dal " + DataEstrazione(EstrazioneFin - numes) + " al " + DataEstrazione(EstrazioneFin)
For ru1 = 1 To 10
For ru2 = ru1 To 10
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
valido = False
For n = EstrazioneFin - numes To EstrazioneFin
If valido = True Then
For i = 1 To 5
For j = 1 To 5
For l = 1 To 5
k = Estratto(n,r2,i) - estr(1,j) - estr(2,l)

While k <= 0

k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If ' If Val(j,l,k) = True Then ...
Next
Next
Next
End If ' If valido = True Then ...
If eval(es) = 0 Then m = n + 1 Else m = n End If
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0))

Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
z = z + 1
Valido = True
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
End If ' If(((es = 0) And(n = ultest)) ...
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz =(z/100)*perc
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(ru1),8) + " +

" + CStr(eval(l)) + "° di " + FormatSpace(NomeRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2)
s = s + " su " + NomeRuota(r2) + " " + CStr(som(i,l,j)) + " su " +

CStr(eval(z)) + "" + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già

uscito"
If som(i,l,j) >= zz Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) =

amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If ' If(Not(ru1 = ru2) Or((ru1 = ru...
End If ' If som(i,l,j) > = zz Then ...
Next
Next
Next
Next
Next
For i = 1 To 90
If(amb(i) > 0) Then Scrivi CStr(eval(i)) + "previsto da " + CStr(eval(amb(i))) + " sistemi"
Next
End Sub

l'output risultante ,in parte e' ""

Alla 6° del mese
Statistica dal 11.06.2013 al 14.06.2014
1° di Bari + 2° di Bari + 82 su Napoli 11 su 1377 in corso
1° di Bari + 3° di Bari + 51 su Napoli 11 su 1363 in corso
3° di Bari + 5° di Bari + 78 su Napoli 11 su 1330 in corso
1° di Bari + 3° di Cagliari + 1 su Napoli 11 su 1366 in corso
""""

dovrebbe 11 su 13 anziche'' 11 su 1377 in corso.............

volevo chiedere ,se gentilmente, c'e' qualcuno in grado di sistemarlo?

ringrazio anticipatamente ed auguro buon proseguimento..

Mike58 · 16 Giugno 2014

Ciao Aldino, hai installato una versione molto vecchia rischi di perderti tutti i codici nuovi implementati nonché qualche script che potrebbe non girarti, ad ogni modo sono tue scelte (ma necessaria la precisazione).

Per il tuo quesito è solo una errata formattazione del copia-incolla infatti erano i uniti 2 caratteri ("") anziché essere spaziati " " e di conseguenza risultavano uniti il terminale di conteggio con il numero calcolato.

Poi è sempre meglio mettere lo script nell'apposito code #

Codice:

Sub Main()
	Dim som(5,5,90)
	Dim estr(2,5)
	Dim Val(5,5,90)
	Dim amb(90)
	r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1 - 10)",,1)
	es = InputBox("Inserisci 0 per l'ultima,1 la prima,2 la seconda,ecc.(0 - 8)",,1)
	numes = InputBox("Numero di estrazioni da considerare",,139)
	perc = InputBox("Inserisci la percentuale minima di risultati che deve dare l'ambata(0 - 100)",,100)
	ultest = 8267
	For i = 1 To 90
		amb(i) = 0
	Next
	If eval(es) = 0 Then
		Scrivi "All'ultima del mese"
	Else
		Scrivi "Alla " + es + "° del mese"
	End If ' If eval(es) = 0 Then ...
	Scrivi "Statistica dal " + DataEstrazione(EstrazioneFin - numes) + " al " + DataEstrazione(EstrazioneFin)
	For ru1 = 1 To 10
		For ru2 = ru1 To 10
			z = 0
			For i = 1 To 5
				For l = 1 To 5
					For j = 1 To 90
						som(i,l,j) = 0
						Val(i,l,j) = True
					Next
				Next
			Next
			For j = 1 To 2
				For i = 1 To 5
					estr(j,i) = 0
				Next
			Next
			valido = False
			For n = EstrazioneFin - numes To EstrazioneFin
				If valido = True Then
					For i = 1 To 5
						For j = 1 To 5
							For l = 1 To 5
								k = Estratto(n,r2,i) - estr(1,j) - estr(2,l)
								While k <= 0
									k = k + 90
								Wend
								If Val(j,l,k) = True Then
									som(j,l,k) = som(j,l,k) + 1
									Val(j,l,k) = False
								End If ' If Val(j,l,k) = True Then ...
							Next
						Next
					Next
				End If ' If valido = True Then ...
				If eval(es) = 0 Then m = n + 1 Else m = n End If
				If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0))) Or((IndiceMensile(m) = 1) And(eval(es) = 0))) Then
					z = z + 1
					Valido = True
					For i = 1 To 5
						estr(1,i) = Estratto(n,ru1,i)
						estr(2,i) = Estratto(n,ru2,i)
					Next
					For i = 1 To 5
						For l = 1 To 5
							For j = 1 To 90
								Val(i,l,j) = True
							Next
						Next
					Next
				End If ' If(((es = 0) And(n = ultest)) ...
			Next
			For i = 1 To 5
				For l = 1 To 5
					For j = 1 To 90
						zz =(z/100)*perc
						s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(ru1),8) + " +  " + CStr(eval(l)) + "° di " + FormatSpace(NomeRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2)
						s = s + " su " + NomeRuota(r2) + " " + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + " < Num. Calcolato > " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
						If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già uscito"
						If som(i,l,j) >= zz Then
							If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
								Scrivi s
								amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
							End If ' If(Not(ru1 = ru2) Or((ru1 = ru...
						End If ' If som(i,l,j) > = zz Then ...
					Next
				Next
			Next
		Next
	Next
	For i = 1 To 90
		If(amb(i) > 0) Then Scrivi CStr(eval(i)) + " previsto da " + CStr(eval(amb(i))) + " sistemi"
	Next
End Sub

aldino · 17 Giugno 2014

una buona giornata a tutti voi

Grazie a mike58 per l'intervento .

per quanto riguarda la versione SPAZIO reinstallata ,ho sbagliato a digitare ,volevo dire la 1.4.71

adesso la statistica e' o.k. grazie..

mi ero interessato al listato perche' sono in cerca di un generatore di metodi sommativi,

con un output facsimile a questo, in cui il calcolo degli adattatori anziche' essere riferito ad un indice mensile

potesse essere riferito ad un altra condizione.....

Ad esempio la somma degli estratti della ruota da previsionare.

Nel caso ti fosse possibile provare a fare la modifica su questo listato "metus" o altro facsimile

te ne sarei molto grato.

ancora grazie e buon proseguimento.

Cerca

Cerca

metus.ls

aldino

Super Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

aldino

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi