|
Salvo errori e omissioni questo dovrebbe essere il Listato x L8+
Ciauz
ColoreTesto 2
Scrivi"============Tecnica per ambo secco ..NUMERI IN LIBERTA' 2..by Camill@============",1
ColoreTesto 1
Scrivi "•--------------------------------DjNomade•",1
ColoreTesto 0
Scrivi
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2),post(3)
poste(2)=1 : poste(2)=0.5 : post(3)=1.5
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
n1=Estratto(es,r1,p1)
For p2=p1+1 To 5
n2=Estratto(es,r1,p2) : ds1=Distanza(n1,n2)
If ds1=45 Then
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p3=1 To 5
n3=Estratto(es,r2,p3)
If n3=Fuori90 (n1+n2)And r1<>r2 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo Diametrale < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Somma ambo Diametrale < "&Format2(n3)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
co=0
nu3(1)=n3
posta(1)=1 : posta(p1+5)=1 : posta(p2+5)=1
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
Erase posta
nu2(1)=n3
nu2(2)=Fuori90(n3+23)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=n3
nu2(2)=Abs(n3-23)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
'End If
Next
Next
End If
Next
Next
Next:Next
ScriviResoconto
ColoreTesto 2
Scrivi"============Tecnica per ambo secco ..NUMERI IN LIBERTA' 2..by Camill@============",1
ColoreTesto 1
Scrivi "•--------------------------------DjNomade•",1
ColoreTesto 0
Scrivi
End Sub
|
