per joe91 piccola modifica a uno script

[Zetrix]

ciao Joe puoi postare lo script in merito alla chiusura della terzina simm vorrei vedere con quali abb si porta dietro nella ruota diam grazie

 

[Joe91]

Bi_Metodo

Bi_Metodo

'Bi_Metodo per Terzine Simmetriche di Zetrix Script By Joe V.3.0 Alba, 19/03/2013  
Sub Main()
 Dim Ruote(10)
 Dim Ruota(1)
 Dim Am(3)
 Dim Poste(2)
 '--------------------------------------------------
 Poste(1) = 1 '<---per estratto
 Poste(2) = 1 '<---per ambo
 S = InputBox("'S' = Somma Estratti in Distanza30 " & Chr(13) & "'T' = Terzo Simm. Mancante su Ruota Diam.","SCELTA METODO","T")
 If LCase(S) = "t" Then Secondo = True
 Ini = EstrazioneFin - 15 '<----Imposta estrazione precedenti
 Fin = EstrazioneFin
 For Es = Ini To Fin
  Messaggio "Estrazione: " & Es
  For r = 1 To 10
   For P1 = 1 To 4
    P2 = P1 + 1 ' <--- ambo unito
    '----------------------------------------------- Prelievo Dati _ Verifica Condizioni
    A1 = Estratto(Es,r,P1)
    A2 = Estratto(Es,r,P2)
    d1 = Distanza(A1,A2)
    If d1 = 30 Then '<---- distanza ciclometrica
     rd = RuotaDiametrale(r)
     A = Fuori90(A1 + A2) '<----Calcola Vertice del Triangolo Simmetrico
     '------------------------------------------------ PRIMO METODO
     Ruote(1) = r '<---- Gioca sulla ruota di prelievo
     Am(1) = A
     Am(2) = Fuori90(A + 30)
     Am(3) = Fuori90(A + 60)
     '------------------------------------------------ FINE primo metodo
     If Secondo = True Then
      Terzo A1,A2,A3 '<---- Calcola Vertice del Triangolo Simmetrico
      Ruote(1) = rd  '<---- Gioca ruota diametrale a quella di prelievo
      Am(1) = A1
      Am(2) = A2
      Am(3) = A3
     End If
     '------------------------------------------------ FINE SECONDO metodo
     T = T + 1
     Scrivi
     Scrivi String(100,"=") & " " & FormatSpace(T & "°",5,1),1
     Scrivi DataEstrazione(Es) & " [" & Left(NomeRuota(r),2) & "] " & Format2(A1) & "-" & Format2(A2),0,0
     If Secondo = False Then Scrivi " [" & Format2(P1) & "-" & Format2(P2) & "] " & " Primo metodo. Chiusura " & Format2(A)
     If Secondo = True Then Scrivi" Secondo Metodo.  Terzo Simm. " & Format2(A3) & " [" & Left(NomeRuota(rd),2) & "] "
     Scrivi String(106,"-")
     ImpostaGiocata 1,Am,Ruote,Poste,5,1 '<----Imposta colpi di gioco
     'For c = 2 To 6
     ' For d = 2 To 6
     '  ImpostaInterruzioni c,d,2
     '  ImpostaInterruzioni 1,c,2
     '  ImpostaInterruzioni c,1,1
     ' Next
     'Next
     Gioca Es
    End If
   Next
  Next
 Next
 Scrivi String(92,"=") & FormatSpace(" Script By Joe",6,1),1
 ScriviResoconto
End Sub
Sub Terzo(x,y,z) 'By Joe
 If Fuori90(x + 30) <> y Then
  z = Fuori90(x + 30)
 Else
  z = Fuori90(y + 30)
 End If
End Sub

 

[Zetrix]

grazie mille Joe questo script e un capolavoro grazie