'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