drago2940 |
|
| Questo è completo
Sub main() Dim nu1(10),nu2(10) Dim ruote(10),ruota(10) Dim posta(5),poste(5) poste(1)=1 fin=EstrazioneFin ini=fin-50 For es=ini To fin AvanzamentoElab ini,fin,es For r1=1 To 10 For p1=1 To 5 n1=Estratto(es,r1,p1) c1=Estratto(es-1,r1,p1) If n1<10 And Cadenza(c1)=0 Or c1<10 And Cadenza(n1)=0 Then a1=Fuori90(c1+n1) a2=Vert(a1) casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es-1,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-1,r1)& " " Scrivi DataEstrazione(es,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " " Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=r1 : k=18 : co=0 nu1(1)=a1 nu1(2)=a2 co=co+1 ImpostaGiocata co,nu1,ruote,poste,k Gioca es End If Next Next Next ScriviResoconto ColoreTesto 2 : Scrivi"listato by Occhidigiada-modifiche di P.Robbe" End Sub
|
| |