Per Rubino script non corrispondente

[sorujoe]

Ti chiedevo sul secondo script di indicare io le posizioni dell'ambo avente differenza scelta ma il gioco deve essere come è in questo script su tutte le coppie di ruote (in quello che mi hai modificato le ruote devo inserirle io)
Puoi modificarmi questo in modo che indichi la posizione dei 2 numeri aventi la distanza immessa ma il gioco deve svolgersi com'è in questo script su tutte le coppie di ruote GRAZIE

p.s.
non ho controllato ma non vorrei che fosse colpa mia per un errato copi/incolla ma lo script delle distanze è questo se puoi gentilmente correggilo grazie ancora

 

[sorujoe]

SCRIPT DA MODIFICARE

Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50,K,G
Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
Dim Dist,A,B,C,D,Sorte,D1,D2,Idestr
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9100))
Dist = CInt(InputBox("Inserisci la Distanza Ciclometrica da trovare",Salvo50,15))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
Call ScegliNumeri(aNum)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "PER BYRON 2 DISTANZE CICLOMETRICHE UGUALI PER LUNGHETTA - SCRIPT SALVO50 con l'aiuto di Master",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
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)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
D1 = Distanza(A,B) : D2 = Distanza(C,D)
If(D1 = D2 And D1 = Dist) Then
Ruo(1) = R1
Ruo(2) = R2
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Rossi Distanza " & D1,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Rossi Distanza " & D2,1
Scrivi
Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
Scrivi
K = 0 : G = 0
G = Es + Clp
If G > FIn Then G = FIn
For Idestr = Es + 1 To G
K = K + 1
Call VerificaEsito(aNum,Ruo,Idestr,1,1,Nothing,RetEsito ,RetColpi,RetEstratti,RetId)
ColoreTesto 0
If RetEsito = "" Then Scrivi Idestr & " - " & Format2(K) & "° - " & Space(30) & " ESITO NON VERIFICATO ",1,,,1
If RetEsito <> "" Then
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Cinqina" Then ColoreTesto 3
Call Scrivi(Idestr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

 

[sorujoe]

Nel frattempo passasse da qui qualche scripter chiedo intervento GRAZIE

 

[Rubino]

buona domenica

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,K,G
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
   Dim Dist,A,B,C,D,Sorte,D1,D2,Idestr,pos1nr,pos2nr
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9100))
   Dist = CInt(InputBox("Inserisci la Distanza Ciclometrica da trovare",Salvo50,15))
   pos1nr = CInt(InputBox("1 POSIZIONE",,1))
   pos2nr = CInt(InputBox("2 POSIZIONE",,3))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "PER BYRON 2 DISTANZE CICLOMETRICHE UGUALI PER LUNGHETTA - SCRIPT SALVO50 con l'aiuto di Master",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         A = Estratto(Es,R1,pos1nr)
         B = Estratto(Es,R1,pos2nr)
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            C = Estratto(Es,R2,pos1nr)
            D = Estratto(Es,R2,pos2nr)
            D1 = Distanza(A,B) : D2 = Distanza(C,D)
            If(D1 = D2 And D1 = Dist) Then
               Ruo(1) = R1
               Ruo(2) = R2
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi "Byron - Salvo -9 ",1
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P3 = 1 To 5
                  E1 = Estratto(Es,R1,P3)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " <-- Rossi Distanza " & D1,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R2) & " ",1,0
               For P4 = 1 To 5
                  E2 = Estratto(Es,R2,P4)
                  If E2 = C Or E2 = D Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " <-- Rossi Distanza " & D2,1
               Scrivi
               Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
               Scrivi
               K = 0 : G = 0
               G = Es + Clp
               If G > FIn Then G = FIn
               For Idestr = Es + 1 To G
                  K = K + 1
                  Call VerificaEsito(aNum,Ruo,Idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                  ColoreTesto 0
                  If RetEsito = "" Then Scrivi Idestr & " - " & Format2(K) & "° - " & Space(30) & " ESITO NON VERIFICATO ",1,,,1
                  If RetEsito <> "" Then
                     If RetEsito = "Ambo" Then ColoreTesto 2
                     If RetEsito = "Terno" Then ColoreTesto 1
                     If RetEsito = "Quaterna" Then ColoreTesto 7
                     If RetEsito = "Cinqina" Then ColoreTesto 3
                     Call Scrivi(Idestr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                     ColoreTesto 0
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

 

[sorujoe]

Grazie di cuore sei stato perfetto grazie ancora