Modifica script per Salvo50 o altro scripter

[sorujoe]

Ciao e grazie per gli script che mi hai fatto.
Ti chiedo se puoi modificarmi questo tuo script in tal senso:
Trovare in 2 estrazioni consecutive una coppia di vertibili isotopi.
Esempio:
01-01-2018 bari 5° estratto 78
03-01-2018 bari 5° estratto 87

mi avevi fatto questo ottimo su stesso sorteggio ma su 2 ruote ...grazie Salvo se puoi o a chi mi aiuterà grazie ancora in anticipo

Option Explicit

Sub Main

Dim FIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2

Dim Idestr,Col,Esqcol,Esq,Caso,Casi

FIn = EstrazioneFin

Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)

Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))

Esqcol = Esq + Col

If Esqcol > FIn Then Esqcol = FIn

For Es = Esq To Esqcol

Caso = 0

AvanzamentoElab Esq,Esqcol,Es

For R1 = 1 To 10

For P1 = 1 To 5

A = Estratto(Es,R1,P1)

For R2 = R1 + 1 To 12

If R2 = 11 Then R2 = 12

B = Estratto(Es,R2,P1)

If A = Vert(B) Then

Caso = Caso + 1

Casi = Casi + 1

ColoreTesto 1

Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")

ColoreTesto 2

Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")

ColoreTesto 0

Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0

Scrivi " " & SiglaRuota(R1) & " ",1,0

For P2 = 1 To 5

E1 = Estratto(Es,R1,P2)

If E1 = A Then

Call ColoreTesto(2)

Else

Call ColoreTesto(0)

End If

Call Scrivi(Format2(E1) & " ",1,0)

Call ColoreTesto(0)

Next

Scrivi

Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0

Scrivi " " & SiglaRuota(R2) & " ",1,0

For P3 = 1 To 5

E2 = Estratto(Es,R2,P3)

If E2 = B Then

Call ColoreTesto(2)

Else

Call ColoreTesto(0)

End If

Call Scrivi(Format2(E2) & " ",1,0)

Call ColoreTesto(0)

Next

Scrivi

End If

Next

Next

Next

Next

End Sub

 

[salvo50]

Ciao a Tutti

Non ho capito qual'è la modifica che chiedi, fai un esempio, anche fittizio.

 

[sorujoe]

Ciao Salvo
Il software deve ricercare non su 1 stesso concorso ma su 2 concorsi consecutivi su una stessa ruota una coppia di vertibili isotopa
Esempio ipotetico:
01-01-2018 bari 5° estratto 78
03-01-2018 bari 5° estratto 87
Grazie

 

[salvo50]

Vedi se ho capito

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2
   Dim Idestr,Col,Esqcol,Esq,Caso,Casi
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = Vert(B) Then
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = A Then
                     Call ColoreTesto(2)
                  Else
                     Call ColoreTesto(0)
                  End If
                  Call Scrivi(Format2(E1) & " ",1,0)
                  Call ColoreTesto(0)
               Next
               Scrivi
               Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P3 = 1 To 5
                  E2 = Estratto(Es + 1,R1,P3)
                  If E2 = B Then
                     Call ColoreTesto(2)
                  Else
                     Call ColoreTesto(0)
                  End If
                  Call Scrivi(Format2(E2) & " ",1,0)
                  Call ColoreTesto(0)
               Next
               Scrivi
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

 

[sorujoe]

SEI UNA BOMBA G R A Z I E