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
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
Indietro
Alto