'Trovare su qualsiasi estrazione un ambo di somma 90.
'Trovata la condizione, fare la Differenza tra i due numeri che formano l'ambo
'e cercare il risultato in posizione isotopa su una delle due posizioni che formano l'ambo.
'Fare il diametrale che sarà il primo numero, il secondo numero è lo stesso trovato in posizione isotopa.
'Il terzo numero è la Differenza tra il Primo e quello vicino. Provo a fare un esempio.
'ES: FI 81 31 22 51 47
'NZ 60 34 56 28 18
'34+56=90 condizione metodo
'56-34=22 In Posizione isotopa
'Quindi 22+45=67 1°Numero
'2° Numero il 22
'3° Numero 9 Differenza tra il 31 In Posizione isotopa sul 34 meno il 22
Option Explicit
Sub Main
Dim FIn,Es,Ini,R1,R2,Salvo50,Clp
Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
Dim PP1,PP2,DAB,DCD
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9585)) 'ESTRAZIONE 9585 ESEMPIO IN SPIEGAZIONI
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,20))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "PER RAIMBOW58 - AMBO SOMMA 90 - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
DAB = Differenza(A,B)
DCD = Differenza(C,D)
If(A + B = 90 And DAB = C Or DAB = D) Xor(C + D = 90 And DCD = A Or DCD = B) Then
'
Call AmboAmbataVersABC(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C,D)
Call AmboAmbataVersABD(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D,C)
Call AmbataAmboVersACD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D,B)
Call AmbataAmboVersBCD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D,A)
'
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Sub AmboAmbataVersABC(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C,D)
If A + B = 90 And DAB = C Then
Caso = Caso + 1 : Casi = Casi + 1
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R1) & " ",1,0)
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi(" <-- Evidenziati Somma 90",1)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R2) & " ",1,0)
For PP2 = 1 To 5
E2 = Estratto(Es,R2,PP2)
If E2 = C Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi()
Call Scrivi()
Dim ANum(3)
ANum(1) = Diametrale(DAB)
ANum(2) = DAB
ANum(3) = Differenza(D,DAB)
Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DAB),1
Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(A) & " e " & Format2(B),1
Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(D) & " e " & Format2(DAB),1
Call Scrivi()
Call Giocata(ANum,R1,R2,Es,Clp)
End If
End Sub
Sub AmboAmbataVersABD(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D,C)
If A + B = 90 And DAB = D Then
Caso = Caso + 1 : Casi = Casi + 1
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R1) & " ",1,0)
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi(" <-- Evidenziati Somma 90",1)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R2) & " ",1,0)
For PP2 = 01 To 05
E2 = Estratto(Es,R2,PP2)
If E2 = D Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi()
Dim ANum(3)
ANum(1) = Diametrale(DAB)
ANum(2) = DAB
ANum(3) = Differenza(C,DAB)
Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DAB),1
Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(A) & " e " & Format2(B),1
Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(C) & " e " & Format2(DAB),1
Call Scrivi()
Call Giocata(ANum,R1,R2,Es,Clp)
End If
End Sub
Sub AmbataAmboVersACD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D,B)
If C + D = 90 And DCD = A Then
Caso = Caso + 1 : Casi = Casi + 1
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R1) & " ",1,0)
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = A Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi()
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R2) & " ",1,0)
For PP2 = 01 To 05
E2 = Estratto(Es,R2,PP2)
If E2 = C Or E2 = D Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi(" <-- Evidenziati Somma 90",1)
Call Scrivi()
Dim ANum(3)
ANum(1) = Diametrale(DCD)
ANum(2) = DCD
ANum(3) = Differenza(B,DCD)
Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DCD),1
Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(C) & " e " & Format2(D),1
Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(B) & " e " & Format2(DCD),1
Call Scrivi()
Call Giocata(ANum,R1,R2,Es,Clp)
End If
End Sub
Sub AmbataAmboVersBCD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D,A)
If C + D = 90 And DCD = B Then
Caso = Caso + 1 : Casi = Casi + 1
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R1) & " ",1,0)
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = B Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi()
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
Call Scrivi(" " & SiglaRuota(R2) & " ",1,0)
For PP2 = 1 To 5
E2 = Estratto(Es,R2,PP2)
If E2 = C Or E2 = D Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Call Scrivi(" <-- Evidenziati Somma 90",1)
Call Scrivi()
Dim ANum(3)
ANum(1) = Diametrale(DCD)
ANum(2) = DCD
ANum(3) = Differenza(A,DCD)
Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DCD),1
Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(C) & " e " & Format2(D),1
Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(A) & " e " & Format2(DCD),1
Call Scrivi()
Call Giocata(ANum,R1,R2,Es,Clp)
End If
End Sub
Function Giocata(ANum,R1,R2,Es,Clp)
Dim Ruo(2),Posta(3)
Ruo(1) = R1 : Ruo(2) = R2
Posta(2) = 1
'Posta(3) = 1
EliminaRipetuti ANum
ImpostaGiocata 1,ANum,Ruo,Posta,Clp
Gioca Es
End Function
