occhidigiada58. |
|
| garcid...un listato si fa per evitare di fare 120mila calcoli...mi spiego...il 5 a bari in seconda posizione esce poche volte durante l'anno inoltre nn ci sono calcoli particolari poi forse volevi dire di sommare il 5 al 10...altrimenti non mi spiego come 10+15 faccia 15 ilo mio e' un consiglio restare in attesa di questo 5 per giocare due ambate...nn so se vale la pena comunque ecco lo script CODICE Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-600
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 1
For p1=1 To 5
If p1=2 Then
n1=Estratto(es,1,p1)
If n1=5 Then
c1=Estratto(es-1,1,p1)
a1=Fuori90(c1+5)
a2=Vert(a1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es,1)& " "
Scrivi DataEstrazione(es-1,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es-1,1)& " "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=1: k=14:co=0
nu1(1)=a1
nu1(2)=a2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
End If
Next
Next
Next
ScriviResoconto |
| | |
