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.
L'ho notato solo adesso, quest è più semplice farlo, perché non si deve fare nessuna ricerca per il quinto estratto,
Ciao a Tutti
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,E1,E2,Ok
Dim DM12,DM23,DM34,DM45,DM51,A,B,C,D,E
Dim Vertice,Abb1,Abb2,Pi27,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7
Dim M(5),Z(4)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Terno(3)
Dim Ruo(2),Ruote(4),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10846)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi " Modifica al Metodo 8 Pigliatutto Autore Bubù - Mod32 - Script Salvo50 ",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
For P4 = 1 To 4
For P5 = P4 + 1 To 5
D = Estratto(Es,R2,P4)
E = Estratto(Es,R2,P5)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C And E <> A And E <> B And E <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
DM51 = Distanza(M(5),M(1))
If DM12 = 27 Xor DM23 = 27 Xor DM34 = 27 Xor DM45 = 27 Xor DM51 = 27 Then
Ok = 0
If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM45 = 9 And DM51 = 27 Then
Abb1 = Fuori90(M(5) + 9) : Abb2 = Fuori90(M(5) + 18) : Pi27 = M(1)
Ok = 1
End If
If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM45 = 27 And DM51 = 9 Then
Abb1 = Fuori90(M(4) + 9) : Abb2 = Fuori90(M(4) + 18) : Pi27 = M(5)
Ok = 1
End If
If DM12 = 36 And DM23 = 9 And DM34 = 27 And DM45 = 9 And DM51 = 9 Then
Abb1 = Fuori90(M(3) + 9) : Abb2 = Fuori90(M(3) + 18) : Pi27 = M(4)
Ok = 1
End If
If DM12 = 9 And DM23 = 27 And DM34 = 9 And DM45 = 9 And DM51 = 36 Then
Abb1 = Fuori90(M(2) + 9) : Abb2 = Fuori90(M(2) + 18) : Pi27 = M(3)
Ok = 1
End If
If DM12 = 27 And DM23 = 9 And DM34 = 9 And DM45 = 36 And DM51 = 9 Then
Abb1 = Fuori90(M(1) + 9) : Abb2 = Fuori90(M(1) + 18) : Pi27 = M(2)
Ok = 1
End If
If Ok = 1 Then
Vertice = Diametrale(Abb2)
Z(1) = Vertice : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Pi27
Amba(1) = Vertice
Ambo1(1) = Vertice : Ambo1(2) = Abb2
Ambo2(1) = Abb1 : Ambo2(2) = Abb2
Ambo3(1) = Vertice : Ambo3(2) = Abb1
Terno(1) = Vertice : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Or E2 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
