| Tecnica che rileva un'ambata su 2 ruote...
'La ricerca dell'elemento mancante in due coppie simmetriche isotope su 2 ruote
'Il diametrale in figura della somma dei suddetti elementi , sarą l'Ambata per 12 colpi
'Ramco505 for Morenish
Sub main()
Dim am1(10)
Dim ruote(10)
Dim poste(5)
poste(1)=1
rs=InputBox("Quante estrazioni vuoi controllare?",,50)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
Messaggio DataEstrazione (es)
For r= 1 To 9
For i= 1 To 4
For j=i+1 To 5
a=Estratto (es,r,i)
b=Estratto(es,r,j)
c=Distanza (a,b)
For r2=r+1 To 10
aa=Estratto(es,r2,i)
bb=Estratto(es,r2,j)
cc=Distanza (aa,bb)
If c=cc And cc=30 Then
If Fuori90(a+60)<>b Then nw1=Fuori90(a+60) Else nw1=Fuori90(a+30)
If Fuori90(aa+60)<>bb Then nw2=Fuori90(aa+60) Else nw2=Fuori90(aa+30)
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < ambo isotopo - stessa Distanza 30 >" ,1
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------"
Scrivi DataEstrazione(es,1)
Scrivi SiglaRuota(r)&" "&StringaEstratti (es,r)&" "&siglaruota(r2)&" "&stringaestratti(es,r2)
Scrivi NomeRuota(r)&" "&Cint(a)&" e "&Cint(b)&" = Dist "&Cint(c)&" "& NomeRuota(r2)&" "&Cint(aa)&" e "&Cint(bb)&" = Dist "&Cint(cc)
Scrivi NomeRuota(r)&" Terzo elem.Simm. "& CInt (nw1) &" "& NomeRuota (r2)&" Terzo elem.Simm. "& CInt (nw2)
ColoreTesto 2 :Scrivi "-----------------------------------------------------------------------------"
ruote(1)=r
ruote(2)=r2
cou1=Fuori90 (nw1+nw2)
am1(1)=Diametrale (cou1)
ImpostaGiocata 1,am1,ruote,poste,12,1
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
|
