Novità

X Salvo

chicco3

Advanced Member
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

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

Codice:
'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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 09 settembre 2025
    Bari
    80
    40
    25
    05
    49
    Cagliari
    88
    51
    28
    38
    67
    Firenze
    83
    86
    78
    03
    77
    Genova
    29
    67
    66
    25
    63
    Milano
    85
    66
    63
    75
    60
    Napoli
    78
    60
    75
    41
    69
    Palermo
    49
    50
    88
    34
    19
    Roma
    40
    47
    61
    57
    09
    Torino
    20
    86
    42
    53
    28
    Venezia
    33
    60
    83
    75
    14
    Nazionale
    87
    81
    08
    22
    78
    Estrazione Simbolotto
    Palermo
    42
    33
    44
    16
    36
Indietro
Alto