Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Clp1,A,B,E1,R1,R2,P1,P2,P7,K,Es2
Dim AmbettoR1,RetNum1,RetVinc1
Dim AmbettoR2,RetNum2,RetVinc2
Dim DistAB,AB,SomAB,SomABpiu24,SomABmeno24
Dim Terno(3),Ruo(3),Posta(3)
Posta(2) = 1
Posta(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10560)'10576
Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambo e il Terno?",,13)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(20) & " Metodo Distanza 21 - Script Salvo50" & Space(20),1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
DistAB = Distanza(A,B)
If DistAB = 21 Then
SomAB = Fuori90(A + B)
SomABpiu24 = Fuori90(SomAB + 24)
SomABmeno24 = Fuori90((SomAB + 90) - 24)
Terno(1) = SomAB : Terno(2) = SomABpiu24 : : Terno(3) = SomABmeno24
R2 = RuotaDiametrale(R1)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P7 = 1 To 5
E1 = Estratto(Es,R1,P7)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " Evidenziati in rosso con distanza 21 ",1
Scrivi
Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(SomAB) & " Somma Estratti Evidenziati",1
Scrivi Space(10) & Format2(SomAB) & " + 24 = " & Format2(SomABpiu24) & " Somma Estratti Evidenziati + il fisso 24",1
Scrivi Space(10) & Format2(SomAB) & " - 24 = " & Format2(SomABmeno24) & " Somma Estratti Evidenziati - il fisso 24",1
Scrivi Space(20) & "Pronostico ",1,,,2,3
Scrivi Space(25) & "Ruote " & SiglaRuota(R1) & " e " & SiglaRuota(R2),1
Scrivi Space(24) & "Per Ambo e Terno ",1
Scrivi Space(24) & " e Ambetto ",1
Scrivi Space(27) & Format2(SomAB) & " " & Format2(SomABpiu24) & " " & Format2(SomABmeno24),1
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Terno,Ruo,Posta,Clp1
Gioca Es,1
Scrivi
For K = 1 To Clp1
Es2 = Es + K
If Es2 > FIn Then Exit For
AmbettoR1 = VerificaAmbetto(Terno,R1,Es2,RetNum1,RetVinc1)
If AmbettoR1 > 0 Then
Scrivi " Ambetto su " & RetNum1 & " Del " & DataEstrazione(Es2),1,,,1
End If
AmbettoR2 = VerificaAmbetto(Terno,R2,Es2,RetNum2,RetVinc2)
If AmbettoR2 > 0 Then
Scrivi " Ambetto su " & RetNum2 & " Del " & DataEstrazione(Es2),1,,,1
End If
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub