kubes
Senior Member
ciao salvo ho questo script fatto da te , cortesemente mi serve una correzione . esempio:
Estrazione n.9672 del 22.08.2019 CA 72 29 60 05 40
Estrazione n.9672 del 22.08.2019 NA 37 71 88 01 03
in questo caso a NA abbiamo il 3 in 5° posizione .
a me occorre trovare i numeretti isotopi e che abbiano a loro volta un altro numeretto al loro fianco
esempio:
Estrazione n.9672 del 22.08.2019 NA 37 71 88 01 03
Estrazione n.9672 del 22.08.2019 TO 08 42 05 33 03
qui abbiamo 1 in 4° posizione
quindi togliere tutte le ricerche che non soddisfano i requisiti
e calcolare come segue
ca-na
05+01=6 verticale
05+03=08 diagonale
03+01=4 orizzontale
na-to
03+03=6 verticale
03+01=4 diagonale
01+03=4 orizzontale
Estrazione n.9672 del 22.08.2019 CA 72 29 60 05 40
Estrazione n.9672 del 22.08.2019 NA 37 71 88 01 03
in questo caso a NA abbiamo il 3 in 5° posizione .
a me occorre trovare i numeretti isotopi e che abbiano a loro volta un altro numeretto al loro fianco
esempio:
Estrazione n.9672 del 22.08.2019 NA 37 71 88 01 03
Estrazione n.9672 del 22.08.2019 TO 08 42 05 33 03
qui abbiamo 1 in 4° posizione
quindi togliere tutte le ricerche che non soddisfano i requisiti
e calcolare come segue
ca-na
05+01=6 verticale
05+03=08 diagonale
03+01=4 orizzontale
na-to
03+03=6 verticale
03+01=4 diagonale
01+03=4 orizzontale
Codice:
Option Explicit
Sub Main
Dim R1,P1,P2,P3,Es,R2,Clp,Esq,Caso,Casi
Dim Ru(2),Poste(2),Posta(1),Num1(1)
Dim Num2(2),Tutte(1),Posts(2),Num3(3)
Dim Salvo50,Ini,FIn,Ind
Dim A,B,C,D,E1,E2,CA,CB,AB,Vab,VaR
Scrivi
Posta(1) = 1
Poste(1) = 1
Poste(2) = 1
Posts(2) = 1
FIn = EstrazioneFin
Ind = CInt(InputBox("Quante estrazioni vuoi controllare?",,17))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,6))
Ini = FIn - Ind
For Es = Ini To FIn
AvanzamentoElab Ini,FIn,Es
Scrivi
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
B = Estratto(Es,R2,P1)
If(A > 0 And A < 9) And(B > 0 And B < 10) Then
CA = Cadenza(A)
CB = Cadenza(B)
AB = Fuori90(CB & CA)
Vab = DiametraleD(AB)
VaR = Vab + CA
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 = B 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(AB) & " " & Format2(Vab) & " " & Format2(VaR),1 : ColoreTesto 0
Scrivi
Ru(1) = R1
Ru(2) = R2
Tutte(1) = TU_
Num1(1) = AB
ImpostaGiocata 1,Num1,Ru,Posta,Clp
Num2(1) = AB : Num2(2) = Vab
ImpostaGiocata 2,Num2,Ru,Poste,Clp
Num3(1) = AB : Num3(2) = Vab : Num3(3) = VaR
ImpostaGiocata 3,Num3,Tutte,Posts,13,2
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
