UN AIUTO DA CHI SA' FARE I LISTATI...

[Roby]

Allora,ho questo listato di un metodo sommativo,volevo sapere come fare per modificarlo,in modo che non si fermi al primo esito positivo,ma consideri tutte le sortite entro i colpi prestabiliti...

GRAZIE

Sub main()
Scrivi "METODO - AMBATISSIMA BY Record10V (Alla 2° da Milano a Bari"),[grassetto=true]

Dim ruote(2)
Dim numeri1(2)
Dim posta(1)

posta(1)=1 'posta in gioco
ruote(1)=1 'ruota di sortita pronostico
r=5 'ruota di rilevamento
po1=5 '1^ posizione di rilevamento
po2=1 '2^ posizione di rilevamento
k=13 'colpi di gioco

casi=0
For n= 7694 To EstrazioneFin
If IndiceMensile(n)=2 Then
a=Fuori90(Estratto(n,r,po1)+59)
b=Fuori90(Estratto(n,r,po2)+81)

Scrivi String(65,"="),1
Scrivi DataEstrazione(n)&" "&siglaruota(r)&" "&stringaestratti(n,r)
Scrivi SiglaRuota (r)&" "&Format2(Estratto(n,r,po1))&" "&(po1)&"°Estratto +59  = "&Format2(a)
Scrivi SiglaRuota (r)&" "&Format2(Estratto(n,r,po2))&" "&(po2)&"°Estratto +81  = "&Format2(b)
Scrivi String(65,"-")
ng=0

numeri1(1)=a
numeri1(2)=b
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,1
Gioca n

casi=casi+1
End If
Next
Scrivi:Scrivi
Scrivi "Numero Totale estrazioni analizzate: "&Cint(casi)
ScriviResoconto 
End Sub

<center>

</center>

 

[DjNomade]

Sub main()
Scrivi "METODO - AMBATISSIMA BY Record10V (Alla 2° da Milano a Bari),[grassetto=true]"

Dim ruote(2)
Dim numeri1(2)
Dim posta(1)

posta(1)=1 'posta in gioco
ruote(1)=1 'ruota di sortita pronostico
r=5 'ruota di rilevamento
po1=5 '1^ posizione di rilevamento
po2=1 '2^ posizione di rilevamento
k=13 'colpi di gioco

casi=0
For n= 7694 To EstrazioneFin
If IndiceMensile=2 Then
a=Fuori90(Estratto(n,r,po1)+59)
b=Fuori90(Estratto(n,r,po2)+81)

Scrivi String(65,"="),1
Scrivi DataEstrazione&" "&siglaruota(r)&" "&stringaestratti(n,r)
Scrivi SiglaRuota (r)&" "&Format2(Estratto(n,r,po1))&" "&(po1)&"°Estratto +59 = "&Format2(a)
Scrivi SiglaRuota (r)&" "&Format2(Estratto(n,r,po2))&" "&(po2)&"°Estratto +81 = "&Format2(b)
Scrivi String(65,"-")
ng=0

numeri1(1)=a
numeri1(2)=b
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,13
Gioca n

casi=casi+1
End If
Next
Scrivi:Scrivi
Scrivi "Numero Totale estrazioni analizzate: "&Cint(casi)
ScriviResoconto
End Sub

 

[maxma62]

Ciao, qui togli l' 1

ImpostaGiocata ng,numeri1,ruote,posta,k

max

 

[Record10V]

thanks!




<center>

</center>