Option Explicit
Sub Main()
Scrivi "Forum Lottoced - Metodo Somma 90 di Mastrogino",1
Dim ruote(1),rt(3),amb(1),ambb(2),ter(3),qua(4),posta(1),poste(2)
Dim ES,R1,Ini,Fin,cl,t,P1,P2,P3,P4,P5,P6,C1,A1,A2,A,postee(3)
Dim A8,A9,A10,W1,W2,W3,Pir1,Pir2,Pir3,Abb1,Abb2,Abb3
posta(1) = 1:poste(2) = 1 : postee(2)=1 : postee(3)=1
t = 0
Ini = InputBox("Quante estrazioni vuoi controllare?",,150)
cl = InputBox("Quanti colpi?",,10)
Fin = EstrazioneFin
For ES = Fin - Ini To EstrazioneFin
AvanzamentoElab Ini,Fin,ES
Messaggio("elab. estrazione....." & ES & " Attendere.... ")
For R1 = 1 To 11
If R1 = 11 Then R1 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A1 = Estratto(ES,R1,P1)
A2 = Estratto(ES,R1,P2)
If(A1 < 10 And A2 > 16) Or(A2 < 10 And A1 > 16)Or(Cadenza(A1) = Decina(A2)) Then
For P4 = 1 To 5
If(P4 <> P1 And P4 <> P2) Then
A8 = Estratto(ES,R1,P4)
For P5 = P4 + 1 To 5
If(P5 <> P1 And P5 <> P2 And P5 <> P4) Then
A9 = Estratto(ES,R1,P5)
For P6 = P5 + 1 To 5
If(P6 <> P1 And P6 <> P2 And P6 <> P4 And P6 <> P5) Then
A10 = Estratto(ES,R1,P6)
If Fuori90(A1 + A2) = 90 Then
ruote(1) = R1 : rt(1) = R1 : rt(2) = 11 : rt(3) = 12
t = t + 1
Scrivi String(75,"-") & " Caso " & t
C1 =(A1 & A2) : W1 = Mid(C1,1,2) : W2 =(Mid(C1,4,1))
If A1 > 9 And(Cadenza(A1) = Decina(A2))Then C1 = W1 & W2
Scrivi DataEstrazione(ES) & " " & SiglaRuota(R1) & " " & StringaEstratti(ES,R1) & _
" [ " & Format2(A1) & " " & Format2(A2) & " ] Pos. " & P1 & "^ " & P2 & "^ " & " Rimanenti " & A8 & " " & A9 & " " & A10,1,,,1
Scrivi Space(35),0,0
W3 =(Mid(C1,1,1))
Scrivi C1,0,0,3
If W3 = 9 Then Scrivi Space(3) & "ATTENZIONE IN GIOCO I VERTIBILI ",,,4
Scrivi : A = 90
Pir1 = C1 & A8 : Pir2 = C1 & A9 : Pir3 = C1 & A10
Scrivi Pir1 & " = ",1,0
Abb1 = Fuori90(Piramide(Pir1,,2))
Scrivi Abb1 & " ",True
Scrivi Pir2 & " = ",1,0
Abb2 = Fuori90(Piramide(Pir2,,2))
Scrivi Abb2 & " ",True
Scrivi Pir3 & " = ",1,0
Abb3 = Fuori90(Piramide(Pir3,,2))
Scrivi Abb3 & " ",True
ColoreTesto 0
If W3 = 9 Then A = Vert(A)
If W3 = 9 Then Abb1 = Vert(Abb1)
If W3 = 9 Then Abb2 = Vert(Abb2)
If W3 = 9 Then Abb3 = Vert(Abb3)
amb(1) = A
ImpostaGiocata 1,amb,ruote,posta,cl
ambb(1) = A
ambb(2) = Abb1
ImpostaGiocata 2,ambb,rt,poste,cl
ter(1) = A
ter(2) = Abb1
ter(3) = Abb2
ImpostaGiocata 3,ter,rt,poste,cl
qua(1) = A
qua(2) = Abb1
qua(3) = Abb2
qua(4) = Abb3
ImpostaGiocata 4,qua,rt,postee,cl
Gioca ES,1
End If
End If
Next
End If
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub