metodo interessante chi puo listato grazie di cuore

[Alien.]

Provo anch'io a dare il mio suggerimento.
Per filtrare i tanti casi si potrebbero prendere le sole estrazioni con l'ambo isotopo ossia 2 numeri uguali su 2 ruote e tentare le sorti di ambo in pochi colpi a tutte.
In questo modo si giocherebbe la condizione rafforzata da 2 uscite sulle stesse ruote.

Lasciando i calcoli chiesti da dragone, ma come dicevo ognuno di voi può mettere le operazioni volute, io intanto vi posto l'idea ed il corpo script.

Sub Main()
	'cerca numero isotopo su 2 ruote consecutive
	Scrivi"Listato per ricerca Numero iso  su 2 Ruote  ",True,False,2,4,3
	Scrivi" **** Richiesta dragone197601 ***** ",True,False,4,2,3
	Scrivi" **** Script in Tabella by Mike58 ***** ",True,True,3,1,3
	Scrivi
	Dim k(10),nu(4),num(2)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(1) = 3
	poste(2) = 1.5
	poste(3) = .5
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	ReDim at(11)
	at(1) = " Data Estrazione "
	at(2) = " Ruota "
	at(3) = " estratti "
	at(4) = " Numero iso "
	at(5) = " Posiz. "
	at(6) = " Stringa Numeri "
	at(7) = " Esito "
	at(8) = " colpo "
	at(9) = " R_estratti a Tutte "
	at(10) = " Data Esito "
	at(11) = " casi "
	Call InitTabella(at,1,,3,5)
	For es = fin To Ini Step - 1
		Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For r2 = r1 + 1 To 12
			If r2 = 11 Then r2 = 12
			For p1 = 1 To 4
			For p2 = p1 + 1 To 5
				n1 = Estratto(es,r1,p1)
				n2 = Estratto(es,r1,p2)
				n3 = Estratto(es,r2,p1)
				n4 = Estratto(es,r2,p2)
				If n1 = n3 Or n1 = n4 Then ' numero = numero
				If n2 = n3 Or n2 = n4 Then
					co = co + 1
					ColoreTesto 0
					ruote(1) = r1
					ruote(2) = r2
					nu(1) = n1
					nu(2) = n2
					nu(3) = n3
					nu(4) = n4
					EliminaRipetuti(nu)
					num(1) = nu(1)
					num(2) = nu(2)
					'--------- Calcolo Numeri da mettere in gioco-------------
					'x1 = Decina(n1)
					'For y = 1 To 10
						'x = x1*10
						'x2 = y +(x)
						'k(y) = y +(x)
					'Next
					'---------------------------------------------------------
					
					k(1) = Diametrale(num(1))
					k(2) = Vert(k(1))
					k(3) = Diametrale(num(2))
					k(4) = Vert(k(3))
ReDim Tutte(10)
For rr = 1 To 10
Tutte(rr) = rr
					Call VerificaEsito(k,Tutte,es + 1,2,11,Nothing,esito,colpi,estratti,id)
					Next
					ReDim av(11)
					av(1) = DataEstrazione(es)
					av(2) = SiglaRuota(r1) & " - " & SiglaRuota(r2)
					av(3) = StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2)
					av(4) = StringaNumeri(num)
					av(5) = p1 & "°" & p2 & "°"
					av(6) = StringaNumeri(k,,True)
					av(7) = esito
					av(8) = colpi & "°"
					av(9) = estratti
					If esito <> "" Then av(10) = DataEstrazione(id)
					If esito = "" And colpi > 10 Then av(10) = " Negativo "
					If esito = "" And colpi <= 10 Then av(10) = " In corso "
					av(11) = co '& "  " & IndiceMensile(es)
					Call AddRigaTabella(av,,,3,,"arial black")
					Call SetColoreCella(2,RGB(175,174,222),5)
					Call SetColoreCella(3,RGB(252,237,240),0)
					Call SetColoreCella(6,RGB(164,242,249),0)
					Call SetColoreCella(4,RGB(175,239,173),0)
					Call SetColoreCella(9,RGB(236,200,176),2)
					If esito = "Ambo" Then Call SetColoreCella(7,2,4)
					' ---------------- calcolo colpi -------------------------
					If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
					If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
					If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
					If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
					If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
					If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
					If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
					If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
					If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
					If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
					If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
					If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
					If colpi >= 7 Then clp11 = clp11 + 1
					'---------------------------------------------------------
				End If
				End If
			Next
			Next
			Next
		Next
	Next
	Call SetTableWidth("100%")

	CreaTabella()
	ReDim att(14)
	att(1) = " Colpo 1 "
	att(2) = " Colpo 2 "
	att(3) = " Colpo 3 "
	att(4) = " Colpo 4 "
	att(5) = " Colpo 5 "
	att(6) = " Colpo 6 "
	att(7) = " Colpo 7 "
	att(8) = " Colpo 8 "
	att(9) = " Colpo 9 "
	att(10) = " Colpo 10 "
	att(11) = " Totali casi "
	att(12) = " Casi positivi "
	att(13) = " Casi Negativi "
	att(14) = " Casi in corso "
	Call InitTabella(att,2,,3,4)
	ReDim avv(14)
	avv(1) = clp1
	avv(2) = clp2
	avv(3) = clp3
	avv(4) = clp4
	avv(5) = clp5
	avv(6) = clp6
	avv(7) = clp7
	avv(8) = clp8
	avv(9) = clp9
	avv(10) = clp10
	avv(11) = co
	avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
	avv(13) = clp11
	avv(14) = clpcorso
	Call AddRigaTabella(avv,4,,3,2)
	Call SetTableWidth("100%")
	Call CreaTabella()
	'Scrivi
End Sub

quindi in corso c'è 50-5 e 50-33 su ca mi e TT......VEDIAMO SE.........

 

[franca46]

ma......lo fa a mano? li sembra con il programma di script.

ciao Alien , cert che li fà lo script.

Ps : Augurissimi

 

[franca46]

mike e alien cosi' rinunciate agli abbinamenti ?

 

[elmiki]

ciao Alien , non so scriptare , poi con spaziometria sono in alto mare.

ho semplicemente risposto 3 alla domanda " quale sorte controllo " , il resto lo ha fatto lui.

i calcoli sono quelli richiesti in partenza con l'aggiunta dell'isotopo raddoppiato ( chiesto da Te )

quando trovi ripetizioni è perchè la previsione è articolata su più ruote vedi quella del 13 marzo fi-mi / fi-ro / mi-ro.

buon pomeriggio

dimenticavo ecco come trovo i numeri:

6 marzo 2014

Fi 29 - 77 - 58 - 67 - 76
Ge 32 - 04 - 58 - 45 - 24

isotopo 58

58-45 = 13 vert 31

13+58= 71 ....31+58=89

58 raddoppiato 26

11 Marzo TO 89 71 31 .. 26 quaterna al 2° colpo


ciaoooo

scusa se mi intrometto stavo guardando qua e la e ho visto questo....io avevo postato un metodo tempo fa che quando escono due numeri isotopi uguali si fa la differenza ed esce sempre 00=90
ambate 90-9
sono andato all 11/3 e con la quaterna è uscito pure il 90 ciao grazie franca!!

 

[franca46]

ciao elmiki , grazie a Te

ora smanetto ancora nel listato , vediamo che spunta.

buona giornata

 

[platoon]

Ciao Alien
ciao a tutti e grazie x questo metodo
Mi rivolgo a te Alien chiedendoti: come mai vengono fuori 50-5 e 50-33 CA-Mi?
Io ho aggiornato a ieri lìarchivio ma non ho quei numeri

Potresti confermarmi x favore?
grazie

quindi in corso c'è 50-5 e 50-33 su ca mi e TT......VEDIAMO SE.........

 

[Alien.]

Ciao platoom,dallo script di Mike58 quello ultimo postato c'è ancora una proposta di gioco che è 8vo colpo 50-5 e 50-33 su ca mi e TT ho preso i due ambi con maggior possibilità e speriamo che escano.