Per salvo50 una cortesia

[Matematico]

Ciao salvo50, quando hai tempomi faresti uno script che mi permetta di inserire tramite imput box gli estratti desiderati da me compresa anche la chiave fissa da cambiare a piacere ?
L'operazione cabalistica già la conosci...è quella del Casamia.
Ti porto un esempio:
BARI-14/4/2018
16-20-77-82-70

16-20
01-17-37
18-54
72
--------------
73

E cosi via con : 20-77****77-82****82-70*****70-16






Buona domenica a te e a tutto il forum

 

[salvo50]

Ciao Matematico, fai un esempio più chiaro perchè non ho capito, con

16-20
01-17-37
18-54
72
--------------
73

E cosi via con : 20-77****77-82****82-70*****70-16

a cosa ti riferisci

 

[Matematico]

Ciao salvo50, intendevo le restanti 4 operazioni da fare:
chiave fissa scelta : 1

20-77
01-21-88
22-29
51
-------------
88

77-82
01-78-70
79-58
47
-----------------
85

82-70
01-83-63
84-56
50
-------------
79

70-16
01-71-87
72-68
50
---------------
25

 

[salvo50]

Dimmi a quale script o metodo ti riferisci perchè io non lo ricordo, l'unico script che mi viene in mente è IL TRINO SETTENARIO di Nicola Russo, di cui ho fatto uno script, nel quale non c'è una chiave fissa da inserire, ma oltre ai 5 numeri iniziali, ci sono da inserire altri 5 numeri chiamati NUMERI D'ORO

 

[Matematico]

Non si tratta di un metodo, o di un tuo script....io ti ho solo chiesto s epuoi farmi uno script seguendo l'esempio che ti ho fatto .
A me serve solo per fare dei test....con carta e penna sarebbe troppo impegnativo .

 

[salvo50]

Ok, appena posso lo faccio.

 

[Matematico]

Ti ringrazio di cuore

 

[joe]

Ciao Matematico ...

ho già codificato quasi tutto ... ma non ho capito

come calcoli il numero sotto la linea tratteggiata.

Siccome la spiegazione sarà utile anche a Salvo ...

Chiedo cortesemente se puoi spiegarlo con un esempio di calcolo.

Altrimenti dovrò ... impegnarmi trovare la soluzione a quest'ultimo calcolo.

Grazie.

16.20
01.17.37
18.54
72
--------

20.77
01.21.08
22.29
51
--------

77.82
01.78.70
79.58
47
--------

82.70
01.83.63
84.56
50
--------

70.16
01.71.87
72.68
50
--------

 

[Matematico]

Ciao joe , in effetti non si capisce bene hai ragione tu ,ti ho fatto sotto l'operazione di somma col fuori 90 in blu

20-77
01-21-08
22-29
51
-------------
88

08+29+51 =88

77-82
01-78-70
79-58
47
--------------
85

70+58+47=85

82-70
01-83-63
84-56
50
-------------
79

63+56+50=79


70-16
01-71-87
72-68
50
---------------
25

87+68+50= 25

 

[joe]

Ok ...

Avevo sommato ... troppi numeri ... ed i risultati non coincidevano.

16.20.77.82.70
16.20
01.17.37
18.54
72
--------
73

20.77
01.21.08
22.29
51
--------
88

77.82
01.78.70
79.58
47
--------
85

82.70
01.83.63
84.56
50
--------
79

70.16
01.71.87
72.68
50
--------
25

 

[Matematico]

Scusami Joe, avrei dovuto spiegare meglio io ...ti ringrazio x esserti interessato alla mia richiesta , quando puoi mi metti lo script grazie 1000.

 

[salvo50]

Anche io ho tribulato un po per capire come ottenere l'ultimo numero, ho fatto lo script, ma penso che quello di Joe sarà più corto, sicuramente con dei FOR-NEXT.

Option Explicit
Sub Main
   Dim Chiave,Estratti,AEstratti
   Dim EstrA,EstrB,EstrC,EstrD,EstrE
   Dim Sab1,Sab2,Sab3,Sab4,Sab5,Sab6,Sbc1,Sbc2,Sbc3,Sbc4,Sbc5,Sbc6
   Dim Scd1,Scd2,Scd3,Scd4,Scd5,Scd6,Sde1,Sde2,Sde3,Sde4,Sde5,Sde6
   Dim Sea1,Sea2,Sea3,Sea4,Sea5,Sea6
   Chiave = CInt(InputBox("Inserisci la chiave ",,1))
   Estratti = InputBox("Inserisci 5 numeri separati da un punto ( . )",,"16.20.77.82.70")
   Estratti = "0." & Estratti
   AEstratti = Split(Estratti,".")
   EstrA = CInt(AEstratti(1)) : EstrB = CInt(AEstratti(2)) : EstrC = CInt(AEstratti(3))
   EstrD = CInt(AEstratti(4)) : EstrE = CInt(AEstratti(5))
   Scrivi Space(20) & " Numeri Inseriti " & Format2(EstrA) & " " & Format2(EstrB) & " ",1,0
   Scrivi Format2(EstrC) & " " & Format2(EstrD) & " " & Format2(EstrE) & "  -  Chiave " & Format2(Chiave),1
   Scrivi
   Scrivi
   Sab1 = Fuori90(EstrA + Chiave) : Sab2 = Fuori90(EstrB + Sab1)
   Sab3 = Fuori90(Sab1 + Chiave) : Sab4 = Fuori90(Sab1 + Sab2)
   Sab5 = Fuori90(Sab3 + Sab4) : Sab6 = Fuori90(Sab2 + Sab4 + Sab5)
   Sbc1 = Fuori90(EstrB + Chiave) : Sbc2 = Fuori90(EstrC + Sbc1)
   Sbc3 = Fuori90(Sbc1 + Chiave) : Sbc4 = Fuori90(Sbc1 + Sbc2)
   Sbc5 = Fuori90(Sbc3 + Sbc4) : Sbc6 = Fuori90(Sbc2 + Sbc4 + Sbc5)
   Scd1 = Fuori90(EstrC + Chiave) : Scd2 = Fuori90(EstrD + Scd1)
   Scd3 = Fuori90(Scd1 + Chiave) : Scd4 = Fuori90(Scd1 + Scd2)
   Scd5 = Fuori90(Scd3 + Scd4) : Scd6 = Fuori90(Scd2 + Scd4 + Scd5)
   Sde1 = Fuori90(EstrD + Chiave) : Sde2 = Fuori90(EstrE + Sde1)
   Sde3 = Fuori90(Sde1 + Chiave) : Sde4 = Fuori90(Sde1 + Sde2)
   Sde5 = Fuori90(Sde3 + Sde4) : Sde6 = Fuori90(Sde2 + Sde4 + Sde5)
   Sea1 = Fuori90(EstrE + Chiave) : Sea2 = Fuori90(EstrA + Sea1)
   Sea3 = Fuori90(Sea1 + Chiave) : Sea4 = Fuori90(Sea1 + Sea2)
   Sea5 = Fuori90(Sea3 + Sea4) : Sea6 = Fuori90(Sea2 + Sea4 + Sea5)
   Scrivi Space(5) & Format2(EstrA) & " " & Format2(EstrB) & Space(10) & Format2(EstrB) & " " & Format2(EstrC),1,0
   Scrivi Space(10) & Format2(EstrC) & " " & Format2(EstrD) & Space(10) & Format2(EstrD) & " " & Format2(EstrE),1,0
   Scrivi Space(10) & Format2(EstrE) & " " & Format2(EstrA),1
   '
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(Sab1) & " " & Format2(Sab2) & Space(7) & Format2(Chiave),1,0
   Scrivi Space(1) & Format2(Sbc1) & " " & Format2(Sbc2) & Space(7) & Format2(Chiave) & Space(1) & Format2(Scd1),1,0
   Scrivi Space(1) & Format2(Scd2) & Space(7) & Format2(Chiave) & Space(1) & Format2(Sde1) & Space(1) & Format2(Sde2),1,0
   Scrivi Space(7) & Format2(Chiave) & Space(1) & Format2(Sea1) & Space(1) & Format2(Sea2),1
   '
   Scrivi Space(5) & Format2(Sab3) & " " & Format2(Sab4) & Space(10) & Format2(Sbc3) & " " & Format2(Sbc4),1,0
   Scrivi Space(10) & Format2(Scd3) & Space(1) & Format2(Scd4) & Space(10) & Format2(Sde3) & Space(1) & Format2(Sde4),1,0
   Scrivi Space(10) & Format2(Sea3) & Space(1) & Format2(Sea4),1
   '
   Scrivi Space(5) & Format2(Sab5) & Space(13) & Format2(Sbc5) & Space(13) & Format2(Scd5),1,0
   Scrivi Space(13) & Format2(Sde5) & Space(13) & Format2(Sea5),1
   Scrivi Space(5) & "--------" & Space(7) & "--------" & Space(7) & "--------" & Space(7) & "--------" & Space(7) & "--------",1
   Scrivi Space(5) & Format2(Sab6) & Space(13) & Format2(Sbc6) & Space(13) & Format2(Scd6),1,0
   Scrivi Space(13) & Format2(Sde6) & Space(13) & Format2(Sea6),1
End Sub

 

[Matematico]

Ciao salvo50, hai ragione anche tu...avrei dovuto essere più chiaro, ti ringrazio di cuore x lo script che mi faciliterà su miei studi personali che stò facendo

Buona giornata a te e al forum !

 

[salvo50]

Ciao a Tutti.

Ti sei spiegato bene, solo che io ed evidentemente anche Joe non conoscevamo l'operazione cabalistica di Casamia.

 

[joe]

Buona sera a tutte/i.

Effettivamente non avevo ancora provato una soluzione

simile a questo strano "triplo-sommativo".

Per il resto è come un puzzle.

Esercita la pazienza ... il tentativo di risolverlo.

Soddisfa il risultato della soluzione.

Dunque, a parer mio, l'importante è che ci siano stati esempi ... precisi e ben esposti.

Tutto il resto ... fa parte del divertimento che si ha nell'allenare la capacità di soluzione.

Option Explicit
Sub Main
'Calcoli Cabalistici - Casamia x Il Matematico  'C = chiave
'Script By Joe
   Dim R,Es,Se,Nu,X,Y
   Dim A,B,C,D,E,F,G,H,S

   R = BA_
   Es = 9460
   C = 1
   S = "-"
   Se = StringaEstratti(Es,R)
   Nu = Split("0." & Se,".")
   Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaNumeri(Nu,,True)
   Scrivi
   For X = 1 To 5 : Y = FuoriX(X + 1,5)
      A = CInt(Nu(X)) : B = CInt(Nu(Y))
      Scrivi Format2(A) & S & Format2(B)
      D = Fuori90(A + C)
      E = Fuori90(A + B + C)
      Scrivi Format2(C) & S & Format2(D) & S & Format2(E)
      F = Fuori90(C + D) : G = Fuori90(D + E)
      Scrivi Format2(F) & S & Format2(G)
      H = Fuori90(F + G)
      Scrivi Format2(H)
      Scrivi String(8,"-")
      Scrivi Fuori90(E + G + H)
      Scrivi
   Next
End Sub

 

[i legend]

Ciao joe
Se utilizzi ge array numeri ruota non devi splittare.
Ciao

 

[salvo50]

Forte questo passo per fare la coppia quinto-primo

Y = FuoriX(X + 1,5)


Grazie

 

[joe]

Ok ...

... vi ringrazio per i commenti ed i suggerimenti.

Penso che GetArrayNumeriRuota sia la compilazione

di un algoritmo molto simile a questo che normalmente scrivo per il medesimo scopo.

L'istruzione di livello superiore, sicuramente, fa perdere la compatibilità

dello script che la contiene, con le piattaforme meno evolute.

Comunque si ... la pigrizia (mia) di non imparare ad utilizzare istruzioni più comode ...

... si fronteggia ad armi pari con la stessa pigrizia ... del dover, poi aggiungere

una funzione "equivalente" allo script che, altrove, altrimenti non gira.

Più giusto ancora, sarebbe scriverla una volta sola,

eppoi includerla quando e dove necessaria.

Qui tuttavia la pigrizia si fa "al quadrato".

 

[avio]

Ciao a tutti

Questo procedimento " della Chiave " è solo la prima parte di come " indovinare o scoprire " la famosa cinquina della tavola settenaria

la chiave 1 ti porta al numero 90 la chiave 2 ti porta al numero 83 ecc ecc

prendendo in prestito lo script del bravissimo joe che saluto vi faccio un esempio

Option Explicit
Sub Main

'Script By Joe
   Dim R,Es,Se,Nu,X,Y,g1(5)
   Dim A,B,C,D,E,F,G,H,S
   R = BA_
   Es = 9460
   C = 1
   S = "-"
   Se = StringaEstratti(Es,R)
   Nu = Split("0." & Se,".")
   Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaNumeri(Nu,,True)
   Scrivi
   For X = 1 To 5 : Y = FuoriX(X + 1,5)
      A = CInt(Nu(X)) : B = CInt(Nu(Y))
      Scrivi Format2(A) & S & Format2(B)
      D = Fuori90(A + C)
      E = Fuori90(A + B + C)
      Scrivi Format2(C) & S & Format2(D) & S & Format2(E)
      F = Fuori90(C + D) : G = Fuori90(D + E)
      Scrivi Format2(F) & S & Format2(G)
      H = Fuori90(F + G)
      Scrivi Format2(H)
      Scrivi String(8,"-")
      Scrivi Fuori90(E + G + H)
      Scrivi
g1(X)=Fuori90(E + G + H)
   Next
Scrivi "##############################################################"
 For X = 1 To 5 : Y = FuoriX(X + 1,5)
      A = CInt(Nu(X)) : B = CInt(Nu(Y))
      Scrivi Format2(A) & S & Format2(B)
C=Abs(Fuori90(g1(X)*13)-91)
      D = Fuori90(A + C)
      E = Fuori90(A + B + C)
      Scrivi Format2(C) & S & Format2(D) & S & Format2(E)
      F = Fuori90(C + D) : G = Fuori90(D + E)
      Scrivi Format2(F) & S & Format2(G)
      H = Fuori90(F + G)
      Scrivi Format2(H)
      Scrivi String(8,"-")
      Scrivi Fuori90(E + G + H)
      Scrivi

   Next

End Sub

 

[avio]

questo e per la cinquina

Option Explicit
Sub Main

'Script By Joe
   Dim R,Es,Se,Nu,X,Y,g1(5)
   Dim A,B,C,D,E,F,G,H,S
   R = BA_
   Es = 9460
   C = 1
   S = "-"
   Se = StringaEstratti(Es,R)
   Nu = Split("0." & Se,".")
   Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaNumeri(Nu,,True)
   Scrivi
   For X = 1 To 5 : Y = FuoriX(X + 1,5)
      A = CInt(Nu(X)) : B = CInt(Nu(Y))
      Scrivi Format2(A) & S & Format2(B)
   C=Abs(Fuori90(Nu(X)*13)-91)   
D = Fuori90(A + C)
      E = Fuori90(A + B + C)
      Scrivi Format2(C) & S & Format2(D) & S & Format2(E)
      F = Fuori90(C + D) : G = Fuori90(D + E)
      Scrivi Format2(F) & S & Format2(G)
      H = Fuori90(F + G)
      Scrivi Format2(H)
      Scrivi String(8,"-")
      Scrivi Fuori90(E + G + H)
      Scrivi
g1(X)=Fuori90(E + G + H)
   Next
Scrivi " °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° "
 For X = 1 To 5 : Y = FuoriX(X + 1,5)
      A = CInt(Nu(X)) : B = CInt(Nu(Y))
      Scrivi Format2(A) & S & Format2(B)
C=Abs(Fuori90(g1(X)*13)-91)
      D = Fuori90(A + C)
      E = Fuori90(A + B + C)
      Scrivi Format2(C) & S & Format2(D) & S & Format2(E)
      F = Fuori90(C + D) : G = Fuori90(D + E)
      Scrivi Format2(F) & S & Format2(G)
      H = Fuori90(F + G)
      Scrivi Format2(H)
      Scrivi String(8,"-")
      Scrivi Fuori90(E + G + H)
      Scrivi

   Next
End Sub