Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Cominci a farmi paura... ;-) ;-)
Io a fare gli script non sono molto bravo, però a volte ci provo..
Penso che l'uscita dell' 1 e 48 non sia un caso..
Se fai 115 - 59 = 56 da cui terno - 1 - 56 - 48 -
Option Explicit
Sub Main
Dim ambata(2),ambo(2),posta(1),poste(2)
Dim ruota(5),ruote(5)
Dim a,b,c,d,e,f,s,v,x,y,z,r,k
Dim rs,rx,rk
Dim es
'
posta(1) = 1
poste(2) = 2
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
'
k = 0
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
For r = 1 To 12
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)
'
'--------------------------------
'
x =(a * b)
z =(a + b)
y =(c + d + e)
'---------------------------------
f = Left((x),2)
v = Right((x),2)
s = Abs(f - v)
'---------------------------------
ambata(1) = Fuori90(f*2 - v)
'
ambo(1) = Fuori90(f*2 - v)
ambo(2) = Abs(z - y)
'---------------------------------
ruota(1) = r
ruota(2) = RuotaGemella(r)
ruota(3) = RuotaDiametrale(r)
ruote(1) = TT_
'
'----------------------------
'
If s = 60 Then
'
'---------------------------------------------
ReDim MatriceCaselleDaEvid(5,1)
' 1
MatriceCaselleDaEvid(1,0) = r
MatriceCaselleDaEvid(1,1) = 1
' 2
MatriceCaselleDaEvid(2,0) = r
MatriceCaselleDaEvid(2,1) = 2
' 3
MatriceCaselleDaEvid(3,0) = r
MatriceCaselleDaEvid(3,1) = 3
' 4
MatriceCaselleDaEvid(4,0) = r
MatriceCaselleDaEvid(4,1) = 4
' 5
MatriceCaselleDaEvid(5,0) = r
MatriceCaselleDaEvid(5,1) = 5
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-----------------------------------------------------
'
Scrivi "" & a & "x" & b & " = " & x & "",0,1,5,7,4
Scrivi "" & a & "+" & b & " = " & z & "",0,1,3,1,4
Scrivi "" & c & "+" & d & "+" & e & " = " & y & "",0,1,4,1,4
Scrivi
'
'-----------------------------------------------------
'
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"°")
Scrivi
ImpostaGiocata 1,ambo,ruote,poste,k
Gioca es,1,,1
End If
Next
Next
End Sub