|
'Conversione dai vertibili ( script Ramco modificato occhidigiada58 )
Sub main()
Dim mat(28,7),nu(2),nn(5),rt(1),pt(1),ptt(3),pta(2)
pt(1)=1
pta(2)=1
ptt(2)=1 : ptt(3)=0.5
clp=14
mat(1,1)=12 : mat(1,2)=21 : mat(1,3)=44 : mat(1,4)=77 : mat(1,5)=76 : mat(1,6)=79 : mat(1,7)=87
mat(2,1)=13 : mat(2,2)=31 : mat(2,3)=66 : mat(2,4)=77 : mat(2,5)=64 : mat(2,6)=68 : mat(2,7)=81
mat(3,1)=14 : mat(3,2)=41 : mat(3,3)=56 : mat(3,4)=65 : mat(3,5)=17 : mat(3,6)=83: mat(3,7)=90
mat(4,1)=15 : mat(4,2)=51 : mat(4,3)=80 : mat(4,4)=90 : mat(4,5)=40 : mat(4,6)=45 : mat(4,7)=74
mat(5,1)=16 : mat(5,2)=61 : mat(5,3)=69 : mat(5,4)=90 : mat(5,5)=21 : mat(5,6)=46 : mat(5,7)=85
mat(6,1)=17 : mat(6,2)=71 : mat(6,3)=66 : mat(6,4)=67 : mat(6,5)=42 : mat(6,6)=82 : mat(6,7)=83
mat(7,1)=18 : mat(7,2)=81 : mat(7,3)=80 : mat(7,4)=90 : mat(7,5)=20 : mat(7,6)=54 : mat(7,7)=79
mat(8,1)=23 : mat(8,2)=32 : mat(8,3)=47 : mat(8,4)=77 : mat(8,5)=56 : mat(8,6)=65: mat(8,7)=78
mat(9,1)=24 : mat(9,2)=42 : mat(9,3)=83 : mat(9,4)=84 : mat(9,5)=68 : mat(9,6)=86 : mat(9,7)=89
mat(10,1)=25 : mat(10,2)=52 : mat(10,3)=66 : mat(10,4)=77 : mat(10,5)=24 : mat(10,6)=48: mat(10,7)=54
mat(11,1)=26 : mat(11,2)=62 : mat(11,3)=70 : mat(11,4)=80 : mat(11,5)=40 : mat(11,6)=43 : mat(11,7)=90
mat(12,1)=27 : mat(12,2)=72 : mat(12,3)=66 : mat(12,4)=77 : mat(12,5)=69 : mat(12,6)=76 : mat(12,7)=88
mat(13,1)=28 : mat(13,2)=82 : mat(13,3)=66 : mat(13,4)=74 : mat(13,5)=47 : mat(13,6)=76 : mat(13,7)=77
mat(14,1)=34 : mat(14,2)=43 : mat(14,3)=80 : mat(14,4)=90 : mat(14,5)=60 : mat(14,6)=73 : mat(14,7)=76
mat(15,1)=35 : mat(15,2)=53 : mat(15,3)=66 : mat(15,4)=88 : mat(15,5)=56 : mat(15,6)=74 : mat(15,7)=77
mat(16,1)=36 : mat(16,2)=63 : mat(16,3)=78 : mat(16,4)=79 : mat(16,5)=48 : mat(16,6)=80 : mat(16,7)=81
mat(17,1)=37 : mat(17,2)=73 : mat(17,3)=66 : mat(17,4)=88 : mat(17,5)=77 : mat(17,6)=78 : mat(17,7)=81
mat(18,1)=38 : mat(18,2)=83 : mat(18,3)=68 : mat(18,4)=86 : mat(18,5)=67 : mat(18,6)=76: mat(18,7)=88
mat(19,1)=45 : mat(19,2)=54 : mat(19,3)=87 : mat(19,4)=89 : mat(19,5)=19 : mat(19,6)=56 : mat(19,7)=90
mat(20,1)=46 : mat(20,2)=64 : mat(20,3)=77 : mat(20,4)=88 : mat(20,5)=83 :mat(20,6)=84: mat(20,7)=89
mat(21,1)=47 : mat(21,2)=74 : mat(21,3)=70 : mat(21,4)=90 : mat(21,5)=50 : mat(21,6)=63 : mat(21,7)=89
mat(22,1)=48 : mat(22,2)=84 : mat(22,3)=66 : mat(22,4)=77 : mat(22,5)=44 : mat(22,6)=74 : mat(22,7)=75
mat(23,1)=56 : mat(23,2)=65 : mat(23,3)=75 : mat(23,4)=76 : mat(23,5)=38 : mat(23,6)=65: mat(23,7)=68
mat(24,1)=57 : mat(24,2)=75 : mat(24,3)=88 : mat(24,4)=90 : mat(24,5)=47 : mat(24,6)=56 : mat(24,7)=87
mat(25,1)=58 : mat(25,2)=85 : mat(25,3)=74 : mat(25,4)=76 : mat(25,5)=65 :mat(25,6)=77: mat(25,7)=88
mat(26,1)=67 : mat(26,2)=76 : mat(26,3)=76 : mat(26,4)=80 : mat(26,5)=57 : mat(26,6)=77 : mat(26,7)=89
mat(27,1)=68 : mat(27,2)=86 : mat(27,3)=66 : mat(27,4)=88 : mat(27,5)=70 : mat(27,6)=89 : mat(27,7)=90
mat(28,1)=78 : mat(28,2)=87 : mat(28,3)=88 : mat(28,4)=89 : mat(28,5)=54 : mat(28,6)=72: mat(28,7)=90
ini=EstrazioneFin -200
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 11
If r=11 Then r=12
rt(1)=r
For i=1 To 23
If Posizione(es,r,mat(i,1))>0 And Posizione(es,r,mat(i,2))>0 Then
co=co+1
Scrivi String(65,"=")&" Caso n°"&co
Scrivi DataEstrazione(es)&" "& SiglaRuota(r)&" "& StringaEstratti(es,r)&" A.Vertibile "& mat(i,1)&"-"& mat(i,2)
nu(1)=mat(i,3): nu(2)=mat(i,4)
ImpostaGiocata 1,nu,rt,pt,clp
nn(1)=mat(i,3) : nn(2)=mat(i,4) : nn(3)=mat(i,5) : nn(4)=mat(i,6) : nn(5)=mat(i,7)
ImpostaGiocata 2,nn,rt,pta,clp
Gioca es
End if
Next
Next
Next
ScriviResoconto
End Sub
pigghe nella metodologia non e' specificato se su ruota, ma penso che non sia in altro modo!!!
un lavoraccio...controlla comunque se sono esatte le previsioni!!! smackkkkkkkkkkkkk
|
