Per Mike

[rodrigo]

Ciao Mike stavo provando ad aggiungere a questo script anche le ruote di Bari e Nazionale ma non riesco perché evidentemente sbaglio da qualche parte, mi daresti una mano nell'aggiunta?
Ti ringrazio in anticipo.

ColoreTesto 2 :Scrivi String(37,32) 


Scrivi String(47,32) 
ColoreTesto 0

Sub Main()
Dim nu(2)
Dim posta(2),poste(2)
Dim ruote(2)
posta(1) = 1
posta(2) = 1
poste(2) = 1
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
Messaggio es
For r1 = 1 To 9
For p1 = 1 To 5
a1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 10
a2 = Estratto(es,r2,p1)
If Distanza(a1,a2) = 30 Then

a = Fuori90(a2 + 30)
If a = a1 Then a = Fuori90(a2 + 60)
b = Fuori90(a + 18)'ambata
c = Fuori90(90 + b - 30)'ambata
d = Fuori90(90 + b - 4)' 1° abbinamento
e = Fuori90(90 + d - 30)' 2° abbinamento
f = Diametrale(e)
Scrivi "---------------------------------------",1
Scrivi "Numeri isotopi Distanza 30 --> " & a1 & " " & a2,1
Scrivi

ruote(2) = r2
nu(1) = b
nu(2) = c
ImpostaGiocata 1,nu,ruote,posta,9

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & "NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
Scrivi String(47,32) & "by DjNomade",1
ColoreTesto 0
End Sub

 

[Mike58]

Ciao Rodrigo per la ruota nazionale mancava il ciclo for che lo allaciava e poi mancava l'assegnazione del vettore Ruota(1) = r1

Ad ogni modo ti ho fatto le correzioni necessarie.

ColoreTesto 2 :Scrivi String(37,32)
Scrivi String(47,32)
ColoreTesto 0
Sub Main()
	Dim nu(2)
	Dim posta(2),poste(2)
	Dim ruote(2)
	posta(1) = 1
	posta(2) = 1
	poste(2) = 1
	fin = EstrazioneFin
	ini = fin - 100
	For es = ini To fin
		Messaggio es
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For p1 = 1 To 5
				a1 = Estratto(es,r1,p1)
				For r2 = r1 + 1 To 12
					If r2 = 11 Then r2 = 12
					a2 = Estratto(es,r2,p1)
					If Distanza(a1,a2) = 30 Then
					
						a = Fuori90(a2 + 30)
						If a = a1 Then a = Fuori90(a2 + 60)
						k = k + 1
						b = Fuori90(a + 18)'ambata
						c = Fuori90(90 + b - 30)'ambata
						d = Fuori90(90 + b - 4)' 1° abbinamento
						e = Fuori90(90 + d - 30)' 2° abbinamento
						f = Diametrale(e)
						Scrivi String(100,"-") & " Caso n. " & k ,1
						Scrivi "Condizione Trovata in data " & DataEstrazione(es),1,1,,1,2
						Scrivi "Numeri isotopi Distanza 30 --> " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " > " & " In Posiz. " & p1 & "  " & a1,1
						Scrivi "Numeri isotopi Distanza 30 --> " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & " > " & " In Posiz. " & p1 & "  " & a2,1
						Scrivi String(110,"="),1
						Scrivi
						ruote(1) = r1
						ruote(2) = r2
						nu(1) = b
						nu(2) = c
						ImpostaGiocata 1,nu,ruote,posta,9
						Gioca es
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 2 :Scrivi String(37,32) & "NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
	Scrivi String(47,32) & "by DjNomade",1
	ColoreTesto 0
End Sub

 

[rodrigo]

Grazie Mike, gentilissimo come sempre ho imparato un altra cosa!

 

[Mike58]

Apprendere ed imparare è una crescita per tutti e solo applicandosi passo per passo e con l'aiuto guida script si cresce in conoscenza.

Ciao