Novità

Numeri ripetuti

vengio

Super Member >GOLD<
Ciao ragazzi, per caso qualcuno avrebbe uno script che ricerca i numeri ripetuti su estrazioni consecutive? Grazie.
 
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.
 
Codice:
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
 
Ultima modifica:
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.
 
certo che non le rileva, se dici estrazioni consecutive, devi specificare quante estrazioni altrimenti si presume che siano 2
comunque no problem.....

Codice:
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
 
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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto