Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C · Giovedì alle 15:37

Ciao Salvo hai fatto un lavoro superlativo.

Di ottima fattura. Eccezionale come tutti i tuoi lavori.

Dirti grazie e' poco.

mastrogino · Venerdì alle 09:18

salvo50 ha scritto:

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

Codice:

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

Codice:

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

Buongiorno a tutti voi nel ringraziare Salvo per il suo altruismo e collaborazione per i suoi servizi ,
vi inserisco una previsione ottenuta da questo listato usando i vertibili , sperando che sia positiva nel minor tempo possibile
e se andra' in vincita vi svelo il modo di come e stato usato .
VI RINOVO GLI AUGURI DI UNA SANTA E PACE PASQUA 2025 A TUTTI

CA TT
89.88.62.26.
89.88.61.28.
89.88.32.84.
89.88.05.56.
89.88.10.78.

salvo50 · Venerdì alle 12:13

BUONA PASQUA

Baciccia4251 · Venerdì alle 14:31

salvo50 ha scritto:
BUONA PASQUA

Altrettanto

rudivall · Venerdì alle 14:34

Buona Pasqua a tutti, Auguri...

KEN · Venerdì alle 19:04

Buona Pasqua a tutti

mastrogino · Venerdì alle 20:55

mastrogino ha scritto:
Buongiorno a tutti voi nel ringraziare Salvo per il suo altruismo e collaborazione per i suoi servizi ,
vi inserisco una previsione ottenuta da questo listato usando i vertibili , sperando che sia positiva nel minor tempo possibile
e se andra' in vincita vi svelo il modo di come e stato usato .
VI RINOVO GLI AUGURI DI UNA SANTA E PACE PASQUA 2025 A TUTTI

CA TT
89.88.62.26.
89.88.61.28......88.61.tt
89.88.32.84.
89.88.05.56.
89.88.10.78.

filippo1963 · Sabato alle 15:01

salvo50 ha scritto:

Ciao a Tutti
Matematico, Bubù
Grazie

Codice:

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

Buona Pasqua a Tutti gli Utenti di questo fantastico Forum, chiedo venia sarebbe possibile modificare lo script per evidenziare solo gli estratti uguali isotopi in due ruote delle 11 ruote. Grazie in maniera anticipata

salvo50 · Sabato alle 19:37

filippo1963 ha scritto:
Buona Pasqua a Tutti gli Utenti di questo fantastico Forum, chiedo venia sarebbe possibile modificare lo script per evidenziare solo gli estratti uguali isotopi in due ruote delle 11 ruote. Grazie in maniera anticipata

Ciao a Tutti

Non sono sicuro di aver capito bene, nel post 973 ho aggiunto un altro script vedi se può andare.

salvo50 · Sabato alle 20:08

Il secondo script del post 973 è da riprendere perché ho inserito tutte le ruote

filippo1963 · Sabato alle 23:37

salvo50 ha scritto:
Ciao a Tutti

Non sono sicuro di aver capito bene, nel post 973 ho aggiunto un altro script vedi se può andare.

Testato è si ottiene un bel 93% di esiti positivi

EVERITA C · Domenica alle 14:08

Buongiorno e buona Pasqua a tutti voi.

doris20 · Domenica alle 17:21

Buona Pasqua al Forum

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C

Senior Member

mastrogino

Advanced Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

Baciccia4251

Advanced Member >PLATINUM<

rudivall

Advanced Member >PLATINUM<

KEN

Super member

mastrogino

Advanced Premium Member

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

EVERITA C

Senior Member

doris20

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi