Aiutone

[siriano]

Abbiamo 4 numeri estratti su 2 ruote diverse, cioè 2 ambi uniti,
tipo questi inventati al momento
BA 78 19
GE 48 56

se trasformiamo i 4 numeri in figure abbiamo
6 1
3 2

è possibile fare uno script a cui si chiede:
se dei 4 numeri che formano le 4 figure 3 sono numeri consecutivi e disposti
uno dopo l'altro nel quadrato allora scrivi...
altrimenti ... vai a cercarne un'altra fino alla fine.

Nel quadrato le possibilità sono 4
----
1 2
6 3
----
6 1
3 2
----
3 6
2 1
----
2 3
1 6
----

Grazie, buona serata a tutti.

 

[Roby]

Ciao Siriano ho fatto uno script molto semplice
che... "puoi modificare a tuo piacimento"
Mostra le figure trovate e non..
Buon divertimento

Sub Main()
	ini = InputBox(" ESTR N° ",,8700)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 1 To 4
					p2 = p1 + 1
					n1 = Estratto(es,r1,p1): n2 = Estratto(es,r1,p2)
					n3 = Estratto(es,r2,p1): n4 = Estratto(es,r2,p2)
					a = Figura(n1) : b = Figura(n2) : c = Figura(n3) : d = Figura(n4)
					Scrivi "-------------------------------------------------------------------------"
					Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " Ambo " & Format2(n1) & "-" & Format2(n2) & " FIGURE: " & a & "-" & b
					Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " Ambo " & Format2(n3) & "-" & Format2(n4) & " FIGURE: " & c & "-" & d
					If d = b + 1 And b = a + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & d & "-" & b & "-" & a,1,,,,5 Else Scrivi "",0,0
					If c = d + 1 And d = b + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & c & "-" & d & "-" & b,1,,,,5 Else Scrivi "",0,0
					If a = c + 1 And c = d + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & a & "-" & c & "-" & d,1,,,,5 Else Scrivi "",0,0
					If b = a + 1 And a = c + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & b & "-" & a & "-" & c,1,,,,5 Else Scrivi "",0,0
					If d = c + 1 And b = d + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & c & "-" & d & "-" & b,1,,,,5 Else Scrivi "",0,0
					If d = c + 1 And c = a + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & d & "-" & c & "-" & a,1,,,,5 Else Scrivi "",0,0
					If a = b + 1 And b = d + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & a & "-" & b & "-" & d,1,,,,5 Else Scrivi "",0,0
					If c = a + 1 And a = b + 1 Then ColoreTesto 2: Scrivi "Trovate 3 figure consecutive: " & c & "-" & a & "-" & b,1,,,,5 Else Scrivi "",1
					ColoreTesto 0
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
End Sub

 

[siriano]

Blackmore innanzitutto grazie, ma da un errore:

Errore script!
450 - Numero errato di argomenti o assegnazione di proprietà non validi: 'Scrivi'
Linae: 19
Colonna: 52

io ho i miei grandi limiti e non riesco a capire anche se mi sembra che tutte le righe
sono scritte alle stesso modo.
Domanda: ma gli End If non servono?

Approfitto per cercare di imparare qualcosa.

Grazie e saluti.

 

[siriano]

Blackmore ho risolto, ho tolto le virgole prima del ,,,,5 e non da più l'errore.
Grazie.