Sub Main
Dim ambata1(5),ruota(5),ruote(5),posta(5)
Dim ambo1(2),ambo2(2),ambo3(2)
Dim a,b,c,d,e,x,t,z,w
Dim f,g,h,i,l,j,y,v,q
Dim s1,s2,s3,s4,s5
Dim r,es,rs
'
'posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 1
'
' formula diemme di domenico Manna
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
'
k = 0
For es = EstrazioneFin - rs To EstrazioneFin
For r = 1 To 11
If r = 11 Then r = 12 End If
'
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
'---------------------------------------
'------------------------------------------------
s1 = 16*a
s2 = 8*b
s3 = 4*c
s4 = 2*d
s5 = 1*e
'
q = s1 + s2 + s3 + s4 + s5
f =((16*a + 8*b + 4*c + 2*d + e)*61)
g =(f / 90)
j = Left((g),7)
y = Right((j),2)
'
'
z = Fuori90(y*2 - a)
w = Fuori90(z*2 - b)
v = Fuori90(w*2 - c)
x = Fuori90(v*2 - d)
t = Fuori90(x*2 - e)
'------------------------------------------
ambata1(1) = z
ambata1(2) = w
ambata1(3) = v
ambata1(4) = x
ambata1(5) = t
'------------------------------------------------
'---------------------------------------------
ruota(1) = r
'-------------------------------
ruote(1) = r
ruote(2) = 11
ruote(3) = 12
'------------------------------
'-------------------------------
'
ReDim MatriceCaselleDaEvid(5,1)
'
MatriceCaselleDaEvid(1,0) = r
MatriceCaselleDaEvid(1,1) = 1
'
MatriceCaselleDaEvid(2,0) = r
MatriceCaselleDaEvid(2,1) = 2
'
MatriceCaselleDaEvid(3,0) = r
MatriceCaselleDaEvid(3,1) = 3
'
MatriceCaselleDaEvid(4,0) = r
MatriceCaselleDaEvid(4,1) = 4
'
MatriceCaselleDaEvid(5,0) = r
MatriceCaselleDaEvid(5,1) = 5
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi("" & "16 x " &(a) & " = " &(s1) & " + "),0,1,1,5
Scrivi("" & "8 x " &(b) & " = " &(s2) & " + "),0,1,1,5
Scrivi("" & "4 x " &(c) & " = " &(s3) & " + "),0,1,1,5
Scrivi("" & "2 x " &(d) & " = " &(s4) & " + "),0,1,1,5
Scrivi("" & "1 x " &(e) & " = " &(s5) & " = "),0,1,1,5
'
Scrivi("_________" & q & " x 61 = " & f & ""),0,1,4,1
Scrivi("" & f & " / 90 = " & g & ""),0,1,3,1
Scrivi("" & f/90 & ""),0,1,1,3
Scrivi("" & j & "")
Scrivi("" & y & "")
Scrivi
ImpostaGiocata 1,ambata1,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi
Scrivi
Next
Next
End Sub