| Caratteristiche Tecniche : Piattaforma l8+ Si risale con archivio all'esempio dell'Autore
Caratteristiche Metodo : Casi rari ,la resa per gli abbinamento ambi (come del resto spesso succede) si è persa nel tempo
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-1242
fin=EstrazioneFin
For es=ini To fin
es1=es-1
es2=es-2
For p=1 To 5
p1=p+1 :if p1>5 Then p1=p-1
For r=1 To 10
rr=r+5:if rr>10 Then rr=rr-10
a=Estratto(es,r,p)
c=Estratto(es1,r,p1)
b=Estratto(es2,r,p)
d=Estratto(es1,r,p)
dac=Distanza(a,b)
dab=Distanza(a,b)
dcb=Distanza(b,c)
If dac=dab And dac=dcb And dac=30 Then
co=co+1
ambata=(Fuori90(a+c+b))
ambo1=Fuori90(2*(a+b+d))
ambo2=Fuori90(2*(c+d))
ru(1)=r ' prima ruota in gioco
ru(2)=rr ' seconda ruota in gioco
nn(1)= ambata 'prima Ambata
nx(1)=ambata:nx(2)=ambo1
nxx(1)=ambata:nxx(2)=ambo2
nnn(1)= AMBATA :nnn(3)=ambo1:nnn(4)=ambo2
Scrivi "---------------------------------------------------------------"
ColoreTesto 2
Scrivi " Generatori : " & a & "-" & c & "- " & b & "-" & d & " su Ruota Generatrice " & NomeRuota(r) & " e Ruota Diametrale " & NomeRuota(rr)
ColoreTesto 0
ImpostaGiocata 1,nn,ru,posta,15,2
ImpostaGiocata 2,nx,ru,poste,15,3
ImpostaGiocata 3,nxx,ru,poste,15,3
ImpostaGiocata 4,nnn,ru,poste,15,3
ImpostaGiocata 5,nnn,ru1 ,poste,9,3
ImpostaGiocata 6,nnn,ru2 ,poste,9,3
Gioca es
End If
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
Edited by the original lele67 - 21/2/2011, 11:55
|
