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 am(1),ambo(2),ci(5),nn(3),ru(2),pos1(1),pos2(3),pos3(5),ru1(3),sestina(6),amb(11),ambo1(3)
pos1(1) = 1:pos2(2) = 1:pos3(2) = 1 :pos3(3) = 1
Dim a,b,est
Dim r1,r2
est = CInt(InputBox("Quante estrazioni vuoi controllare?",,0))
k = 0
fin = EstrazioneFin
ini = fin - est
For es = ini To fin:Messaggio(es)
For r1 = 1 To 9
For p = 1 To 5
r2 = r1 + 1
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
'
If a = b Then
'
n11 = (91 - a) '.....(ambata)
'
n1 = Fuori90(Decina(n11) & 0)
n2 = Fuori90(Decina(n11) & 1)
n3 = Fuori90(Decina(n11) & 2)
n4 = Fuori90(Decina(n11) & 3)
n5 = Fuori90(Decina(n11) & 4)
n6 = Fuori90(Decina(n11) & 5)
n7 = Fuori90(Decina(n11) & 6)
n8 = Fuori90(Decina(n11) & 7)
n9 = Fuori90(Decina(n11) & 8)
n10 = Fuori90(Decina(n11) & 9)
amb(1) = n11
amb(2) = n1
amb(3) = n2
amb(4) = n3
amb(5) = n4
amb(6) = n5
amb(7) = n6
amb(8) = n7
amb(9) = n8
amb(10) = n9
amb(11) = n10
ReDim MatriceCaselleDaEvid(4,1)
'
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p
'
MatriceCaselleDaEvid(2,0) = r2
MatriceCaselleDaEvid(2,1) = p
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 10
For y = x + 1 To 11
If amb(x) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula
ru(1) = r1
ru(2) = r2
ru1(1) = r1
ru1(2) = r2
ru1(3) = 11
'casi=casi+1
'Scrivi String(65,"-")&" caso n° "&(casi)
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(a) & " in " & (p) & "^ Pos",0,0,1,5
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" numero " & Format2(b) & " in " & (p) & "^ Pos",0,0,2,5
Scrivi
Scrivi
'ColoreTesto 2: Scrivi " > numeri ISOTOPI < ",1 :ColoreTesto 0
am(1) = amb(1)
ImpostaGiocata 1,am,ru,pos1,k
Gioca es,1,,1
Scrivi
Scrivi String(37,24) & "COMPLEMENTO A 91 DI SALVATORE LEONE",0,0,1,5
Scrivi
Scrivi
Scrivi
ambo(1) = amb(1)
ambo(2) = amb(2)
ImpostaGiocata 2,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(3)
ImpostaGiocata 3,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(4)
ImpostaGiocata 4,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(5)
ImpostaGiocata 5,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(6)
ImpostaGiocata 6,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(7)
ImpostaGiocata 7,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(8)
ImpostaGiocata 8,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(9)
ImpostaGiocata 9,ambo,ru1,pos2,k
ambo(1) = amb(1)
ambo(2) = amb(10)
ImpostaGiocata 10,ambo,ru1,pos2,k
Gioca es,1,,1
Scrivi
Scrivi
End If
Next
Next
Next
Scrivi String(37,24) & "COMPLEMENTO A 91 DI SALVATORE LEONE",0,0,3,1
End Sub
Le ruote consecutive devono essere : BA-CA / FI-GE / MI-NA / PA-RO / TO-VE , se non sono queste,
le probabilità si abbassano di molto..
Di caffè te ne offro anche due..
[31- 47 - 23]