| Ciao Eccoti il listato per il programma l8 Ciao Gioanni
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=2:poste(3)=1
fin=EstrazioneFin
ini=fin-400
For es=ini To fin
AvanzamentoElab ini,fin,es
n1=Fuori90(SommaEstratti(es,1))
If n1=50 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es,1)&_
" > Pesi Somma < "&Format2(n1)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=1
nu1(1)=8
nu1(2)=38
co=co+1
ImpostaGiocata co,nu1,ruote,poste,13
nu1(1)=8
nu1(2)=38
nu1(3)=45
nu1(4)=59
co=co+1
ImpostaGiocata co,nu1,ruote,poste,13
nu1(1)=8
nu1(2)=38
nu1(3)=45
nu1(4)=75
co=co+1
ImpostaGiocata co,nu1,ruote,poste,13
nu1(1)=8
nu1(2)=38
nu1(3)=45
nu1(4)=9
co=co+1
ImpostaGiocata co,nu1,ruote,poste,13
nu1(1)=55
nu1(2)=59
nu1(3)=75
nu1(4)=9
co=co+1
ImpostaGiocata co,nu1,ruote,poste,13
Gioca es
End If
Next
ScriviResoconto
End Sub
|
