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.
Probabilmente era meglio che stavo buono,sicuro ho capito male la discussione.
A suo tempo,l'ideatore di Futuro2 chiese a Mike di creare uno script (questo) per cercare un numero uscito 4/5 volte in 18 estrazioni che servisse da spia da mettere in Futuro2,così che Futuro2 restituisse le migliori...
Se non ricordo male ,MIKE58 lo fece per cercare solo l'ambata da dare in pasto a FUTURO2,(era questo l'argomento di questa discussione)quindi gli abbinamenti di questo script non si tengono conto.
Nulla esclude che si può modificare.
Premetto che è un lavoro del grande MIKE58.
La modifica che chiedi è forse questa? :
Sub Main
' x Batter
Dim T,abb,aN(3),afreq(3),Ru(1),L(4)
fin = InputBox("FINE",,EstrazioneFin)
Ini = fin - 18
fine = EstrazioneFin
Scrivi Ini & vbTab & fin
T =...
Scusate l'introMISSIONE,state forse cercando questo?
Sub Main
' x Batter
Dim T,abb,aN(3),afreq(3),Ru(1),L(4)
Ini = EstrazioneFin - 18
fin = EstrazioneFin
fine = EstrazioneFin
Scrivi Ini & vbTab & fin
T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq...
Ciao...ti metto quello che ho messo qualche post precedente a cui avevo chiesto una modesta modifica e che nessuno si è abbassato a farla!
Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num
Call ImpostaArchivio10ELotto(1)
ini...
Un aiuto per questo semplice script : vorrei che visualizzasse in output , solo le giocate in corso .
GRAZIE!
Sub Main
Dim p1,p2,p3,p4,p5,p6,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num
Call ImpostaArchivio10ELotto(1)
ini = EstrazioneFin - 50
fin = EstrazioneFin...
Stranamente funziona fino al caso 23 ma senza mostrare la lunghetta.....poi dal 24 in su da errore
Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z
Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num
Call...
Se non chiedo troppo....ho provato a mettere scrividistribuzionecasiincorso ma non mi funziona.
Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z
Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num
Call...
Salve....avrei bisogno di una piccola modifica a questo script,in modo che quando si verificano numeri ripetuti nella stessa lunghetta(in questo caso di 10 numeri)non la metta in gioco,neanche che metta in gioco i restanti numeri non ripetuti,e quindi non ne tenga conto neanche il resoconto...
Ciao,grazie ....sono interessanti i tuoi script,ci faccio un po di prove,ma quello che ho messo io sarebbe utile soprattutto x esaminare le formazioni cosi da provare anche lunghette di varie dimensioni..pensavo che uno ai tuoi livelli avrebbe modificato qualche riga x escludere l'ambo.
GRAZIE...
Qualcuno riesce a fare una piccolissima modifica a questo script?
Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE!
Sub Main
Dim idEstr,Ruota
Dim Inizio,Fine
Dim nClasseFrz
Dim id,k
Dim nElemFrz
Dim nQAmbetti
Dim nEstrTot
Dim nFrqMedia
Dim sNomeFrz
Inizio = EstrazioneFin -...
Ti ringrazio x avere pensato a me x una mano.......aimè stavolta è parecchio dura x le mie possibilità.
Inutile dire che che ci ragiono sù lo stesso!:unsure:
Grazie....a me piace provarci sempre,anche quando so già che non sono all' altezza,ho aspettato un po' che qualcuno bravo come te venisse in supporto a Mission ......ma ho voluto dare una mano nel mio piccolo,visto che Mission ha condiviso la sua idea x tutti!
PROVA!!!!!
Sub Main()
'metodo proposto da Antonio :laterali (Cinzia)
Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3)
poste(1) = 1:poste(2) = 1 :poste(3) = 0.50
fin = EstrazioneFin
ini = fin - 27
For es = ini To fin: Messaggio(es)
r = 1
ru(1) = r
nua(1) = Estratto(es,r,1) - 1 : nua(2) =...
Prova:
Sub Main()
'metodo proposto da Antonio :laterali (Cinzia)
Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3)
poste(1) = 1:poste(2) = 1 :poste(3) = 0.50
r = InputBox ("RUOTA",,1)
fin = EstrazioneFin
ini = fin - 27
For es = ini To fin: Messaggio(es)
'r = 1
ru(1) = r
nua(1) = Fuori90...