Per gli scripter

[rabberto]

Ciao ragazzi cerco uno script che mi calcoli la distanza tra due estratti su due ruote ma in verticale :

ES : BARI : 1 - 2 - 3 - 4 - 5
CAGLIARI : 6 - 7 - 50 - 60 - 70

Quindi la distanza in verticale tra il primo e secondo di bari e cagliari e uguale a 5 .

Spero di essere stato chiaro e che qualcuno mi possa aiutare , ciao .

 

[Roby]

Ciao Rabberto, vedendo l'esempio forse cerchi gli ambi a distanza?

Blackmore

 

[Roby]

Questo script trova gli ambi a distanza 5 in verticale (da cambiare a proprio piacimento), ma non in posizione isotopa... (a meno che non lo modifichi)


Sub Main()
Dim ruote(2)
di=5 '<--------per cambiare distanza, sostituire il n°5
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2=p1+1 To 5
a= Estratto (es,r1,p1)
b= Estratto (es,r1,p2)

If Distanza (a,b)=di Then
For r2 =r1+1 To 10
For p3= 1 To 4
For p4= p3+1 To 5
c= Estratto (es,r2,p3)
d= Estratto (es,r2,p4)
If Distanza (c,d)=di Then

Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a) &" "& Format2 (c)
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b) & " " & Format2 (d)
End If : Next : Next : Next
End If : Next : Next : Next : Next : End Sub

Ciao

Blackmore

 

[rabberto]

Grazie Blackmore per questo script , pero' questo calcola la distanza in orizzontale , a me serve uno che calcoli la distanza in verticale , grazie , ciao .

 

[Roby]

quote:Originally posted by rabberto

Grazie Blackmore per questo script , pero' questo calcola la distanza in orizzontale , a me serve uno che calcoli la distanza in verticale , grazie , ciao .

rabberto, la distanza è verticale
Fi 32 - 57
To27 -52
Distanza verticale 32-27 =5
Distanza verticale 57-52 =5

Blackmore

 

[rabberto]

OK Blackmore hai ragiove e giusto ho sbagliato io , scusami adesso l'ho ricontrollato va bene , grazie tante , a buon rendere , ciao .

 

[rabberto]

Mica per favore sai la riga da modificare per far si che mi calcoli solo gli ambi in posizione isotopa , grazie , ciao.

 

[Roby]

No purtroppo, mi spiace

Blackmore

 

[JackMan]

quote:Originally posted by rabberto

Mica per favore sai la riga da modificare per far si che mi calcoli solo gli ambi in posizione isotopa , grazie , ciao.

Sub Main()
Dim ruote(2)
di=5 '<--------per cambiare distanza, sostituire il n°5
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5
For p2=p1+1 To 5
a= Estratto (es,r1,p1)
b= Estratto (es,r1,p2)

If Distanza (a,b)=di Then
For r2 =r1+1 To 10
c= Estratto (es,r2,p1)
d= Estratto (es,r2,p2)
If Distanza (c,d)=di Then
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a) &" "& Format2 (c)&" - "&p1&"/"&p2&"^ pos."
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b) & " " & Format2 (d)&" - "&p1&"/"&p2&"^ pos."
End If : Next 
End If : Next : Next : Next : Next : End Sub

sua eccellenza è servita
ciaoooo ragà


"...Studia il passato per conservare il futuro...."

 

[rabberto]

Grazie JackMan adesso va benissimo , ciao .