Richiesta di script

[vitale]

Ciao Mike.
E' possibile fare uno script per questo procedimento?
Vorrei sapere quali sono gli ambi che hanno avuto più frequenza, ogni volta che si è presentato l'ambo 67.68 (naturalmente devono uscire tutti e due e non uno solo) sulla ruota di GENOVA.
Mi occorre per procedere poi ad un procedimento più articolato.
Ti ringrazio anticipatamente per quello che farai.
Saluti.
Vitale

 

[Mike58]

Ciao Vitale, come da post e risposta precedente ho poco tempo ( causa lavoro) ho modificato uno script già esistente e non sono sicuro delle risultanze corrette.
Come puoi immaginare già la presenza di un ambo spia su ruota è già cosa rara, figuriamoci la presenza di numeri per ambo.

Prova a vedere.

Sub Main()
	Dim ru(3)
	Dim terni(4096,12)
	Dim nn(3)
	Dim spia(2)
	r = InputBox("Ruota  della spia....(1-10)",,4)
	rr = InputBox("Ruota di gioco....(1-10)",,4)
	sp = CInt(InputBox("Numero Spia",,67))
	sp2 = CInt(InputBox("Numero Spia",,68))
	ee = InputBox("Estrazioni da controllare",,1200)
	c = CInt(InputBox("Numero colpi di gioco",,10))
	etr = CInt(InputBox("Quanti numeri vuoi visualizzare",,10))
	sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",2))
	'------- titoli tabella ---------------------
	ReDim atitoli(10)
	atitoli(1) = " Casi "
	atitoli(2) = " Numeri "
	atitoli(3) = " Presenze "
	atitoli(4) = " esito "
	atitoli(5) = " ret_estratti fin-colpi "
	atitoli(6) = " colpo "
	atitoli(7) = " Data esito ultimo "
	atitoli(8) = " Ritardo serie "
	atitoli(9) = " Presenza serie "
	atitoli(10) = " Rit. Max "
	Call InitTabella(atitoli,1,,3,5)
	For i = 1 To 90
		terni(i,1) = 0
		terni(i,2) = 0
		terni(i,3) = 0
		terni(i,4) = 0
		terni(i,5) = 0
		terni(i,6) = 0
		terni(i,7) = 0
		terni(i,8) = 0
		terni(i,9) = 0
		terni(i,10) = 0
		terni(i,11) = 0
		terni(i,12) = 0
	Next
	casi = 0
	co = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - ee
	For es = ini To fin
		Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
		AvanzamentoElab ini,fin,es
		If Posizione(es,r,sp) > 0 And Posizione(es,r,sp2) > 0 Then
			spia(1) = sp
			spia(2) = sp2
			rsp = SerieRitardoTurbo(Ini,fin,spia,ru,2)
			Inco = fin - es
			clp = fin - es
			casi = casi + 1
			Tot = fin - Ini
			ess = es + c
			co = 0
			For x = 1 To 89
			For y = x + 1 To 90
				co = co + 1
				terni(co,1) = co
				terni(co,2) = x 
				terni(co,3) = y
				nn(1) = x
				nn(2) = y
				ru(1) = rr
				presenze = SerieFreqTurbo(es + 1,ess,nn,ru,2)
				If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
					'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
					terni(co,5) = terni(co,5) + 1
					cef = fin - rsp + 1' inizio estrazione di verifica
					clp = c - rsp
					Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
					Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
					terni(co,6) = resito
					terni(co,7) = retestratti
					terni(co,8) = retcolpi
					terni(co,10) = rerit
					terni(co,11) = refre
					terni(co,12) = reritmax
					If resito = "" Then terni(co,9) = ""
					If resito = "Ambo" Then terni(co,9) = DataEstrazione(idd)
					If resito = "Estratto" Then terni(co,9) = DataEstrazione(idd)
					If resito = "" Then terni(co,9) = " in corso "
				End If
			Next
			Next
		End If
	Next
	OrdinaMatrice terni,- 1,5
	ColoreTesto 1
	Scrivi "spia " & CInt(sp) & "-" & sp2 & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
	ColoreTesto 2
	If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
	If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
	ColoreTesto 1
	Scrivi "Ambi più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
	Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " a al " & DataEstrazione(fin)
	Scrivi
	Scrivi "Totali estrazioni esaminate.... " & Tot,1
	ColoreTesto 0
	For x = 1 To etr
		
		'----------- valori tabella ------------------
		ReDim avalori(10)
		avalori(1) = x
		avalori(2) = Format2(terni(x,2)) & " - " & Format2(terni(x,3))' & "." & Format2(terni(x,4))
		avalori(3) = Format2(terni(x,5))
		avalori(4) = terni(x,6)
		avalori(5) = terni(x,7)
		avalori(6) = terni(x,8)
		avalori(7) = terni(x,9)
		avalori(8) = terni(x,10)
		avalori(9) = terni(x,11)
		avalori(10) = terni(x,12)
		Call AddRigaTabella(avalori,,,3)
		If avalori(8) = 0 Then Call SetColoreCella(7,2,4)
	Next
	Call CreaTabella(0,0,0,15)
	Scrivi
	Scrivi " *********  Tabella Listed by Mike58  ***********         ",1,- 1,3
End Sub

 

[vitale]

Grazie Mike!
Ciao.