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 Claudio
...come giustamente osservi... tutto nasce dalla decina ordinata in modo naturale, poi con l'avvento delle venus e il diverso imbussolamento ci si è spostati sulla quindicina, questo ovviamente comporta una gestione numerica molto più ampia e difficoltosa pure nell'impostare le...
...è una tabella ben fatta... potrebbe essere migliorata con l'aggiunta dei numeri estratti.
I valori sembrano molto simili a quelli del plugin di Arn
E' un ottimo lavoro!
Ciao a tutti... quello di condividere le metodologie e tecniche inerenti a questo o altri giochi è un problema risaputo e vecchio come questo gioco... Tutti (in generale) hanno la triste "idea" di conoscere il mistero dell'urna, solo il tempo rende noto che quella famosa idea non vale più...:(...
...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 =...