'Progetto - Quattro Terzine Per Ambo - By D.Manna
'script - By Salvo50
Option Explicit
Sub Main
Dim Fin,Clp,Col,Esqcol,Esq,Es,R1,Caso,Casi,Ok
Dim Num1(3),Num2(3),Num3(3),Num4(3),Ru(1),Poste(2)
Dim A1,A2,A3,A4,A5,A234,A235,A345
Dim Ftre,Fsei,Fnove,FA1,A1x7,A1x13
Ftre = Figura(3)
Fsei = Figura(6)
Fnove = Figura(9)
'Poste(1) = 1
Poste(2) = 1
Fin = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9300)'4049 esempio nell'articolo
R1 = CInt(InputBox("Inserisci il numero della ruota scelta (1 - 10 -- 12 per la NAZ)?",,6))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,7))
Col = CInt(InputBox(" Quante estrazioni vuoi controllare?",,1000))
Ru(1) = R1
Esqcol = Esq + Col
If Esqcol > Fin Then Esqcol = Fin
For Es = Esq To Esqcol
Caso = 0
AvanzamentoElab Esq,Esqcol,Es
A1 = Estratto(Es,R1,1)
A2 = Estratto(Es,R1,2)
A3 = Estratto(Es,R1,3)
A4 = Estratto(Es,R1,4)
A5 = Estratto(Es,R1,5)
FA1 = Figura(A1)
If FA1 <> Ftre And FA1 <> Fsei And FA1 <> Fnove Then
If Cadenza(A1) <> Cadenza(0) And Cadenza(A1) <> Cadenza(5) Then
If Cadenza(A2) <> Cadenza(A3) And Cadenza(A2) <> Cadenza(A4)And Cadenza(A2) <> Cadenza(A5) Then
If Cadenza(A3) <> Cadenza(A4) And Cadenza(A3) <> Cadenza(A5)And Cadenza(A4) <> Cadenza(A5) Then
A235 = Fuori90(A2 + A3 + A5)
A234 = Fuori90(A2 + A3 + A4)
A345 = Fuori90(A3 + A4 + A5)
A1x7 = Fuori90(A1 * 7)
A1x13 = Fuori90(A1 * 13)
Num1(1) = Fuori90(A345 + A1x7)
Num1(2) = Fuori90(A234 + A1x7)
Num1(3) = Fuori90(A235 + A1x7)
'----------------------------
Num2(1) = Fuori90(90 +(A345 - A1x7))
Num2(2) = Fuori90(90 +(A234 - A1x7))
Num2(3) = Fuori90(90 +(A235 - A1x7))
'------------------------------
Num3(1) = Fuori90(A345 + A1x13)
Num3(2) = Fuori90(A234 + A1x13)
Num3(3) = Fuori90(A235 + A1x13)
'------------------------------
Num4(1) = Fuori90(90 +(A345 - A1x13))
Num4(2) = Fuori90(90 +(A234 - A1x13))
Num4(3) = Fuori90(90 +(A235 - A1x13))
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ru,Poste,Clp,2
EliminaRipetuti Num2
ImpostaGiocata 2,Num2,Ru,Poste,Clp,2
EliminaRipetuti Num3
ImpostaGiocata 3,Num3,Ru,Poste,Clp,2
EliminaRipetuti Num4
ImpostaGiocata 4,Num4,Ru,Poste,Clp,2
Gioca Es
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi Space(56) & "Progetto - Quattro Terzine Per Ambo - By D.Manna"
Scrivi Space(56) & "script by Salvo50"
End Sub