Piccola modifica scrip

[solare]

Ciao, chiedo cortesemente agli esperti di inserire nello script la possibilità di selezionare la ruota con apposita finestra.
Grazie
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45),mx
S = Space(1)
Ini = EstrazioneFin - 28
Fin = EstrazioneFin - 10
For Es = Ini To Fin
ColoreTesto 0
'Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
Scrivi DataEstrazione(Es) & S,False,False
For R = 3 To 3
ColoreTesto 0
Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
For P = 1 To 4
For Q = P + 1 To 5
D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
Dst(D) = Dst(D) + 1
If mx < Dst(D) Then mx = Dst(D)
If D = 33 Then ColoreTesto 2 Else ColoreTesto 5
Scrivi FormatSpace(D,3,True) & S,False,False
Next
Next
Scrivi
Next
Next
Scrivi
ColoreTesto 0
For P = mx To 1 Step - 1
For D = 1 To 45
If Dst(D) = P Then
Scrivi "Dist." & S & Format2(D) & S & FormatSpace(Dst(D),3,True) & S & "Pres"
End If
Next
Next
End Sub

 

[salvo50]

Ciao Solare

Sub Main
   Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45),mx,RR
   S = Space(1)
   Ini = EstrazioneFin - 28
   Fin = EstrazioneFin - 10
   RR = InputBox(" Inserisci numero ruota BA = 1, CA = 2 ecc... Nazionale = 12 ",,6)
   For Es = Ini To Fin
      ColoreTesto 0
      'Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
      Scrivi DataEstrazione(Es) & S,False,False
      For R = RR To RR
      If R = 11 Then R = 12
         ColoreTesto 0
         Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
         For P = 1 To 4
            For Q = P + 1 To 5
               D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
               Dst(D) = Dst(D) + 1
               If mx < Dst(D) Then mx = Dst(D)
               If D = 33 Then ColoreTesto 2 Else ColoreTesto 5
               Scrivi FormatSpace(D,3,True) & S,False,False
            Next
         Next
         Scrivi
      Next
   Next
   Scrivi
   ColoreTesto 0
   For P = mx To 1 Step - 1
      For D = 1 To 45
         If Dst(D) = P Then
            Scrivi "Dist." & S & Format2(D) & S & FormatSpace(Dst(D),3,True) & S & "Pres"
         End If
      Next
   Next
End Sub

 

[solare]

Ciao Salvo50, grazie come sempre della tua gentilezza e bravura

 

[i legend]

Ciao , se serve inserire da input box si potrebbe utilizzare scegliruota e sarebbe inutile il ciclo for
Altrimenti utilizzeremo scegliruote(ar)
Molto versatile perché si possono selezionare una o più ruote il for cicla l array che potrebbe contenere una o più ruote.
Ovviamente anche l input box va bene ,queste sono due alternative possibili.
Ciao a tutti
Fa piacere rileggerti Salvo