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 Claudio8,
la funzione NP è uno script che cerca e trova la posizione delle due ambate. Nello specifico mi consente di stabilire su quali posizioni giocare in modo tale da rendere il gioco dell'ambata 500% più economica di quella semplice calcolata da Spaziometria.
Se il metodo di per se è...
Sub Main
Dim ruota(2),pt(5),ruote(3),a1(12)
pt(2) = 1
pt(3) = 1
clp = 1
ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE...
Sub Main
Dim ruota(2),pt(5),ruote(3),a1(12)
pt(2) = 1
clp = 1
ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
Ini = EstrazioneFin - X
fin =...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forumfree.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi "...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3)
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi "...
NON CAPISCO QUELLO CHE DICI E NON SO' A COSA TI RIFERISCI.
QUELLO CHE SO' E' CHE HO TUTTI I TUOI SCRIPT NESSUNO ESCLUSO SOTTO LA DIRECTORY C:\Users\User\AppData\Roaming\spaziometria\Script\Metodi super\Marco.
LI HO PRELEVATI DAL TUO FORUM
MA CHE PARLO A FARE!
Manco fosse Natale:
Estrazione generatrice del pronostico 09928 [ 61 - 22/05/2021]
G 0001 Numeri in gioco : 75.43.01.56 su BA CA per Ambo,Terno,Quaterna
V N. [75.43.01.56 ] [BA] [75 43 01 56 ..] C. 1 Quaterna 09929 [ 62 - 25/05/2021]
V N. [75.43.01.56...
Scusatemi tutti, ma da dove avete rilevato che parlando degli script ciofeca mi riferivo a quelli di Marco-elle?
Attendo una vostra risposta accompagnata dalle scuse.
Grazie.
E' difficile da spiegare. Per semplificare posso dirti che quando costruisci uno script puoi usare tutti i metodi che vuoi: gli zerati, i pari, i dispari, le cadenze , le spie, le forme geometriche, eccetera.
Quando escono i numeri con questi metodi non vuol dire che sia un metodo valido...
Marco gentilmente controlla questo script, mi sembre che Spaziometria faccia qualche errore.
Grazie a presto.
Sub Main
Dim ruota(1),pt(4),ruote(2),a1(4),a2(4),a3(4),a4(4),a5(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
For es = ini...
Marco-elle ho dato un'occhiata al tuo script dal titolo:
AMBI ZERATI SORTITI SU BARI
GIOCA 1 AMBATA + 4 AMBI SU BARI
METODO E LIST BY Marco"
Ho fatto una prova manuale sul metodo con L8+. E' molto efficace con gli zerati in posizione isotopa. Prova ad adattare il tuo script al quadro...
Buonasera ragazzi.
Un nuovo script su Torino.
Sub Main
Dim ruota(1),pt(2),ruote(5),a1(2),a2(4)
pt(1) = 1
pt(2) = 1
clp = 7
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...
Nuova tecnica, seguitela per vedere se da qualche soddisfazione!
Sub Main
Dim ruota(2),am(3),pt(4),ruote(6),a1(4),a2(4),a3(4),a4(4),a5(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
r = InputBox("scegli ruota?","Metodo e script di Mauro...
Perfetto Marco.
Magnifico algoritmo!
Mi sono permesso di renderlo ancora più redditivo usando il motto "meglio poco ma spesso".
Listato:
Sub Main
Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
pt(1) = 1 'Posta ambata
pt(2) = 1 'Posta ambo
clp = 9 'Numero dei...
Grazie Marco.
Prova questo algoritmo in un ciclo nidificato di for e next ma solo sulla ruota di Bari:
N1(1) = Estratto(es,a,1)
N1(2) = Estratto(es + b,r,1)
N1(3) = Estratto(es - c,r,1)
N1(4) = Estratto(es + d,r,1)
'-----------------------------
N2(1) = Estratto(es,e,2)
N2(2) = Estratto(es +...