Modifica di script

[korokoro]

Modifica di script
Come posso far si che con questo script mi faccia la ricerca
su due ruote determinate..........

Grazie Anticipate Leo


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$


'Ambo di Somma

Sub Main()
Dim am(1),ru(1)

nu = "87.63.60" '---------------------------------------SPIE

fin = EstrazioneFin : ini = fin - 500 'qui' mettere le estrazioni da controllare a ritroso
For es = ini To fin : Messaggio es

For r1 = 1 To 12
If r1 <> 11 Then
ru(1) = r1

sp = Split("0." & nu,".")
For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
If SerieFreq(es,es,sp,ru,1) = 1 Then

For p = 1 To 5
a = Estratto(es,r1,p)
For x = 1 To 3
If a = sp(x) Then sp(x) = 0 : b = a
Next : Next

For r2 = 1 To 12
If r2 <> 11 And r2 <> r1 Then
ru(1) = r2
If SerieFreq(es,es,sp,ru,2) = 1 Then

Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)

End If
End If : Next
End If
End If : Next : Next : End Sub

 

[Roby]

Ciao Korokoro, così dovrebbe andare bene

'Ambo di Somma

Sub Main()
Dim am(1),ru(1)

nu = "87.63.60" '---------------------------------------SPIE
ruota1 = CInt(InputBox("1°RUOTA DI RICERCA?",,5))
ruota2 = CInt(InputBox("2°RUOTA DI RICERCA?",,10))
fin = EstrazioneFin : ini = fin - 3000 'qui' mettere le estrazioni da controllare a ritroso
For es = ini To fin : Messaggio es

r1 = ruota1

ru(1) = r1

sp = Split("0." & nu,".")
For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
If SerieFreq(es,es,sp,ru,1) = 1 Then

For p = 1 To 5
a = Estratto(es,r1,p)
For x = 1 To 3
If a = sp(x) Then sp(x) = 0 : b = a
Next : Next

r2 = ruota2

ru(1) = r2
If SerieFreq(es,es,sp,ru,2) = 1 Then

Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)

End If
End If 


Next  
End Sub

 

[korokoro]

Ciao Korokoro, così dovrebbe andare bene

'Ambo di Somma

Sub Main()
Dim am(1),ru(1)

nu = "87.63.60" '---------------------------------------SPIE
ruota1 = CInt(InputBox("1°RUOTA DI RICERCA?",,8))
ruota2 = CInt(InputBox("2°RUOTA DI RICERCA?",,12))
fin = EstrazioneFin : ini = fin - 1080 'qui' mettere le estrazioni da controllare a ritroso
For es = ini To fin : Messaggio es

r1 = ruota1

ru(1) = r1

sp = Split("0." & nu,".")
For x = 1 To 3 : sp(x) = CInt(sp(x)) : Next
If SerieFreq(es,es,sp,ru,1) = 1 Then

For p = 1 To 5
a = Estratto(es,r1,p)
For x = 1 To 3
If a = sp(x) Then sp(x) = 0 : b = a
Next : Next

r2 = ruota2

ru(1) = r2
If SerieFreq(es,es,sp,ru,2) = 1 Then

Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & Format2(b) & Chr(10) & _
Space(15) & SiglaRuota(r2) & " " & StringaNumeri(sp) & Chr(10)

End If
End If 


Next  
End Sub

ma non da la ricerca giusta
Merci Leo