La ricerca ha trovato 45 risultati

da Enplein
21/12/2016, 16:55
Forum: CICLOMETRIA PERSONALE
Argomento: IMPARIAMO A LEGGERE I SEGNALI
Risposte: 3
Visite : 2807

Re: IMPARIAMO A LEGGERE I SEGNALI

Ciao Tatoo, ho visto il video...ed ho notato che seguendo il procedimento sulle chiusure del doppio quadrato di figura 5, e facendo altri calcoli si è verificato al 1° un terno su NA. Riporto l'esempio del 14/12/2013 BA.(05)....59 Pos.......5 FI...68.....32 Pos.3.....5 NA..77....(41)Pos.3 Calcoli: ...
da Enplein
18/11/2014, 18:30
Forum: LISTATI VARI
Argomento: Aiuto per listato
Risposte: 3
Visite : 810

Re: Aiuto per listato

Ciao SeeLe8, controlla se ci sono errori... Ciao, Enplein. Sub Main() 'Forum Pentambo X SeeLe8_Listed by Enplein Dim ruote(2),ruota(1) Dim amb(1),nn(5),dec(5),cad(5) Dim poste(2) Dim posta(1) posta(1) = 1 poste(2) = 1 casi = 0 rs = InputBox("Quante estrazioni vuoi controllare?",,100) cl = InputBox(...
da Enplein
25/10/2014, 12:55
Forum: LISTATI VARI
Argomento: Aiuto per script
Risposte: 4
Visite : 988

Re: Aiuto per script

Ciao SeeLe8, controlla se ci sono errori... Ciao, Enplein. Sub Main() Dim ruota(10),ruote(2),nu(7),posta(2),poste(4) posta(1) = 1 poste(2) = 2 poste(3) = 2 poste(4) = 1 ini = CInt(InputBox("INIZIO RICERCA ?","inizio",8800)) col = CInt(InputBox("COLPI DI GIOVCO ?","colpi",12)) fin = EstrazioneFin Fo...
da Enplein
31/07/2014, 18:06
Forum: LISTATI VARI
Argomento: SPIA 90 A BA
Risposte: 7
Visite : 1231

Re: SPIA 90 A BA

Ciao Tatoo, questa versione considera la ricerca su tutte le ruote fermo restante le previsioni di calcolo. Ciao, Enplein. Sub Main() ColoreTesto 1 Scrivi " METODO VECCHIONE_TATOO SPIA 90 SU QUALSIASI RUOTA E GIOCARE AMBO TERNO SU RUOTA - COLPI 8",1 Scrivi ColoreTesto 0 Dim ruote(1) Dim ambata(1): ...
da Enplein
31/07/2014, 17:46
Forum: LISTATI VARI
Argomento: SPIA 90 A BA
Risposte: 7
Visite : 1231

Re: SPIA 90 A BA

Ciao Tatoo, prova adesso.... Ciao, Enplein. Sub Main() ColoreTesto 1 Scrivi " METODO VECCHIONE SPIA 90 A BARI GIOCARE AMBO TERNO SU BARI - COLPI 8",1 Scrivi ColoreTesto 0 Dim ruote(1) Dim ambata(1): Dim ambo1(3) : Dim ambo2(3) : Dim ambo3(3) : Dim terno(3) : Dim poste(2) : Dim postee(3) '----- modi...
da Enplein
04/05/2014, 11:34
Forum: LISTATI VARI
Argomento: SOMMARE LE CINQUINE
Risposte: 14
Visite : 1780

Re: SOMMARE LE CINQUINE

Ciao Dj, basta inserire il codice Int:
d=Int (c/2)
Ciao, Enplein.
da Enplein
03/05/2014, 11:55
Forum: LISTATI VARI
Argomento: SOMMARE LE CINQUINE
Risposte: 14
Visite : 1780

Re: SOMMARE LE CINQUINE

Ciao Tatoo, ciao Dj, con il vostro permesso aggiungerei un'altra condizione: visto che sommiamo
la somma A con B = C e poi diviso/2, perchè non considerare che C sia Pari per essere diviso x 2?
la riga da aggiungere:
If Pari(c)=True Then
d=c/2
.........ecc....

Ciao, Enplein.
da Enplein
30/04/2014, 16:56
Forum: LISTATI VARI
Argomento: Richiesta script serie numeriche
Risposte: 19
Visite : 2269

Re: Richiesta script serie numeriche

Ciao SeeLe8, è semplice.....ecco lo script con 7 elementi!!!! Ciao, Enplein. Sub main() Dim nu1(10),nu2(25),amb(2),ru1(1),ru2(1),ruote(2),ruot(1),nu(7) Dim posta(1),poste(2) posta(1)=1:poste(2)=1 rs=InputBox("Quante estrazione vuoi controllare? ","estrazione",10) cl=InputBox ("per quanti colpi?","c...
da Enplein
15/04/2014, 15:43
Forum: LISTATI VARI
Argomento: Richiesta script serie numeriche
Risposte: 19
Visite : 2269

Re: Richiesta script serie numeriche

In riferimento al 1° script, ho eliminato l'input per cercare le presenze 2 o 3 unificandolo con la ricerca delle formule 1-3 / 2-2 / 3-1. Considerando 10 estrazioni, il tempo di attesa del mio PC è stato di 00:09:13 Ciao, Enplein. 2° script Sub main() Dim nu1(10),nu2(25),amb(2),ru1(1),ru2(1),ruote...
da Enplein
14/04/2014, 21:13
Forum: LISTATI VARI
Argomento: Richiesta script serie numeriche
Risposte: 19
Visite : 2269

Re: Richiesta script serie numeriche

Ciao SeeLe8, la ricerca è complessa e lunga...ho seguito la soluzione di una serie di 6 numeri a passo X da cercare su due ruote; inoltre ho inserito un input per determinare quanti numeri bisogna avere su una ruota, e cioè 2 o 3. Ciao, Enplein. Sub main() Dim nu1(10),nu2(25),amb(2),ru1(1),ru2(1),r...