***Help listato chiedo ai Guru****

[thesergio752]

Ad ogni singola estrazione si deve ricavare un numero da mettere in gioco. sommare 1°estratto di bari con il 5°estratto di venezia x 4 colpi.
es. 03/10 da il 43 da porre in gioco x 4 colpi
05/10 da 36 da porre in gioco x 4 colpi
08/10 da 89 da porre in gioco x 4 colpi
fino ad arrivare all'ultima.
Vi ringrazio anticipatamente sperando in una vostra pronta collaborazione.ciao ciao

 

[Roby]

Ciao Sergio, eccoti lo script

Sub Main()
	Dim ruote(10),num(1),posta(1)
	posta(1) = 1
	ini = InputBox("INIZIO",,8500)
	k = InputBox("COLPI",,4)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		co = co + 1
		ruote(1) = BA_ : ruote(2) = VE_
		Scrivi String(100,"=") & " Caso n°" & Format2(co),1
		Scrivi DataEstrazione(es) & "  " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
		Scrivi DataEstrazione(es) & "  " & SiglaRuota(VE_) & " " & StringaEstratti(es,VE_)
		num(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,VE_,5))
		ImpostaGiocata 1,num,ruote,posta,k,1
		Gioca es,1
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub

 

[thesergio752]

Ciao Sergio, eccoti lo script

Sub Main()
	Dim ruote(10),num(1),posta(1)
	posta(1) = 1
	ini = InputBox("INIZIO",,8500)
	k = InputBox("COLPI",,4)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		co = co + 1
		ruote(1) = BA_ : ruote(2) = VE_
		Scrivi String(100,"=") & " Caso n°" & Format2(co),1
		Scrivi DataEstrazione(es) & "  " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_)
		Scrivi DataEstrazione(es) & "  " & SiglaRuota(VE_) & " " & StringaEstratti(es,VE_)
		num(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,VE_,5))
		ImpostaGiocata 1,num,ruote,posta,k,1
		Gioca es,1
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub

GRazie del listato funziona però si blocca all'estrazione del 05/10 , io ho un listato simile che prima mi funzionava ora mi fa questo medesimo errore magari inviandolo a te puoi correggere quello che prima funzionava.

Sub Main()
Dim posta(5)
Dim ruote(5)
Dim am(4)
Dim ambata(2)
posta(1) = 1
casi = 0
fin = EstrazioneFin
ini = EstrazioneFin - 70
For es = ini To fin



ruote(1) = 1
ruote(2) = 10
a = Estratto(es,BA_,1)
b = Estratto(es,VE_,5)
c =(a + b)
If b > a Then

End If
am(1) = c
ambata(1) = am(2)
ambata(1) = am(2)
ImpostaGiocata 1,ambata,ruote,posta,5,1

am(3) = Fuori90(a + b)
ImpostaGiocata 2,am,ruote,posta,4,2
Gioca es
casi = casi + 1

Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : " & CInt(casi)
ScriviResoconto

Scrivi String(45,32) & "Metodo ",1
ColoreTesto 1
End Sub

 

[Roby]

I Listati mostrano entrambi l'ultima estrazione... questo è il tuo

Estrazione generatrice del pronostico 08761 [B][129 - 26/10/2013][/B]
G 0002 Numeri in gioco : 33.33 su BA VE per Estratto
In corso per altre 4 estrazioni

probabilmente hai la barra estrazioni impostata male
clicca sulla freccia in modo da portarla all'ultima estrazione
se non è questo il problema, allora non so...

 

[thesergio752]

I Listati mostrano entrambi l'ultima estrazione... questo è il tuo

Estrazione generatrice del pronostico 08761 [B][129 - 26/10/2013][/B]
G 0002 Numeri in gioco : 33.33 su BA VE per Estratto
In corso per altre 4 estrazioni

probabilmente hai la barra estrazioni impostata male
clicca sulla freccia in modo da portarla all'ultima estrazione
se non è questo il problema, allora non so...

Sei un grande e come dici tu presterò più attenzione a alla barra listati grazie mille sei un amico.ciao ciao