LOTTO FACILE 1 - O. MANARA -

'listato by maxma62 si puo modificare dalla linea 121 x
'x ruote consec. e diametr.

'x ruote consec. e gemm.

'x ruote consec. diam. e gemm

'x ruote diam. e gemm.

'If c=cc Then 'x tutte le ruote


Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim am1(10),am2(10),am3(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1)=1
poste(2)=1
poste1(2)=1.5
poste1(3)=0.5
k=12
For n=8250 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)

If n1>n4 Then
d1=n1-n4
Else
d1=n4-n1
End If
If d1=0 Then d1=90 End If
If n3>n2 Then
d2=n3-n2
Else
d2=n2-n3
End If
If d2=0 Then d2=90 End If

If n1>n3 Then
v1=Fuori90(n1-n3)
Else
v1=Fuori90(n3-n1)
End If
If v1=0 Then v1=90 End If
If n2>n4 Then
v2=Fuori90(n2-n4)
Else
v2=Fuori90(n4-n2)
End If
If v2=0 Then v2=90 End If

If d1=d2 And v1=v2 Then
casi=casi+1:Scrivi "=========================================================================="
Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&" "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
Scrivi "------------------------------------------------------------- caso n° "&(casi)
If d1>v1 Then
A=d1-v1
Else
A=v1-d1
End If
am(1)=Fuori90(s1+A)
ImpostaGiocata 1,am,ruote,posta,k,1
z1=90-s1
If z1=0 Then z1=90 End If
am1(1)=am(1)
am1(2)=z1
ImpostaGiocata 2,am1,ruote,poste,k,2
am2(1)=am(1)
am2(2)=Vert(z1)
ImpostaGiocata 3,am2,ruote,poste,k,2
am3(1)=am(1)
am3(2)=am1(2)
am3(3)=am2(2)
ImpostaGiocata 4,am3,ruote,poste1,k,2
ImpostaGiocata 5,am3,ruota,poste1,k,2 '<<<--- tutte
For x1=2 To 4
For x2=2 To 4
ImpostaInterruzioni x1,x2,2
ImpostaInterruzioni 1,x1,2
ImpostaInterruzioni x1,1,1
Next
Next
Gioca n
End If
t=t+1
Loop
Next
scrivi:Scrivi "------------------------------"
Scrivi "casi trovati n° "&(casi)
Scrivi "------------------------------"
ScriviResoconto
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
For i= 1 To 4
For j=i+1 To 5
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c=Fuori90(a+b)
For rr=r+1 To 10
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc=Fuori90(aa+bb)

If c=cc And (rr=r+1 Or ((rr-r)=5)) Then 'x ruote consec. e diametr.

'If c=cc And (rr=r+1 Or (rr=11-r) Then 'x ruote consec. e gemm.

'If c=cc And (rr=r+1 Or (rr=11-r) or ((rr-r)=5)) Then 'x ruote consec. diam. e gemm

'If c=cc And ((rr=11-r) Or ((rr-r)=5)) Then 'x ruote diam. e gemm.

'If c=cc Then 'x tutte le ruote

trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
Next
DISAMBO=False
End Function