Aiuto ad elaborare uno script

[Roby]

Carissimi mi potete aiutare ad elaborare uno script che mi cerchi su una ruota o più ruote l'uscita di due numeri zerati, ne trovi la figura e con le due figure trovate componga il numero X ed il suo vertibile verX siano messi in gioco per ambata su ruota.
Naturalmente se escono più numeri zerati bisogna fare più combinazione di coppie per il gioco dell'ambata.
Posto un piccolo esempio
GE 05/04/2011
76.75.3.30.60
previsione
30.60 > figura 3.6 > numeri 63-63 (63 5°colpo)
BA 08/03/2011
86.10.8.80.20
previsione
10.80 > figura 1.8 > numeri 18-81 (18 9° colpo)
10.20 > figura 1.2 > numeri 12-21 (neg)
80.20 > figura 8.2 > numeri 82.28 (82 9° colpo)
naturalmente sono graditi suggerimenti per implementare per la sorte dell'ambo ma sempre solo su unica ruota.
Grazie.
10.80 > figura

leosmania

 

[Thauk]

ciao, leosmania
l'ho fatto in velocità (tempo tiranno! ), controlla se va bene.

Sub main()
Dim rt(1),pt(1),am(2)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",20))

ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es

For r=1 To 12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r,p1)
b=Estratto(es,r,p2)
If Cadenza(a)=0 And Cadenza(b)=0 And r<>11 Then
n1=Figura(a)
n2=Figura(b)

rt(1)=r
pt(1)=1
k=12

am(1)=Fuori90(n1&n2)
am(2)=Vert(am(1))
ImpostaGiocata 1,am,rt,pt,k

co=co+1
Scrivi String(70,"=")&" Caso n° "&co
Scrivi DataEstrazione(es)&" "& NomeRuota(r)&" [ "& StringaEstratti(es,r)&" ] Ambo " & Format2(a)&"."& Format2(b)
Scrivi

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[leosmania]

Grazie Thauk della velocità,
ho copiato il tuo script nell'editor del programma e nella esucuzione mi da questo errore: variabile non definita. "estr"
gentilmente puoi controllare?
grazie in anticipo
Leo


leosmania

 

[LuigiB]

CIAO , QUANDO SI INCOLLA UNO SCRIPT BISOGNA PRIMA CANCELLARE TUTTO QUELLO CHE C'E' NELLA FINESTRA DELL'EDITOR ..VEDRAI CHE DOPO FUNZIONA

 

[leosmania]

Grazie Luigi. Funziona

leosmania

 

[leosmania]

grazie Thauk per l'elaborazione dello script.

leosmania