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
ed ecco la seconda di Maggio una terzina per Ambo e Terno:
una terzina per NAPOLI e TORINO 17-26-80 di cui 80 come Estratto e Ambo e Terno anche a Tutte per chi vuole provarci
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Penta,Vertice,E1,E2,E3,Ok
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Abb1,Abb2,Clp1,Clp2,Som
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),N(4),Amba(1),Terno(3)
Dim Ruo(2),Ruote(3),Posta(1),Poste(3)
Posta(1) = 1
Poste(2) = 1
Poste(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10849)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,4)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,10)
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 di Bubù al Metodo 8 Pigliatutto di Angelo Gargiulo - Mod 13 - 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 <> R1 Then
If R2 = 11 Then R2 = 12
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
Som = Fuori90(DM12 + DM23 + DM34 + DM41)
Ok = 0
If(DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36) And(Som = 90)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36) And(Som = 90)_
Or(DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36) And(Som = 90)_
Or(DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36) And(Som = 90)Then
'
If(DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36) And(Som = 90) Then
Penta = Fuori90((90 + M(2)) - 9)
Ok = 1
End If
If(DM41 = 36 And DM12 = 9 And DM23 = 9 And DM34 = 36) And(Som = 90) Then
Penta = Fuori90((90 + M(1)) - 9)
Ok = 1
End If
If(DM34 = 36 And DM41 = 9 And DM12 = 9 And DM23 = 36) And(Som = 90)Then
Penta = Fuori90((90 + M(4)) - 9)
Ok = 1
End If
If(DM23 = 36 And DM34 = 9 And DM41 = 9 And DM12 = 36) And(Som = 90)Then
Penta = Fuori90((90 + M(3)) - 9)
Ok = 1
End If
If Ok = 1 Then
Vertice = Diametrale(Penta)
Abb1 = Fuori90((90 + Penta) - 9)
Abb2 = Fuori90((90 + Abb1) - 9)
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es - 1,R3,P5) '------------
If E = Penta Then
N(1) = Vertice : N(2) = Abb1 : N(3) = Abb2 : N(4) = Penta
Amba(1) = Vertice
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 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es - 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Terno,Ruote,Poste,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
