SUPER LOTTO

DAI RADDOPPIATI PREVISIONI VINCENTI, Matteo PALUMBO

« Older   Newer »
  Share  
CAT_IMG Posted on 5/2/2012, 01:53

Group:
Administrator
Posts:
8,278
Location:
Pescara

Status:


Dai raddoppiati previsioni vincenti, lo script qui sotto

Edited by pigreko73.. - 2/6/2021, 08:51
 
Web  Contacts  Top
CAT_IMG Posted on 16/3/2015, 18:53
Avatar

Group:
Utente
Posts:
3,006
Location:
avellino

Status:


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
 
Top
1 replies since 5/2/2012, 01:53   10820 views
  Share