TRADUZIONE DA SCRIPT IN EXCEL

[Alien.]

For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
a = Estratto(es,3,1)
b = Estratto(es,8,1)
ok = 0
If a = 1 Or b = 1 Then
terzina1(1) = Fuori90(ComplAdX(Estratto(es,1,5)) + Estratto(es,12,2) + 32)
terzina1(2) = Fuori90(Vert(Estratto(es,10,4)) + Estratto(es,6,3) + 25)
terzina1(3) = Fuori90(Decina(Estratto(es,10,2)) + Estratto(es,2,4) + 10)
ok = 1
End If
If ok = 1 Then
co = co + 1





GRAZIE.

 

[Roby]

Ciao, io non sono quello piu adatto per fare quello che chiedi, ma comunque la vedo dura.
per quello che ci sono gli script.

Non ho capito perchè se hai lo script, a che ti serve usare excel?

ciao

 

[joe]

Ciao Alien,

Secondo me ha ragione Cerberus.

Quel metodo si fonda sul sapere che sono caduti alcuni "terni utili",

da quando è stata istituita la ruota Nazionale al 2012.

Cioè è un metodo, per allocchi, fatto al computer, 5-6 anni fa.

Quando erano di moda i sommativi.

Prima ...non ha funzionato.

Dopo, cioè recentemente, non funziona.

Cioè ... oggi ... funziona per far perdere i soldi spesi nelle giocate.

Con excel, dedurre queste cose,

ammesso ti possa essere possibile, non ti è maggiormente utile.

In sintesi, non ti è utile in ogni caso ed è anche sconveniente.

Anche se ... ci saranno eccezioni a questa regola.

 

[Alien.]

è benissimo volevo solo risolvere il problema di come vengono fuori le terzine perchè lo script termina nel l 2016 se ben ricordo...ok grazie.

 

[salvo50]

Ciao a Tutti.

Lo script termina nel 2016, perchè è impostato che deve terminare nel 2016, metti EstrazioneFin e terminerà all'ultima estrazione che hai in Spaziometria.

 

[joe]

è benissimo volevo solo risolvere il problema di come vengono fuori le terzine perchè lo script termina nel l 2016 se ben ricordo...ok grazie.

Secondo me, scrivi cose senza senso.

Più che come termina ... è come comincia!

Considerando che gli hai tagliato sia la testa che la coda.

Ti leggo dunque in accento, sia sbagliato, che giacobino.

Option Explicit
Sub Main
'Alien N°1 = Primo Estratto FI_RO_ Sommativo
  Dim Ini,Fin,Es,a,b,c,Ter(3)
  Dim Ru(1),Po(3) :Ru(1) = 11 : Po(2) = 1 : Po(3) = 1
  Ini = 7440 : Fin = EstrazioneFin
  For Es = Ini To Fin
    Messaggio Es
    Call AvanzamentoElab(Ini,Fin,Es)
    a = Estratto(Es,FI_,1) : b = Estratto(Es,RO_,1)
    If a = 1 Or b = 1 Then
      c = c + 1 : Scrivi String(106,"=") & FormatSpace(c,4,True),True
      Ter(1) = Fuori90(ComplAdX(Estratto(Es,BA_,5)) + Estratto(Es,NZ_,2) + 32)
      Ter(2) = Fuori90(Vert(Estratto(Es,VE_,4)) + Estratto(Es,NA_,3) + 25)
      Ter(3) = Fuori90(Decina(Estratto(Es,VE_,2)) + Estratto(Es,CA_,4) + 10)
      ImpostaGiocata 1,Ter,Ru,Po,8',3
      Gioca Es,True
    End If
  Next
  ScriviResoconto
End Sub

 

[Alien.]

è mica male joe hai pure la lampada di Aladino ? Bhe con la tua esperienza in script sai capire le cose.Complimenti. Ma dimmi èra un tuo metodo ?Lo scrip l'ho trovato sul web in effetti gli manca sia la testa che la coda,adesso ho la testa e la coda al posto giusto ,......acc mi è spuntata la coda hahahahahah ciao ,grazie.

 

[joe]

Ciao,

No. Non ho proprio idea né di chi sia né di cosa abbia usato per farlo.

Pur riconoscendo, le evidenti qualità dell'elaborato ...

ripeto ... stacci attento, perché, secondo me, è una trappola.

 

[Alien.]

si in effeti nel forum dove l'ho prelevato cera scritto la stessa cosa"una trappola" ma voglio fare una verifica per vedere se casco nella trappola hhahaah ciao,grazie.joe.

 

[joe]

Ciao,

anche io mi sono informato.

Come previsto sottende una ricerca di base degna di pochi.

Quindi non è una trappola ma un capolavoro di questo genere.

Per il resto ... dell'alea è nota la cecità.


​​​​​

 

[Alien.]

QUINDI LO TROVI VALIDO ?

in caso positivo , potresti inserire le ruote più frequenti in cui escono ambi e terni ? Grazie.
ha dimenticavo poter inserire le ricerche 50/200 ecc

 

[salvo50]

Ciao a Tutti.

Per me non è valido, ma come dice Joe, la fortuna è cieca.
Ho modificato un pochino lo script di Joe, per avere il resoconto
di tutte le ruote separate

 Option Explicit
Sub Main
   'Alien N°1 = Primo Estratto FI_RO_ Sommativo
   Dim Ini,Fin,Es,a,b,c,Ter(3),Ruo(11)
   Dim Ru(1),Po(3) :Ru(1) = 11 : Po(2) = 1 : Po(3) = 1
   Ruo(1) = BA_ : Ruo(2) = CA_ : Ruo(3) = FI_ : Ruo(4) = GE_ : Ruo(5) = MI_
   Ruo(6) = NA_ : Ruo(7) = PA_ : Ruo(8) = RO_ : Ruo(9) = TO_ : Ruo(10) = VE_
   Ruo(11) = NZ_
   Ini = 7440 : Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio Es
      Call AvanzamentoElab(Ini,Fin,Es)
      a = Estratto(Es,FI_,1) : b = Estratto(Es,RO_,1)
      If a = 1 Or b = 1 Then
         c = c + 1 : Scrivi String(106,"=") & FormatSpace(c,4,True),True
         Ter(1) = Fuori90(ComplAdX(Estratto(Es,BA_,5)) + Estratto(Es,NZ_,2) + 32)
         Ter(2) = Fuori90(Vert(Estratto(Es,VE_,4)) + Estratto(Es,NA_,3) + 25)
         Ter(3) = Fuori90(Decina(Estratto(Es,VE_,2)) + Estratto(Es,CA_,4) + 10)
         ImpostaGiocata 1,Ter,Ruo,Po,8',3
         Gioca Es,True
      End If
   Next
   ScriviResoconto
End Sub

 

[Alien.]

 

[salvo50]

Di nulla

Ciao

Ho inserito anche il range

 Option Explicit
Sub Main
   'Alien N°1 = Primo Estratto FI_RO_ Sommativo
   Dim Ini,Fin,Es,a,b,c,Ter(3),aRuo
   Dim Ru(1),Po(3) :Ru(1) = 11 : Po(2) = 1 : Po(3) = 1
   Call ScegliRange(Ini,Fin,7440,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      Call AvanzamentoElab(Ini,Fin,Es)
      a = Estratto(Es,FI_,1) : b = Estratto(Es,RO_,1)
      If a = 1 Or b = 1 Then
         c = c + 1 : Scrivi String(106,"=") & FormatSpace(c,4,True),True
         Ter(1) = Fuori90(ComplAdX(Estratto(Es,BA_,5)) + Estratto(Es,NZ_,2) + 32)
         Ter(2) = Fuori90(Vert(Estratto(Es,VE_,4)) + Estratto(Es,NA_,3) + 25)
         Ter(3) = Fuori90(Decina(Estratto(Es,VE_,2)) + Estratto(Es,CA_,4) + 10)
         aRuo = Array(0,1,2,3,4,5,6,7,8,9,10,12)
         ImpostaGiocata 1,Ter,aRuo,Po,8',3
         Gioca Es,True
      End If
   Next
   ScriviResoconto
End Sub