Anima buona cercasi per nuovo script

[marpioncella]

[TD="class: xl68, colspan: 12"] Qualche anima buona può fare uno script di questo metodo postato nella sezione metodi da un utente del forum? Mi servirebbe che su tutte le estrazioni lo script segnali la presenza di questa condizione e l'eventuale uscita dei numeri sotto riportati su NA e PA
Grazie MARPI

Spia 8 su bari in quarta posizione
[/TD]

[TD="class: xl68, colspan: 11"] mettere in gioco ambata 04-10 [/TD]

[TD="class: xl68, colspan: 8"] x ambo 12-13-31-35 [/TD]

[TD="class: xl68, colspan: 3"] na-pa [/TD]

 

[Thauk]

Passavo di qui...
L'ho fatto in velocità, controlla se va bene.

Sub main()
Dim rt(2),pte(1),pta(2),am(2),ambo(4),nr(4)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es
sp=8
x=Estratto(es,1,4) : If x=sp Then

pte(1)=1
pta(2)=1
rt(1)=6
rt(2)=7
ng=0

am(1)=4
am(2)=10
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clp

nr(1)=12
nr(2)=13
nr(3)=31
nr(4)=35

For x=1 To 4
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next

For x=1 To 4
ambo(1)=am(2)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"    "& NomeRuota(1)&" < "& StringaEstratti(es,1)&" > Numero Spia "& Format2(sp)&" (4° Estratto)",1
Scrivi String(70,"="),1
Scrivi

Gioca es
End If
Next
ScriviResoconto
End Sub

ciauz

 

[pigi]

Ciao THAUK
ho provato lo script su SPAZIOMETRIA , ma mi da "errore script 1024 prevista istruzione linea 46 colonna 0" ,
ho sbagliato qualche cosa o c'è un errore?
Saluti.
Giorgio

 

[pigi]

Ciao THAUK
scusa ho riprovato a rimetterlo ora funziona, avevo copiato male .
Comunque GRAZIE .
Saluti Giorgio

 

[marpioncella]

Grazie Thauk funziona benissimo. Ora controllerò a ritroso per molte estrazioni. A buon rendere.
Marpi