Listato da correggere

[thesergio752]

3°estratto cagliari - 1°estratto di bari = 1°ambata
3°estratto cagliari - 5°estratto di bari = 2°ambata
calcolo deve essere effettuato ad ogni estrazioni


Il listato che ho sotto mano non restituisce la differenza esatta infatti nell'ultima estrazione dice che 70-1=68 e 23-1=21
************************************************** Caso n°263
29.10.2013 BA 23.14.29.49.70
29.10.2013 CA 66.51.01.20.71
Estrazione generatrice del pronostico 08762 [130 - 29/10/2013]
G 0001 Numeri in gioco : 68 su BA CA per Estratto
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 21 su BA CA per Estratto
Interrotta per raggiunta durata



Inserisco il Listato:
Sub Main()
Dim ruote(10),num(1),posta(1)
posta(1) = 1
ini = InputBox("INIZIO",,8500)
k = InputBox("COLPI",,1)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
co = co + 1
ruote(1) = CA_ : ruote(2) = BA_: ruote(3) = BA_
Scrivi String(50,"*") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
Scrivi DataEstrazione(es) & " " & SiglaRuota(CA_) & " " & StringaEstratti(es,CA_)
num(1) = Fuori90(Estratto(es,CA_,3) - Estratto(es,BA_,1))


ImpostaGiocata 1,num,ruote,posta,k,1
num(1) = Fuori90(Estratto(es,CA_,3) - Estratto(es,BA_,5))
ImpostaGiocata 2,num,ruote,posta,k,1

Gioca es,1
Next
Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub

Grazie anticipatamente.ciao ciao

 

[Roby]

Il listato è corretto, i metodi sommativi calcolano la distanza non la differenza se c'è il segno -
infatti bisognerebbe mettere +90 al 1°algortimo se questo risultasse inferiore al 2°
quindi i calcoli sono giusti

ESEMPIO:
3°CA = 1 ... 1°BA = 23... 90+1 = 91-23 = 68 (1°Ambata)
3°CA = 1 ... 5°BA = 70... 90+1 = 91-70 = 21 (2°Ambata)

Ormai dovreste conoscerli
Ciao

 

[thesergio752]

Il listato è corretto, i metodi sommativi calcolano la distanza non la differenza se c'è il segno -
infatti bisognerebbe mettere +90 al 1°algortimo se questo risultasse inferiore al 2°
quindi i calcoli sono giusti

ESEMPIO:
3°CA = 1 ... 1°BA = 23... 90+1 = 91-23 = 68 (1°Ambata)
3°CA = 1 ... 5°BA = 70... 90+1 = 91-70 = 21 (2°Ambata)

Ormai dovreste conoscerli
Ciao

Grazie blackmore della tua disponibilità. ciao ciao

 

[thesergio752]

Buongiorno,
allego listato .
Controllare sempre,salvo errori .

Sub Main()
	Dim ruote(10),num(2),num1(2),posta(1)
	posta(1) = 1
	ini = InputBox("INIZIO",,8500)
	k = InputBox("COLPI",,1)
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio es
		Call AvanzamentoElab(ini,fin,es)
		co = co + 1
		a = Estratto(es,CA_,3)
		b = Estratto(es,BA_,1)
		c = Estratto(es,BA_,5)
		df1 = Differenza(a,b)
		df2 = Differenza(a,c)
		ds1 = Distanza(a,b)
		ds2 = Distanza(a,c)
		Scrivi String(50,"*") & " Caso n°" & Format2(co),1
		Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
		Scrivi DataEstrazione(es) & " " & SiglaRuota(CA_) & " " & StringaEstratti(es,CA_)
		Scrivi "3° setratto di CAGLIARI [ " & Format2(a) & " ] sottrarre 1° di BARI [ " & Format2(b) & " ] = " & Format2(df1) & " Differenza Matematica [ usare df1 ]"
		Scrivi "3° setratto di CAGLIARI [ " & Format2(a) & " ] sottrarre 5° di BARI [ " & Format2(c) & " ] = " & Format2(df2) & " Differenza Matematica [ usare df2 ]"
		Scrivi "3° setratto di CAGLIARI [ " & Format2(a) & " ] sottrarre 1° di BARI [ " & Format2(b) & " ] = " & Format2(ds1) & " Distanza ciclometrica ( non superiore a 45) [ usare ds1 ]"
		Scrivi "3° setratto di CAGLIARI [ " & Format2(a) & " ] sottrarre 5° di BARI [ " & Format2(c) & " ] = " & Format2(ds2) & " Distanza ciclometrica ( non superiore a 45) [ usare ds2 ]"
		ruote(1) = CA_ : ruote(2) = BA_: ruote(3) = BA_
		num(1) = df1
		num(2) = df2
		ImpostaGiocata 1,num,ruote,posta,k,1
		num1(1) = ds1
		num1(2) = ds2
		ImpostaGiocata 2,num1,ruote,posta,k,1
		Gioca es,True,1
	Next
	Scrivi
	Scrivi
	Scrivi
	ScriviResoconto
End Sub

Grazie anche a te disaronno per la tempestività con cui hai risposto. Il listato che mi hai formulato è perfetto.ciao ciao

 

[Roby]

Ciao sergio, per dovere di cronaca devo dirti
che il metodo (Sommativo) che hai inserito
non c'entra nulla con lo script postato

Ciao