| R E V I S I O N E D E L L A D I S C U S S I O N E |
| drago29 |
Posted - 23 marzo 2013 : 08:39:28
Ciao Forum
Sub main()
Dim ruote(10), posta(10), n1(4),n2(4),n3(4)
Dim rt(1),post(5)
posta(1)=1
posta(2)=0.5
posta(9)=1
posta(10)=1
post(2)=1
ruote(1)=12
ruote(2)=3
ruote(3)=8
rt(1)=11
k=12
casi=0
ini=7445
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile (es)=1 Then
a1=Estratto (es,1,1)
a2=Estratto (es-1,12,5)
For ex=es To es-20 step-1
cmx=Cadenza (Mese (ex)) : cme=Cadenza (Mese (es))
If (Distanza (cmx,cme)=1 And IndiceMensile (ex)=1) Or (cmx=9 And cme=0 And IndiceMensile (ex)=1) Then
a3=Estratto (ex,12,5)
Scrivi String (65,"=")
Scrivi DataEstrazione(es)&" "& NomeRuota(1) &" 1°("& Format2(a1)&") "& StringaEstratti (es,1)&_
"...Prima del Mese "
Scrivi DataEstrazione (es-1)&" "& NomeRuota (12)&" 5°("& Format2 (a2)&") "& StringaEstratti (es-1,12)&_
"...Ultima mese precedente"
Scrivi DataEstrazione(ex)&" "& NomeRuota(12) &" 5°("& Format2(a3)&") "& StringaEstratti (ex,12)&_
"...Prima mese precedente"
casi=casi+1:co=0
a4=Decina(a1)*Cadenza (a1)
If a1<10 Or Cadenza(a1)=0 Then a4=Fuori90(Figura(a1)*Figura(a1))
a5=Vert (a4)
co=co+1
n1(1)=Fuori90 (a2+a3) : n1(2)=Vert (n1(1))
ImpostaGiocata co,n1,ruote,posta,k
co=co+1
ImpostaGiocata co,n1,rt,post,k
n3(1)=a4:n3(2)=a5
co=co+1
ImpostaGiocata co,n3,ruote,posta,k
co=co+1
ImpostaGiocata co,n3,rt,post,k
n2(1)=n1(1)
n2(2)=n1(2)
n2(3)=a4
n2(4)=a5
co=co+1
ImpostaGiocata co,n2,ruote,post,k
co=co+1
ImpostaGiocata co,n2,rt,post,k
Gioca es
End If
Next
End If
Next
Scrivi
Scrivi "------------------"
Scrivi " Casi = " & casi
ScriviResoconto
End Sub
|
| 2 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 25 marzo 2013 : 07:25:43
drago29 |
| vinci |
Posted - 23 marzo 2013 : 23:43:54
Grazie per averci dato questo script
e benvenuto in questo forum |
|
|
