Richesta script.

[Antoniolotto]

Possibile avere uno script che elabori in tre estrazioni consecutive le distanze

esempio: estrazione primo agosto primo bari 1---- estrazione 3 agosto primo bari 2 estrazione 5 agosto 3 il tutto distanza 1

spero sia stato chiaro.

grazie anticipatamente.

[DjNomade]

Mi è venuto cosi' ..controlla questo

Ciauz Buon Ferragosto!!!

Codice: Seleziona tutto

ColoreTesto 1 : Scrivi "X Antoniolotto List.DjNomade",1 :ColoreTesto 0
Sub main()
Dim rt1(1),rtt(2),posta(1),pt1(2)
Dim amb(2)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",550))

casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
Messaggio "elab. del "&dataestrazione(es)&" [ List.DjNomade ]"
   For r1=1 To 11
   If r1=11 Then r1=12
      For p1=1 To 5
      c=Estratto(es-2,r1,p1) : b=Estratto(es-1,r1,p1): a=Estratto(es,r1,p1)
         If Distanza(a,b)=1 And  Distanza(c,b)=1 Then
         amb(1)=90-a : amb(2)=Vert (amb(1))
         rt1(1)=r1:rtt(1)=r1:rtt(2)=11
         posta(1)=1 :pt1(2)=1
casi=casi+1:Scrivi String(75,"="),1
Scrivi String(64,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione(es-2)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es-2,r1)&_
" ] [ "&Format2(c)&" in "&p1&"^ pos. ]"
Scrivi DataEstrazione(es-1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es-1,r1)&_
" ] [ "&Format2(b)&" in "&p1&"^ pos. ]"
Scrivi DataEstrazione(es)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&Format2(a)&" in "&p1&"^ pos. ]"

Scrivi



         End If
      Next
   Next
Next

 End Sub

[Antoniolotto]

grazie mille...se la trovasse in automatico sarebbe più semplice...