Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
...Ciao
se ho capito bene la tua richiesta... si può risolvere il caso facendo la modifica all'istruzione "Gioca..."
> indicizza l'estrazione finale in archivio <
"Gioca, estrazionefin, ....."
...mi fa piacere esserti stato d'aiuto... diciamo che impostato così puoi pensare successivamente di assegnare degli inputbox ai valori "p" e "p1" e variare i valori come vuoi...
Ciao, penso questa possa essere una soluzione....
Option Explicit
Sub Main()
Dim Ini,Fin,es,QE
Dim r
Dim A,B,p,p1
QE = InputBox("Quante Estrazioni controllo",,50)
Fin = EstrazioneFin
Ini = EstrazioneFin - QE
For es = Ini To Fin
AvanzamentoElab Ini,Fin,es
For r =...
Ciao i legend....
provo a fare un umile commento (al tuo script postato e al tuo modo di crearli, mi sto affezionando ;), ovviamente io sono rimasto all'era della "pietra"...)
La creazione di algoritmi poliposizionali (così come li hai chiamati) è sicuramete uno strumento valido e interessante...
...non vorrei uscire troppo dal tema iniziato del tread, ma così divertendomi a curiosare un attimo mi è balzata qualche curiosità---
Ora 7 numeri (è un ottima giocata da farsi a ruota fissa) generano 21 ambi...quindi questo mi fa pensare che potremmo sviluppare situazioni "SIMILI" o inferiori...
...beh se non erro mancano due colpi al termine della compendio statistico (che non vuol dire nulla, lo sappiamo vero?)... questo "80" ha da sortite... e le posizioni potrebbero essere: la 5^ in primis con recupero 1^ e 2^.... chissà
Ciao Claudio8, non entro nel merito dei risultati senza prima aver un parametro di controllo.... ma volevo solo dirti che se i miei script "storici" ti sono stati d'ispirazione.... beh devo farti un sacco di complimenti, perchè questi output sono veramente d'alta scuola...
...per quale motivo metti il "=SE"...? basta solo il "RESTO(..."
La restituzione del valore con la formula "RESTO" e divisore "5", può essere 0,1,2,3,4... non potrà mai essere "5"...
Se alla formula metti il condizionale "SE" è chiaro che sostituisci il risultato "0" con quello che vuoi fargli...
Visto la miriade di casi... penso sia valido il sunto proposto ad inizio tread... (che riscrivo qui)
1) l'ultimo elemento della cinquina sincrona non sortito, è quel numero che potrebbe anche divenire il ritardatario di turno e quindi l'eventuale gioco diviene "pericoloso", per questo motivo si...
Scrivi "Prima della conclusione della cinquina(Cinzia)" & Chr(10)
'Cinquine valide solo quelle in cui i primi 4 estratti usciti sono sortiti una sola volta
ColoreTesto 6
Scrivi String(80,"*")
ColoreTesto 0
Sub Main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),ru(1),nu(5),nr(5)
Dim s(5)
fin =...
Ciao Cinzia
ho ricercato un pò di vecchi appunti, non ho trovato altro, comunque cerco di elencare i punti su cui si era trovato un punto comune...
1) l'ultimo elemento della cinquina sincrona non sortito, è quel numero che potrebbe anche divenire il ritardatario di turno e quindi l'eventuale...
...Vedere Luigi all'opera è sempre un piacere!!!
Straordinarie sono le sue soluzioni "scriptiche"... e mi stanno muovendo un pò le "farfalle" nello stomaco... :ROFLMAO: :ROFLMAO:
Considerando poi Luigi e Joe insieme.... "il non prus ulta della perfezione"
Un abbraccio circolare ad entrambi
Ciao Cinzia... come sempre attenta ai dati statistici e ben afferrata con i sincronismi!
Questo è stato un argomento affrontato parecchio tempo fa (credo proprio con te, ma non ricordo), e devo dire che andrebbe sviluppato e approfondito come giustamente dici, c'è molta curiosità...