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 T,T2,T1,T3,T4,T5,T6,T7
Dim A,C,D,E,X,Y,R,V,P1,P2,P3,P4
Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
Dim A2,B2,C2,D2,qq,Xfine
Dim S1,S2,S3,S4,S5,S6,K,TV,EX,N,Nx
Dim F(5),B(5),ES,RS,R1,R2
Dim Numeri(20),Rt
Dim Ambata(5),Ambo(5),posta(1),poste(3)
Dim Ruota(2),Ruote(5)
posta(1) = 1
poste(2) = 1
poste(3) = 1
K = 9
'X = InputBox("Quale numero vuoi ?",,0)
TV = InputBox("Quante estrazioni vuoi controllare ?",,0)
EX = EstrazioneFin - TV
For ES = EX To EX
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For Nx = X To X
If ScriptInterrotto Then Exit Sub
F(1) = Estratto(ES,R1,1)
F(2) = Estratto(ES,R1,2)
F(3) = Estratto(ES,R1,3)
F(4) = Estratto(ES,R1,4)
F(5) = Estratto(ES,R1,5)
'----------------------------
B(1) = Estratto(ES,R1,1)
B(2) = Estratto(ES,R1,2)
B(3) = Estratto(ES,R1,3)
B(4) = Estratto(ES,R1,4)
B(5) = Estratto(ES,R1,5)
'----------------------------
OrdinaMatrice B,1
'---------------------------------
qq = qq + 1
Messaggio(ES & " Tcomb.Elab: " & qq & " Trovate " & Xfine & " Su 40 Impostato N = " & E)
'-------------------------------
T = Array(T,"1°"," ","2°"," ","3°"," ","4°"," ","5°")
Call InitTabella(T,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
'-------------------------------
T1 = Array(T1,Format2(F(1))," ",Format2(F(2))," ",Format2(F(3))," ",Format2(F(4))," ",Format2(F(5)))
Call AddRigaTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(1,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(2,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(3,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(4,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(5,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(6,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(7,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(8,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(9,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(10,RGB(50,170,5),RGB(0,0,0))
Call SetColoreCella(11,RGB(50,170,5),RGB(0,0,0))
'-------------------------------
T2 = Array(T2,Format2(B(1))," ",Format2(B(2))," ",Format2(B(3))," ",Format2(B(4))," ",Format2(B(5)))
Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(1,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(2,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(3,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(4,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(5,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(6,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(7,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(8,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(9,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(10,RGB(247,217,9),RGB(0,0,0))
Call SetColoreCella(11,RGB(247,217,9),RGB(0,0,0))
'--------------------------------
'-------------------------------
N1 = Fuori90(F(1) + B(1))
N2 = Fuori90(F(2) + B(2))
N3 = Fuori90(F(3) + B(3))
N4 = Fuori90(F(4) + B(4))
N5 = Fuori90(F(5) + B(5))
'---------------------------------
'
T3 = Array(T3,(N1)," ",(N2)," ",(N3)," ",(N4)," ",(N5))
Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'---------------------------------------------------------------------
'--------------------------------
T4 = Array(T4," "," "," ",(N8)," ",(N9)," "," "," ")
Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'
T5 = Array(T5," "," "," "," ",(N10)," "," "," "," ")
Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
If R1 = 12 Then Rt = "Nz" Else Rt = Left(NomeRuota(R1),2) End If
'
T6 = Array(T6,Rt," "," "," "," "," "," "," "," ")
Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'--------------------------------
'If Nx = N1 Or Nx = N2 Or Nx = N3 Or Nx = N4 Or Nx = N5 Then
'---------------------------------
'--------------------------------
ReDim MatriceCaselleDaEvid(5,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = 1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = 2
MatriceCaselleDaEvid(3,0) = R1
MatriceCaselleDaEvid(3,1) = 3
MatriceCaselleDaEvid(4,0) = R1
MatriceCaselleDaEvid(4,1) = 4
MatriceCaselleDaEvid(5,0) = R1
MatriceCaselleDaEvid(5,1) = 5
Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
'
Call SetTableWidth("25%")
CreaTabella
Xfine = Xfine + 1
'
N = N + 1
Numeri(N) = Format2(E)
'------------------------------
Ruota(1) = R1
'-----------------------------
Ruote(1) = 11
Ruote(2) = 12
'----------------------------
Ambata(1) = N1
Ambata(2) = N2
Ambata(3) = N3
Ambata(4) = N4
Ambata(5) = N5
EliminaRipetuti(Ambata)
'---------------------------
Ambo(1) = N1
Ambo(2) = N2
Ambo(3) = N3
Ambo(4) = N4
Ambo(5) = N5
EliminaRipetuti(Ambo)
'-----------------------------
ImpostaGiocata 1,Ambata,Ruota,posta,K
Gioca ES,1,,1
ImpostaGiocata 1,Ambo,Ruote,poste,K
Gioca ES,1,,1
Scrivi
'End If
If Xfine = 12 Then Exit For
Next
If Xfine = 12 Then Exit For
Next
If Xfine = 12 Then Exit For
Next
'Scrivi StringaNumeri(Numeri,"."),0,1,0,6,5
End Sub
