Novità

metus.ls

aldino

Super Member >GOLD<
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..
 
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
 
Ultima modifica:
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22
Indietro
Alto