un aiuto per script

[Sampei]

un saluto è buon 2017 a tutti i forumini,

se e possibile avere un aiuto per uno scrpt che giri su spaziometria ,che trovi su tutte le ruote 2 numeri che formano un ambo diametrale in verticale es:estrazione del 31/12/2016

sulla rota di TO uscivano 33-42-46-88-39

VE- 41-87-23- 61-10

quindi 42 a TO 87 A VE,ambo diametrale verticale da trovarsi in qualunque ruota e in qualunque posizione

grazie

 

[Master]

Buonasera
Ho questo prova se ti va bene

'Ambo Diametrale Verticale
Sub Main()
 ce = InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",10)
 ini = EstrazioneFin - ce
 fin = EstrazioneFin
 For es = Ini To EstrazioneFin
  ColoreTesto 1 : Scrivi String(7,"=") & " " & DataEstrazione(es) & " " & String(7,"="),1 : ColoreTesto 0
  For r = 1 To 10
   For p = 1 To 5
    For r1 = r + 1 To 11
     If r1 = 11 Then r1 = 12
     For p1 = 1 To 5
      a = Estratto(es,r,p): b = Estratto(es,r1,p1)
      If Distanza(a,b) = 45 Then
       If p = p1 Then ColoreTesto 2 Else ColoreTesto 0
       Scrivi " " & Format2(p) & "^ " & FormatSpace(SiglaRuota(r),4) & FormatSpace((a),6),0,0
       Scrivi Format2(p1) & "^ " & FormatSpace(SiglaRuota(r1),4) &(b)
      End If
     Next
    Next
   Next
  Next
  Scrivi
 Next
End Sub

 

[Sampei]

buongiorno ciao master,ti ringrazio per la risposta,ma non e quello che cercavo,non e che mi deve dare le estrazioni in verticale ma trovarmi in ogni estrazioni su due ruote qualsiasi delle 11 ruote due numeri che formano in verticale un ambo diametrale,allora praticamente di solito si dice che e uscito un ambo diametrale quando su una sola ruota esce (portiamo lo stesso esempio che ho fatto nel post sopra)uscto a TO l'ambo diametrale 42-87,come vedi i due numeri sulla stassa ruota,invece a serve che lo scipt me lo trovi,il 42 su VE E 87 SU TO o viceversa
oppure su altre ruote, ma non solo il 42-87 ma tutti gli ambi diametrali che escono in verticale un numero su una ruota e l'altra su un'altra ruota non importa quale,non e molto semplice da spiegare io ci ho provato comunque ti ringrazio ancora per la risposta buona giornata

 

[Master]

????
lo script trova gli ambi verticali diametrali (un numero su una ruota un numero su un'altra ruota)
se guardi l'estrazione del 31/12 quella del tuo esempio ci sono 10 ambi verticali diametrali
fra cui il 2° estratto di Torino 42 ed il 2° di VE 87 proprio quella del tuo esempio
in rosso sono quelli isotopi


======= 31.12.2016 =======
02^ BA 74 04^ NZ 29
05^ BA 87 02^ TO 42
01^ FI 17 05^ NA 62
02^ FI 1 03^ TO 46
04^ FI 55 03^ NA 10
04^ FI 55 05^ VE 10
01^ GE 84 05^ TO 39
01^ NA 8 05^ RO 53
02^ NA 56 02^ PA 11
02^ TO 42 02^ VE 87 <----

 

[Sampei]

ciao master

ecco adesso ci siamo proprio così

 

[Sampei]

trovato lo script su un altro forum grazie lo stesso buona befana a tutti