| Sub main()
Dim ru(2)
Dim ru1(10)
Dim ru2(1)
Dim nn(4)
Dim n1(2)
Dim nnn(10)
Dim nx(3)
Dim nxx(3)
Dim posta(5)
Dim poste(5)
posta(1)=10
poste(2)=4.5
poste(3)=0.5
poste(4)=0.5
ru1(10)=11
ru2(1)=12
co=0
ini=EstrazioneFin-156
fin=EstrazioneFin
For es=ini To fin
For p=1 To 5
For p1=p+1 To 5
For r=1 To 10
For rr= r1 To 10
a=Estratto(es,r,p)
c=Estratto(es,r,p1)
b=Estratto(es,rr,p)
d=Estratto(es,rr,p1)
da=Distanza(a,b)
dc=Distanza(c,d)
dax=Distanza(a,c)
daxx=Distanza(a,d)
dcx=Distanza(c,a)
dcxx=Distanza(c,b)
superd=dax:if dax<>dcxx Then superd=da
If dax=18 And daxx=36 And dc = 36 And r<>rr And b<>0 Then
co=co+1
dmag=c:if a>c Then dmag=a
ambata=Fuori90 (dmag+18)
ambata2= Fuori90(dmag+54)
abb=Fuori90(a+c+d)
ru(1)=r ' prima ruota in gioco
ru(2)=rr ' seconda ruota in gioco
nn(1)= abb 'prima Ambata
nnn(1)= AMBATA :nnn(3)=ambata2:nnn(4)=abb
Scrivi "---------------------------------------------------------------"
ColoreTesto 2
Scrivi " Numeri : " & a & "-" & c & "- " & b & "-" & d & " su " & NomeRuota(r) & " e " & NomeRuota(rr)
ColoreTesto 0
ImpostaGiocata 1,nn,ru,posta,9,2
ImpostaGiocata 5,nx,ru,posta,15,2
ImpostaGiocata 6,nxx,ru,posta,15,3
ImpostaGiocata 2,nnn,ru,poste,15,3
ImpostaGiocata 3,nnn,ru1 ,poste,9,3
ImpostaGiocata 4,nnn,ru2 ,poste,9,3
Gioca es
End If
If dax=18 And da=36 And dcxx = 36 And r<>rr And b<>0 Then
co=co+1
dmag=c:if a>c Then dmag=a
ambata=Fuori90 (dmag+18)
ambata2= Fuori90(dmag+54)
abb=Fuori90(a+b+c)
ru(1)=r ' prima ruota in gioco
ru(2)=rr ' seconda ruota in gioco
nn(1)= abb 'prima Ambata
nnn(1)= AMBATA :nnn(3)=ambata2:nnn(4)=abb
Scrivi "---------------------------------------------------------------"
ColoreTesto 2
Scrivi " Numeri : " & a & "-" & c & "- " & b & "-" & d & " su " & NomeRuota(r) & " e " & NomeRuota(rr)
ColoreTesto 0
ImpostaGiocata 1,nn,ru,posta,9,2
ImpostaGiocata 5,nx,ru,posta,15,2
ImpostaGiocata 6,nxx,ru,posta,15,3
ImpostaGiocata 2,nnn,ru,poste,15,3
ImpostaGiocata 3,nnn,ru1 ,poste,9,3
ImpostaGiocata 4,nnn,ru2 ,poste,9,3
Gioca es
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto
Scrivi String(70,"=")&"listato by lele67 ",1
ColoreTesto 0
End Sub
|
