Non gira su Spaziometria

[solare]

Qualcuno può sistemarlo ?
Grazie
Sub Main()
Scrivi "Estratti di cadenza uguale isotopi su due ruote consecutive, di Donatella "
Dim n1(2),nn1(4),nn2(4),ruota(2),ruote(10)
Dim posta(1),poste(2),postee(2)
posta(1) = 1
poste(2) = 1
postee(2) = 2
ruote(10) = 11
k = 13
casi = 1
Ini = EstrazioneIni + 8583
fin = EstrazioneFin
For es = ini To Fin
Messaggio es
AvanzamentoElab Ini,fin,es
For p = 1 To 4
For r = 1 To 9
a = Estratto(es,r,p)
p1 = p
r1 = r + 1
If r1 < 11 Then
b = Estratto(es,r1,p1)
If Cadenza(a) = Cadenza(b) Then
Scrivi String(100,"-")
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] Numero Spia [ " & Format2(a)_
& " ]In [ " & Format2(p) & "° ] Posizione - Cadenza [ " & Cadenza(a) & " ]"
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] Numero Spia [ " & Format2(b) _
& " ]In [ " & Format2(p1) & "° ] Posizione - Cadenza [ " & Cadenza(b) & " ]"
Scrivi String(100,"-") & " caso n° " &(casi)
casi = casi + 1
ruota(1) = r
ruota(2) = r1
n1(1) = Fuori90(a + b)
n1(2) = Fuori90(b + 10)
ImpostaGiocata 1,n1,ruota,posta,k,1
nn1(1) = n1(1)
nn1(2) = n1(2)
nn1(3) = Fuori90(Figura(a) & Figura(b))
nn1(4) = Fuori90(a - 10)
EliminaRipetuti nn1
ImpostaGiocata 2,nn1,ruota,poste,k,2
nn2(1) = n1(1)
nn2(2) = n1(2)
nn2(3) = Fuori90(Figura(a) & Figura(b))
nn2(4) = Fuori90(a - 10)
EliminaRipetuti nn2
ImpostaGiocata 3,nn2,ruote,postee,k,2
Gioca es,True,,1' Se usate L8 o Lottodesk togliete ,True,,1 dopo gioca es
End If
End If
Next
Next
Next
Scrivi String(100,"-")
Scrivi " Estratti di cadenza uguale isotopi su due ruote consecutive, di Donatella "
Scrivi String(100,"-")
ScriviResoconto
End Sub

 

[*Max-lotto*]

CIAO ECCO FATTO

Sub Main()
	Scrivi "Estratti di cadenza uguale isotopi su due ruote consecutive, di Donatella "
	Dim n1(2),nn1(4),nn2(4),ruota(2),ruote(10)
	Dim posta(1),poste(2),postee(2)
	posta(1) = 1
	poste(2) = 1
	postee(2) = 2
	ruote(10) = 11
	k = 13
	casi = 1
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = ini To Fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		For p = 1 To 4
			For r = 1 To 9
				a = Estratto(es,r,p)
				p1 = p
				r1 = r + 1
				If r1 < 11 Then
					b = Estratto(es,r1,p1)
					If Cadenza(a) = Cadenza(b) Then
						Scrivi String(100,"-")
						Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ] Numero Spia [ " & Format2(a)_
						& " ]In [ " & Format2(p) & "° ] Posizione - Cadenza [ " & Cadenza(a) & " ]"
						Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] Numero Spia [ " & Format2(b) _
						& " ]In [ " & Format2(p1) & "° ] Posizione - Cadenza [ " & Cadenza(b) & " ]"
						Scrivi String(100,"-") & " caso n° " &(casi)
						casi = casi + 1
						ruota(1) = r
						ruota(2) = r1
						n1(1) = Fuori90(a + b)
						n1(2) = Fuori90(b + 10)
						ImpostaGiocata 1,n1,ruota,posta,k,1
						nn1(1) = n1(1)
						nn1(2) = n1(2)
						nn1(3) = Fuori90(Figura(a) & Figura(b))
						nn1(4) = Fuori90(a - 10)
						EliminaRipetuti nn1
						ImpostaGiocata 2,nn1,ruota,poste,k,2
						nn2(1) = n1(1)
						nn2(2) = n1(2)
						nn2(3) = Fuori90(Figura(a) & Figura(b))
						nn2(4) = Fuori90(a - 10)
						EliminaRipetuti nn2
						ImpostaGiocata 3,nn2,ruote,postee,k,2
						Gioca es,FALSE 'Se usate L8 o Lottodesk togliete ,True,,1 dopo Gioca es
					End If
				End If
			Next
		Next
	Next
	Scrivi String(100,"-")
	Scrivi " Estratti di cadenza uguale isotopi su due ruote consecutive, di Donatella "
	Scrivi String(100,"-")
	ScriviResoconto
End Sub

 

[solare]

Grazie Max-lotto, tutto ok