Aiuto script

[akita]

Ciao a tutti,chiedo aiuto agli scriptomanic'è qualcuno che può fare uno script del metodo L'ambo oltre di A.Longo?
il metodo più un esempio,per chi non lo conoscesse,è questo:
L’ambo oltre di antonio longo
Cercare un ambo uguale isotopo
Fare la somma dei numeri uguali
differenza tra i due risultati e dividere per due
il quoziente si somma al numero piu’ piccolo delle due somme e si sottrae al piu’ grande
Cosi’ si trova il numero detto bilancia
Il numero bilancia si somma ai numeri dell’ambo uguale.
Il risultato della somma con il secondo numero dell’ambo uguale estratto sara’ la nostra ambata
Incolonniamo i numeri
8.…74
+ …..+
8.….74
------------
16.…148---- fuori 90 sempre
16 …. 58---somme dei numeri uguali dell'ambo
16-58= 42---- differenza delle somme
42:2=21---quoziente

sommiamo il quoziente al piu' piccolo delle somme e sottraiamolo al piu' grande
16+21=37
58-21=37
Numero bilancia 37
sommiamo il numero bilancia
8+37=45
74+37=111fuori 90 =21---ambata
21+45=66--abbinamento
Ambata 21
ambo secco 21.66

 

[Adelino]

Ciao Akita lo ho trovato in rete

Sub Main()
Dim am(1),ab(2),j(2),qu(5),ruota(2),ruote(1),posta(1),poste(2)
posta(1)=1 : poste(2)=1
Dim prog(5,100)
prog(1,1)=1
prog(1,2)=1
prog(1,3)=1
prog(1,4)=1.50
prog(1,5)=2
prog(1,6)=3
prog(1,7)=4
prog(1,8)=5.50
prog(1,9)=8
prog(1,10)=11
prog(1,11)=15.50
prog(1,12)=21.50
prog(1,13)=30


Rem utile min. 50% unica bolletta


For es=EstrazioneFin-20 To EstrazioneFin
Messaggio "Estrazione: ["&es&"]ª"
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)


For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)


If (a=c And b=d) Or (a=d And b=c) Then


cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° "&cont&"",1
ColoreTesto 0 : Scrivi


Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r1),3)&_
""&Space(3)&""& StringaEstratti (es,r1)&""&Space(6)&_
""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(4)&"("&p1&"-"&p2&")"
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r2),3)&_
""&Space(3)&""& StringaEstratti (es,r2)&""&Space(6)&_
""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(4)&"("&p3&"-"&p4&")" : Scrivi


If a=c And b=d Then
a1=Fuori90(a+c) : b1=Fuori90(b+d)
c1=Abs(a1-b1) : d1=c1\2


j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)




f=Fuori90(Massimo(j(1),j(2))-d1)
x=Fuori90(a+e) : y=Fuori90(b+e)
If a<b Then am(1)=y
If a>b Then am(1)=x
End If


If a=d And b=c Then
a1=Fuori90(a+d) : b1=Fuori90(b+c)
c1=Abs(a1-b1) : d1=c1\2


j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)




f=Fuori90(Massimo(j(1),j(2))-d1)
x=Fuori90(a+e) : y=Fuori90(b+e)
am(1)=y
End If
am(1)=y
ruota(1)=r1 : ruota(2)=r2 : ruote(1)=11
ImpostaGiocata 1,am,ruota,posta,14
ImpostaProgressione 1,prog


ab(1)=y : ab(2)=Fuori90(x+y)
ImpostaGiocata 2,ab,ruota,poste,14
ImpostaGiocata 3,ab,ruote,poste,14




Gioca es : Scrivi String(67,151)
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: AMBO OLTRE",1
Scrivi "AUTORE: A. Longo-",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub

 

[akita]

grazie mille Adelino,ho visto fa i calcoli anche quando l'ambo non è isotopo,è perfetto,proprio quello che stavo cercando,grazzzzie