Script sulla distanza

[80Sete]

Avrei un'altra richiesta, ho riformattato il PC....ed ho perso alcuni script, chiedo per cortesia se qualcuno potrà compormi il seguente script:

Dovrà esserci una distanza Isotopa tra DUE qualsiasi Ruote (anche non consecutive) esempio 45 ....di volta in volta andrò a cambiarla nello script.
Nella condizione trovata ci saranno da mettere in gioco max. 6 nr. ....esempio 1-2-3-4-5-6 (saranno cambiati come la distanza)
Riassumendo, dovrei fare le mie ricerche, con la possibilità di : cambiare la distanza....le Ruote...e i 6 nr. da mettere in gioco (10 Colpi).
Ringrazio in anticipo chi potrà aiutarmi, e saluto chi passerà da qui
Buona giornata

 

[Master]

Ciao, guarda questo se è quello che cerchi

Sub Main()
Dim ru(2),poste(3)
poste(2) = 1 : poste(3) = 1
n =CInt(InputBox("Quale Distanza vuoi cercare?",,45))
r1 =CInt(InputBox("Prima Ruota?",,3))
r2 =CInt(InputBox("Seconda Ruota?",,6))
x =InputBox("Quante estrazioni vuoi analizzare?",,50)
k =InputBox("Per quanti colpi vuoi giocare?",,9)
nu =InputBox("Quale lunghetta, vuoi giocare x AT ",,"1.2.3.4.5.6")
If nu = "" Then Exit Sub
nu = "0." & nu
lung =Split(nu,".")
co = 0
For es =EstrazioneFin- x + 1 To EstrazioneFin
Messaggio es
For p = 1 To 5
a =Estratto(es,r1,p): b =Estratto(es,r2,p)
If Distanza(a,b) = n Then
co = co + 1
Scrivi Chr(10) &String(67,"-") & " Caso n° " & co : ColoreTesto 1
Scrivi DataEstrazione(es) & "" &SiglaRuota(r1) & "" &StringaEstratti(es,r1) & "" & a & " Pos " & p & " Dis " & n,1
Scrivi DataEstrazione(es) & "" &SiglaRuota(r2) & "" &StringaEstratti(es,r2) & "" & b & " Pos " & p & " Dis " & n,1
Scrivi: ColoreTesto 0
ru(1) = r1 : ru(2) = r2
ImpostaGiocata 2,lung,ru,poste,k
Gioca es
End If
Next
Next
ScriviResoconto
End Sub

 

[80Sete]

Grazie...grazie1000 Master, andrò a provarlo appena possibile,(ora sono via) ma dalle voci che hai inserito....."quale distanza" "1à Ruota" etc.etc. credo che sarà ottimo, sei stato gentilissimo. grazie ancora e buon week end.

 

[80Sete]

Ciao Master, mi viene questo errore, e non so modificarlo.

 

[Master]

ciao, lo script si era sformattato l'ho messo a posto. riscaricalo

 

[80Sete]

Bellissima sorpresa....rientrare a casa e trovare il tutto, grazie ancora Master, ora è tutto ok, inizia l'avventura di trovare qualcosa di concreto con questo script, e in seguito metterlo a disposizione di tutti.
Buona domenica