Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · Venerdì alle 13:33

filippo1963 ha scritto:
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

Codice:

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 · Venerdì alle 16:14

Matematico ha scritto:
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

Codice:

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 · Venerdì alle 23:09

FORMULE GIALLA E ROSA

Codice:

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 · Ieri alle 00:10

FORMULA VERDE e ARANCIONE

Codice:

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 · Ieri alle 12:48

Grazie 1000 salvo50, sono perfetti!

CICALOTTO · Ieri alle 12:51

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 · Ieri alle 13:08

CICALOTTO ha scritto:
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 · Ieri alle 13:50

phil79 ha scritto:
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 · Ieri alle 14:15

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

salvo50 · Ieri alle 15:34

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.

Codice:

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

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

CICALOTTO

Member

phil79

Member

CICALOTTO

Member

phil79

Member

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi