richiesta di un listrato

[armando59]

per cortesia cerco listrato che elabora ad ogni estazione sulla ruota
nazionale il diametrale in decina del 1° estratto e di affiancare il numero del 4°estratto come ambo per un massimo di 12 colpi,con la possibilità
di provarlo anche sulle altre ruote.
x estratto e ambo partendo da 300 estrazioni prima.
spero di essermi fatto capire
grazie mille ciao

armando59

 

[Thauk]

ciao, vedi se va bene così.

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

ruo=CInt(InputBox("Ruota di gioco?","Ruota",12))
est=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",300))
ini=EstrazioneFin-est
fin=EstrazioneFin

For es=ini To fin
Messaggio es

pte(1)=1
pta(2)=1
rt(1)=ruo
clp=12
ng=0

am(1)=DiametraleD(Estratto(es,12,1))
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clp

nr(1)=am(1)
nr(2)=Estratto(es,12,4)
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,clp

co=co+1
Scrivi String(70,"=")&" Caso n° "&co,1
Scrivi

Gioca es
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[armando59]

ciao ti ringrazio x lo scrip è come lo volevo.
solo che il metodino non è molto valido
comunque grazie ma devo migliorarlo
alla prossima


armando59

 

[keeper]

grande thauk come sempre ora anche i listrati[8]