Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · 28 Maggio 2025

I tre script triple in figura sono da riprendere, ho evidenziato le triple in figura proposte

filippo1963 · 28 Maggio 2025

salvo50 ha scritto:
I tre script triple in figura sono da riprendere, ho evidenziato le triple in figura proposte

thanks Salvo50

filippo1963 · Lunedì alle 16:10

Buon Festa della Repubblica agli utenti del Forum e a chi come gli Scripter ci aiuta a informatizzare i nostri metodi Lotto, chiedo se qualche Scripter mi puo creare il codice per questo Metodo lotto per un Estratto sulla Nazionale. Quando esce un Numeretto su Bari, si devono fare queste operazioni - Sommare con eventuale fuori90 gli estratti isotopi delle ruote di Napoli e Venezia, il numero ricavato dalla somma va moltiplicato per il fisso 77, ridurre il risultato della moltiplicazione con il fuori90 da numero ricavato si ricava un estratto con il suo diametrale in decina che va giocato per un massimo di 14 colpi sulla ruota nazionale. Faccio un Esempio. Estrazione del 06-05-2025 su Bari in 1à posizione abbiamo il numeretto 6 in isotopia su Napoli e Venezia in 1à abbiamo 12 e 71 sommati fanno 83, 83 moltiplicato 77 fa 6391 che ridotto con il fuori90 diventa 1 il Diametrale in Decina di 1 è il 6 che è L'Estratto da Giocare sulla Ruota Nazionale il 65 esce il 13-05-2025 sulla Nazionale in 5à posizione al 4° colpo di Gioco. Grazie in anticipo a chi mi farà lo script per questo metodo.

phil79 · Lunedì alle 16:40

Troppo dispendioso aspettare 13 colpi per un ambata
Cambia metodo e comunque i calcolo sono facili anche fatti a mano

filippo1963 · Lunedì alle 17:21

phil79 ha scritto:
Troppo dispendioso aspettare 13 colpi per un ambata
Cambia metodo e comunque i calcolo sono facili anche fatti a mano

Serve come Base Capo-Gioco per le Sorti superiori

salvo50 · Martedì alle 13:31

filippo1963 ha scritto:
Buon Festa della Repubblica agli utenti del Forum e a chi come gli Scripter ci aiuta a informatizzare i nostri metodi Lotto, chiedo se qualche Scripter mi puo creare il codice per questo Metodo lotto per un Estratto sulla Nazionale. Quando esce un Numeretto su Bari, si devono fare queste operazioni - Sommare con eventuale fuori90 gli estratti isotopi delle ruote di Napoli e Venezia, il numero ricavato dalla somma va moltiplicato per il fisso 77, ridurre il risultato della moltiplicazione con il fuori90 da numero ricavato si ricava un estratto con il suo diametrale in decina che va giocato per un massimo di 14 colpi sulla ruota nazionale. Faccio un Esempio. Estrazione del 06-05-2025 su Bari in 1à posizione abbiamo il numeretto 6 in isotopia su Napoli e Venezia in 1à abbiamo 12 e 71 sommati fanno 83, 83 moltiplicato 77 fa 6391 che ridotto con il fuori90 diventa 1 il Diametrale in Decina di 1 è il 6 che è L'Estratto da Giocare sulla Ruota Nazionale il 65 esce il 13-05-2025 sulla Nazionale in 5à posizione al 4° colpo di Gioco. Grazie in anticipo a chi mi farà lo script per questo metodo.

Ciao a Tutti

Bubù, Filippo1963, Rudival, ScarfaceTony
Grazie

Qualche chiarimento, i numeri da sommare su Napoli e Venezia devono essere solo quelli che sono isotopi con il numeretto di Bari?
Oppure devo sommarli Tutti?

filippo1963 · Martedì alle 14:27

salvo50 ha scritto:
Ciao a Tutti

Bubù, Filippo1963, Rudival, ScarfaceTony
Grazie

Qualche chiarimento, i numeri da sommare su Napoli e Venezia devono essere solo quelli che sono isotopi con il numeretto di Bari?
Oppure devo sommarli Tutti?

Si Sommano solo i Due Numeri Isotopia al Numeretto su Bari, si considerano valide solo le estrazioni dove su Bari esce un solo Numeretto

salvo50 · Martedì alle 19:59

filippo1963 ha scritto:
Buon Festa della Repubblica agli utenti del Forum e a chi come gli Scripter ci aiuta a informatizzare i nostri metodi Lotto, chiedo se qualche Scripter mi puo creare il codice per questo Metodo lotto per un Estratto sulla Nazionale. Quando esce un Numeretto su Bari, si devono fare queste operazioni - Sommare con eventuale fuori90 gli estratti isotopi delle ruote di Napoli e Venezia, il numero ricavato dalla somma va moltiplicato per il fisso 77, ridurre il risultato della moltiplicazione con il fuori90 da numero ricavato si ricava un estratto con il suo diametrale in decina che va giocato per un massimo di 14 colpi sulla ruota nazionale. Faccio un Esempio. Estrazione del 06-05-2025 su Bari in 1à posizione abbiamo il numeretto 6 in isotopia su Napoli e Venezia in 1à abbiamo 12 e 71 sommati fanno 83, 83 moltiplicato 77 fa 6391 che ridotto con il fuori90 diventa 1 il Diametrale in Decina di 1 è il 6 che è L'Estratto da Giocare sulla Ruota Nazionale il 65 esce il 13-05-2025 sulla Nazionale in 5à posizione al 4° colpo di Gioco. Grazie in anticipo a chi mi farà lo script per questo metodo.

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,R1,R2,R3,R4,P1,P5,P6,P7,E1,E2,E3,E4
   Dim A,B,C,Casi,Caso,Salvo50,Clp,X
   Dim SomBC,SomBCx,DiDSomBCx
   Dim Posta(1),Amba(1),Ruo(1)
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10604)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Posizioni isotope su 3 ruote di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = BA_
   R2 = NA_
   R3 = VE_
   R4 = NZ_
   Ruo(1) = R4
   X = 77
   For Es = Ini To Fin
   AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For P1 = 1 To 5
         A = Estratto(Es,R1,P1)
         If A < 10 Then
            B = Estratto(Es,R2,P1)
            C = Estratto(Es,R3,P1)
            SomBC = Fuori90(B + C)
            SomBCx = Fuori90(SomBC * X)
            DiDSomBCx = DiametraleD(SomBCx)
            Amba(1) = DiDSomBCx
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
            Scrivi String(80,"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 P5 = 1 To 5
               E1 = Estratto(Es,R1,P5)
               If E1 = A 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 P6 = 1 To 5
               E2 = Estratto(Es,R2,P6)
               If E2 = B Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R3) & "  ",1,0
            For P7 = 1 To 5
               E3 = Estratto(Es,R3,P7)
               If E3 = C Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E3) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi
            Scrivi Space(21) & Format2(B) & " + " & Format2(C) & " = " & Format2(SomBC),1
            Scrivi Space(21) & Format2(SomBC) & " * " & Format2(X) & " = " & Format2(SomBCx),1
            Scrivi Space(13) & Format2(DiDSomBCx) & " = Diametrale in Decina di " & Format2(SomBCx),1
            Scrivi
            ImpostaGiocata 1,Amba,Ruo,Posta,Clp
            Gioca Es,1
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

filippo1963 · Mercoledì alle 20:09

salvo50 ha scritto:

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,R1,R2,R3,R4,P1,P5,P6,P7,E1,E2,E3,E4
   Dim A,B,C,Casi,Caso,Salvo50,Clp,X
   Dim SomBC,SomBCx,DiDSomBCx
   Dim Posta(1),Amba(1),Ruo(1)
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10604)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Posizioni isotope su 3 ruote di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = BA_
   R2 = NA_
   R3 = VE_
   R4 = NZ_
   Ruo(1) = R4
   X = 77
   For Es = Ini To Fin
   AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For P1 = 1 To 5
         A = Estratto(Es,R1,P1)
         If A < 10 Then
            B = Estratto(Es,R2,P1)
            C = Estratto(Es,R3,P1)
            SomBC = Fuori90(B + C)
            SomBCx = Fuori90(SomBC * X)
            DiDSomBCx = DiametraleD(SomBCx)
            Amba(1) = DiDSomBCx
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
            Scrivi String(80,"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 P5 = 1 To 5
               E1 = Estratto(Es,R1,P5)
               If E1 = A 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 P6 = 1 To 5
               E2 = Estratto(Es,R2,P6)
               If E2 = B Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R3) & "  ",1,0
            For P7 = 1 To 5
               E3 = Estratto(Es,R3,P7)
               If E3 = C Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E3) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi
            Scrivi Space(21) & Format2(B) & " + " & Format2(C) & " = " & Format2(SomBC),1
            Scrivi Space(21) & Format2(SomBC) & " * " & Format2(X) & " = " & Format2(SomBCx),1
            Scrivi Space(13) & Format2(DiDSomBCx) & " = Diametrale in Decina di " & Format2(SomBCx),1
            Scrivi
            ImpostaGiocata 1,Amba,Ruo,Posta,Clp
            Gioca Es,1
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Thank
s Salvo50

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

filippo1963

Member

phil79

Super member

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

Ultima estrazione Lotto

Ultimi Messaggi