| Garcid nello script di OKKI manca alla fine <end Sub>.....per questo ti da errore. Comunque mi sono dilettato a modificare lo script e penso che sia questo quello che volevi: ----------------------------------------------------------------------------------------------------------------- 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) If n1=1 Or n1=2 Or n1=3 Or n1=4 Or n1=5 Or n1=6 Or n1=7 Or n1=8 Or n1=9 Then c1=Estratto(es-1,r1,p1) 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 ----------------------------------------------------------------------------------------------------------------- Ciao ciao
|