Novità

Per LuigiB funzione SerieRitardo()

pico2005

Super Member >GOLD<
La funzione serieritardo() mi dà valori errati è possibile?

In particolare con l'archivio al 08_07_2014 cercando gli ambi per sorte mi restituisce:

Bari per la figura 4 ritorna un ritardo 27 .....dove al ritardo si hanno i 81 _ 43 _ 31 _ 90 _ 56 con il solo 31 di figura 4;
Firenze sempre per la figura 4 un ritardo per ambo di 7.... dove invece si hanno 24 _ 58 _ 80 _ 86 _ 89 con il solo 58 di figura 4...


etc.

Scusami per il disturbo .
 
L

LuigiB

Guest
sinceramente non credo senno me lo avrebbero gia detto da quel di , tuttavia visto che tutto è possibile metti lo script cosi controllo
 

Mike58

Advanced Member >PLATINUM PLUS<
Anche i miei dati non danno errori e sono uguali a quelli estrapolati dalla verifica in Formazione Veloce.

Codice:
4.13.22.31.40.49.58.67.76.85

Verifica all'estrazione... [08870] [ 81] 08.07.2014

Ritardo per..Ambo  41 - BA .. .. 22 58 .. - [08829] [ 40] 03.04.2014 - colpo...41

Codice:
Sub Main
	Dim nu(10),ru(1)
	r = InputBox("RUOTA",,1)
	sorte = CInt(InputBox("SORTE DI VERIFICA",,2))
	Ini = EstrazioneIni
	fin = EstrazioneFin
	ScegliNumeri(nu)
	ru(1) = r
	SR = SerieRitardo(Ini,fin,nu,ru,sorte)
	Scrivi StringaNumeri(nu),1
	Scrivi
	Scrivi "Verifica all'estrazione... " & GetInfoEstrazione(fin),1,1,,1,2
	Scrivi
	Scrivi "Ritardo per.." & NomeSorte(sorte) & "  " & SR,0,0
	Call VerificaEsito(nu,ru,fin - SR,sorte,,,esito,copli,estratti,id)
	Scrivi " - " & estratti,0,0
	Scrivi " - " & GetInfoEstrazione(id),0,0
	Scrivi " - colpo..." & fin - id
End Sub

Codice:
4.13.22.31.40.49.58.67.76.85

Verifica all'estrazione... [08870] [ 81] 08.07.2014

Ritardo per..Ambo  10 - FI .. 40 49 .. .. - [08860] [ 71] 14.06.2014 - colpo...10
 
Ultima modifica:
L

LuigiB

Guest
ciao Mike , grazie .. aspettiamo lo script di pico ma penso che non ci siano errori ..vedremo
 

pico2005

Super Member >GOLD<
Chiedo scusa devo aver fatto battibeccare alcune variabili tra loro per aver portato le dim in validità per tutte le sub ed anche l'ordinamento ha un poco di buchi.
scusate , devo rivedermelo tutto.


Option Explicit
Dim stat(90),CL
Dim x,y,z,w,a(90),r,fi,m,prova
Dim f(90),ruote(13)
Dim cf(10,11),kk
Dim Uni(10,10)
Dim c7(12,7)
Dim Dec(10,10)
Dim rit,ff
CL = InputBox("Inserire 2 per ritardi ambi -- 3 per ritardi terni .....etc.","Scelta Statistica",2)
Dim Inizio,fine

Inizio = EstrazioneFin - 1000
fine = EstrazioneFin

Sub Main



Figure




End Sub






Sub Figure
'Scrivi "________________________________ Figure____________________________"


For r = 1 To 10
ruote(1) = r

For x = 1 To 9
m = 1
For fi = 1 To 90
If Figura(fi) = x Then
a(m) = fi
'prova=prova & " " & fi
m = m + 1
End If
Next
kk = SerieRitardo(Inizio,fine,a,ruote,CL)
cf(r,x) = kk
'Scrivi cf(r,x)& " " & prova
'prova=""
Next

'Scrivi ""

rit = 0
ff = 0
For x = 0 To 8
'Scrivi cf(r,x)
w = cf(r,x)
If rit < w Then
rit = w
ff = x
End If
Next
Scrivi "ruota " & NomeRuota(r) & " Figura " & ff & " ritardo " & rit
For x = 1 To 90
If Figura(x) = ff Then f(x) = f(x) & " " & SiglaRuota(r)
Next
Next


End Sub
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Buon giorno a tutte/i.

Mi sono permesso di modificare l' output di questo script,

al fine di renderlo più facilmente interpretabile.

Il ritardo da esso calcolato è compatibile con gli estratti presenti a quella data.

Codice:
Option Explicit
Dim stat(90),CL
Dim x,y,z,w,a(90),r,fi,m,prova,P,Tmp,GR
Dim f(90),ruote(13)
Dim cf(10,11),kk
Dim Uni(10,10)
Dim c7(12,7)
Dim Dec(10,10)
Dim rit,ff
CL = CInt(InputBox("Inserire 2 per ritardi ambi -- 3 per ritardi terni .....etc.","Scelta Statistica",2))
If CL > 4 Then CL = 4
Dim Inizio,fine
Inizio = 3950
fine = EstrazioneFin
Sub Main
Scrivi "Ultima Sorte In Figura ",1,0
Scrivi "(Aggiornato al " & DataEstrazione(fine) & ")"
Scrivi
	Figure
End Sub
Sub Figure
	'Scrivi "________________________________ Figure____________________________"
	For r = 1 To 10
		ruote(1) = r
		For x = 1 To 9
			m = 1
			For fi = 1 To 90
				If Figura(fi) = x Then
					a(m) = fi
					'prova=prova & " " & fi
					m = m + 1
				End If
			Next
			kk = SerieRitardo(Inizio,fine,a,ruote,CL)
			cf(r,x) = kk
			'Scrivi cf(r,x)& " " & prova
			'prova=""
		Next
		'Scrivi ""
		rit = 0
		ff = 0
		For x = 0 To 8
			'Scrivi cf(r,x)
			w = cf(r,x)
			If rit < w Then
				rit = w
				ff = x
			End If
		Next
		'New-out By Joe
		Scrivi DataEstrazione(fine - rit) & " ",1,0
		ColoreTesto 2 : Scrivi SiglaRuota(r) & " ",1,0 : ColoreTesto 0
		For P = 1 To 5
			Tmp = Estratto(fine - rit,r,P)
			If Figura(Tmp) = ff Then GR = 1 : ColoreTesto 2
			Scrivi Format2(Tmp) & " ",GR,0 : GR = 0 : ColoreTesto 0
		Next
		ColoreTesto 2 : Scrivi " [F" & ff & "] ",1,0 : ColoreTesto 0
		Scrivi " Rit" & FormatSpace(rit,5,1) & " ",1,0
		Scrivi
		'For x = 1 To 90 
		'If Figura(x) = ff Then f(x) = f(x) & " " & SiglaRuota(r) '?
		'Next 
		Scrivi
	Next
End Sub

:)
 

pico2005

Super Member >GOLD<
Si certo grazie ragazzi, una sub chiamata per prima ingarbugliava gli esiti delle altre sub, infatti cambiando
l'ordine delle sub e lasciando per ultima quella " Malvagia" è tornato tutto alla normalità.
Grazie ancora Joe91 e Mike58 e sopratutto grazie Luigi e scusate ma è stato il risolutore del pusillis.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 03 maggio 2024
    Bari
    38
    11
    08
    19
    81
    Cagliari
    69
    50
    27
    65
    06
    Firenze
    60
    05
    42
    75
    84
    Genova
    17
    29
    71
    48
    80
    Milano
    02
    33
    81
    85
    63
    Napoli
    12
    10
    29
    51
    84
    Palermo
    04
    21
    69
    79
    50
    Roma
    62
    72
    84
    30
    90
    Torino
    41
    33
    46
    03
    68
    Venezia
    03
    29
    10
    85
    33
    Nazionale
    72
    03
    82
    37
    58
    Estrazione Simbolotto
    Milano
    19
    22
    24
    08
    32

Ultimi Messaggi

Alto