Per Joe91 Ilegend e tutti quelli che vogliono partecipare .

[Alien.]

ciao disaronno,in parte va bene lo script ma io volevo fare la ricerca di 4 numeri per ambo e non 2 a 2 per ambata.
In quanto sono 2 numeri per 2 ruote..=4 numeri in gioco ....puoi.correggere,grazie.

 

[Master]

Buonasera a tutti
Mi permetto anch'io di dare una mano ad Alien..
Data l'ora controllare se è giusto

Sub Main()
    Dim Ru(2),Nu(4),Po(2),Rt(10) : Po(1) = 1 : Po(2) = 1
    Ru(1) = InputBox("1° RUOTA ?","SCELTA RUOTA",1)
    P1 = InputBox("1° POSIZIONE ESTRATTO?",NomeRuota(Ru(1)),1)
    P2 = InputBox("2° POSIZIONE ESTRATTO?",NomeRuota(Ru(1)),5)
    Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",2)
    P3 = InputBox("1° POSIZIONE ESTRATTO?",NomeRuota(Ru(2)),1)
    P4 = InputBox("2° POSIZIONE ESTRATTO?",NomeRuota(Ru(2)),5)
    Rt(1) = ScegliRuota
    im = InputBox("Scegli ID estrazione che vuoi analizzare?" & Chr(13) & Chr(13) & " 0 ULTIMA DEL MESE" & Chr(13) & " 1 PRIMA  -  2 SECONDA  -  etc..,:","INDICE MENSILE",1)
    E = InputBox("Quante Estrazioni?","ESTRAZIONI PRECEDENTI",55) - 1
    K = InputBox("Quanti Colpi?","COLPI DI GIOCO",9)
    fin = EstrazioneFin
    Ini = Fin - E
    For es = ini To fin
        Messaggio es
          AvanzamentoElab Ini,fin,es
            If(((eval(im) = 0)And(es = fin))Or((IndiceMensile(es) = eval(im)And(eval(im) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(im) = 0))))Then
            Co = Co + 1 : Scrivi String(106,"=") & Co & "°",1
            a = Estratto(Es,Ru(1),P1):b = Estratto(Es,Ru(1),P2)
            c = Estratto(Es,Ru(2),P1):d = Estratto(Es,Ru(2),P2)
            Nu(1) = Fuori90(a + b) : Nu(2) = Diametrale(Nu(1)):Nu(3) = Fuori90(b + c) : Nu(4) = Diametrale(Nu(1))
            ImpostaGiocata 1,Nu,Rt,Po,K,2
            Gioca es',True,,2
           End If
        Next
    ScriviResoconto
End Sub

 

[Alien.]

Ciao Master,grazie,credo sia giusto,ma facendo prove con spaziometria mi pareva che desse maggior risultati.....va bhe.........mi ci vorrebbe un recapito e mail per ulteriori script..........basta mettere indirizzo escluso @....ed it o com ..per le ore 17.00 di oggi 27 apr 15......est possibile....si est est un ottimo vino hahahahahah

 

[Master]

Ciao Alien
riscaricalo così vedi tutti gli esiti

 

[Joe91]

Buon giorno a tutte/i.

Purtroppo le indicazioni di Alien sono sparse in 3 differenti messaggi e ...

solo un indovino avrebbe potuto immaginare ... cosa voluto ... prima che fosse scritto.

Tutto.

Dunque una è la richiesta ... un'altra è lo sviluppo del metodo, un'altra ancora ... è la modifica dello script, che avevo proposto.

Tutte cose differenti. Relative a Metodi e sviluppi diffrenti.

Ciao Master,grazie,credo sia giusto,ma facendo prove con spaziometria mi pareva che desse maggior risultati.....va bhe.........mi ci vorrebbe un recapito e mail per ulteriori script..........basta mettere indirizzo escluso @....ed it o com ..per le ore 17.00 di oggi 27 apr 15......est possibile....si est est un ottimo vino hahahahahah

Se poi aggradano e soddifano l'autore della richiesta ... contenti tutti. Me compreso. Prendo atto.

Per sommi capi s' è visto funzionare gli script.

Ma la richiesta di una quartina per ambo a tutte dovrebbe essere soddisfatta da circa questo:

Option Explicit
Sub Main()
	'2+2 Esrtatti in Quartina per Ambo. Per Alien. Script By Joe.
	Dim Ru(2),P1,P2,P3,P4,Nu(4),Po(2),RG(1),E,K,Ini,Fin,Es,Co,Im : Po(2) = 1
	Ru(1) = InputBox("Quale ?","SCELTA PRIMA RUOTA Rilevazione Estratti",1)
	Ru(2) = InputBox("Quale ?","SCELTA SECONDA RUOTA Rilevazione Estratti",9)
	P1 = InputBox("a " & NomeRuota(Ru(1)),"Posizione Primo Nuumero (1-5) ?",1)
	P2 = InputBox("a " & NomeRuota(Ru(1)),"Posizione Secondo Numero (1-5) ?",5)
	P3 = InputBox("a " & NomeRuota(Ru(2)),"Posizione Primo Numero (1-5) ?",1)
	P4 = InputBox("a " & NomeRuota(Ru(2)),"Posizione Numero (1-5) ?",5)
	RG(1) = InputBox("Quale ?","RUOTA di gioco",11)
	E = InputBox("Quante estrazioni ?","PERIODO CONTROLLO",155)
	K = InputBox("Quanti ?","COLPI DI GIOCO",4)
	Im = InputBox("Estrazioni da verificare ?" & Chr(13) & Chr(13) & " 0 ULTIMA DEL MESE" & Chr(13) & " 1 PRIMA - 2 SECONDA - etc..,:","INDICE MENSILE",1)
	Fin = EstrazioneFin
	Ini = Fin - E
	For Es = Ini To Fin
		AvanzamentoElab Ini,Fin,Es
		If(((eval(Im) = 0)And(Es = Fin))Or((IndiceMensile(Es) = eval(Im)And(eval(Im) > 0))Or((IndiceMensile(Es + 1) = 1)And(eval(Im) = 0))))Then
			Co = Co + 1 : Scrivi String(106,"=") & Co & "°",1
			Nu(1) = Estratto(Es,Ru(1),P1)
			Nu(2) = Estratto(Es,Ru(1),P2)
			Nu(3) = Estratto(Es,Ru(2),P3)
			Nu(4) = Estratto(Es,Ru(2),P4)
			ImpostaGiocata 1,Nu,RG,Po,K,2
			Gioca Es,True
		End If
	Next
	ScriviResoconto
End Sub

Secondo il mio modesto parere lo script .. doveva essere "una base" facile da modificare, su cui ragionare,

ma le somme ed i diametrali ecc.. appartenevano ad altro metodo.

Nel ringraziare ... Disaronno e Master, ribadisco che corredare la richiesta con un esempio ...

fa evitare un sacco di perdita di tempo ... a tanti.

Evita confusione e fraintendimenti.

Buona serata a tutte/i.

 

[Alien.]

CIAO JOE91, io avevo chiesto delle modifiche a te,Disaronno e Master mi sono venuti in aiuto,cosa dovevo fare? visto la loro disponibilità(che ringrazio) ad aiutarmi loro stessi se sviluppano lo script da te creato vedranno la differenza.
Pertanto mi scuso.....ma a caval donato non guardare in bocca.......
Spero di restare in amicizia con tutti,grazie.

 

[Alien.]

JOE,se non mi invii alla prima porta a destra puoi aggiungere .......scelta estrazione mese 1° 2° 3° ecc.....grazie.

EVIDENZIARE quale estrazione è stata più proficua ?

 

[Joe91]

CIAO JOE91, io avevo chiesto delle modifiche a te,Disaronno e Master mi sono venuti in aiuto,cosa dovevo fare? visto la loro disponibilità ad aiutarmi loro stessi se sviluppano lo script da te creato vedranno la differenza.
Pertanto mi scuso.....ma a caval donato non guardare in bocca.......
Spero di restare in amicizia con tutti,grazie.

Vero.

Però quando si porge la biada, al cavallo, la si mette sul palmo della mano ...

se si infila tutta la mano nella sua bocca ... si scopre una amara verità.

Deducendo poi ... che i cavalli fannno male alle mani.

Vero anche che lo script ... è sempre lo stesso (quasi) ma le differenze dovevi essere tu a sottolinearle,

e prima ancora a doverle stabilire, descrivendole.

Comunque sia ... ho corretto lo script al mio messaggio #86 aggiungendo l' inputbox con cui scegliere l'indice mensile.

Buona Giornata.

 

[Alien.]

se si infila tutta la mano nella sua bocca

grazie.

 

[Master]

Ciao a tutti!!
In effetti Alien hai fatto un po confusione
rileggendo il post #70 chiedi una cosa.. mentre nel #72 e #82 se ne trova un'altra con script da modificare
Nulla di grave, nessun problema,tutto risolto..
PS: Vedi di tenere a posto le mani!!!
ciaooo

 

[Alien.]

no no bisogna stare attenti a non mettere le mani in bocca al cavallo...........

 

[genios]

Ecco i max. fornitomi dal Prof. DI GUIDA

Le 10 decine sincrone in isocronismo ( intero gruppo delle 10 cinquine estratte in un determinato concorso ) hanno tardato per almeno un terno 947 estrazioni mentre attualmente siamo a 645 estrazioni . Quattro cinquine sincrone in isocronismo per ambo hanno tardato 156 estrazioni . Dopo estrazione 47 abbiamo:

FI 17.51.06.74.22
RO 59.32.06.45.12
TO 60.85.83.62.55
VE 51.34.28.27.02

Ritardo 92 estrazioni estrazione base n. 111 del 16 settembre 2014.
ciao Eugenio

 

[Joe91]

Originariamente inviato da genios

Ecco i max. fornitomi dal Prof. DI GUIDA

Le 10 decine sincrone in isocronismo ( intero gruppo delle 10 cinquine estratte in un determinato concorso ) hanno tardato per almeno un terno 947 estrazioni mentre attualmente siamo a 645 estrazioni . Quattro cinquine sincrone in isocronismo per ambo hanno tardato 156 estrazioni . Dopo estrazione 47 abbiamo:

FI 17.51.06.74.22
RO 59.32.06.45.12
TO 60.85.83.62.55
VE 51.34.28.27.02

Ritardo 92 estrazioni estrazione base n. 111 del 16 settembre 2014.

ciao Eugenio

Ciao Eugenio,

innanzi tutto ti ringrazio e mi riservo di controllare meglio.

A naso ... penso si tratti di altri storici.

Provo con un grafico (di linee a caso) ... e attualmente è solo un ipotesi azzardata ...

a tacciare i contorni della possibile (grande) differenza. 1 a 10.


Buon Week End a tutte/i.

 

[genios]

Naturalmente joe i rit. Sono riferiti al gioco delle cinquine nella ruota di appartenenza e non a tutte. Ciao Eugenio