'Progetto - chiesto da Baikal
'condizione: trovare su due ruote consecutive due ambi In Figura
'es. estr. del 15/12/2018
'Palermo 67 65 14 41 56
'Roma 77 89 25 59 73
'abbiamo due ambi In Figura 5
'pa 14-14
'ro 77-59
'dovremmo sommarli Così 14+77= 7+1 = 8 4+7=11 di cui 1+1 (fig.)2 quindi avremo 82
'Così anche 4+5= 9 9+1= 10 1+0= 1 quindi 91 - fuori 90= 1
'per cui ogni qual volta la somma degli addendi è superiore a 9 si fa la Figura es. 11 1+1= 2 fig. 23 2+3 fig. 5
'ricavati i primi due numeri 82 e 01
'poi per ogni ambo facciamo la somma di ogni singolo ambo 14+41=55 - complemento a 90 otteniamo il 35
'77+59= 136- fuori 90 36 - complemento a 90 54
'i numeri In gioco su palermo e roma 82-01-55-35-36-54
'Ricerca anche per tutte le ruote
'Script - by Salvo50
Option Explicit
Sub Main
Dim R1,P1,P2,Es,R2,A,B,C,D,P3,P4,P5,P6
Dim FIn,Ini,Caso,Casi,Clp1,Clp2,Salvo50,E1,E2
Dim Fa,Fb,Fc,Fd,S1,S2,S3,S4,SoAB,SoCD,CSoAB,CSoCD
Dim Amba1,amba2,DeA,DeB,DeC,DeD,CaA,CaB,CaC,CaD
Dim Ru(2),Posta(5),Num(6),Tutte(1),Poste(5)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
Clp1 = InputBox("Per quanti colpi vuoi fare la ricerca su ruote determinate?",Salvo50,5)
Clp2 = InputBox("Per quanti colpi vuoi fare la ricerca su Tutte le ruote?",Salvo50,5)
Posta(2) = 1
Posta(3) = 1
'Posta(4) = 1
'Posta(5) = 1
Poste(2) = 2
Poste(3) = 2
'Poste(4) = 1
'Poste(5) = 1
For Es = Ini To FIn
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)
Fa = Figura(A) : Fb = Figura(B)
If Fa = Fb Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
Fc = Figura(C) : Fd = Figura(D)
If Fc = Fa And Fd = Fa Then
DeA = Decina(A) : DeB = Decina(B) : DeC = Decina(C) : DeD = Decina(D)
CaA = Cadenza(A) : CaB = Cadenza(B) : CaC = Cadenza(C) : CaD = Cadenza(D)
S1 = FuoriX(DeA + DeC,9) : S2 = FuoriX(CaA + CaC,9)
S3 = FuoriX(DeB + DeD,9) : S4 = FuoriX(CaB + CaD,9)
If CaA = 0 And CaC = 0 Then S2 = 0
If CaB = 0 And CaD = 0 Then S4 = 0
If S1 = 9 Then S1 = 0
If S3 = 9 Then S3 = 0
Amba1 = S1 & S2 : amba2 = S3 & S4
If Amba1 <> amba2 Then
SoAB = Fuori90(A + B) : CSoAB = ComplAdX(SoAB)
SoCD = Fuori90(C + D) : CSoCD = ComplAdX(SoCD)
Scrivi
Caso = Caso + 1
Casi = Casi + 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
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(5) & "Estratti stessa figura " & Format2(A) & " " & Format2(B),1
Scrivi Space(5) & "Estratti stessa figura " & Format2(C) & " " & Format2(D),1
Scrivi Space(28) & String(5,"-"),1
Scrivi Space(5) & "Somma Cifre Col Fuori9 ",1,0
ColoreTesto 2
Scrivi Format2(Amba1) & " " & Format2(amba2),1 : ColoreTesto 0
Scrivi
Ru(1) = R1 : Ru(2) = R2
Tutte(1) = TU_
Num(1) = Amba1
Num(2) = amba2
Num(3) = SoAB
Num(4) = CSoAB
Num(5) = SoCD
Num(6) = CSoCD
EliminaRipetuti Num
ImpostaGiocata 1,Num,Ru,Posta,Clp1
ImpostaGiocata 2,Num,Tutte,Poste,Clp2
Gioca Es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub