R
Roby
Guest
Ecco lo script di un metodo che ricava 2 ambate sulla ruota bari.
Non è mio l'ho trovato per caso navigando su internet:
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
x rizzo10: hai visto cosa c'è da giocare su bari per i prossimi 13 colpi? Converge alla perfezione con le tue tecniche
Arrivederci
Non è mio l'ho trovato per caso navigando su internet:
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
x rizzo10: hai visto cosa c'è da giocare su bari per i prossimi 13 colpi? Converge alla perfezione con le tue tecniche
Arrivederci