'Metodo chiesto da JURI per numeretti e da Miki55 per gli zerati
'un'altra modifica da Salvo50 incrociare i numeretti con gli zerati
'
'Si cercano 2 numeretti stessa Posizione su 2 ruote.
'Poi si uniscono le cifre e la prima ambata principale e
'il vertibile la secondaria. Lo stesso con gli zerati,
'si prendono solo le cifre delle decine.
'Per gli incroci si prendono decine e cadenze e viceversa
'con Modifica proposta da Alien, cercare l'ambo e terno su tutte le ruote
'Script by Salvo50
Option Explicit
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(3),num3(3)
Dim Salvo50,Ini,FIn,Ind,Tutti,OK
Dim A,B,C,D,E1,E2,CaA,CaB,DeA,DeB,Amb,VAmb
Sub Main
Scrivi
Posta(1) = 1
Poste(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ind = CInt(InputBox("Quante estrazioni vuoi controllare?",Salvo50,10))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",Salvo50,6))
Tutti = CInt(InputBox("Vuoi fare la ricerca di ambo e terno per tutte le ruote? SI = 1 - NO = qualunque altra cifra",Salvo50,1))
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)
C = A
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
B = Estratto(Es,R2,P1)
DeA = Decina(A) : DeB = Decina(B) : CaA = Cadenza(A) : CaB = Cadenza(B)
If(DeA = 0 And CaB = 0)Or(CaA = 0 And DeB = 0)Or(CaA = 0 And CaB = 0) Or(DeA = 0 And DeB = 0) Then
OK = 0
If(DeA = 0 And CaB = 0) Then
Amb = CaA & DeB
Call Magg1(Amb,DeB)
OK = 1
End If
If(CaA = 0 And DeB = 0) Then
Amb = DeA & CaB
Call Magg2(Amb,CaB)
OK = 1
End If
If(CaA = 0 And CaB = 0) Then
Amb = DeA & DeB
Call Magg1(Amb,DeB)
OK = 1
End If
If(DeA = 0 And DeB = 0) Then
Amb = CaA & CaB
Call Magg2(Amb,CaB)
OK = 1
End If
VAmb = Vert(Amb)
A = C
If OK = 1 Then
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(Amb) & " " & Format2(VAmb),1 : ColoreTesto 0
Ru(1) = R1
Ru(2) = R2
Tutte(1) = TU_
Num1(1) = Amb
ImpostaGiocata 1,Num1,Ru,Posta,Clp
Num2(1) = Amb : Num2(2) = VAmb
ImpostaGiocata 2,Num2,Ru,Poste,Clp
If Tutti = 1 Then
num3(1) = Amb : num3(2) = VAmb : num3(3) = Fuori90(Amb + VAmb)
ImpostaGiocata 3,num3,Tutte,Posts,13
End If
Gioca Es
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Function Magg1(Amb,Deb)
If Amb > 90 Then
Amb = 0 & Deb
End If
End Function
Function Magg2(Amb,CaB)
If Amb > 90 Then
Amb = 0 & CaB
End If
End Function
