PROCEDIMENTO FERCAT
Di script ne ho fatti 2 il primo, con la seconda somma calcolata col fuori90, ed il secondo con la seconda calcolata con la somma delle decine e delle cadenze separatamente come per la prima somma, praticamente ho applicato la regola numero 2 anche alla seconda somma.
script con la seconda somma calcolata col Fuori90'PROGETTO - PROCEDIMENTO FERCAT N1 - BY FABARRI
'SCRIPT - BY SALVO50
'Le seconde somme calcolate con il Fuori90
Option Explicit
Sub Main
Dim es,r1,r2,ok,somma1,somma2,p1,p2,p3
Dim estra,estrb,estrc,caso,casi
Dim Ini,fin,esq,clp1,clp2,col,esqcol,idestr
Dim posta(1),ruote(2),poste(2)
Dim dca,dcb,dcc,cda,cdb,Cdc
Dim num1(1),num2(2)
Ini = EstrazioneFin
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)'estrazione 5094 esempio n1, 5274 esempio n2 nell'articolo
clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,10)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,200))
posta(1) = 1
poste(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
Messaggio es
AvanzamentoElab esq,esqcol,es
caso = 0
For r1 = 1 To 10
For p1 = 1 To 4
p2 = p1 + 1
estra = Estratto(es,r1,p1)
estrb = Estratto(es,r1,p2)
For r2 = 1 To 10
If r1 <> r2 Then
For p3 = 1 To 5
estrc = Estratto(es,r2,p3)
If p3 = p1 - 1 Or p3 = p2 + 1 Then
dca = Decina(estra) : dcb = Decina(estrb) : dcc = Decina(estrc)
cda = Cadenza(estra) : cdb = Cadenza(estrb) : Cdc = Cadenza(estrc)
ok = 0
If(p3 < p1) And((estrb > estra) And(estrb > estrc)) Or((estra > estrb) And(estra > estrc))_
Or((estrc > estra) And(estrc > estrb)) _
Or(p3 > p2) And((estrc > estrb) And(estrc > estra)) Or((estrb > estra) And(estrb > estrc)) _
Or((estra > estrb) And(estra > estrc)) Then
If estra =(estrb + estrc) And estra < 91 And dca = dcb + dcc And cda = cdb + Cdc Then
somma1 = estra
If estrb < estrc Then
somma2 = Fuori90(estra + estrb)
Else
somma2 = Fuori90(estra + estrc)
End If
ok = 1
End If
If estrb =(estra + estrc) And estrb < 91 And dcb = dca + dcc And cdb = cda + Cdc Then
somma1 = estrb
If estra < estrc Then
somma2 = Fuori90(estrb + estra)
Else
somma2 = Fuori90(estrb + estrc)
End If
ok = 1
End If
If estrc =(estra + estrb) And estrc < 91 And dcc = dca + dcb And Cdc = cda + cdb Then
somma1 = estrc
If estra < estrb Then
somma2 = Fuori90(estra + estrc)
Else
somma2 = Fuori90(estrb + estrc)
End If
ok = 1
End If
If ok = 1 Then
casi = casi + 1
caso = caso + 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
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),2
ColoreTesto 0
Scrivi
If p3 > p2 Then
Scrivi Space(20) & " Posizione ",1,0
ColoreTesto 1
Scrivi p1 & Space(3) & p2,1,0
ColoreTesto 2
Scrivi Space(3) &(p3),1
ColoreTesto 0
Scrivi Space(20) & " Ruota ",1,0
ColoreTesto 1
Scrivi SiglaRuota(r1) & Space(2) & SiglaRuota(r1),1,0
ColoreTesto 2
Scrivi Space(2) & SiglaRuota(r2),1
ColoreTesto 1
Scrivi Space(36) & Format2(estra) & " " & Format2(estrb),1,0
ColoreTesto 2
Scrivi " " & Format2(estrc),1
ColoreTesto 0
Else
If p3 < p1 Then
Scrivi Space(20) & " Posizione ",1,0
ColoreTesto 2
Scrivi p3 & Space(3),1,0
ColoreTesto 1
Scrivi p1 & Space(3) &(p2),1
ColoreTesto 0
Scrivi Space(20) & " Ruota ",1,0
ColoreTesto 2
Scrivi SiglaRuota(r2) & Space(2),1,0
ColoreTesto 1
Scrivi SiglaRuota(r1) & Space(2) & SiglaRuota(r1),1
ColoreTesto 2
Scrivi Space(36) & Format2(estrc),1,0
ColoreTesto 1
Scrivi " " & Format2(estra) & " " & Format2(estrb),1
ColoreTesto 0
End If
End If
Scrivi
Scrivi Space(19) & " SOMMA = " & Format2(somma1) & " Ambata " & Format2(somma2),1
Scrivi
ruote(1) = r1
ruote(2) = r2
num1(1) = somma2
ImpostaGiocata 1,num1,ruote,posta,clp1,1
num2(1) = somma2
num2(2) = estra
ImpostaGiocata 2,num2,ruote,poste,clp2,2
num2(2) = estrb
ImpostaGiocata 3,num2,ruote,poste,clp2,2
num2(2) = estrc
ImpostaGiocata 4,num2,ruote,poste,clp2,2
Gioca es
End If
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(54) & "PROGETTO - PROCEDIMENTO FERCAT N1 - BY FABARRI"
Scrivi Space(54) & "SCRIPT - BY SALVO50"
End Sub
la seconda somma calcolata come la prima'PROGETTO - PROCEDIMENTO FERCAT N2 - BY FABARRI
'SCRIPT - BY SALVO50
'Seconda somma ricavata col procedimento della prima somma
Option Explicit
Dim Ds1,Cs1,Somma2,Ok
Dim Dca,Dcb,Dcc,Cda,Cdb,Cdc
Dim Estra,Estrb,Estrc
Sub Main
Dim Es,R1,R2,Somma1,P1,P2,P3
Dim Ini,FIn,Esq,Clp1,Clp2,Col,Esqcol,Idestr
Dim Posta(1),Ruote(2),Poste(2)
Dim Num1(1),Num2(2),Caso,Casi
Ini = EstrazioneFin
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9020)'estrazione 5094 esempio n1, 5274 esempio n2 nell'articolo
Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,10)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,200))
Posta(1) = 1
Poste(2) = 1
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Messaggio Es
AvanzamentoElab Esq,Esqcol,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
P2 = P1 + 1
Estra = Estratto(Es,R1,P1)
Estrb = Estratto(Es,R1,P2)
For R2 = 1 To 10
If R1 <> R2 Then
For P3 = 1 To 5
Estrc = Estratto(Es,R2,P3)
If P3 = P1 - 1 Or P3 = P2 + 1 Then
Dca = Decina(Estra) : Dcb = Decina(Estrb) : Dcc = Decina(Estrc)
Cda = Cadenza(Estra) : Cdb = Cadenza(Estrb) : Cdc = Cadenza(Estrc)
Ok = 0
If(P3 < P1) And(Estra > Estrb) And(Estra > Estrc) Or(Estrc > Estra) And(Estrc > Estrb)_
Or(Estrb > Estra) And(Estrb > Estrc) Then
If Estra =(Estrb + Estrc) And Estra < 91 And Dca = Dcb + Dcc And Cda = Cdb + Cdc Then
Somma1 = Estra
If Estrb < Estrc Then
EstraEstrb
Else
EstraEstrc
End If
End If
If Estrc =(Estra + Estrb) And Estrc < 91 And Dcc = Dca + Dcb And Cdc = Cda + Cdb Then
Somma1 = Estrc
If Estra < Estrb Then
EstraEstrc
Else
EstrbEstrc
End If
End If
If Estrb =(Estra + Estrc) And Estrb < 91 And Dcb = Dca + Dcc And Cdb = Cda + Cdc Then
Somma1 = Estrb
If Estra < Estrc Then
EstraEstrb
Else
EstrbEstrc
End If
End If
End If
'
'-----------------------------------------------------------------------------------------
If(P3 > P2) And(Estrb > Estra) And(Estrb > Estrc) Or(Estra > Estrb) And(Estra > Estrc)_
Or(Estrc > Estra) And(Estrc > Estrb) Then
If Estrb =(Estra + Estrc) And Estrb < 91 And Dcb = Dca + Dcc And Cdb = Cda + Cdc Then
Somma1 = Estrb
If Estra < Estrc Then
EstraEstrb
Else
EstrbEstrc
End If
End If
If Estra =(Estrb + Estrc) And Estra < 91 And Dca = Dcb + Dcc And Cda = Cdb + Cdc Then
Somma1 = Estra
If Estrb < Estrc Then
EstraEstrb
Else
EstraEstrc
End If
End If
If Estrc =(Estra + Estrb) And Estrc < 91 And Dcc = Dca + Dcb And Cdc = Cda + Cdb Then
Somma1 = Estrc
If Estra < Estrb Then
EstraEstrc
Else
EstrbEstrc
End If
End If
End If
If Ok = 1 Then
Casi = Casi + 1
Caso = Caso + 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
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),2
ColoreTesto 0
Scrivi
If P3 > P2 Then
Scrivi Space(20) & " Posizione ",1,0
ColoreTesto 1
Scrivi P1 & Space(3) & P2,1,0
ColoreTesto 2
Scrivi Space(3) &(P3),1
ColoreTesto 0
Scrivi Space(20) & " Ruota ",1,0
ColoreTesto 1
Scrivi SiglaRuota(R1) & Space(2) & SiglaRuota(R1),1,0
ColoreTesto 2
Scrivi Space(2) & SiglaRuota(R2),1
ColoreTesto 1
Scrivi Space(36) & Format2(Estra) & " " & Format2(Estrb),1,0
ColoreTesto 2
Scrivi " " & Format2(Estrc),1
ColoreTesto 0
Else
If P3 < P1 Then
Scrivi Space(20) & " Posizione ",1,0
ColoreTesto 2
Scrivi P3 & Space(3),1,0
ColoreTesto 1
Scrivi P1 & Space(3) &(P2),1
ColoreTesto 0
Scrivi Space(20) & " Ruota ",1,0
ColoreTesto 2
Scrivi SiglaRuota(R2) & Space(2),1,0
ColoreTesto 1
Scrivi SiglaRuota(R1) & Space(2) & SiglaRuota(R1),1
ColoreTesto 2
Scrivi Space(36) & Format2(Estrc),1,0
ColoreTesto 1
Scrivi " " & Format2(Estra) & " " & Format2(Estrb),1
ColoreTesto 0
End If
End If
Scrivi
Scrivi Space(19) & " SOMMA = " & Format2(Somma1) & " Ambata " & Format2(Somma2),1
Scrivi
Ruote(1) = R1
Ruote(2) = R2
Num1(1) = Somma2
ImpostaGiocata 1,Num1,Ruote,Posta,Clp1,1
Num2(1) = Somma2
Num2(2) = Estra
ImpostaGiocata 2,Num2,Ruote,Poste,Clp2,2
Num2(2) = Estrb
ImpostaGiocata 3,Num2,Ruote,Poste,Clp2,2
Num2(2) = Estrc
ImpostaGiocata 4,Num2,Ruote,Poste,Clp2,2
Gioca Es
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(54) & "PROGETTO - PROCEDIMENTO FERCAT N2 - BY FABARRI"
Scrivi Space(54) & "SCRIPT - BY SALVO50"
End Sub
Function EstraEstrb
Somma2 =(Estra + Estrb)
Ds1 = Decina(Somma2) : Cs1 = Cadenza(Somma2)
If(Somma2 < 91) And(Ds1 = Dca + Dcb)And(Cs1 = Cda + Cdb) Then Ok = 1
End Function
Function EstraEstrc
Somma2 =(Estra + Estrc)
Ds1 = Decina(Somma2) : Cs1 = Cadenza(Somma2)
If(Somma2 < 91) And(Ds1 = Dca + Dcc)And(Cs1 = Cda + Cdc) Then Ok = 1
End Function
Function EstrbEstrc
Somma2 =(Estrb + Estrc)
Ds1 = Decina(Somma2) : Cs1 = Cadenza(Somma2)
If(Somma2 < 91) And(Ds1 = Dcb + Dcc)And(Cs1 = Cdb + Cdc) Then Ok = 1
End Function