TO TO posso?

[salvo50]

Salve, qualcuno può inserire lo script di questo metodo? grazie

Ciao a Tutti.

Non sono sicuro di aver capito bene le spiegazioni.

'Metodo postato da Vivo
'script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,Casi
   Dim Ba1,Ba3,Ca2,Fi5,Ge3,Ge4,Na2,Pa3
   Dim Pa5,To1,To2,To3,Ve3,Nz3,Nz4,Nz5
   Dim DdPa3,Co90Fi5,DdTo1,Co90Ge3,Co90Nz4
   Dim Co90Ba1,Co90Ba3,Salvo50
   Dim Amba1,Amba2,Amba3,Amb1,Amb2
   Dim Amb3,Tern1,Tern2,Tern3
   Dim Ambata1(1),Ambata2(1),Ambata3(1)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(1)
   Dim Terno1(3),Terno2(3),Terno3(3)
   Dim Posta1(1),Posta2(2),Posta3(3)
   Ruo(1) = TO_
   Posta1(1) = 1
   Posta2(2) = 1
   Posta3(2) = 1
   Posta3(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",Salvo50,9500)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      If IndiceMensile(Es) = 8 Then
         Messaggio Es
         AvanzamentoElab Ini,Fin,Es
         Ba1 = Estratto(Es,1,1) : Co90Ba1 =(90 - Ba1)
         If Ba1 = 90 Then Co90Ba1 = 90
         Ba3 = Estratto(Es,1,3) : Co90Ba3 =(90 - Ba3)
         If Ba3 = 90 Then Co90Ba3 = 90
         Ca2 = Estratto(Es,2,2)
         Fi5 = Estratto(Es,3,5) : Co90Fi5 =(90 - Fi5)
         If Fi5 = 90 Then Co90Fi5 = 90
         Ge3 = Estratto(Es,4,3) : Co90Ge3 =(90 - Ge3)
         If Ge3 = 90 Then Co90Ge3 = 90
         Ge4 = Estratto(Es,4,4)
         Na2 = Estratto(Es,6,2)
         Pa3 = Estratto(Es,7,3) : DdPa3 = DiametraleD(Pa3)
         Pa5 = Estratto(Es,7,5)
         To1 = Estratto(Es,9,1) : DdTo1 = DiametraleD(To1)
         To2 = Estratto(Es,9,2)
         To3 = Estratto(Es,9,3)
         Ve3 = Estratto(Es,10,3)
         Nz3 = Estratto(Es,12,3)
         Nz4 = Estratto(Es,12,4) : Co90Nz4 =(90 - Nz4)
         If Nz4 = 90 Then Co90Nz4 = 90
         Nz5 = Estratto(Es,12,5)
         '
         Amba1 = Fuori90(DdPa3 + Ve3 + 28)
         Amb1 = Fuori90(Ca2 + Ba1 + 32)
         Tern1 = Fuori90(Co90Fi5 + Pa5 + 09)
         '
         Amba2 = Fuori90(DdTo1 + Nz5 + 01)
         Amb2 = Fuori90(Co90Nz4 + Na2 + 08)
         Tern2 = Fuori90(Co90Ge3 + Nz3 + 23)
         '
         Amba3 = Fuori90(Co90Ba1 + To3 + 01)
         Amb3 = Fuori90(Co90Ba3 + To2 + 01)
         Tern3 = Fuori90(Co90Ba1 + Ge4 + 01)
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(96,"*") & " Caso " & FormattaStringa(Casi,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1
         Scrivi
         Ambata1(1) = Amba1
         ImpostaGiocata 1,Ambata1,Ruo,Posta1,5
         Ambo1(1) = Amba1
         Ambo1(2) = Amb1
         ImpostaGiocata 2,Ambo1,Ruo,Posta2,5
         Terno1(1) = Amba1
         Terno1(2) = Amb1
         Terno1(3) = Tern1
         ImpostaGiocata 3,Terno1,Ruo,Posta3,5
         '
         Ambata2(1) = Amba2
         ImpostaGiocata 4,Ambata2,Ruo,Posta1,5
         Ambo2(1) = Amba2
         Ambo2(2) = Amb2
         ImpostaGiocata 5,Ambo2,Ruo,Posta2,5
         Terno2(1) = Amba2
         Terno2(2) = Amb2
         Terno2(3) = Tern2
         ImpostaGiocata 6,Terno2,Ruo,Posta3,5
         '
         Ambata3(1) = Amba3
         ImpostaGiocata 7,Ambata3,Ruo,Posta1,5
         Ambo3(1) = Amba3
         Ambo3(2) = Amb3
         ImpostaGiocata 8,Ambo3,Ruo,Posta2,5
         Terno3(1) = Amba3
         Terno3(2) = Amb3
         Terno3(3) = Tern3
         ImpostaGiocata 9,Terno3,Ruo,Posta3,5
         Gioca Es
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

 

[salvo50]

Ops... non avevo visto che Claudio8 aveva già postato uno script

 

[claudio8]

Ciao a tutti , scusate ma forse non avete notato che a colpo è già uscito un ambo : 40-19 su TO!

Notato,
Nell'output vi è anche un caso( 7° in cui si è verificato l'uscita dell'ambo della 1a terzina al 1°clp,ma che al 2° colpo ha dato il terno della terzina 2.
ciao
riposto con aggiunta di un piccolo riepilogo:


se seguiamo il giallo a zig-zag, il terno dovrebbe essere la 1a terzina... ma essendo solo 3 le terzine, direi che non vale la pena selezionare ancora...

Grazie Vivo.

 

[vivo]

TO 22 ambata

 

[margot]

buonasera a tutti, grazie 80sete, grazie claudio8 e grazie salvo50, per la vostra collaborazione e gentilezza nell'aver affrontato e risolto un MIO problema .....buona continuazione

 

[Alien.]

Buona giornata vivo e tutti....per margot, io archivio i moduli di vivo in excel, credo che per lo script tu possa fare lo stesso così:
Devi moltiplicare X 3 il 2° estr. CA
CA 2° estr. 7 ....X 3 = 21 + 1° estr BA 7 = 28 + fisso 32 = 60 e se quando serve(con fuori 90)

si moltiplica X 3 perchè è descritto la Terzina Simmetrica.

Quello di GE alla 9° del mese invece
3° estr. RO 45 ...X 3 = 135 ... + 1° estr NA 42 + fisso 5 = 182 (fuori 90) = 2

Spero ti possa essere utile come a me in excel.
Ciao

Ciao,scusa ,archivi e sviluppi i metodi di vivo ? se li sviluppi puoi indicarmi come hai risolto con la formula in excel somma terzina,grazie.

 

[80Sete]

Ciao Alien, ecco la mia formula, naturalmente devi sostituire le caselle DQ197 - DU197 con le tue di excel (immagine)
a me basta inserire gli estratti, nelle caselle BIANCHE, e i calcoli arrivano in automatico.

=SE((DQ197*3)+DU197+32>90;RESTO((DQ197*3)+DU197+32;90);((DQ197*3)+DU197+32))

Spero sia sufficiente, mi saprai dire Ciao

 

[mina10]

CIAO VIVO ,GRAZIE INFINITE,VISTO ORA IL TUO CONSIGLIO ,SEGUIRO' ALLA LETTERA.

 

[Alien.]

Ciao Alien, ecco la mia formula, naturalmente devi sostituire le caselle DQ197 - DU197 con le tue di excel (immagine)
a me basta inserire gli estratti, nelle caselle BIANCHE, e i calcoli arrivano in automatico.

=SE((DQ197*3)+DU197+32>90;RESTO((DQ197*3)+DU197+32;90);((DQ197*3)+DU197+32))

Spero sia sufficiente, mi saprai dire Ciao

gasp.....io lo faccio in excel im maniera molto "elementare"Faccio le classiche formule trovate qua e nel web,tutta quella struttura ancora non ci sono arrivato , quindi inserisco a mano la tezina la somaa poi con resto ...ecc ,comunque grazie di tutto.

 

[Alien.]

VEDO CHE NELLO SCRIPT : [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 256, colspan: 4"]3°di( PA X3)+(1°BA)+(32)= FUORI 90
ma va bene lo stesso questo calcolo ! grazie..[/TD]
[/TR]
[/TABLE]

 

[claudio8]

Prospetto di convergenze da 8a mese Torino tra terzine ricavate da Vivo ed ambi ricavati da altra tecnica.


vediamo tra poco che dice la sorte.
ciao

 

[claudio8]

Prospetto di convergenze da 8a mese Torino tra terzine ricavate da Vivo ed ambi ricavati da altra tecnica.

La sorte ha decretato per l' estrazione del 24/11/2018 l'ambo 57 55 su MI e l'ambetto 21-5 a TO.

Saluti

 

[vivo]

TO 15

 

[mina10]

Ciao VIVO tutto bene? Mi fa piacere leggerti. Posso chiederti per cortesia se dai tuoi calcoli hai i radicali del 3 su qualche ruota? Grazie in anticipo .Bunaserata a tutti .

 

[vivo]

se ti puo essere utile ho questa in corso

 

[mina10]

CIAO VIVO ,GRAZIE MILLE ,ECCOME SE PUO' SERVIRE ,GRAZIE SEMPRE.BUONANOTTE A TUTTI.

 

[vivo]

TO 22

 

[GioRyuKen72]

Ciao a tutti, ciao Vivo.
Ti ringrazio per aver messo a disposizione di tutti questo bel metodo e ti ringrazio anche perchè nella previsione di dicembre è uscito l'ambo sulla 2a giocata, ma non ho visto aggiornamenti a riguardo ed allora mi sono permesso di farlo ora.

1a giocata:
73
73-32
73-32-30

2a giocata:
72
72-10
72-10-72 (ho sostituito il nr ripetuto con uno a mio piacimento, ma vista poi l'estrazione, un bel +9 al nr ripetuto paga il terno)
3a giocata:
77
77-52
77-52-83

al 4° colpo a TO sono sortiti: 81-72-23-03-10.

Ciao

 

[Alien.]

Complimenti a vivo è raro trovare un sommativo attivo.

 

[vivo]

GioRyuKen72

​

, ti ringrazio per l'aggiornamento, io una volta postati non li seguo più perché mi dedico a nuove esperienze, congratulazioni per il 10 72 che spero tu abbia preso.