Per Salvo50

[sorujoe]

Ciao Salvo
ti chiedo questo script
Io immetto 2 numeri che devono essere presenti uno su una ruota e l'altro su altra ruota, indico la posizione che devono occupare gli estratti; pronostico per estratto e superiori di massimo 10 numeri e data inizio script in genere uso concorso 8.117
lo script mi analizza tutte le volte che i numeri sono usciti in una qualsiasi coppia di ruota (nazionale inclusa) nei colpi da me indicati cosa hanno prodotto dall'estratto in su.

ESEMPIO
Bari 71 Napoli 40 posizione 1a per entrambe (la posizione deve essere sempre 1 quindi numeri isotopi) per 18 colpi dal concorso 8117 pronostico: 11.22.33.44.55.66.77.87.88.89 da estratto in su
lo script mi rileverà ogni qualvolta in 1a posizione siano sortiti in modo isotopo 40 e 71 quali sorti ha centrato la decina (max 10 numeri) per estratto o superiore

n.b.
Il numero fra le 2 ruote puo essere anche il medesimo esempio 54 per tutte e due

GRAZIE

 

[sorujoe]

se l'amico Salvo fosse indisponibile chiedo aiuto ai vari esperti scripter Grazie

 

[salvo50]

Ciao a Tutti.
Ciao Sorujoe
In questo periodo sono impegnato con altro, se la richiesta è semplice, roba che riesco a fare in 10 minuti lo faccio, ma se richiede molto più tempo, come per la tua richiesta (almeno per me non è semplice) e meglio che te lo fa un'altro.

 

[sorujoe]

Grazie lo stesso aspetto fiducioso l'intervento di altro esperto

 

[salvo50]

Ho modificato leggermente uno script che ti avevo fatto a Giugno del 2019, spero vada bene

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,P4,E1,E2
   Dim Spia1,Spia2,A,B,Caso,Casi
   Dim Ruo(2),Post(5)
   ReDim aNum(20)
   Post(1) = 1
   Post(2) = 1
   Post(3) = 1
   Post(4) = 1
   Post(5) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,8117))
   Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,40))
   Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,71))
   P1 = CInt(InputBox("Inserisci la posizione della 1ª e 2ª Spia",Salvo50,1))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER SORUJOE, 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",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,P1)
         For R2 = R1 + 1 To 12
            If R1 = 11 Then R2 = 12
            B = Estratto(Es,R2,P1)
            If(A = Spia1 And B = Spia2) Or(A = Spia2 And B = Spia1) Or(A = Spia1 And B = Spia1) Or(A = Spia2 And B = Spia2)Then
                
               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 Then ColoreTesto 2 Else ColoreTesto 0
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               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 = B Then ColoreTesto 2 Else ColoreTesto 0
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi
               Ruo(1) = R1
               Ruo(2) = R2
               ImpostaGiocata 1,aNum,Ruo,Post,Clp
               Gioca Es
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[sorujoe]

G R A Z I E
Se potessi ti clonerei