X Salvo

[chicco3]

Buongiorno salvo quando vuoi potresti farmi questo script dove rilevare due numeretti isotopi su qualsiasi ruota e, uno in orizzontale. Una volta rintracciato come da immagine che ti allego non si fa altro che dritto e vertibile dei due numeretti isotopi. La posizione prescelta è dove vengano rintracciati i primi due numeri in orizzontale. Ti faccio un esempio in data 11.8.2018 vengono rintracciati i seguenti numeri sulle ruote di:-
GE:- 5
VE:-5 e 4

Previsione 55 e 59 ambate in posizione di rilevamento 3 e 4 come da immagine.
Per abbinamento ambo si prende la prima ambata in questo caso il 55 e fare il complemento a 90 e 91 e, cioè nr.35 e36.
Abbinamento x ambo 55 59 35 36 x 9 colpi.
Se puoi mettimi anche l'immagine con i numeretti rilevati.
Spero di essermi spiegato bene e se c'è qualcosa fammi sapere grazie e buona gioranata
Chicco

 

[salvo50]

Ciao a Tutti.

Appena posso lo faccio

 

[chicco3]

Grazie Salvo

 

[salvo50]

Non ho capito bene, su quali ruote dovevo fare la ricerca, l'ho interpretata così, se va bene ok, altrimenti le cambio

'Metodo chiesto da Chicco3
'Buongiorno salvo quando vuoi potresti farmi questo script dove rilevare
'due numeretti isotopi su qualsiasi ruota e, uno In orizzontale.
'Una volta rintracciato come da immagine che ti allego non si fa altro
'che dritto e vertibile dei due numeretti isotopi. La Posizione prescelta
'è dove vengano rintracciati i primi due numeri In orizzontale.
'Ti faccio un esempio In data 11.8.2018 vengono rintracciati i seguenti numeri sulle ruote di:-
'GE:- 5
'VE:-5 e 4
'Previsione 55 e 59 ambate In Posizione di rilevamento 3 e 4 come da immagine.
'Per abbinamento ambo si prende la prima ambata In questo caso il 55 e fare
'il complemento a 90 e 91 e, cioè nr.35 e36.
'Abbinamento x ambo 55 59 35 36 x 9 colpi.
'Se puoi mettimi anche l'immagine con i numeretti rilevati.
'Spero di essermi spiegato bene e se c'è qualcosa fammi sapere grazie e buona giornata
'Chicco
'Script by Salvo50
Option Explicit
Sub Main
   Dim R1,P1,P2,P3,Es,R2,Clp,Esq,Caso,Casi
   Dim Ru(3),Posta(2),Poste(4)
   Dim Num1(2),Num2(4),Tutte(1)
   Dim Salvo50,Ini,FIn,Ind,Comp90,Comp91
   Dim A,B,C,D,E1,E2,CA,CC,AC,Vac
   Scrivi
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   FIn = EstrazioneFin
   Ind = CInt(InputBox("Quante estrazioni vuoi controllare?",Salvo50,100))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",Salvo50,9))
   Ini = FIn - Ind
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      'Scrivi
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            A = Estratto(Es,R1,P1)
            B = A
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P1 + 1)
               If(A > 0 And A < 10) And(C > 0 And C < 10)And(D > 0 And D < 10) Then
                  If A = 9 Then A = 0
                  CA = Cadenza(A)
                  CC = Cadenza(C)
                  A = B
                  AC = CA & CC
                  Vac = Vert(AC)
                  Comp90 = 90 - A
                  Comp91 = 91 - A
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi
                  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 = C Or E2 = D Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E2) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(30) & "Pronostico ",1,0
                  ColoreTesto 2
                  Scrivi Format2(AC) & " " & Format2(Vac) & " " & Format2(Comp90) & " " & Format2(Comp91),1
                  ColoreTesto 0
                  Ru(1) = R1
                  Ru(2) = R2
                  Tutte(1) = TU_
                  Num1(1) = AC : Num1(2) = Vac
                  ImpostaGiocata 1,Num1,Ru,Posta,Clp
                  Num2(1) = AC : Num2(2) = Vac : Num2(3) = Comp90 : Num2(4) = Comp91
                  EliminaRipetuti Num2
                  ImpostaGiocata 2,Num2,Tutte,Poste,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[chicco3]

Ciao Salvo va benissimo ho visto che hai messo anche su tutte, mancano le posizioni, quello ci guardo io.Non so come ringraziarti sei sempre veloce x tutti noi buona gioranata
chicco