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.

Sub Main
Dim numeri(55),n,e,es,ex,tv,r1,r2,p,a,b,ambata(1),x,posta(2),ruota(2)
Dim ruote(5),poste(2),ambo(2)
tv = InputBox("Quante estrazioni vuoi ? max 10 etr.",,0)
ex = EstrazioneFin - tv
For es = ex To ex
Messaggio(es)
posta(1) = 1
poste(2) = 1
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
a = Estratto(es,r1,p)
x = Fuori90(a + p)
'If a = b Then
ambata(1) = x
ruota(1) = r1
If pari(a) Then
ambo(1) = x
ambo(2) =(a + 90)/2
Else
ambo(1) = x
ambo(2) = Fuori90(a + a)
End If
ruote(1) = r1
ruote(2) = 11
ruote(3) = 12
'
ReDim MatriceCaselleDaEvid(5,1)
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi("" & a & "+" & p & " = " & x & String(19," ")),0,1,4,7,4
Scrivi String(28,"|"),0,1,7,5,4
Scrivi
n = n + 1
numeri(n) = Format2(x)
ImpostaGiocata 1,ambata,ruota,posta,10,0
Gioca es,1,,1
Scrivi
ImpostaGiocata 1,ambo,ruote,poste,0
Gioca es,1,,1
Scrivi
Next
Next
Next
Scrivi StringaNumeri(numeri," "),0,1,0,6,5
End Sub


