Se possibile..... script

[desperaux]

Buona sera

chiedo gentilmente a chiunque voglia aiutarmi :

Lo script deve cercare su una ruota a scelta dell'utente , tre numeri appartenenti alla stessa decina naturale ( 1-10) (11-20) ecc che abbiano 0 (zero) sortite nelle ultime 18 estraz e dirmi dopo quante estraz si verifica lo sfaldamento di uno dei 3 numeri,quindi fornirmi una statistica di tutti i casi ( a tal proposito anche la scelta del numero delle estraz deve poter essere inserita nell'input)

spero in un Vs aiuto

grazie

 

[rabberto]

Ciao desperaux sicuramente io sono quello meno indicato per aiutarti sto cercando di imparare con le guide fatte su forum , ho solo iniziato a fare lo script ma come ti dicevo sono ancora all'inizio con la programmazione , ti metto le righe che ho fatto con la speranza che i senatori passino di qua e ci spieghino come fare , mi spiace di non poter fare altro , ciao.

Option Explicit
Sub Main
Dim dn0 , dn1 , dn2 , dn3 , dn4 ,dn5 ,dn6 , dn7 , dn8 'dichiaro le decine naturali da 0 a 8
Dim ruote(10)' dichiaro le ruote
es = InputBox("Quante estrazioni vuoi controllare :")'estrazioni di controllo
r = InputBox("su quale ruota ?",,1) ' ruota a scelta

Ini = EstrazioneFin - es 'questo per le estrazioni
fin = EstrazioneFin
For es = Ini To fin

r = 1 To 10 ' questo per le ruote

dn0 = 01-02-03-04-05-06-07-08-09-10 ' queste sono tutte le decine naturali che ci serviranno dopo per i calcoli
dn1 = 11-12-13-14-15-16-17-18-19-20
dn2 = 21-22-23-24-25-26-27-28-29-30
dn3 = 31-32-33-34-35-36-37-38-39-40
dn4 = 41-42-43-44-45-46-47-48-49-50
dn5 = 51-52-53-54-55-56-57-58-59-60
dn6 = 61-62-63-64-65-66-67-68-69-70
dn7 = 71-72-73-74-75-76-77-78-79-80
dn8 = 81-82-83-84-85-86-87-88-89-90

'adesso abbiamo bisogno dei cicli for .....dove mi sono bloccato ?

'zero sortite nelle ultime 18 estrazioni ---------> questo non lo so fare

'e dirmi dopo quante estrazioni si verifica lo sfaldamento di uno dei 3 numeri---------> questo nemmeno

'quindi fornirmi una statistica di tutti i casi ---------> questo nemmeno

'a tal proposito anche la scelta del numero delle estraz deve poter essere inserita nell'input----->questo c'e'
End Sub

 

[LuigiB]

allora il probema non sta nella difficolta del linguaggio , prima però voglio complimentarmi per la buona volnta di rabberto che seppur in alto mare almeno ci prova !
Dicevo il problema non sta nella difficolta del linguaggio ma nel fatto che il metodo per risolvere il problema non è chiaro gia alla base.
Come ho detto nelle prime lezioni lo script automatizza ciò che noi gia sappiamo fare a mano se non abbiamo gia le idee chiare per farlo a mano fare lo script è impossibile nel vero senso della parola..
Questa volta non forniro la solita pappa pronta ma solo indicazioni e spero di condurvi al ragionamento giusto.
Prima di tutto è necessario scrivere i passaggi che si farebbero a mano uno appresso all'altro tanto per farsi un 'idea di coem si debba procedere e di quali siano i problemi da affrontare.
Benissimo .. quindi prima cosa elenco dettagliato dei passi da compiere per risolvere il problema a mano , questi passi vanno scritti in italiano e devono rappresentare la sequenza di istruzioni che chiunque leggendole ed applicandole fosse in grado di raggiungere lo scopo prefissato.
Solo dopo si parlerà di script.

 

[desperaux]

Buonasera

Cerchero' allora di essere piu' chiaro

Grazie intanto a entrambi

Ruota : a scelta dall'utente

Numero di estraz da esaminare: idem

Ricerca: 3 num della stessa decina naturale che in 18 estraz hanno ZERO PRESENZE

Risultato: fornirci l'esito del 3x1 nelle 6-9 estraz successive

Riassumendo. Ogni qualvolta su una ruota a scelta rintracciamo 3 num della stessa dec naturale che hanno zero presenze nelle ultime 18 estraz, devo sapere che esito di estratto c'e' stato
fra questi 3 num.

In sostanza penso che si sfrutterebbe la legge del terzo anche se in realta' i num sono dieci .
Secondo me qualora si presenti tale condizione nelle prox 6 estraz ,"Dovrebbe avvenire lo sfaldamento di uno dei 3"

Chiedo scusa a LuigiB ma meglio non so fare e di script nemmeno.
Quindi se possibile ok altrimenti grazie lo stesso

Buona serata

 

[LuigiB]

alt .. a me per dirla sinceramente non mi interessa un fico secco .. non è un problema di chiarezza .. la chiarezza serve a chi si mette a fare lo script , prima si scrivono i passi poi si traducono in codice ..
e poi attenzione , non si deve fare la discrizione del risultatol .. ma dei passi per ottenerlo ..

esempio : un conto è dire ti do 5 numeri che dovranno formare 10 ambi , un altro è dire
combino il primo col secondo
il primo col terzo
il primo col quarto
il primo col quinto
il secondo col terzo

e cosi via ....


a voi serve in questo secondo modo perche poi dovrà essere tradotto in linguaggio ..

ciao

 

[Mike58]

Ciao Desperaux, Rabberto, ho corretto al volo uno script già compilato per altre verifiche e adattato alla richiesta di Desperaux(+o-).
Giusto per dare anche una guida a Domenico Rabberto, per una procedura scriptica da impostare e seguire, come dice Luigi se si legge lo script passo dopo passo si capisce il ragionamento seguito.

Poi resta inteso che ci sono vari procedimenti per arrivare alla meta, ma è pursempre la logica a scalare che porta al risultato finale.

Ciao e spero che lo script sia di aiuto all'amico desperaux.

P.s. purtroppo c'è poco tempo per tutti in questo periodo di ferie e anche per me di seguire assiduamente il forum e quindi tante volte alle richieste non vengono date risposte immediate.

Sub Main()
	Dim rt(1),pt(2),am(10)
	estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
	clex = CInt(InputBox("Quante estrazioni a ritroso cerco le frequenze",,9))
	ini = EstrazioneFin - estr
	fin = EstrazioneFin
	ca = fin - Ini
	Scrivi String(110,"="),1
	Scrivi"Ricerca terno in Decina con frequenza zero in tot estraz. ",1,0,3
	Scrivi" Analisi su n° " & ca & " estrazioni ",1,0,2
	Scrivi" Listed by Mike58 ",1,- 1,6
	Scrivi String(110,"="),1
	For es = ini To fin
		Messaggio "Elaborazioni estrazioni.... " & es
		AvanzamentoElab Ini,fin,es
		For r = 1 To 12
			If r = 11 Then r = 12
			For p1 = 1 To 3
				For p2 = p1 + 1 To 4
					For p3 = p1 + 1 To 5
						a = Estratto(es,r,p1)
						b = Estratto(es,r,p2)
						c = Estratto(es,r,p3)
						If Decina(a) = Decina(b) Then
							If Decina(a) = Decina(c) Then
								If a <> b And a <> c And b <> c Then
									rt(1) = r
									pt(1) = 3
									pt(2) = 1
									k = 9 ' colpi
									am(1) = a
									am(2) = b
									am(3) = c
									'---------------------------------
									If SerieFreq(es - clex,es,am,rt,1) = 3 Then 
										Call StatisticaFormazione(am,rt,1,ritardo,ritardomax,Incrritmax,frequenza,es - clex,es)
										ImpostaGiocata 1,am,rt,pt,k
										co = co + 1
										Scrivi String(100,"=") & " Caso n° " & co,1
										ColoreTesto 7
										Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " [ " & StringaEstratti(es,r) & " ] Terno in decina ",0,0
										Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c),0,0
										Scrivi "    - Gioca i rimanenti della decina   ",1
										ColoreTesto 0
										Scrivi String(110,"="),1
										ColoreTesto 1
										Scrivi "Dati analitici della combinazione in gioco x Estratto ---> " & "Ritardo : " & Ritardo & " - Ritardo max : " & ritardomax & " - Frequenza : " & Frequenza
										ColoreTesto 0
										Scrivi String(110,"-")
										Scrivi
										Gioca es
									End If
								End If
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
	elencogiocate

End Sub
Function elencogiocate
	ReDim aT(8)
	aT(1) = "NumGiocata"
	aT(2) = "Colpo"
	aT(3) = "Spesa"
	aT(4) = "SpesaParz"
	aT(5) = "Vincita"
	aT(6) = "VincitaParz"
	aT(7) = " Utile totale "
	aT(8) = " Utile Parz "
	Call InitTabella(aT,1,,3,5)
	For k = 1 To GetQuantitaGiocateEffettuate
		If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
			aT(1) = k
			aT(2) = RetColpo
			aT(3) = RetSpesa
			aT(4) = RetSpesaParz
			aT(5) = RetVincita
			aT(6) = RetVincitaParz
			aT(7) = Round(aT(5) - aT(3),2)
			aT(8) = Round(aT(6) - aT(4),2)
			
			Call AddRigaTabella(aT,,,3)
			If retcolpo > 0 Then Call SetColoreCella(2,3,0)
			If aT(7) > 0 Then Call SetColoreCella(7,4,2)
			If aT(7) < 0 Then Call SetColoreCella(7,2,4)
			If aT(8) > 0 Then Call SetColoreCella(8,4,2)
			If aT(8) < 0 Then Call SetColoreCella(8,2,4)
		End If
	Next
	
	Call CreaTabella
	End Function

 

[LuigiB]

cio Mike , dici bene , il ragionamento è alla base di tutto .. faccio un esempio prendendo spunto da questa frase scritta da Despardeux

zero sortite nelle ultime 18 estrazioni ---------> questo non lo so fare

allora come si risolve col ragionamento questo problema ? Semplice
cosa sono le ultime 18 estrazioni ? Sono le 18 estrazioni precedenti a quella in cui mi trovo attualmente
come si fa scorrere queste 18 estrazioni ? Con un ciclo , come si fa a sapere che ci sono 0 sortite ?
Dentro al ciclo incremento una variabile che conteggia le sortite se al termine del ciclo la variabile vale 0 ci siamo ..

ecco da qui piano piano si sviluppa il codice ..ed è qesto il procedimento da seguire quando uno vuole fare un listato
ciao

 

[Mike58]

Ciao Luigi, capisco il tutto ed anche io che spesso mi cimeto a fare script richiesti trovo grosse difficoltà a capire quello che si vorrebbe ottenere e lasciamo stare a come lo si vuole ottenere.
I miei interventi vogliono essere uno stimolo a far crescere altre persone ad avvicinarsi al vbscript perchè non c'è migliore cosa che dar da se le statistiche e test metodi voluti.
TU e rimarco TU ci stai con molta pazienza insegnando ad approcciarci a questa materia e l'utimo sforzo che hai fatto deve produrre RISULTATO, altrimenti lasciamo stare il tutto perchè la PAPPA pronta prima o poi finisce.

P.s. la frase in questione è stata scritta da Domenico Rabberto

Spero che qualcun altro si sforzi ad abbozzare qualche script, il baffoBLU veniva dal nulla ed in poche lezioni ha imparato quindi non è impossibile.

Ciao e scusate anche il mio sfogo.

 

[LuigiB]

certo infatti fai bene quell oche io voglio sottolineare pero è che i principinati non devono andare alal rinfusa ma devono
prima stabilire una serie di passaggi logici che devono essere ben chiari almeno a mente preima di fare lo script ..
senno lo script come minimio non farà quello che ci si aspetta oltre a venire una cosa tutta disordinata ...

 

[stefania1972]

Ciao ragazzi scusate se mi intrometto volevo dirvi che sto cercando di capire lo script , lo leggo e rileggo ma ci sono dei passaggi non chiari e difficile capire quando non si sanno alcune cose , comunque grazie per le vostre lezioni sempre ben accette vorra' dire che devo studiare di piu' , grazie ancora , ciao.



Ps: Luigi per favore non ti arrabbiare stai facendo tanto per noi , cerca di capire le difficolta' che stanno affrontando quelli che si cimentano nella programmazione partendo da zero , dacci un poi di tempo poi il professore puo' bacchettare tutti gli alunni che non hanno studiato , sei una persona stupenda e ti ammiro tanto , ciao.

 

[desperaux]

Ciao LuigiB,Mike58 e tutti gli altri amici

Forse il tutto e' stato interpretato male ,almeno penso
Io non voglevo un aiuto per cercare di crearlo io lo script ,perche' non ne sono per nulla capace,ma qualcuno bravo a creare cio' che ho scritto.
LuigiB correggimi se sbaglio.altrimenti oltre non so come spiegarlo

Per Stefania: le ultime 18 estrazioni

 

[desperaux]

Ciao LuigiB,Mike58 e tutti gli altri amici

Forse il tutto e' stato interpretato male ,almeno penso
Io non voglevo un aiuto per cercare di crearlo io lo script ,perche' non ne sono per nulla capace,ma qualcuno bravo a creare cio' che ho scritto.
LuigiB correggimi se sbaglio.altrimenti oltre non so come spiegarlo

Per Stefania: le ultime 18 estrazioni

 

[desperaux]

Ciao Desperaux, Rabberto, ho corretto al volo uno script già compilato per altre verifiche e adattato alla richiesta di Desperaux(+o-).
Giusto per dare anche una guida a Domenico Rabberto, per una procedura scriptica da impostare e seguire, come dice Luigi se si legge lo script passo dopo passo si capisce il ragionamento seguito.

Poi resta inteso che ci sono vari procedimenti per arrivare alla meta, ma è pursempre la logica a scalare che porta al risultato finale.

Ciao e spero che lo script sia di aiuto all'amico desperaux.

P.s. purtroppo c'è poco tempo per tutti in questo periodo di ferie e anche per me di seguire assiduamente il forum e quindi tante volte alle richieste non vengono date risposte immediate.

Sub Main()
	Dim rt(1),pt(2),am(10)
	estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
	clex = CInt(InputBox("Quante estrazioni a ritroso cerco le frequenze",,9))
	ini = EstrazioneFin - estr
	fin = EstrazioneFin
	ca = fin - Ini
	Scrivi String(110,"="),1
	Scrivi"Ricerca terno in Decina con frequenza zero in tot estraz. ",1,0,3
	Scrivi" Analisi su n° " & ca & " estrazioni ",1,0,2
	Scrivi" Listed by Mike58 ",1,- 1,6
	Scrivi String(110,"="),1
	For es = ini To fin
		Messaggio "Elaborazioni estrazioni.... " & es
		AvanzamentoElab Ini,fin,es
		For r = 1 To 12
			If r = 11 Then r = 12
			For p1 = 1 To 3
				For p2 = p1 + 1 To 4
					For p3 = p1 + 1 To 5
						a = Estratto(es,r,p1)
						b = Estratto(es,r,p2)
						c = Estratto(es,r,p3)
						If Decina(a) = Decina(b) Then
							If Decina(a) = Decina(c) Then
								If a <> b And a <> c And b <> c Then
									rt(1) = r
									pt(1) = 3
									pt(2) = 1
									k = 9 ' colpi
									am(1) = a
									am(2) = b
									am(3) = c
									'---------------------------------
									If SerieFreq(es - clex,es,am,rt,1) = 3 Then 
										Call StatisticaFormazione(am,rt,1,ritardo,ritardomax,Incrritmax,frequenza,es - clex,es)
										ImpostaGiocata 1,am,rt,pt,k
										co = co + 1
										Scrivi String(100,"=") & " Caso n° " & co,1
										ColoreTesto 7
										Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " [ " & StringaEstratti(es,r) & " ] Terno in decina ",0,0
										Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c),0,0
										Scrivi "    - Gioca i rimanenti della decina   ",1
										ColoreTesto 0
										Scrivi String(110,"="),1
										ColoreTesto 1
										Scrivi "Dati analitici della combinazione in gioco x Estratto ---> " & "Ritardo : " & Ritardo & " - Ritardo max : " & ritardomax & " - Frequenza : " & Frequenza
										ColoreTesto 0
										Scrivi String(110,"-")
										Scrivi
										Gioca es
									End If
								End If
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
	elencogiocate

End Sub
Function elencogiocate
	ReDim aT(8)
	aT(1) = "NumGiocata"
	aT(2) = "Colpo"
	aT(3) = "Spesa"
	aT(4) = "SpesaParz"
	aT(5) = "Vincita"
	aT(6) = "VincitaParz"
	aT(7) = " Utile totale "
	aT(8) = " Utile Parz "
	Call InitTabella(aT,1,,3,5)
	For k = 1 To GetQuantitaGiocateEffettuate
		If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
			aT(1) = k
			aT(2) = RetColpo
			aT(3) = RetSpesa
			aT(4) = RetSpesaParz
			aT(5) = RetVincita
			aT(6) = RetVincitaParz
			aT(7) = Round(aT(5) - aT(3),2)
			aT(8) = Round(aT(6) - aT(4),2)
			
			Call AddRigaTabella(aT,,,3)
			If retcolpo > 0 Then Call SetColoreCella(2,3,0)
			If aT(7) > 0 Then Call SetColoreCella(7,4,2)
			If aT(7) < 0 Then Call SetColoreCella(7,2,4)
			If aT(8) > 0 Then Call SetColoreCella(8,4,2)
			If aT(8) < 0 Then Call SetColoreCella(8,2,4)
		End If
	Next
	
	Call CreaTabella
	End Function

Ciao Mike58

grazie di tutta la pazienza ma non e' giusta la ricerca

Faccio un esempio pratico.

Se alla data dell'ultima estraz risulta supponiamo su Bari che i num 21-44-66 hanno zero sortite, allora vorrei sapere nelle prossime 6 estraz quale dei tre num sono sortiti e se lo sono sortiti
Al massimo possiamo estendere l'esito a max 9 esta

 

[Mike58]

Cioa Desperaux, e buona giornata a tutti ma, pur esseno uno script adattato e forse con una dicitura vecchia rimasta ma l'output ricavato non fa esattamente quello che vuoi ricavare ?

guarda bene la figura.

==================================================================================================== Caso n° 12
11.06.2013 Firenze [ 58.63.69.40.60 ] Terno in decina 63.69.60 - Gioca i rimanenti della decina
==============================================================================================================
Dati analitici della combinazione in gioco x Estratto ---> Ritardo : 0 - Ritardo max : 9 - Frequenza : 3
--------------------------------------------------------------------------------------------------------------

Estrazione generatrice del pronostico 08702 [ 70 - 11/06/2013]
G 0001 Numeri in gioco : 63.69.60 su FI per Estratto,Ambo
V N. [63.69.60 ] [FI] [69 .. .. .. ..] C. 1 Estratto 08703 [ 71 - 13/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 2 08704 [ 72 - 15/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 3 08705 [ 73 - 18/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 4 08706 [ 74 - 20/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 5 08707 [ 75 - 22/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 6 08708 [ 76 - 25/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 7 08709 [ 77 - 27/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 8 08710 [ 78 - 29/06/2013]
N. [63.69.60 ] [FI] [.. .. .. .. ..] C. 9 08711 [ 79 - 02/07/2013]


Interrotta per raggiunta durata

I numeri ricati alla esreazione 11.6.2013 sono 63.69.60 zero presenze su 9 estrazioni a ritroso e rigiocati dalla estrazione successiva ie per 9 colpi hanno prodotto al 1° colpo il solo 69.

 

[desperaux]

Ciao Mike58

allora : in data 11/6/2013 su Firenze i numeri della decina 61-70 con zero presenze erano solo 2 ed esattamente il 62 e 66 quindi previsione non buona.
Poi ho notato che compare il 60 ,ma il 60 non fa parte della decina naturale 61-70,capito
Per decina naturale intendo ad es 1-10= 1-2-3-4-5-6-7-8-9-10

Poi anche considerando la tua 60-69 in data 11-6-2013 andando a ritroso di 18 estraz compresa quella dell'11-6-2013 i num con zero presenze erano sempre 62-66
Non capisco come mai quei dati

 

[Mike58]

Guarda le statistiche non le faccio io,ho solo ricavato i numeri della decinaNaturale e quelli rilevati non sono presenti nelle estrazioni a ritroso volute.
Lo script fa questi calcoli in modo corretto e li mette in gioco per le estrazioni volute.

Poi cotto o crudo scegliete Voi.

Io mi sto abbastanza ROMPENDO di dialogare senza costrutto.(PUNTO)

Corretto script con decine Naturali.

Sub Main()
	Dim rt(1),pt(2),am(10)
	estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
	clex = CInt(InputBox("Quante estrazioni a ritroso cerco le frequenze",,9))
	ini = EstrazioneFin - estr
	fin = EstrazioneFin
	ca = fin - Ini
	Scrivi String(110,"="),1
	Scrivi"Ricerca terno in Decina con frequenza zero in tot estraz. ",1,0,3
	Scrivi" Analisi su n° " & ca & " estrazioni ",1,0,2
	Scrivi" Listed by Mike58 ",1,- 1,6
	Scrivi String(110,"="),1
	For es = ini To fin
		Messaggio "Elaborazioni estrazioni.... " & es
		AvanzamentoElab Ini,fin,es
		For r = 1 To 12
			If r = 11 Then r = 12
			For p1 = 1 To 3
				For p2 = p1 + 1 To 4
					For p3 = p1 + 1 To 5
						a = Estratto(es,r,p1)
						b = Estratto(es,r,p2)
						c = Estratto(es,r,p3)
						If DecinaNaturale(a) = DecinaNaturale(b) Then
							If DecinaNaturale(a) = DecinaNaturale(c) Then
								If a <> b And a <> c And b <> c Then
									rt(1) = r
									pt(1) = 3
									pt(2) = 1
									k = 9 ' colpi
									am(1) = a
									am(2) = b
									am(3) = c
									'---------------------------------
									If SerieFreq(es - clex,es,am,rt,1) = 3 Then 
										Call StatisticaFormazione(am,rt,1,ritardo,ritardomax,Incrritmax,frequenza,es - clex,es)
										ImpostaGiocata 1,am,rt,pt,k
										co = co + 1
										Scrivi String(100,"=") & " Caso n° " & co,1
										ColoreTesto 7
										Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " [ " & StringaEstratti(es,r) & " ] Terno in decina ",0,0
										Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c),0,0
										Scrivi "    - Gioca i rimanenti della decina   ",1
										ColoreTesto 0
										Scrivi String(110,"="),1
										ColoreTesto 1
										Scrivi "Dati analitici della combinazione in gioco x Estratto ---> " & "Ritardo : " & Ritardo & " - Ritardo max : " & ritardomax & " - Frequenza : " & Frequenza
										ColoreTesto 0
										Scrivi String(110,"-")
										Scrivi
										Gioca es
									End If
								End If
							End If
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
	elencogiocate

End Sub
Function elencogiocate
	ReDim aT(8)
	aT(1) = "NumGiocata"
	aT(2) = "Colpo"
	aT(3) = "Spesa"
	aT(4) = "SpesaParz"
	aT(5) = "Vincita"
	aT(6) = "VincitaParz"
	aT(7) = " Utile totale "
	aT(8) = " Utile Parz "
	Call InitTabella(aT,1,,3,5)
	For k = 1 To GetQuantitaGiocateEffettuate
		If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
			aT(1) = k
			aT(2) = RetColpo
			aT(3) = RetSpesa
			aT(4) = RetSpesaParz
			aT(5) = RetVincita
			aT(6) = RetVincitaParz
			aT(7) = Round(aT(5) - aT(3),2)
			aT(8) = Round(aT(6) - aT(4),2)
			
			Call AddRigaTabella(aT,,,3)
			If retcolpo > 0 Then Call SetColoreCella(2,3,0)
			If aT(7) > 0 Then Call SetColoreCella(7,4,2)
			If aT(7) < 0 Then Call SetColoreCella(7,2,4)
			If aT(8) > 0 Then Call SetColoreCella(8,4,2)
			If aT(8) < 0 Then Call SetColoreCella(8,2,4)
		End If
	Next
	
	Call CreaTabella
	End Function

 

[desperaux]

Ciao Mike58

ti chiedo scusa se ti sto annoiando ma i conti non tornano.

Allora lavoriamo su Torino ( dopo averlo fatto girare con Spaziometria)
Mi dice in data 18-6-2013
Numeri rilevati : 1-4-7

Ora facendo partire lo script ,mi chiede :

Quante estraz? ok

Quante estraz a ritroso? 9 x default

Ma questo script deve lavorare sulle 18 estraz a ritroso : quindi dal 18-6-2013 al 8-6-2013

Quindi in questo range di estraz deve verificare se in una o piu' decine naturali su TORINO si presentano 3 num con zero presenze

La 21-30 alla data del 18-6-2013 ha 3 num con zero pres nelle ultime 18 e sono: 21-24-30
Ora dal 18-6-2013 x 6 colpi a seguire uno dei tre num dovrebbe sortire
E' questo che deve fare lo script
Ora piu' chiaro di cosi' non so essere
grazie Mike58

 

[desperaux]

Ciao Mike58

ti chiedo scusa se ti sto annoiando ma i conti non tornano.

Allora lavoriamo su Torino ( dopo averlo fatto girare con Spaziometria)
Mi dice in data 18-6-2013
Numeri rilevati : 1-4-7

Ora facendo partire lo script ,mi chiede :

Quante estraz? ok

Quante estraz a ritroso? 9 x default

Ma questo script deve lavorare sulle 18 estraz a ritroso : quindi dal 18-6-2013 al 8-6-2013

Quindi in questo range di estraz deve verificare se in una o piu' decine naturali su TORINO si presentano 3 num con zero presenze

La 21-30 alla data del 18-6-2013 ha 3 num con zero pres nelle ultime 18 e sono: 21-24-30
Ora dal 18-6-2013 x 6 colpi a seguire uno dei tre num dovrebbe sortire
E' questo che deve fare lo script
Ora piu' chiaro di cosi' non so essere
grazie Mike58

 

[Mike58]

Desperaux, le impostazioni di defaul sono facilmente adattabili alla tue necessita, basta dirgli le estrazioni da esaminare e le estrazioni a ritroso pari entrambi a 18.
Se invece vuoi il range fisso di ricerca era necessario precisarlo prima.

lo script e gli input box servono per adattare il tutto alle proprie necessità.

Purtroppo adesso non ho tempo di capire quello che vuoi vedere ma ti assicuro che già fa quello che vuoi ricavare.

 

[Rosanna]

Cerco di buttare un occhio al forum anche se non riesco a seguirlo come mi piacerebbe... Purtroppo come detto ho problemi... sperem...

Rapidamente.... mi complimento sinceramente con Mike58 sia per quello che fa, sia per come lo fa...e per come si pone... (fisiologiche rotture a parte..)

A livello scriptico a Mike58 segnalo solo... due cosette che ho notato

For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p1 + 1 To 5

For p3 = p2 + 1 To 5

poi questa riga ... If a <> b And a <> c And b <> c Then
essendo estratti nella stessa es la eliminerei anche se non fa danni..

il resto a me sembra corretto anche se l'avrei impostato diversamente, ma il succo non cambia, anzi è interessantissimo seguire i percorsi logici altrui. ;-)

Prendendo il caso citato del 18/6, se come range di estrazioni si passa tramite l'inputbox => 18 estrazioni, attualmente lo script controlla 18 estrazioni indietro
esclusa quella in esame del 18/6. Mi sembra corretto a meno che si intendano 18 estrazioni compresa quella in esame...

Il controllo degli esiti avviene grazie alla giocata per i colpi desiderati.
k = 9 ' colpi

basta modificare il valore di k... =6.

Scusate (soprattutto Mike) se intervengo così... di fretta.