Vi risulta che c'è un limite nel numero di colpi di gioco implementati nel programma?

lotto_tom75 · 4 Settembre 2014

In particolare... in un mio scriptillo avrei bisogno di estendere i colpi di gioco oltre i 300 (ovviamente non per giocarli ma solo per automatizzare una certa verifica...) , ma non appena supero il valore colpidigioco = 255

Codice:

'esempio di superamento del limite 255

dim colpidigioco

colpidigioco = 300

ImpostaGiocata 2,am,ruote,poste,colpidigioco,2

mi viene fuori l'errore che riporto nell'immagine sottostante

e mi viene evidenziata nel contempo la riga :

Codice:

Gioca idEstr,1,,1

quasi ad indicare che, superato il valore 255 per quanto riguarda il parametro colpidigioco, in quella riga avviene un blocco...

Grazie per un vostro parere/aiuto in merito

Joe91 · 4 Settembre 2014

Ciao Tom.

Non so ma ammesso che ci sia questa limitazione, essa è implicita e dipendente dalla istruzione "Gioca".

Gioca, dovrebbe essere sostituito da una ricerca statistica del risultato.

Questa ricerca, non conosce limiti, se non quelli dell'archivio.

Se scritta decentemente è anche più veloce e meno ridondante di informazioni,

praticamente inutili, che rendono difficile separare i risultati inutili da quelli utili.

Ripeto il mio consiglio.

Tu che ne hai le capacità dovresti concentrarti sul condensare...

Risultati colpi numeri... astraendoti dal "gioca" materialmente inteso

claudio8 · 4 Settembre 2014

SI, Verificato proprio ieri, se si va oltre 255colpi , lo script di blocca su "Gioca"

LuigiB · 4 Settembre 2014

si è esattamente cosi , e avviso che non verrà modificato questo comportamento , d'altra parte come dice Joe , gioca serve per giocare una previsone non per fare statistiche o essere usata in modo improprio.
un saluto

claudio8 · 4 Settembre 2014

LuigiB ha scritto:
si è esattamente cosi , e avviso che non verrà modificato questo comportamento , d'altra parte come dice Joe , gioca serve per giocare una previsone non per fare statistiche o essere usata in modo improprio.
un saluto

E' giusto che ci sia un limite alle "spese folli"

Joe91 · 4 Settembre 2014

Vorrei aiutare Tom e Claudio.

"Nonostante" l' intervento di Luigi.

Se ... Gioca (Es) per 8900 Colpi non è accettata ... meglio si protrebbe fare, da montagnini di pianura, quali siamo, "a colpi" di accetta!

Sapendo che 1 x 8900 = 8900 x 1 potremo scrivere

For Es = 1 to 8900 : Gioca (Es) (per 1 colpo) : Next

Ma questo crea un elenco lunghissimo di risultati inutili ... come ho scritto.

Quindi supponiamo di cercare un Ambo in tutto l'archivio (Ovvero il solito noto 17.56 a Bari)

Lo script è "sbagliato" nella sua logica perchè "pretende" di cercare un dato statistico con l'istruzione "Gioca" ... che serve ad altro:

Codice:

Sub Main
Dim Nu(2),Ru(1),Po(2)
Nu(1) = 17 : Nu(2) = 56 : Ru(1) = BA_ : Po(2) = 1 : Co = 1: So = 2
For Es = 1 To EstrazioneFin : Messaggio Es
	ImpostaGiocata 1,Nu,Ru,Po,Co,So
	Gioca Es,True
Next
ScriviResoconto
End Sub

E' Sbagliato prchè richiede maggior codice (e quindi più possibilità di commetere errori in esso)

E' sbagliato perchè impegna il PC (spreca energia elettica, il nostro tempo ... surriscalda il microprocessore inutilmente)

per ottenere una marea di dati pressochè unutili.

Eppoi forse ancora sbagliato perchè anche così facendo si rischia di ingolfare la memoria del PC.

Se non si ha "memoria" a sufficienza (leggi anche costi economici) per generare una paginata di risultati così "corposa".

Mentre uno script ...

Codice:

Sub Main
A = 17 : B = 56 : R = BA_
For Es = 1 To EstrazioneFin : Messaggio Es
If(Posizione(Es,R,A)> 0 )  And (Posizione(Es,R,B)> 0) Then 
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) 
Mem = Es
End If
Next
Scrivi "Ritarda di " & EstrazioneFin - Mem & " Estrazioni." 
End Sub

Parrebbe più snello ed agile, quindi piu adatto ad avere i pochi dati "importanti" di cui abbiamo bisogno.

lotto_tom75 · 4 Settembre 2014

claudio8 ha scritto:
E' giusto che ci sia un limite alle "spese folli"

D'accordo luigib se così hai deciso... così va bene

Per quanto riguarda le spese folli... l'aumentare i colpi dello script fino ad oltre 300 non era ovviamente in merito ad un eventuale piano di gioco (ci mancherebbe!) . Per me folli sono già i tentativi che vanno oltre il 3° colpo pensa te...

Era solo per automatizzare un certo tipo di verifica che avrebbe portato forse... a convogliare in pochissimi (eventuali, teorici) colpi utili (max 3 appunto) sorti interessanti... Cercherò un'altra strada... Ciao e Grazie comunque a tutti per le velocissime risposte!

Ps: GRAZIE JOE91 lo provo subitooo!

x Joe : provato ma non ho capito un'h di cosa faccia e come possa utilizzarlo... ai fini della mia ricerca...

comunque è davvero iper-rapido! Complimenti!

Joe91 · 4 Settembre 2014

Ciao Tom ...

era ed è un esempio specifico per l' Ambo 17.56 a Bari.

Cambiando numeri e/o ruota cambiano le estrazioni di caduta ... cambia tutto. Diventa universale.

Però, quando sai o hai deciso quali sono ... i numeri, la ruota, e sai qual'è l' Es_trazione, in cui sono caduti,

se non ti fidi della Statistica ... da buon lottologo ci metti su:

Imposta Giocata, Nu_meri, Ru_ota, e la Po_sta ed eseguendo ... Gioca all'Estrazione Es,

... vedrai che, lo script sbagliato, per la ricerca statistica,

diventa, un ottimo metodo, per dare risultato ... al primo colpo. (Come per magia!)

N'est-ce pas?

Codice:

Sub Main
	Dim Nu(2),Ru(1),Po(2)
	Nu(1) = 17 : Nu(2) = 56 : Ru(1) = BA_ : Po(2) = 1 : Co = 1: So = 2
	For Es = 1 To EstrazioneFin : Messaggio Es
		If Es = 752 Or Es = 823 Or Es = 2356 Or Es = 2742 Then
			ImpostaGiocata 1,Nu,Ru,Po,Co,So
			Gioca Es,True
		End If
	Next
	ScriviResoconto
End Sub

Mike58 · 4 Settembre 2014

Ciao a tutti, ma usando la funzione verifica esito si bypassano tutti i limiti sia di impostaGiocata = 10 (Numeri) , che di Gioca max 255.
Poi con oppurtuni calcoli si può stabilirne la resa giocata.

P.s. per Luigi il codice VINCITA è ancora invertito rispetto alla guida Help.

Codice:

Sub Main
	Dim nu(90),ru(1)
	sorte = CInt(InputBox("QUALE SORTE",,2))
	ScegliNumeri(nu)
	kk = UBound(nu)
	ru(1) = 1
	Ini = EstrazioneIni
	fin = EstrazioneFin
	For es = Ini To fin
		Call VerificaEsitoTurbo(nu,ru,es + 1,sorte,1,,esito,colpi,estratti,id)
		If esito <> "" Then
			k = k + 1
			Scrivi "Casi... " & FormatSpace(k,5) & "  ",1,0
			Scrivi GetInfoEstrazione(es) & "  ",0,0
			Scrivi estratti & "  ",0,0
			Scrivi "Ritardo cronologico...." & fin - es
			
		End If
	Next
	vv = Vincita(sorte,kk) * k ' codice invertito rispetto alla indicazione guida
	Scrivi
	Scrivi "Sorte Minima di esito " & NomeSorte(sorte),1
	Scrivi StringaNumeri(nu),1
	Scrivi "Numeri scelti Quantità..." & kk
	Scrivi "Vincita Totale..........." & vv,1
	Scrivi "Spesa totale............." & (fin-Ini) * 1
End Sub

Joe91 · 4 Settembre 2014

Ringrazio e saluto Mike.

Per lo script che permette di eseguire ancora più comodamente la ricerca statistica

senza utilizzare "Gioca" peraltro in modo altrettanto veloce ed ancora più versatile.

Approfitto anch'io ... per una piccola segnalazione ed un saluto a Luigi.

"Tutte" in alcuni posti è "TU" in altri "TT" ... essendomi note, le mie smemoratezze ...

non mi becco mai ... a scriverlo nella "forma" prevista.

Si potrebbe unificarlo in "Tu_" & "Tu" ?

Grazie.

Joe91 · 4 Settembre 2014

Per prova ... ho fuso gli script in uno solo "Ricerca" + "Gioca"

Codice:

Sub Main
	Dim Nu(2),Ru(1),Po(2)
	Nu(1) = 17 : Nu(2) = 56 : Ru(1) = BA_ : Po(2) = 1 : Co = 1: So = 2
	For Es = 1 To EstrazioneFin : Messaggio Es
		If Posizione (Es,Ru(1),Nu(1)) > 0 And Posizione (Es,Ru(1),Nu(2)) > 0 Then 
			ImpostaGiocata 1,Nu,Ru,Po,Co,So
			Gioca Es-1,True
		End If
	Next
	ScriviResoconto
End Sub

lotto_tom75 · 5 Settembre 2014

Joe91 ha scritto:

Per prova ... ho fuso gli script in uno solo "Ricerca" + "Gioca"

Codice:

Sub Main
	Dim Nu(2),Ru(1),Po(2)
	Nu(1) = 17 : Nu(2) = 56 : Ru(1) = BA_ : Po(2) = 1 : Co = 1: So = 2
	For Es = 1 To EstrazioneFin : Messaggio Es
		If Posizione (Es,Ru(1),Nu(1)) > 0 And Posizione (Es,Ru(1),Nu(2)) > 0 Then 
			ImpostaGiocata 1,Nu,Ru,Po,Co,So
			Gioca Es-1,True
		End If
	Next
	ScriviResoconto
End Sub

Un grazie a tutti per gli interventi! Siete spettacolari!

Ciao grandissimo joe91!
Avrei scelto la tua "quinta essenza di sintesi funzionale ai massimi livelli" per cercare di implementarla in questo script:

Codice:

Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim Analisi
Dim ColpiDiGioco
Dim n(2)
Dim am(4)
posta(1) = 1
poste(2) = 1
Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"255"))
Inizio = EstrazioneFin - Analisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruote(1) = 1
ruote(2) = 1
a = Estratto(idEstr,1,1)
b = Estratto(idEstr,2,1)
c = Differenza(a,b)
n(1) = c
n(2) = Vert(n(1))
am(1) = n(1)
am(2) = n(2)
am(3) = Fuori90(a + b)
am(4) = Vert(am(3))
co = co + 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " ** " & " Previsione :  Ambate " & n(1) & " - " & n(2) & "  ***  X Ambo " & am(3) & " - " & am(4),1
Scrivi String(110,"°"),1
ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2
Gioca idEstr,1,,1
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto

'prova implementazione by joe91 per bypassare colpi digioco limite a 255

'Sub Main
'	Dim Nu(2),Ru(1),Po(2)
'	Nu(1) = 17 : Nu(2) = 56 : Ru(1) = BA_ : Po(2) = 1 : Co = 1: So = 2
'	For Es = 1 To EstrazioneFin : Messaggio Es
'		If Posizione (Es,Ru(1),Nu(1)) > 0 And Posizione (Es,Ru(1),Nu(2)) > 0 Then 
'			ImpostaGiocata 1,Nu,Ru,Po,Co,So
'			Gioca Es-1,True
'		End If
'	Next
'	ScriviResoconto
'End Sub

'--------------------------


End Sub

Per adesso l'ho messa buona buona "commentata" in fondo... perchè provando a "innestarla..." per bypassare... il limite dei 255 colpi (rigorosamente teorici e solo per verifica automatica è bene ribardirlo

) , ovviamente non mi funzia... più nemmeno lo script...

Proveresti a inserirla tu la tua fantastica ultima ennesima creaturina di bit?

Grazie infinite Ermeticissimo e talvolta troppo sibillino... Genio

Joe91 · 5 Settembre 2014

Ciao Tom,

Vedo che avevi predisposto lo script per il solo Ambo ... ma è in quartina.

Sicchè non ascoltando il mio consiglio ... (ovvero di seguire cosa t'aveva scritto Mike)

mi ritrovo a dover trovare altra soluzione per accontentarti. Questa:

Codice:

Option Explicit
Sub Main()
	Dim idEstr
	Dim Inizio
	Dim Fine
	Dim ruote(2)
	Dim posta(1)
	Dim poste(2)
	Dim Analisi
	Dim ColpiDiGioco
	Dim n(2)
	Dim am(4)
	Dim Co,a,b,c
	Dim SP,Tmp,GR,P,Q
	posta(1) = 1
	poste(2) = 1
	Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000")-1)
	'ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"255"))
	Inizio = EstrazioneFin - Analisi
	Fine = EstrazioneFin
	Co = 0
	For idEstr = Inizio To Fine
		Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		ruote(1) = 1
		ruote(2) = 1
		a = Estratto(idEstr,1,1)
		b = Estratto(idEstr,2,1)
		c = Differenza(a,b)
		n(1) = c
		n(2) = Vert(n(1))
		am(1) = n(1)
		am(2) = n(2)
		am(3) = Fuori90(a + b)
		am(4) = Vert(am(3))
		Co = Co + 1
		Scrivi String(110,"°") & " Caso n°" & Co,1
		Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(1) & " - ",1,0
		Scrivi StringaEstratti(idEstr,1) & " ** " & " Previsione :  Ambate " & n(1) & " - " & n(2) & "  ***  X Ambo " & am(3) & " - " & am(4),1	
		'prova implementazione by joe91 per bypassare colpi digioco limite a 255
		'Scrivi String(110,"°"),1
		SP = SeriePrima(idEstr + 1,Fine,am,ruote,2)
		If SP > 0 Then
			ColoreTesto 2 : Scrivi FormatSpace(SP - idEstr,4,1) & "° Colpo ",1,0 : ColoreTesto 0
			Scrivi DataEstrazione(SP) & " ",0,0 : ColoreTesto 2 : Scrivi SiglaRuota(ruote(1)) & " ",1,0 : ColoreTesto 0
			For P = 1 To 5 : Tmp = Estratto(SP,ruote(1),P)
				For Q = 1 To 4 : If am(Q) = Tmp Then ColoreTesto 2 : GR = 1 
				Next
				Scrivi Format2(Tmp),GR,0 : ColoreTesto 0 : GR = 0
				If P < 5 Then Scrivi ".",0,0 Else Scrivi
			Next
			'ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2
			'Gioca SP - 1,1,,1
		Else
			ColoreTesto 1 : Scrivi "IN CORSO (rit " & Fine - idEstr & ")",1 : ColoreTesto 0
		End If
	Next
	Scrivi
	Scrivi String(100,"*")
	ColoreTesto 2
	Scrivi" casi trovati : " & Co,1
	ColoreTesto 0
	Scrivi String(100," * ")
	'ScriviResoconto
End Sub

Buona Serata.

claudio8 · 5 Settembre 2014

Scusate se intervengo, ma a volte sembra alta anche l'acqua di un bicchiere.

"ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2" ............ ha un limite di 255 colpi..... bene
chi e cosa ci vieta di riproporre la stessa giocata partendo dal limite che ci da Spaziometria?
"ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2,ColpiDiGioco ..... inserendo anche il parametro di "Attesa" ....
i colpi di gioco di quest'ultima partono da dopo i 255 di attesa,
... questo per quanto riguarda Impostagiocata.
Gioca idEstr,1,,1 opera tranquillamente facendo x 2 volte la stssa giocata e nel caso non vi è esito x la prima, chi legge l'output sappia che al secondo esito deve aggiungere i 255 colpi della Giocata 1.
Con questo trucchetto si elude il limite di 255 e lo si porta a 510 (le giocare possono esere anche + di 2 attualmente in esempio).

Attenzione, il comano ScriviResoconto in questo caso non da quantificazioni esatte perchè somma tutte le giocate.

Nel caso si voglia anche rendere utilizzabile il comando ScriviResoconto... pensiamoci su......il bicchiere è sempre lo stesso....... e l'acqua pure.

Ciao

Codice:

Sub Main
	Dim idEstr
	Dim Inizio
	Dim Fine
	Dim ruote(2)
	Dim posta(1)
	Dim poste(2)
	Dim Analisi
	Dim ColpiDiGioco
	Dim n(2)
	Dim am(4)
	posta(1) = 1
	poste(2) = 1
	Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
	ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"255"))
	
	Inizio = EstrazioneFin - Analisi
	Fine = EstrazioneFin
	co = 0
	For idEstr = Inizio To Fine
		Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		ruote(1) = 1
		ruote(2) = 1
		a = Estratto(idEstr,1,1)
		b = Estratto(idEstr,2,1)
		c = Differenza(a,b)
		n(1) = c
		n(2) = Vert(n(1))
		am(1) = n(1)
		am(2) = n(2)
		am(3) = Fuori90(a + b)
		am(4) = Vert(am(3))
		co = co + 1
                Scrivi
		Scrivi String(110,"°") & " Caso n°" & co,1
		Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " ** " & " Previsione :  Ambate " & n(1) & " - " & n(2) & "  ***  X Ambo " & am(3) & " - " & am(4),1
		Scrivi String(70,"-") & " sommare " & ColpiDiGioco  & " in caso di non esito alla 1a giocata",1
		ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2
		ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2,ColpiDiGioco
		Gioca idEstr,1,,1
	Next
	Scrivi
	Scrivi String(100,"*")
	ColoreTesto 2
	Scrivi" casi trovati : " & co,1
	ColoreTesto 0
	Scrivi String(100," * ")
	'ScriviResoconto

End Sub

Joe91 · 5 Settembre 2014

Claudio scusa ma ... nel mio script....

Gioca ė chiusa perché lo script va molto oltre reendo inutile questa giocata.

Ma volendo funziona.

Quello che non ho fatto ė il calcolo del rendimento...

ma per un ambo in quartina in 250 colpi

non mi sembra il caso sia necessario lo script

lotto_tom75 · 5 Settembre 2014

Purtroppo a me serviva l'implementazione dei vostri sistemi di bypassare il limite di 255 colpi di gioco all'interno dello script che vi ho indicato. L'obiettivo sarebbe stato di cercare, allungando il brodo..., una percentuale "teorica" di resoconto che superasse l'attuale massima riscontrata del 89%. Le due ultime soluzioni che avete postato le ammiro ma non riesco a "piegarle..." ai miei attuali bisogni...

Grazie comunque amici e complimenti per le vostre conoscenze applicate sempre con grandissima classe!

claudio8 · 5 Settembre 2014

Joe, la richiesta di Lotto_Tom era questa:

Vi risulta che c'è un limite nel numero di colpi di gioco implementati nel programma?

In particolare... in un mio scriptillo avrei bisogno di estendere i colpi di gioco oltre i 300 (ovviamente non per giocarli ma solo per automatizzare una certa verifica...) , ma non appena supero il valore colpidigioco = 255........

Non metto in dubbio il fatto che tu abbia imlpementato il costrutto per trovare una soluzione alternativa, ma come avrai letto, Tom non ti segue ancora.

X Lotto_tom, nel caso vuoi anche il "Resoconto" sostituisci "ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2" con "ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2,,2”.

Se guardi nell’Help è tutto specificato. Il parametro aGiocateDaInterrompere esclude dal calcolo del rendiconto la (2) seconda giocata nel caso di esito positivo della prima.

Povero chi ha scritto tutto L'HELP, lasciato li a prendere polvere.......

Spero di essere stato chiaro e conciso.

claudio8 · 5 Settembre 2014

HTML:

lotto_tom75 ha scritto:
Purtroppo a me serviva l'implementazione dei vostri sistemi di bypassare il limite di 255 colpi di gioco all'interno dello script che vi ho indicato. L'obiettivo sarebbe stato di cercare, allungando il brodo..., una percentuale "teorica" di resoconto che superasse l'attuale massima riscontrata del 89%. Le due ultime soluzioni che avete postato le ammiro ma non riesco a "piegarle..." ai miei attuali bisogni... Grazie comunque amici e complimenti per le vostre conoscenze applicate sempre con grandissima classe!

Penso di averti già risposto prima, ma visto che vuoi anche lo script con il Rendiconto, te lo posto.

Codice:

Sub Main
	Dim idEstr
	Dim Inizio
	Dim Fine
	Dim ruote(2)
	Dim posta(1)
	Dim poste(2)
	Dim Analisi
	Dim ColpiDiGioco
	Dim n(2)
	Dim am(4)
	posta(1) = 1
	poste(2) = 1
	Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
	ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"255"))
	
	Inizio = EstrazioneFin - Analisi
	Fine = EstrazioneFin
	co = 0
	For idEstr = Inizio To Fine
		Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		ruote(1) = 1
		ruote(2) = 1
		a = Estratto(idEstr,1,1)
		b = Estratto(idEstr,2,1)
		c = Differenza(a,b)
		n(1) = c
		n(2) = Vert(n(1))
		am(1) = n(1)
		am(2) = n(2)
		am(3) = Fuori90(a + b)
		am(4) = Vert(am(3))
		co = co + 1
		Scrivi String(110,"°") & " Caso n°" & co,1
		Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " ** " & " Previsione :  Ambate " & n(1) & " - " & n(2) & "  ***  X Ambo " & am(3) & " - " & am(4),1
		Scrivi String(70,"-") & " sommare " & ColpiDiGioco & " in caso di non esito alla 1a giocata",1
		ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2,,2
		ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2,ColpiDiGioco
		Gioca idEstr,1,,1
	Next
	Scrivi
	Scrivi String(100,"*")
	ColoreTesto 2
	Scrivi" casi trovati : " & co,1
	ColoreTesto 0
	Scrivi String(100," * ")
	ScriviResoconto

End Sub

ammi saper se va bene x i tuoi bisognini

lotto_tom75 · 5 Settembre 2014

claudio8 ha scritto:
Joe, la richiesta di Lotto_Tom era questa:

Vi risulta che c'è un limite nel numero di colpi di gioco implementati nel programma?

In particolare... in un mio scriptillo avrei bisogno di estendere i colpi di gioco oltre i 300 (ovviamente non per giocarli ma solo per automatizzare una certa verifica...) , ma non appena supero il valore colpidigioco = 255........

Non metto in dubbio il fatto che tu abbia imlpementato il costrutto per trovare una soluzione alternativa, ma come avrai letto, Tom non ti segue ancora.

X Lotto_tom, nel caso vuoi anche il "Resoconto" sostituisci "ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2" con "ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2,,2”.

Se guardi nell’Help è tutto specificato. Il parametro aGiocateDaInterrompere esclude dal calcolo del rendiconto la (2) seconda giocata nel caso di esito positivo della prima.

Povero chi ha scritto tutto L'HELP, lasciato li a prendere polvere.......

Spero di essere stato chiaro e conciso.

Ciao claudio, GRAZIE 1000 però ancora non ho ben chiaro la cosa...

1) Innanzi tutto dove è l'HELP che provo a leggermelo?

2) Mi spiegheresti elemento per elemento cosa significa questa tua modifica?

ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2,,2

Grazie 1000 comunque

lotto_tom75 · 5 Settembre 2014

claudio8 ha scritto:

HTML:

Penso di averti già risposto prima, ma visto che vuoi anche lo script con il Rendiconto, te lo posto.

Codice:

Sub Main
	Dim idEstr
	Dim Inizio
	Dim Fine
	Dim ruote(2)
	Dim posta(1)
	Dim poste(2)
	Dim Analisi
	Dim ColpiDiGioco
	Dim n(2)
	Dim am(4)
	posta(1) = 1
	poste(2) = 1
	Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
	ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"255"))
	
	Inizio = EstrazioneFin - Analisi
	Fine = EstrazioneFin
	co = 0
	For idEstr = Inizio To Fine
		Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		ruote(1) = 1
		ruote(2) = 1
		a = Estratto(idEstr,1,1)
		b = Estratto(idEstr,2,1)
		c = Differenza(a,b)
		n(1) = c
		n(2) = Vert(n(1))
		am(1) = n(1)
		am(2) = n(2)
		am(3) = Fuori90(a + b)
		am(4) = Vert(am(3))
		co = co + 1
		Scrivi String(110,"°") & " Caso n°" & co,1
		Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " ** " & " Previsione :  Ambate " & n(1) & " - " & n(2) & "  ***  X Ambo " & am(3) & " - " & am(4),1
		Scrivi String(70,"-") & " sommare " & ColpiDiGioco & " in caso di non esito alla 1a giocata",1
		ImpostaGiocata 1,am,ruote,poste,ColpiDiGioco,2,,2
		ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2,ColpiDiGioco
		Gioca idEstr,1,,1
	Next
	Scrivi
	Scrivi String(100,"*")
	ColoreTesto 2
	Scrivi" casi trovati : " & co,1
	ColoreTesto 0
	Scrivi String(100," * ")
	ScriviResoconto

End Sub

ammi saper se va bene x i tuoi bisognini

Grazie ancora ma purtroppo sono ancora in alto mare per quanto riguarda quello che avevo in mente

In sostanza anche con l'ultima soluzione i colpi massimi sembrerebbero restare 255... almeno nel

resoconto...

Infatti nell'ultima riga del resoconto leggo ancora : In corso per altre 255 estrazioni

mentre dovrei visualizzare per intenderci... (ad es.) In corso per altre 350 estrazioni nell'ultima

riga dello stesso...

Comunque fa nulla

a quanto pare questo blocco di 255 colpi non bisogna sorpassarlo nemmeno in via

del tutto teorica...

Ciao

Vi risulta che c'è un limite nel numero di colpi di gioco implementati nel programma?

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

LuigiB

Guest

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member