Numeri ripetuti

[vengio]

Ciao ragazzi, per caso qualcuno avrebbe uno script che ricerca i numeri ripetuti su estrazioni consecutive? Grazie.

 

[Baffoblu]

In sezione metodi ne ho fatto qualcuno.....

 

[vengio]

Ciao baffo, ne ho trovato qualcuno ma non mi soddisfa. Ho bisogno che la ricerca mi indichi in quale estrazione questi siano avvenuti per poi andare a fare un controllo visivo di ciò che poi avviene dopo.

 

[Roby]

Sub Main()
	Scrivi String(22," ") & " NUMERO RIPETUTO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA - BY BLACKMORE"
	t = 0
	esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",1000)
	fin = EstrazioneFin
	ini = EstrazioneFin - esaritroso
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 12
			If r = 11 Then r = 12
			For p = 1 To 4
				For p1 = p + 1 To 5
					a = Estratto(es,r,p)
					b = Estratto(es + 1,r,p1)
					If b = a Then
						ColoreTesto 1
						Scrivi
						ColoreTesto 0
						Scrivi String(110,"*"),1
						Scrivi
						ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione",1
						Scrivi DataEstrazione(es + 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es + 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p1 & "° Posizione (Ripetuto in estrazione consecutiva)",1
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
End Sub

 

[vengio]

Grazie Blackmore, solo mi fai capire come levare l'isotopia visto che a me non serve?

 

[Roby]

Ho modificato il listato aggiungendo anche la Nazionale
Ciao

 

[vengio]

Grande Black.

 

[vengio]

Black devi scusarmi, lo script và bene ma però non mi rileva i numeri usciti 3 volte consecutivamente. Vista la tua disponibilità ti sarei grato se facessi anche quest'ultima modifica.

 

[Roby]

certo che non le rileva, se dici estrazioni consecutive, devi specificare quante estrazioni altrimenti si presume che siano 2
comunque no problem.....

Sub Main()
	Scrivi String(22," ") & " NUMERO RIPETUTO IN 3 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA - BY BLACKMORE"
	t = 0
	esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",1000)
	fin = EstrazioneFin
	ini = EstrazioneFin - esaritroso
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 10
			If r = 11 Then r = 12
			For p = 1 To 5
				For p1 = 1 To 5
					For p2 = 1 To 5
						a = Estratto(es - 1,r,p)
						b = Estratto(es,r,p1)
						c = Estratto(es + 1,r,p2)
						If b = a And c = a Then
							If p <> p1 And p <> p2 And p1 <> p2 Then
								ColoreTesto 1
								Scrivi
								ColoreTesto 0
								Scrivi String(110,"*"),1
								Scrivi
								ColoreTesto 1:Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione",1
								Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p1 & "° Posizione (Ripetuto per la 2° volta consecutiva)",1
								Scrivi DataEstrazione(es + 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es + 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(c) & " in " & p2 & "° Posizione (Ripetuto per la 3° volta consecutiva)",1
							End If
						End If
					Next
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
End Sub

 

[vengio]

Complimenti sei in gamba Blackmore, come hai fatto ad imparare a fare gli script?

 

[antonio1]

Blackmore cresce piano piano come le sue note musicali.

 

[Roby]

Complimenti sei in gamba Blackmore, come hai fatto ad imparare a fare gli script?

Grazie ma, sono ancora un dilettante, ed il poco che so, l'ho imparato guardando i listati degli scripter esperti e leggendo qualche help e/o guide nel web
Facendo prove su prove
Ciao