x esperti di script

[Roby]

chiedo se è possibile fare uno script su un metodo che
trova 2 ambate su due ruote.il metodo è molto buono e
con percentuali di vincita altissime con ambate multiple
ed ogni tanto ci scappa anche l'ambo secco.funziona da molti anni.

il metodo è questo:si calcola ad ogni estrazione,le ruote per generare il pronostico sono:
ba-ve
ca-to
fi-ro
ge-pa
mi-na
si prendono il 1 estratto ed il 5 estratto di ogni ruota
faccio un esempio reale x spiegarmi meglio
prendiamo l'estrazione del 04/01/2011
ruote ba-ve
prendo il 1 est. di ba ed il 5 est.di ve e li sottraggo
poi prendo il 5 estr di ba ed il 1 di ve e li sottraggo
i due numeri che escono dalla sottrazione sono le 2 ambate ed ambo da giocare x 9 colpi su ba-ve
esempio con numeri
1 di ba 83-----5 di ve 87;quindi 87-83=4 1 ambata
5 di ba 26-----1 di ve 14;quindi 26-14=12 2 ambata
quindi gioco 4-12 ba-ve x 9 colpi.

lo stesso procedimento si fa x le altre coppie di ruote.

lo script serve per vedere in tempo reale le uscite delle ambate e ambi e per poter vedere nei vari periodi quelle che sfaldano prima.

ringrazio anticipatamente chi voglia aiutarmi purtroppo sono negato per certe cose,vorrei tantissimo imparare,ma dopo l'intervento fatto alla testa sono un po limitato con la memoria.
saluti giuseppe

 

[LuigiB]

guarda sto metodo era talemte semplice da implementare che eccezionalmente l'ho fatto io .
Verifica se va bene , il range d ianalisi si riferisce al range normalmente impostato nel programma ,quindi e da li che devi cambiarlo.

Sub Main
	Dim idEstr
	Dim k
	Dim nGioc
	Dim aPoste(1)
	Dim aCoppieRuote(5,1)
	aCoppieRuote(1,0) = BA_
	aCoppieRuote(1,1) = VE_
	aCoppieRuote(2,0) = CA_
	aCoppieRuote(2,1) = TO_
	aCoppieRuote(3,0) = FI_
	aCoppieRuote(3,1) = RO_
	aCoppieRuote(4,0) = GE_
	aCoppieRuote(4,1) = PA_
	aCoppieRuote(5,0) = MI_
	aCoppieRuote(5,1) = NA_
	aPoste(1) = 1
	For idEstr = EstrazioneIni To EstrazioneFin
		For k = 1 To 5
			ReDim aNum(2)
			ReDim aRuote(2)
			aNum(1) = Differenza(Estratto(idEstr,aCoppieRuote(k,0),1),Estratto(idEstr,aCoppieRuote(k,1),5))
			aNum(2) = Differenza(Estratto(idEstr,aCoppieRuote(k,0),5),Estratto(idEstr,aCoppieRuote(k,1),1))
			aRuote(1) = aCoppieRuote(k,0)
			aRuote(2) = aCoppieRuote(k,1)
			If aNum(1) <> aNum(2) Then
				nGioc = nGioc + 1
				Call ImpostaGiocata(nGioc,aNum,aRuote,aPoste,9,1)
				Call Gioca(idEstr)
			End If
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
	Next
	Call ScriviResoconto
End Sub

 

[fillotto]

quote:Originally posted by LuigiB

guarda sto metodo era talemte semplice da implementare che eccezionalmente l'ho fatto io .
Verifica se va bene , il range d ianalisi si riferisce al range normalmente impostato nel programma ,quindi e da li che devi cambiarlo.

Sub Main
	Dim idEstr
	Dim k
	Dim nGioc
	Dim aPoste(1)
	Dim aCoppieRuote(5,1)
	aCoppieRuote(1,0) = BA_
	aCoppieRuote(1,1) = VE_
	aCoppieRuote(2,0) = CA_
	aCoppieRuote(2,1) = TO_
	aCoppieRuote(3,0) = FI_
	aCoppieRuote(3,1) = RO_
	aCoppieRuote(4,0) = GE_
	aCoppieRuote(4,1) = PA_
	aCoppieRuote(5,0) = MI_
	aCoppieRuote(5,1) = NA_
	aPoste(1) = 1
	For idEstr = EstrazioneIni To EstrazioneFin
		For k = 1 To 5
			ReDim aNum(2)
			ReDim aRuote(2)
			aNum(1) = Differenza(Estratto(idEstr,aCoppieRuote(k,0),1),Estratto(idEstr,aCoppieRuote(k,1),5))
			aNum(2) = Differenza(Estratto(idEstr,aCoppieRuote(k,0),5),Estratto(idEstr,aCoppieRuote(k,1),1))
			aRuote(1) = aCoppieRuote(k,0)
			aRuote(2) = aCoppieRuote(k,1)
			If aNum(1) <> aNum(2) Then
				nGioc = nGioc + 1
				Call ImpostaGiocata(nGioc,aNum,aRuote,aPoste,9,1)
				Call Gioca(idEstr)
			End If
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
	Next
	Call ScriviResoconto
End Sub

Buon giorno Luigi questo è esattamente il tipo di script che piace a me , dato che come dici tu ti è costata poca fatica ,potresti mettere
qualche commento in modo che io possa capirlo meglio per poi modificarlo a modo mio??

 

[LuigiB]

eheh .. caro fil , qui scatta l'interrogazione ti ricordi quando
studiavamo i rudimenti di programmazione ? Allora guarda la richiesta dell'utente e cerca di interpretarlo tu lo script poi metti tu i commenti e ripostalo.
Il poi ti dico se hai capito bene ed eventualmente ti spiego il resto !!
Riusciro ad insegnarvi prima o poi .. dove scappate eheheh Ciao !

 

[fillotto]

quote:Originally posted by LuigiB

eheh .. caro fil , qui scatta l'interrogazione ti ricordi quando
studiavamo i rudimenti di programmazione ? Allora guarda la richiesta dell'utente e cerca di interpretarlo tu lo script poi metti tu i commenti e ripostalo.
Il poi ti dico se hai capito bene ed eventualmente ti spiego il resto !!
Riusciro ad insegnarvi prima o poi .. dove scappate eheheh Ciao !

Volevo una scorciatoia eheheh, ma sta bene così!!!
penso di potercela fare em em dopo le partite

 

[scoglio2]

azz con l'anno nuovo il proff è + severo

 

[Thauk]

Aggiungo anche la mia versione... stesso metodo, script diverso.
Ho aggiunto il +1 alla seconda ambata in caso di numeri uguali.

'Ambate su ruote gemelle

Sub main()
Dim rt(2),pt(1),pta(2),nr(2)

ini=EstrazioneFin-10
fin=EstrazioneFin
For es=ini To fin
Messaggio es

For r1=1 To 5
a=Estratto(es,r1,1)
b=Estratto(es,r1,5)
r2=11-r1
c=Estratto(es,r2,1)
d=Estratto(es,r2,5)

rt(1)=r1 : rt(2)=r2
pt(1)=1 : pta(2)=1
k=9

nr(1)=Abs(a-d)
nr(2)=Abs(b-c)
If nr(1)=nr(2) Then nr(2)=Fuori90(nr(2)+1)
ImpostaGiocata 1,nr,rt,pt,k
ImpostaGiocata 2,nr,rt,pta,k

Gioca es
Scrivi
Scrivi String(70,"="),1
Next
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[LuigiB]

E se invece dell differenza matematica si volesse la distanza ciclometrica come si dovrebbe fare ? Piccolo indizio basta modificare
2 righe (sia nella versioen mia sia in quelal di Thauk ) ..quali ?

Ehi Thauk l'interrogazione non è per te eh qui le vacanze di Natale so finite e tocca rincominciare a studiare avanti tutta miei prodi !!!

 

[vidoque]

ciao luigi grazie x il listato era proprio quello che volevo
volevo chiederti siccome la previsione finisce al primo sfaldamento
è possibile far durare la previsione x tutti i 9 0 10 colpi
ti faccio un esempio
estrazione del 21/10/2010 su ba-ve si forma 2-58
che si sfalda su ve al 6 colpo col numero 2
ma al 7 colpo escono su ve sia il 2 che il 58 in ambo
e cosi x molte ambate che si ripetono
ringrazio anticipatamente giuseppe

 

[vidoque]

ciao thauk è possibile far partire il listato da inizio 2010
grazie x la vostra disponibilità e cortesia
saluti giuseppe

 

[fillotto]

Allora Luigi sono parzialmente riuscito a modificare lo script
Questo è una variante dello script fatto da te
'al posto del 1° e 5° di BA-VE .... MI-NA prendo il 2° e 4°
'vedo se questi sono vertibili e li gioco solo in quel caso per AMBO
'ho cambiato le istruzioni: "Dim aPoste(2)" aNum(1) = Estratto(idEstr,aCoppieRuote(k,0),2)"
'"aNum(2) = Estratto(idEstr,aCoppieRuote(k,1),4)"
' cambiato "If aNum(1) = Vert (aNum(2)) Then" tolto "nGioc = nGioc + 1"
'conservato "Call ImpostaGiocata(nGioc,aNum,aRuote,aPoste,3,2)"
'Era quello che volevo ottenere Ma x fare il giro completo 1-5 , 2-4 , 3-3 x ottenere una perfetta specularità
'in un solo script come si fa? i colpi li ho ridotti a tre in quanto ho constatato che o esce subito o nisba.
nGiocl'ho fatto rimanere perchè mi sono scordato di toglierlo ma la cosa funge lo stesso (ininfluente?)
Ecco come l'ho cambiato va in positivo per 2 - 4:
Sub Main
Dim idEstr
Dim k
Dim nGioc
Dim aPoste(2) ' significa estratto se vuoi mettere ambo metti (2)
Dim aCoppieRuote(5,1)
aCoppieRuote(1,0) = BA_ 'un piccolo array
aCoppieRuote(1,1) = VE_
aCoppieRuote(2,0) = CA_
aCoppieRuote(2,1) = TO_
aCoppieRuote(3,0) = FI_
aCoppieRuote(3,1) = RO_
aCoppieRuote(4,0) = GE_
aCoppieRuote(4,1) = PA_
aCoppieRuote(5,0) = MI_
aCoppieRuote(5,1) = NA_
aPoste(2) = 1 'attenz gioca solo l'estratto si deve mettere 2 x ambo e modificarlo a "Dim aPoste(1)"

For idEstr = EstrazioneIni To EstrazioneFin
For k = 1 To 5
ReDim aNum(2)
ReDim aRuote(2)
aNum(1) = Estratto(idEstr,aCoppieRuote(k,0),2)
aNum(2) = Estratto(idEstr,aCoppieRuote(k,1),4)
aRuote(1) = aCoppieRuote(k,0)
aRuote(2) = aCoppieRuote(k,1)
If aNum(1) = Vert (aNum(2)) Then

Call ImpostaGiocata(nGioc,aNum,aRuote,aPoste,3,2)
Call Gioca(idEstr)
End If
Next
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
Next
Call ScriviResoconto
End Sub

 

[LuigiB]

Ciao File , spero di aver capito che volevi , ad ogni modo
ho commentato io il file , leggi bene i commenti perche
ho capito che delle cose non ti sono del tutto chiare.
Poi quando si posta il codice è meglio usare l'apposita
funzione di formattazione , premi il pulsantino col cancelletto
e al centro dei tag incolla il codice cosi mantiene la
formattazione che è fondamentaleper leggere il codice specie per chi sta ancora all'inizio !

Sub Main
	Dim idEstr
	Dim k
	Dim nGioc
	Dim aPoste(2) 	' E' un vettore che contiene 3 elementi , lo 0 , l'1 , il 2
				' serve per specificare le poste in gioco
				' ciascun elemento puo essere valorizzato indipendentemente
				' dagli altri , l'elemento 0 anche se c'è non si usa 
				' per gli altri elementi con indice 1 e indice 2 succede che :
				' se si valorizza con 1 l'elemento 1 si giochera un euro per estratto	
				' se si valorizza con 1 l'elemento 2 si giochera un euro per ambo
				' siccome gli elementi possonono essere valorizzati indipendentemente
				' se sia l'1 che il due risultano valorizzati si giocherebbe contemporaneamente
				' per estratto ed ambo
					
								
	
	Dim aCoppieRuote(5,1)  ' E' l'array che memorizza le coppie delle ruote 
				     ' contiene 5 elementi principali
				     ' ciascuno di questi ha 2 sottoelementi identificati con indice 0 e indice 1
				     ' l'indice 0 contiene la prima della coppia di ruote
				     ' l'indice 1 contiene la seconda della coppia di ruote
				     
	Dim p   ' gestisce il ciclo per giocare sulle 5 posizioni è la posizione relativa alla prima ruota della coppia
	Dim pp  ' gestisce il ciclo per giocare sulle 5 posizioni è la posizione relativa alla seconda ruota della coppia

	
	' prima coppia			     	
	aCoppieRuote(1,0) = BA_ ' valorizza le coppie di ruote
	aCoppieRuote(1,1) = VE_
	' seconda coppia
	aCoppieRuote(2,0) = CA_
	aCoppieRuote(2,1) = TO_
	' terza coppia
	aCoppieRuote(3,0) = FI_
	aCoppieRuote(3,1) = RO_
	' quarta coppia
	aCoppieRuote(4,0) = GE_
	aCoppieRuote(4,1) = PA_
	' quinta coppia
	aCoppieRuote(5,0) = MI_
	aCoppieRuote(5,1) = NA_
	
	' GUARDA BENE LA RIGA SOTTO è UN ERORRE !!!	
	aPoste(2) = 1 ' Errore !!!! Cosi giochi l'ambo non l'estratto !!!  'attenz gioca solo l'estratto si deve mettere 2 x ambo e modificarlo a "Dim aPoste(1)"
	
	aPoste(1) = 1 ' <--- Cosi è corretto per giocare estratto
 	
	
	
	For idEstr = EstrazioneIni To EstrazioneFin ' ciclo sul range di analisi
		For k = 1 To 5 ' ciclo sulle coppie di ruote
			ReDim aNum(2) ' ridimensiona un vettore che conterra i numeri da giocare
			ReDim aRuote(2) ' ridimensiona un vettoere che conterra le ruote in gioco 
			
			' valorizza il vettore delle ruote in gioco
			aRuote(1) = aCoppieRuote(k,0)
			aRuote(2) = aCoppieRuote(k,1)
			
			'' valorizza il vettore dei numeri in gioco  
'			aNum(1) = Estratto(idEstr,aCoppieRuote(k,0),2)
'			aNum(2) = Estratto(idEstr,aCoppieRuote(k,1),4)
'			
			
			' per giocare tutte e 5 le posizioni ci vuole un ciclo al cui interno viene
			' decrementata una variabile
			' in questo modo si ottengono i numeri in posizione
			' 1 - 5 , 2 - 4 , 3 - 3 , 4 - 2 , 5 - 1 
			
			pp = 5 ' preimposto a 5 la variabile che identifica la posizione estrazionale da prendere in ruota 2
			For p = 1 To 5  ' la variabile p controlla il ciclo e si riferisce alla posizione estrazionale da prendere in ruota 1

				aNum(1) = Estratto(idEstr,aCoppieRuote(k,0),p) ' leggo numero ruota 1
				aNum(2) = Estratto(idEstr,aCoppieRuote(k,1),pp) ' leggo numero ruota 2
				pp = pp -1 ' decremento la posizione di ruota 2 mentre si incrementa automaticamente quella di ruota 1
			
				' esegue la condizione che controlla se i 2 numeri sono uno vertibile dell'altro
				If aNum(1) = Vert(aNum(2)) Then
					nGioc = nGioc + 1  ' PERCHE LO HAI LEVATO ? SERVE PER NUMERARE LE GIOCATE NON HA SENSO LEVARLO
								' ANCHE SE CIO' NON PROVOCA ERRORI 
				
					' delle le tre righe seguenti solo una deve essere attiva , remmare le altre
					Call ImpostaGiocata(nGioc,aN

 

[Thauk]

quote:Originally posted by vidoque

ciao thauk è possibile far partire il listato da inizio 2010
grazie x la vostra disponibilità e cortesia
saluti giuseppe

ciao, modificando la riga sottostante, puoi far esaminare allo script un range di x estrazioni:

ini=EstrazioneFin-10

Es.

ini=EstrazioneFin-10 (ultime 10 estrazioni)
ini=EstrazioneFin-50 (ultime 50 estrazioni)
ini=EstrazioneFin-100 (ultime 100 estrazioni)

oppure puoi far iniziare la ricerca in base al numero progressivo di una data estrazione:

ini=1 (1ª estrazione in archivio)
ini=5000 (5000ª estrazione in archivio)
...
...

ini=8164 (8164ª estrazione in archivio)

che dovrebbe corrispondere all'estrazione del 2 gennaio 2010 (almeno nel mio archivio... )

ciauz


Fortuna non omnibus aeque.