|
|
| Nello spoiler il listato del metodo "DAI RADDOPPIATI PREVISIONI VINCENTI" del Prof. Matteo PALUMBO. Sub main() Dim amb(2),abb(6) Dim rt(1),rtt(1) Dim posta(5),poste(5) posta(1)=1 : poste(2)=1: poste(3)=1 k=14 ini=EstrazioneFin -157 co=0 For es=ini To EstrazioneFin Messaggio (es) For r=1 To 11 If r=11 Then r=12 For p1=1 To 5 n1=Estratto(es-1,r,p1) If n1<45 Then n2=Estratto(es,r,p1) do1=n1*2 If n2=do1 Then rt(1)=r rtt(1)=r co=co+1 Scrivi String(70,174) ColoreTesto 1:Scrivi String(17,32)& "DAI RADDOPPIATI PREVISIONI VINCENTI" ColoreTesto 2:Scrivi String(19,32)& "METODO DEL Prof. Matteo PALUMBO" ColoreTesto 1 Scrivi String(21,32)&" "&" - listato da fede53 - ",1 ColoreTesto 2 :Scrivi String(25,32)&" Previsione n° "& Format2(co):ColoreTesto 0 Scrivi String(70,152) Scrivi DataEstrazione(es-1) &" "& SiglaRuota (r)&" "& StringaEstratti (es-1,r) & " " & Format2 (n1)&" Pos. "&p1&"^ " Scrivi DataEstrazione(es) &" "& SiglaRuota (r)&" "& StringaEstratti (es,r) & " " & Format2 (n2)&" Pos. "&p1&"^ " Scrivi String(70,152),1 a=n1+45 b=Fuori90(do1+45) c=Fuori90(a+b) d=Fuori90(c+45) amb(1)=c amb(2)=d abb(1)=c abb(2)=d abb(3)=a abb(4)=b ImpostaGiocata 1,amb, rtt, posta,k ImpostaGiocata 2,abb,rtt,poste,k Gioca es End If End If Next Next Next ScriviResoconto ColoreTesto 2:Scrivi String(8,32)& "DAI RADDOPPIATI PREVISIONI VINCENTI - METODO DEL Prof. Matteo PALUMBO" ColoreTesto 1:Scrivi String(20,32)& "- LISTATO DA fede53 - IN BOCCA AL LUPO -" End Sub Saluti fede53
|
| |