Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

Buonasera, qualche bravo scripter potrebbe fare questo Script se in una ruota esce il 90 si devono sommare i laterali del 90 eventualmente se serve usare il fuori 90 e successivamente farne il complemento a 90 del numero ottenuto dalla somma, il numero ricavato va giocato come estratto per le successive 9 estrazioni sulla ruota dove è stato estratto il 90. se il 90 è stato estratto in 1à posizione i suoi laterali sono il 2° e 5° estratto se è stato estratto in 5à posizione i suoi laterali sono il 1° estratto ed il 4° estratto. Notte

Ciao a Tutti

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Salvo50
   Dim R1,R2,A,B,C,E1,Som,Clp
   Dim Caso,Casi,P1,P2,P3,P4,P5
   Dim Amba(1),Ruo(1),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600)
   Clp = InputBox(" Quanti colpi di ricerca ambata?",Salvo50,9)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "Dopo spia 90 Compl. a 90 della somma degli estratti vicini alla Spia - di Filippo1963 - Script Salvo50",1,,4,,3,,1
   Posta(1) = 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 P2 = 1 To 5
            B = Estratto(Es,R1,P2)
            If B = 90 Then
             P1 = FuoriX (P2 + 4,5)
             A = Estratto(Es,R1,P1)
               P3 = FuoriX(P2 + 1,5)
               C = Estratto(Es,R1,P3)
               Som = Fuori90(A + C)
               Amba(1) = ComplAdX(Som)
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(100,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(90,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & "  ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  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
               Scrivi Space(10) & Format2(A) & " + " & Format2(C) & " = " & Format2(Som) & " complemento a 90 = ",1,0
               Scrivi Format2(Amba(1)),1,,,2
               Scrivi
               Ruo(1) = R1
               ImpostaGiocata 1,Amba,Ruo,Posta,Clp
               Gioca Es
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   ' Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

 

[salvo50]

Un saluto a salvo50 e tutti , tra le mie scartoffie ho trovato queste formule ,credo appartengano all'autore Mirko o lottoamico ma non ne sono certo. Uno script faciliterebbe i calcoli e la statistica. Allego il tutto.

Questo non è un metodo con formule, si devono cercare dei numeri stabiliti e una volta trova giocare altri numeri già stabiliti anche questi, ma ci sono 11 gruppi di numeri da cercare, ma io non sono in grado di fare uno script che li cerca tutti insieme, i primi 6 li faccio dividendo 2 gruppi per ogni script, le altre 5 ricerche dato che ci sono meno numeri da cercare tenterò di farli con meno script

Per adesso ho pronto solo quelli chiamati FORMULA AZZURRA e FORMULA ROSSA

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es,E1,E2
   Dim R1,R2,P1,P2,P3,P4,P5,Salvo50
   Dim Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(2),Ruo(2),Qua(4),Poste(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10300))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,11))
   Posta(2) = 1
   ' Poste(2) = 1
   Scrivi Space(3) & " LOTTONE 2 - Formule AZZURRA E ROSSA - Script Salvo50" & Space(3),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 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     For P3 = 1 To 5
                        C = Estratto(Es,R2,P3)
                        If(A = 22 And B = 40 And C = 67) Or(B = 22 And A = 40 And C = 67)_
                           Or(A = 22 And C = 40 And B = 67) Or(C = 22 And A = 40 And B = 67)_
                           Or(B = 22 And C = 40 And A = 67) Or(C = 22 And B = 40 And A = 67)Then
                           Scrivi
                           Ambo1(1) = 6 : Ambo1(2) = 8
                           Ambo2(1) = 6 : Ambo2(2) = 44
                           Ambo3(1) = 6 : Ambo3(2) = 54
                           Ambo4(1) = 6 : Ambo4(2) = 90
                           Qua(1) = 8 : Qua(2) = 44 : Qua(3) = 54 : Qua(4) = 90
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi Space(10) & " FORMULA AZZURRA ",1,,,1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P4 = 1 To 5
                              E1 = Estratto(Es,R1,P4)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  I 3 Numeri da Cercare in Due Ruote Sono 22 40 67",1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P5 = 1 To 5
                              E2 = Estratto(Es,R2,P5)
                              If E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                           ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                           ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp,2
                           ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp,2
                           ImpostaGiocata 5,Qua,Ruo,Posta,Clp,2
                           Gioca Es,1
                           '
                        End If
                     Next
                  End If
               Next
            Next
         Next
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     For P3 = 1 To 5
                        C = Estratto(Es,R2,P3)
                        If(A = 15 And B = 39 And C = 51) Or(B = 15 And A = 39 And C = 51)_
                           Or(A = 15 And C = 39 And B = 51) Or(C = 15 And A = 39 And B = 51)_
                           Or(B = 15 And C = 39 And A = 51) Or(C = 15 And B = 39 And A = 51)Then
                           Scrivi
                           Ambo1(1) = 12 : Ambo1(2) = 54
                           Ambo2(1) = 27 : Ambo2(2) = 54
                           Ambo3(1) = 27 : Ambo3(2) = 78
                           Ambo4(1) = 54 : Ambo4(2) = 78
                           Qua(1) = 12 : Qua(2) = 27 : Qua(3) = 54 : Qua(4) = 78
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi Space(10) & " FORMULA ROSSA ",1,,,1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P4 = 1 To 5
                              E1 = Estratto(Es,R1,P4)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  I 3 Numeri da Cercare in Due Ruote Sono 15 39 51",1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P5 = 1 To 5
                              E2 = Estratto(Es,R2,P5)
                              If E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                           ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                           ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp,2
                           ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp,2
                           ImpostaGiocata 5,Qua,Ruo,Posta,Clp,2
                           Gioca Es,1
                           '
                        End If
                     Next
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[salvo50]

FORMULE GIALLA E ROSA

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es,E1,E2
   Dim R1,R2,P1,P2,P3,P4,P5,Salvo50
   Dim Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(2),Ruo(2),Qua(4),Poste(4),Penta(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10300))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,11))
   Posta(2) = 1
   ' Poste(2) = 1
   Scrivi Space(3) & " LOTTONE 2 - Formule GIALLA E ROSA - Script Salvo50" & Space(3),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 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     For P3 = 1 To 5
                        C = Estratto(Es,R2,P3)
                        If(A = 17 And B = 71 And C = 73) Or(B = 17 And A = 71 And C = 73)_
                           Or(A = 17 And C = 71 And B = 73) Or(C = 17 And A = 71 And B = 73)_
                           Or(B = 17 And C = 71 And A = 73) Or(C = 17 And B = 71 And A = 73)Then
                           Scrivi
                           Ambo1(1) = 54 : Ambo1(2) = 56
                           Ambo2(1) = 54 : Ambo2(2) = 88
                           Ambo3(1) = 66 : Ambo3(2) = 90
                           Ambo4(1) = 88 : Ambo4(2) = 90
                           Qua(1) = 54 : Qua(2) = 56 : Qua(3) = 88 : Qua(4) = 90
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi Space(10) & " FORMULA GIALLA ",1,,,1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P4 = 1 To 5
                              E1 = Estratto(Es,R1,P4)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  I 3 Numeri da Cercare in Due Ruote Sono 17 71 73",1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P5 = 1 To 5
                              E2 = Estratto(Es,R2,P5)
                              If E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                           ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                           ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp,2
                           ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp,2
                           ImpostaGiocata 5,Qua,Ruo,Posta,Clp,2
                           Gioca Es,1
                           '
                        End If
                     Next
                  End If
               Next
            Next
         Next
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     For P3 = 1 To 5
                        C = Estratto(Es,R2,P3)
                        If(A = 57 And B = 72 And C = 87) Or(B = 57 And A = 72 And C = 87)_
                           Or(A = 57 And C = 72 And B = 87) Or(C = 57 And A = 72 And B = 87)_
                           Or(B = 57 And C = 72 And A = 87) Or(C = 57 And B = 72 And A = 87)Then
                           Scrivi
                           Ambo1(1) = 50 : Ambo1(2) = 73
                           Ambo2(1) = 50 : Ambo2(2) = 28
                           Ambo3(1) = 50 : Ambo3(2) = 72
                           Ambo4(1) = 50 : Ambo4(2) = 27
                           Penta(1) = 73 : Penta(2) = 28 : Penta(3) = 72 : Penta(4) = 27 : Penta(5) = 5
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi Space(10) & " FORMULA ROSA ",1,,,1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P4 = 1 To 5
                              E1 = Estratto(Es,R1,P4)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  I 3 Numeri da Cercare in Due Ruote Sono 57 72 87",1
                           Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P5 = 1 To 5
                              E2 = Estratto(Es,R2,P5)
                              If E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                           ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                           ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp,2
                           ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp,2
                           ImpostaGiocata 5,Penta,Ruo,Posta,Clp,2
                           Gioca Es,1
                           '
                        End If
                     Next
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[salvo50]

FORMULA VERDE e ARANCIONE

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,Clp,Es,E1,E2
   Dim R1,R2,P1,P2,P3,P4,P5,Salvo50
   Dim Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(2),Ruo(2),Poste(4),Penta(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,11))
   Posta(2) = 1
   ' Poste(2) = 1
   Scrivi Space(3) & " LOTTONE 2 - Formule VERDE E ARANCIONE - Script Salvo50" & Space(3),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P2 = 1 To 5
                  B = Estratto(Es,R2,P2)
                  If(A = 2 And B = 47) Or(A = 47 And B = 2) Then
                     Scrivi
                     Ambo1(1) = 88 : Ambo1(2) = 6
                     Ambo2(1) = 88 : Ambo2(2) = 51
                     Ambo3(1) = 88 : Ambo3(2) = 37
                     Ambo4(1) = 88 : Ambo4(2) = 82
                     Penta(1) = 43 : Penta(2) = 6 : Penta(3) = 51 : Penta(4) = 37 : Penta(5) = 82
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi Space(10) & " FORMULA VERDE ",1,,,1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P4 = 1 To 5
                        E1 = Estratto(Es,R1,P4)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi "  I 2 Numeri da Cercare in Due Ruote Sono 2 e 47",1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                     For P5 = 1 To 5
                        E2 = Estratto(Es,R2,P5)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Ruo(1) = R1 : Ruo(2) = R2
                     Scrivi
                     ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                     ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                     ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp,2
                     ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp,2
                     ImpostaGiocata 5,Penta,Ruo,Posta,Clp,2
                     Gioca Es,1
                     '
                  End If
               Next
               'Next
            Next
         Next
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               For P2 = 1 To 5
                  B = Estratto(Es,R2,P2)
                  If(A = 6 And B = 51) Or(A = 51 And B = 6) Then
                     Scrivi
                     Ambo1(1) = 85 : Ambo1(2) = 21
                     Ambo2(1) = 85 : Ambo2(2) = 66
                     Ambo3(1) = 85 : Ambo3(2) = 19
                     Ambo4(1) = 85 : Ambo4(2) = 64
                     Penta(1) = 40 : Penta(2) = 21 : Penta(3) = 66 : Penta(4) = 19 : Penta(5) = 64
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi Space(10) & " FORMULA ARANCIONE ",1,,,1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P4 = 1 To 5
                        E1 = Estratto(Es,R1,P4)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi "  I 2 Numeri da Cercare in Due Ruote Sono 6 e 51 ",1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                     For P5 = 1 To 5
                        E2 = Estratto(Es,R2,P5)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Ruo(1) = R1 : Ruo(2) = R2
                     Scrivi
                     ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                     ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                     ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp,2
                     ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp,2
                     ImpostaGiocata 5,Penta,Ruo,Posta,Clp,2
                     Gioca Es,1
                     '
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[Matematico]

Grazie 1000 salvo50, sono perfetti!

 

[CICALOTTO]

Buongiorno, si può creare uno script da questo metodo?:

In qualsiasi estrazione del mese quando esce il numero 60 su Napoli sí somma il "fisso 20" al 5º estratto di Napoli e si ottiene l'ambata, ad essa abbineremo i "fissi 25 e 87" per ottenere l'ambo da giocare anche come ambetto.

GRAZIE

 

[phil79]

Buongiorno, si può creare uno script da questo metodo?:

In qualsiasi estrazione del mese quando esce il numero 60 su Napoli sí somma il "fisso 20" al 5º estratto di Napoli e si ottiene l'ambata, ad essa abbineremo i "fissi 25 e 87" per ottenere l'ambo da giocare anche come ambetto.

GRAZIE

Contolllato 2025 non è buona tecnica.... E poi è così difficile fare calcoli semplici e verificare invece di chiedere script? Che a volte sono necessari....

 

[CICALOTTO]

Contolllato 2025 non è buona tecnica.... E poi è così difficile fare calcoli semplici e verificare invece di chiedere script? Che a volte sono necessari....

grazie, comunque al di la della bontà della tecnica, i calcoli sono facili, per la successiva estrazione, ma lo script potrebbe servire proprio per andare indietro negli anni e valutare nel tempo se fosse buona oppure no. magari anche solo per ambetto

 

[phil79]

Controllati 6 mesi 2024.....3 volte su cagliari ambo
quest'anno 1 ambo milano
Consiglierei tutte ma non conviene.
Lascia perdere

 

[salvo50]

Questa è l'ultima pagina delle Formule Lottone, dove ci sono 5 ricerche da fare, di 2 numeri in 2 ruote e come pronostico c'è un ambata e 2 ambi, li ho messi in un solo script, non ho provato ma credo che se in una estrazione ci sono più riscontri veda solo l'ultimo.

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,Clp,Es,E1,E2
   Dim R1,R2,P1,P2,P3,P4,P5,Salvo50
   Dim Caso,Casi,N1,N2
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Dim Posta(1),Ruo(2),Poste(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,11))
   Posta(1) = 1
   Poste(2) = 1
   Scrivi Space(3) & " LOTTONE 2 - Ricerca numeri per Ambata e Ambi - Script Salvo50" & Space(3),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P2 = 1 To 5
                  B = Estratto(Es,R2,P2)
                  If(A = 21 And B = 66) Or(A = 66 And B = 21) Or(A = 25 And B = 70) Or(A = 70 And B = 25)_
                     Or(A = 35 And B = 8) Or(A = 8 And B = 35) Or(A = 36 And B = 54) Or(A = 54 And B = 36)_
                     Or(A = 44 And B = 46) Or(A = 46 And B = 44) Then
                     If(A = 21 And B = 66) Or(A = 66 And B = 21)Then
                        Amba(1) = 84
                        Ambo1(1) = 84 : Ambo1(2) = 30
                        Ambo2(1) = 84 : Ambo2(2) = 36
                        N1 = 21 : N2 = 66
                     End If
                     If(A = 25 And B = 70) Or(A = 70 And B = 25)Then
                        Amba(1) = 10
                        Ambo1(1) = 10 : Ambo1(2) = 15
                        Ambo2(1) = 10 : Ambo2(2) = 25
                        N1 = 25 : N2 = 70
                     End If
                     If(A = 35 And B = 8) Or(A = 8 And B = 35)Then
                        Amba(1) = 50
                        Ambo1(1) = 50 : Ambo1(2) = 35
                        Ambo2(1) = 50 : Ambo2(2) = 75
                        N1 = 35 : N2 = 8
                     End If
                     If(A = 36 And B = 54) Or(A = 54 And B = 36)Then
                        Amba(1) = 18
                        Ambo1(1) = 18 : Ambo1(2) = 9
                        Ambo2(1) = 18 : Ambo2(2) = 27
                        N1 = 36 : N2 = 54
                     End If
                     If(A = 44 And B = 46) Or(A = 46 And B = 44)Then
                        Amba(1) = 2
                        Ambo1(1) = 2 : Ambo1(2) = 1
                        Ambo2(1) = 2 : Ambo2(2) = 3
                        N1 = 44 : N2 = 46
                     End If
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P4 = 1 To 5
                        E1 = Estratto(Es,R1,P4)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi "  I 2 Numeri da Cercare in Due Ruote Sono " & Format2(N1) & " e " & Format2(N2),1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                     For P5 = 1 To 5
                        E2 = Estratto(Es,R2,P5)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Ruo(1) = R1 : Ruo(2) = R2
                     Scrivi
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                     ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp,2
                     ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp,2
                     Gioca Es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[filippo1963]

Buonasera, chiedo aiuto agli script bravissimi di questo forum, devo trasformare questo mio Metodo per Estratto in uno script per Spaziometria. Spiego il metodo, si devono ricercare su Due Ruote Diametrali, in posizione isotopo Due Numeri con questa caratteristica o entrambi uguali o che formino una coppia di numeri di un ambo diametrale, se si riscontra questa condizione si può calcolare il numero per estratto in questo modo, sommare i numeri laterali alla posizione isotopa dove è stata riscontrata la condizione, tenendo conto se i numeri in isotopia sono stati trovati in 1à posizione la somme da fare sono dei numeri in 5à e 2à posizione sulle due ruote, mentre se i numeri in isotopia sono stati trovati in 5à posizione la somam va fatta dei numeri in 4à e 1à posizione delle due ruote. Il numero ottenuto con la somma dei 4 numeri va ridotto con il fuori90, l'estratto da giocare per 9 colpì sulle due ruote è il diametrale del numero ricavato con la somma precedente. Grazie in maniera anticipata allo Scripter che lo realizzera.

 

[phil79]

Ciao puoi fare un esempio pratico?
Questi due numeri devono appartenere ad un ambo diametrale?

 

[salvo50]

Buonasera, chiedo aiuto agli script bravissimi di questo forum, devo trasformare questo mio Metodo per Estratto in uno script per Spaziometria. Spiego il metodo, si devono ricercare su Due Ruote Diametrali, in posizione isotopo Due Numeri con questa caratteristica o entrambi uguali o che formino una coppia di numeri di un ambo diametrale, se si riscontra questa condizione si può calcolare il numero per estratto in questo modo, sommare i numeri laterali alla posizione isotopa dove è stata riscontrata la condizione, tenendo conto se i numeri in isotopia sono stati trovati in 1à posizione la somme da fare sono dei numeri in 5à e 2à posizione sulle due ruote, mentre se i numeri in isotopia sono stati trovati in 5à posizione la somam va fatta dei numeri in 4à e 1à posizione delle due ruote. Il numero ottenuto con la somma dei 4 numeri va ridotto con il fuori90, l'estratto da giocare per 9 colpì sulle due ruote è il diametrale del numero ricavato con la somma precedente. Grazie in maniera anticipata allo Scripter che lo realizzera.

Ciao a Tutti
Matematico, Bubù
Grazie

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50
   Dim R1,R2,Caso,Casi,A,B,C,D,E,F
   Dim P1,P2,P3,P4,P5,E2,E1,Somma
   Dim Ruo(2),Posta(1),Amba(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600)
   Clp = InputBox("Per quanti colpi vuoi giocare le Ambate? ",Salvo50,9)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & " 2 Ruote e 2 Estratti Isotopi Somma Estratti Adiacenti  - By Filippo1963 - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 5
         For P2 = 1 To 5
            A = Estratto(Es,R1,P2)
            R2 = RuotaDiametrale(R1)
            B = Estratto(Es,R2,P2)
            If A > 0 And B > 0 Then
               If A = B Or A = Diametrale(B) Then
                  P1 = FuoriX(P2 + 4,5)
                  P3 = FuoriX(P2 + 1,5)
                  C = Estratto(Es,R1,P1)
                  D = Estratto(Es,R1,P3)
                  E = Estratto(Es,R2,P1)
                  F = Estratto(Es,R2,P3)
                  Somma = Fuori90(C + D + E + F)
                  Amba(1) = Diametrale(Somma)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P4 = 1 To 5
                     E1 = Estratto(Es,R1,P4)
                     If E1 = A Then ColoreTesto 2
                     If E1 = C Or E1 = D Then ColoreTesto 1
                     If E1 <> A And E1 <> C And E1 <> D Then ColoreTesto 0
                     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 P5 = 1 To 5
                     E2 = Estratto(Es,R2,P5)
                     If E2 = B Then ColoreTesto 2
                     If E2 = E Or E2 = F Then ColoreTesto 1
                     If E2 <> B And E2 <> E And E2 <> F Then ColoreTesto 0
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(10) & Format2(C) & " + " & Format2(D) & " + " & Format2(E) & " + " & Format2(F) & " = ",1,0
                  Scrivi Format2(Somma) & " Diametrale di " & Format2(Somma) & " = " & Format2(Amba(1)),1
                  Scrivi
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es,1
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Con estratti uguali e tutte le ruote

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50
   Dim R1,R2,Caso,Casi,A,B,C,D,E,F
   Dim P1,P2,P3,P4,P5,E2,E1,Somma
   Dim Ruo(2),Posta(1),Amba(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600)
   Clp = InputBox("Per quanti colpi vuoi giocare le Ambate? ",Salvo50,9)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "2 Ruote e 2 Estratti Uguali Isotopi Somma Estratti Adiacenti - By Filippo1963 - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P2 = 1 To 5
            A = Estratto(Es,R1,P2)
            For R2 = R1 + 1 To 12
            
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P2)
               If A > 0 And B > 0 Then
                  If A = B Then
                     P1 = FuoriX(P2 + 4,5)
                     P3 = FuoriX(P2 + 1,5)
                     C = Estratto(Es,R1,P1)
                     D = Estratto(Es,R1,P3)
                     E = Estratto(Es,R2,P1)
                     F = Estratto(Es,R2,P3)
                     Somma = Fuori90(C + D + E + F)
                     Amba(1) = Diametrale(Somma)
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P4 = 1 To 5
                        E1 = Estratto(Es,R1,P4)
                        If E1 = A Then ColoreTesto 2
                        If E1 = C Or E1 = D Then ColoreTesto 1
                        If E1 <> A And E1 <> C And E1 <> D Then ColoreTesto 0
                        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 P5 = 1 To 5
                        E2 = Estratto(Es,R2,P5)
                        If E2 = B Then ColoreTesto 2
                        If E2 = E Or E2 = F Then ColoreTesto 1
                        If E2 <> B And E2 <> E And E2 <> F Then ColoreTesto 0
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi Space(10) & Format2(C) & " + " & Format2(D) & " + " & Format2(E) & " + " & Format2(F) & " = ",1,0
                     Scrivi Format2(Somma) & " Diametrale di " & Format2(Somma) & " = " & Format2(Amba(1)),1
                     Scrivi
                     Ruo(1) = R1 : Ruo(2) = R2
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                     Gioca Es,1
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[EVERITA C]

Buonasera Salvo e' possibile uno script con queste caratteristiche?

Vengo al dunque:

Una qualsiasi terzina di qualsiasi somma che abbia il secondo numero raddoppiato e il terzo numero triplicato.

Faccio un esempio:

Somma 48 = primo numero( 65 )secondo numero (77) terzo numero (33 ).

Il 65 resta cosi il 77 si raddoppia il 33 si triplica = 65 + 64 ( fuori 90 ) + 99 ( fuori 90 ) = 48.

Cosi per tutti i numeri da 1 a 90.

Grazie.

 

[EVERITA C]

Se possibile un'imput-box per inserire la somma.

Grazie.

 

[salvo50]

Ciao Everita

tutte le terzine che si formano con 90 numeri sono 704880 (settecentoquattromilaottocentoottanta)

non lo so se il mio computer regge o s'impalla

 

[EVERITA C]

Ok si potrebbe fare in alternativa due script:

Uno con numeri pari e uno con numeri dispari.

Grazie.

 

[EVERITA C]

Scusa mi sono espressa male.

Volevo dire somma pari e somma dispari.

 

[salvo50]

Scusa mi sono espressa male.

Volevo dire somma pari e somma dispari.

Bubù, Matematico
Grazie

Con Somme Pari

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som
   Scrivi Space(1) & "   Chiesto da EVERITAC - Somme Terne Pari sommare il primo numero  ",1,,4,,3,,1
   Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
   For X = 1 To 90
      Messaggio X
      For Y = 1 To 90
         For Z = 1 To 90
            If X <> Y And X <> Z And Y <> Z Then
               Y2 = 0 : Z3 = 0
               Y2 = Fuori90(Y * 2)
               Z3 = Fuori90(Z * 3)
               Som = Fuori90(X + Y2 + Z3)
               If pari(Som) Then
                  K = K + 1
                  Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
                  Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

Con Somme Dispari

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som
   Scrivi Space(1) & "   Chiesto da EVERITAC - Somme Terne Dispari sommare il primo numero  ",1,,4,,3,,1
   Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
   For X = 1 To 90
   Messaggio X
      For Y = 1 To 90
         For Z = 1 To 90
            If X <> Y And X <> Z And Y <> Z Then
               Y2 = 0 : Z3 = 0
               Y2 = Fuori90(Y * 2)
               Z3 = Fuori90(Z * 3)
               Som = Fuori90(X + Y2 + Z3)
               If dispari(Som) Then
                  K = K + 1
                  Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
                  Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi
   Scrivi " Tempo Trascorso  " & TempoTrascorso
End Sub

 

[salvo50]

Ciao a Tutti

Solo adesso mi sono accorto che avevi chiesto di inserire la somma con InputBox

In questo puoi inserire la somma pari o dispari da input box

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som,Qsom
   Qsom = CInt (InputBox("Quale somma vuoi visualizzare? ",,10))
   Scrivi Space(1) & "   Chiesto da EVERITAC - Somme Terne - sommare il primo numero      ",1,,4,,3,,1
   Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
   For X = 1 To 90
      Messaggio X
      For Y = 1 To 90
         For Z = 1 To 90
            If X <> Y And X <> Z And Y <> Z Then
               Y2 = 0 : Z3 = 0
               Y2 = Fuori90(Y * 2)
               Z3 = Fuori90(Z * 3)
               Som = Fuori90(X + Y2 + Z3)
               If Som = Qsom Then
                  K = K + 1
                  Scrivi FormattaStringa(K,"0000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
                  Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

In questo puoi decidere anche la somma dei numeri che non sono stati moltiplicati

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som,SecSom,SomXYZ,PrSom
   PrSom = CInt(InputBox("Quale somma vuoi visualizzare? ",,23))
   SecSom = CInt(InputBox("Quale somma vuoi visualizzare? ",,36))
   Scrivi Space(1) & "   Chiesto da EVERITAC - Somme Terne - sommare il primo numero      ",1,,4,,3,,1
   Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
   Scrivi
   Scrivi " Come prima somma è stata inserita   " & PrSom,1
   Scrivi " Come seconda somma è stata inserita " & SecSom,1
   Scrivi
   Scrivi "Qnt    X    Y    Z  1a Som    X    YX2  ZX3  2a Som",1,,,2
   For X = 1 To 90
      Messaggio X
      For Y = 1 To 90
         For Z = 1 To 90
            If X <> Y And X <> Z And Y <> Z Then
               SomXYZ = Fuori90(X + Y + Z)
               If SomXYZ = PrSom Then
                  Y2 = 0 : Z3 = 0
                  Y2 = Fuori90(Y * 2)
                  Z3 = Fuori90(Z * 3)
                  Som = Fuori90(X + Y2 + Z3)
                  If Som = SecSom Then
                     K = K + 1
                     Scrivi FormattaStringa(K,"000") & Space(4) & Format2(X) & " + " & Format2(Y) & " + " & Format2(Z),1,0
                     Scrivi " = " & Format2(SomXYZ),1,0
                     Scrivi Space(6) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub