Option Explicit
Dim SomEs,SomTern,SomAB,SomAC,SomAD,SomAE
Dim SomBC,SomBD,SomBE,SomCD,SomCE,SomDE
Dim A,B,C,D,E,Amb1,Amb2,X1,X2
Sub Main
Dim FIn,Es,Ini,K,Salvo50,Clp1,Clp2
Dim R1,Caso,Casi,P1,P2,P,E1,Ambetto
Dim retnum,retvinc
Dim Nu(5),Ambo(2),A1(10)
Dim Ruote(2),Ruota(1),Posta(1),Poste(2)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10350)
Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
Posta(1) = 1
Poste(2) = 1
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "Terna Somma 90 di Matematico - Con Ambetto - Script Salvo50" & Space(12),1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
SomEs = SommaEstratti(Es,R1)
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
SomAB = A + B
SomTern = SomEs - SomAB
SomTern = Fuori90(SomTern)
If SomTern = 90 Then
K = 0
For K = 1 To 5
Nu(K) = Estratto(Es,R1,K)
If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
Next
Call OrdinaMatrice(Nu,- 1)
C = Nu(1) : D = Nu(2) : E = Nu(3)
SomAB = Fuori90(SomAB)
SomAC = Fuori90(A + C) : SomAD = Fuori90(A + D) : SomAE = Fuori90(A + E)
SomBC = Fuori90(B + C) : SomBD = Fuori90(B + D) : SomBE = Fuori90(B + E)
SomCD = Fuori90(C + D) : SomCE = Fuori90(C + E) : SomDE = Fuori90(D + E)
If SomAB = C Or SomAB = D Or SomAB = E Or SomAC = B Or SomAC = D Or SomAC = E _
Or SomAD = B Or SomAD = C Or SomAD = E Or SomAE = B Or SomAE = C Or SomAE = D _
Or SomBC = A Or SomBC = D Or SomBC = E Or SomBD = A Or SomBD = C Or SomBD = E _
Or SomBE = A Or SomBE = C Or SomBE = D Or SomCD = A Or SomCD = B Or SomCD = E _
Or SomDE = A Or SomDE = B Or SomDE = C Then
Call Calcoli
If Amb1 > 0 And Amb2 > 0 Then
If Amb1 <> Amb2 Then
X1 = 90 - Amb1 : X2 = 90 - Amb2
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 P = 1 To 5
E1 = Estratto(Es,R1,P)
If E1 = A Or E1 = B Then
ColoreTesto 1
Else
ColoreTesto 2
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " Evidenziata In Rosso Terna Somma 90",1
Scrivi
Scrivi " Le 10 Somme Delle 10 Coppie (ambi)",1,,,1
Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(SomAB),1
Scrivi Space(10) & Format2(A) & " + " & Format2(C) & " = " & Format2(SomAC),1
Scrivi Space(10) & Format2(A) & " + " & Format2(D) & " = " & Format2(SomAD),1
Scrivi Space(10) & Format2(A) & " + " & Format2(E) & " = " & Format2(SomAE),1
Scrivi Space(10) & Format2(B) & " + " & Format2(C) & " = " & Format2(SomBC),1,0
Scrivi Space(5) & " I 2 Estratti Che Sono Uguali Alle 2 Somme",1,0,,2
Scrivi Space(5) & Format2(X1) & " " & Format2(X2),1,,,1
Scrivi Space(10) & Format2(B) & " + " & Format2(D) & " = " & Format2(SomBD),1
Scrivi Space(10) & Format2(B) & " + " & Format2(E) & " = " & Format2(SomBE),1
Scrivi Space(10) & Format2(C) & " + " & Format2(D) & " = " & Format2(SomCD),1
Scrivi Space(10) & Format2(C) & " + " & Format2(E) & " = " & Format2(SomCE),1
Scrivi Space(10) & Format2(D) & " + " & Format2(E) & " = " & Format2(SomDE),1
Scrivi
Scrivi
Ruota(1) = R1
Ruote(1) = R1 : Ruote(2) = TU_
Ambo(1) = Amb1 : Ambo(2) = Amb2
ImpostaGiocata 1,Ambo,Ruota,Posta,Clp1
ImpostaGiocata 2,Ambo,Ruote,Poste,Clp2
Gioca Es,1,,1
Ambetto = VerificaAmbetto(Ambo,R1,Es,retnum,retvinc)
If Ambetto > 0 Then
Scrivi Space(7) & " Ambetto " & Space(7),1,,4,,3
Scrivi " Ambetto su " & retnum,1
Scrivi " Vincita di " & retvinc & " La Posta",1
End If
Scrivi
End If
End If
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Function Calcoli
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb1 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb1 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb1 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb1 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb1 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb1 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb1 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb1 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb1 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb2 = 90 - SomDE
If(Amb1 = 0 And Amb2 = 0) Or(Amb1 > 0 And Amb2 = 0) Or(Amb1 = 0 And Amb2 > 0)Then
Amb1 = 0 : Amb2 = 0
If SomAB = C Or SomAB = D Or SomAB = E Then Amb2 = 90 - SomAB
If SomAC = B Or SomAC = D Or SomAC = E Then Amb2 = 90 - SomAC
If SomAD = B Or SomAD = C Or SomAD = E Then Amb2 = 90 - SomAD
If SomAE = B Or SomAE = C Or SomAE = D Then Amb2 = 90 - SomAE
If SomBC = A Or SomBC = D Or SomBC = E Then Amb2 = 90 - SomBC
If SomBD = A Or SomBD = C Or SomBD = E Then Amb2 = 90 - SomBD
If SomBE = A Or SomBE = C Or SomBE = D Then Amb2 = 90 - SomBE
If SomCD = A Or SomCD = B Or SomCD = E Then Amb2 = 90 - SomCD
If SomCE = A Or SomCE = B Or SomCE = D Then Amb2 = 90 - SomCE
If SomDE = A Or SomDE = B Or SomDE = C Then Amb1 = 90 - SomDE
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Function