PER MIKE58

[trivellatomariotretre33]

SCUSA MIKE58 SE PUOI AIUTARMI ANCHE SE NON COMPLETAMENTE MI BASTA SOLO A RUOTA O A TUTTE COME MEGLIO RTIENI
LO CHIESTO PIU VOLTE FORSE NON SO ESPRIMERMI MA SOTTO CE LA BOZZA X AMBATA -DEVE FARE FA STESSA COSA X AMBO- E VEDRAI ANCHE TE I RISULTATI FALLO X LA CRISI .


SALVE SE E POSSIBBILE MODIFICARE O PROVARE A REALIZZARE QUESTO SCRIPT
PER RICERCA AMBO ANCHE SOLO PER TUTTE GRAZIE

Sub Main()
Dim som(5,5,90),estr(2,5),Val(5,5,90),amb(90)
Dim r2,es,nmc,perc,ncg,ultest,n,z,nn,s,ru1,l,i,ru2,tro vato,j,Valido,m,k2,k3,k,nv,zz
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-12):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,90)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)
ultest = 8014 ' inserite qui il numero indice dell'ultima estrazione
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensile = eval(es) And(eval(es) > 0)) Or((IndiceMensile(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
ColoreTesto(1)
Scrivi s,1
ColoreTesto(2)
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin) & " Ruota di Gioco " & NomeRuota(r2),1
Scrivi
ColoreTesto(0)
For ru1 = 1 To 12
If ru1 <> 11 Then
For ru2 = ru1 To 12
If ru2 <> 11 Then
Messaggio " Elaboro la ruota n° " & CInt(ru1) & " con la n° " & CInt(ru2)
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
Valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensile(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
For l = 1 To 5
k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(SiglaRuota(ru1),8) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(SiglaRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + "............... su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then
s = s + " in corso"
ColoreTesto(1)
Else
ColoreTesto(0)
s = s + " già uscito"
End If
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
End If
Next
End If
Next
End Sub

 

[Mike58]

Ciao Trivellato, avevo letto la tua richiesta e se non sono intervenuto è perché non trovavo nessun modo per modificare la ricerca x ambo.
Lo script cerca 2 estratti per ruota addizionato ad un numero sommativo e forma un Numero Calcolato, ora la ricerca per ambo è complessa e secondo me anche poco attendibile.

Gli algoritmi trovati come una manna sono sempre lo specchio del passato e sono frutto della ricerca del computer e non è detto che sono i numeri che devono uscire nel futuro.

Infatti se ad una data estrazione prendi i numeri elaborati e li confronti con delle estrazioni successivi ti accorgerai che i dati sono cambiati e quindi ex novo pronti e vincenti.

Purtroppo siamo lontani dal vero.

E' comunque un appiglio per giocare dei numeri con un certo senso ma il tutto con la dovuta moderazione e consapevolezza.

Poi mettere le mani a script altri e datati dal tempo è ancora + complicato in quanto prima bisogna capire i codici usati e poi il ragionamento adottato.

Ciao spero che capisci il tutto.

 

[trivellatomariotretre33]

Ciao Trivellato, avevo letto la tua richiesta e se non sono intervenuto è perché non trovavo nessun modo per modificare la ricerca x ambo.
Lo script cerca 2 estratti per ruota addizionato ad un numero sommativo e forma un Numero Calcolato, ora la ricerca per ambo è complessa e secondo me anche poco attendibile.

Gli algoritmi trovati come una manna sono sempre lo specchio del passato e sono frutto della ricerca del computer e non è detto che sono i numeri che devono uscire nel futuro.

Infatti se ad una data estrazione prendi i numeri elaborati e li confronti con delle estrazioni successivi ti accorgerai che i dati sono cambiati e quindi ex novo pronti e vincenti.

Purtroppo siamo lontani dal vero.

E' comunque un appiglio per giocare dei numeri con un certo senso ma il tutto con la dovuta moderazione e consapevolezza.

Poi mettere le mani a script altri e datati dal tempo è ancora + complicato in quanto prima bisogna capire i codici usati e poi il ragionamento adottato.

Ciao spero che capisci il tutto.

grazie mike58 per la tua risposta
o capito la trascina del concerto ed e vero
ti raccomando se ci saranno fac simili tienimi a conoscenza grazie mike58 per la tua disponibilita
nel caso ai qualche scipt affidabbile sarei felice se me lo posti grazie di cuore ce crisi e posso scommetere pochi euro grazie

 

[Mike58]

Ciao Trivellato, di metodi fac-simile ne ho creato qualcuno con il mio stile in tabella e ti assicuro che li ho lasciati perdere anche perché per avere delle risultanze valide bisogna elaborare parecchi numeri e poi la scelta rimane comunque a noi e purtroppo nella scrematura si rischia di fare la solita scelta sbagliata.

quindi è inutile che posto qualcosa che poi non serve o che per me è valido e per altri NO !!!

Peccato perché di un metodo che ti ho postato ha fatto un TERNO in sestina che paga sempre 212 vlt la posta.

Crisi eccome se si sente !!!


Ciao

 

[trivellatomariotretre33]

Ciao Trivellato, di metodi fac-simile ne ho creato qualcuno con il mio stile in tabella e ti assicuro che li ho lasciati perdere anche perché per avere delle risultanze valide bisogna elaborare parecchi numeri e poi la scelta rimane comunque a noi e purtroppo nella scrematura si rischia di fare la solita scelta sbagliata.

quindi è inutile che posto qualcosa che poi non serve o che per me è valido e per altri NO !!!

Peccato perché di un metodo che ti ho postato ha fatto un TERNO in sestina che paga sempre 212 vlt la posta.

Crisi eccome se si sente !!!


Ciao

GRAZIE MIKE58 X TUTTO CIO CHE FAI X ME E TANTI COME ME
SE ME LA PUOI RIPOSTARE LA TABELLA DELLA VINCITA TI RINGRAZIO DI CUORE
MIKE58 O AVUTO PROBLEMI COL PC NON SI AVVIAVA PIU E IN RIPARAZIONE MI ANNO CAMBIATO L'ARDISK O PERSO TUTTI GLI SCRIPT E CIO CHE AVEVO ANCORA GRAZIE MIKE58 TI INVIO UNA STRETTA DI MANO CHILOMETRICA CIAO.