per Joe se puoi modificare questo tuo script

[ppaaoolloo]

ciao Joe
questo che riporto sotto è un tuo script "15 numeri per terno",
leggermente modificato dal grande Mike e qualche numero l'ho cambiato anch'io,
ti chiedo se ti è possibile portargli delle modifiche.



quello che vorrei è se si può fare:

- la possibilità di poter scegliere la quantità di numeri da poter mettere nella lunghetta,
ad esempio 3 numeri oppure 6 numeri oppure 10 numeri ecc.
a seconda delle mie esigenze

- avere la possibilità di poter scegliere le ruote le varie ruote

- avere la possibilità di poter selezionare per tenere separate le ruote
oppure tenerle unite

- la possibilità di averlo in formato excel per poter incolonnare in modo
crescente e decrescente le varie colonne

spero di non aver fatto confusione e di essere stato abbastanza chiaro nella mia richiesta

ti ringrazio anticipatamente della tua disponibilità e cortesia

fammi sapere

ciao



ecco lo script:

Sub Main()
Dim Ru(1),nu(20)
sorte = CInt(InputBox("SORTE",,3))
Fin = EstrazioneFin
For R = 1 To 12 : Ru(1) = r : min = 1000 : max = 0
For d = 0 To 89
For u = 1 To 15 : nu(u) = Fuori90(1*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin,fin,nu,Ru,1)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,Ru,fin,1,1,,esitoU,,estrattiU,idU)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0


Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
Else
ColoreTesto 0
Scrivi SiglaRuota(R) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0


Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU

End If
'Next
Next
ColoreTesto 0
Scrivi SiglaRuota(R) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(R) & " Max = " & FormatSpace(max,3,1),1,1

Scrivi
Next
End Sub

 

[Joe91]

Ciao ... Paolo.

Si, si può fare ... come sempre.

Quasi sempre, tutto, si può fare.

Ma quello ... in origine ... era uno script d'un paio di linee, nato per uno scopo preciso.

Più che altro, era una demo.

Mettere e togliere ruote / numeri / per uno scopo così preciso

al punto di diventare ... richiesta specifica ... ha poco senso.

Da 10 numeri sono diventati 15 ... diventerebbero 14 o 16 o ...

Inoltre tutto il lavoro necessario, non avvale, a parer mio, la genericità del risultato,

nella relazione della difficoltà di realizzarlo, gestirlo, giocarlo.

Essa, è così generica ... da richiedere ben 15 numeri per ottenere statistiche su

di terno, di tanto in tanto.

relaizzato peraltro, In formazioni, altamente vincolate cabalisticamente.

Per me è no.

Mi spiace, ma, non me la sento di affrontare un lavoro simile ... con tali prospettive.

 

[ppaaoolloo]

ciao Joe
innanzi grazie per avermi riposto,
se credi che non ne valga la pena di farlo
vorrà dire che lo userò ancora così
perchè qualche discreto risultato l'ho
ottenuto

grazie ancora a te e a tutti gli scripter
che frequentano questo forum che ci allietate
con i vostri scripts

ciao