| ||
iao a Tutti ecco il listati in L8
Sub main() Dim ruote(3),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10) posta(2)=1 poste(2)=1 k=9 ce=500 ini=EstrazioneFin -ce fin=EstrazioneFin For es =ini To fin:Messaggio es For r1=12 To 12 For p1=1 To 5 a=Estratto(es,r1,p1) If a=29 Then casi=casi+1:Scrivi String(65,"•"),1 Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_ " ] "&format2(a)&" "&(p1)&"^ pos." Scrivi String(52,"-")&" caso n° "&(casi) ruote(1)=4:ruote(2)=5:ruote(3)=11 y=0 nu3(1)=Fuori90(Estratto(es,12,2)+36) nu3(2)=Fuori90(Estratto(es,12,2)+77) nu3(3)=Fuori90(Estratto(es,12,2)+80) y=y+1 ImpostaGiocata y,nu3,ruote,poste,k Gioca es End If Next:Next:Next ScriviResoconto End Sub |