Salve, con questo possiamo scegliere anche le posizioni degli estratti su cui fare i calcoli,come al solito se trovate errori comunicatelo
Ciauz
ColoreTesto 1 :Scrivi "============================= Metodo by Marco",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
ColoreTesto 0
'http://forum.lottoced.com/topic.asp?TOPIC_ID=131834
Sub main()
Dim ruote(2)
Dim numeri(2),numeri1(5)
Dim posta(5),poste(5)
posta(1)=1
posta(2)=1
poste(2)=1
poste(3)=1
es=InputBox("Quante estrazioni vuoi analizzare?"," Metodo by Marco",30)
r=InputBox("1° Ruota dove giocare?"," Metodo by Marco",1)
p=InputBox("Quale posizione Estratto 1° Ruota da considerare?"," Metodo by Marco",1)
r1=InputBox("2° Ruota dove giocare?"," Metodo by Marco",2)
p1=InputBox("Quale posizione Estratto 2° Ruota da considerare?"," Metodo by Marco",1)
cp=InputBox("Per quanti colpi vuoi giocare?"," Metodo by Marco",5)
ruote(1)=r
ruote(2)=r1
ini=EstrazioneFin-eval(es)
fin=EstrazioneFin
For n=ini To fin
Messaggio DataEstrazione
a=Estratto(n,r,p)
b=Estratto(n,r1,p1)
c=Abs(a-b)
d=Fuori90(c*2)'numero chiave
e=Fuori90(Massimo(a,b)+d)'ambata
f=Fuori90(90+Minimo(a,b)-d) 'ambata
cc=cc+1
Scrivi : ColoreTesto 2
Scrivi "-----------------Pronostico n° " & Format2 (cc),1
Scrivi : ColoreTesto 0
Scrivi p&"° "& Left(NomeRuota(r),9)&".."&a& " con "&p1&"° "& Left(NomeRuota(r1),9)&".."&b
Scrivi
numeri(1)=e
numeri(2)=f
ImpostaGiocata 1,numeri,ruote,posta,eval(cp),2
numeri1(1)=e
numeri1(2)=f
numeri1(3)=Vert(e)
numeri1(4)=Vert(f)
ImpostaGiocata 2,numeri1,ruote,poste,eval(cp),3
Gioca n
Next
ScriviResoconto
ColoreTesto 1 :Scrivi "============================= Metodo by Marco",1
Scrivi
Scrivi String(40,32)&"List.DjNomade",1
End Sub
«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin