Qualquno disponibile a farmi 1 script

[rischio]

Ciao a tutti. Gentilmente avrei bisogno che qualquno mi aiutasse
a fare un script di un metodo che o elaborato e postato. Con qualche previsione a colpo vincente,
perchè voglio capire se è un metodo costante o meno.
Se mi date la vostra disponibilita vi dico come procedre. GRAZIE

 

[Joe91]

Ciao Rischio,

se non è una faccenda troppo complicata ci posso provare.

Metti giù la descrizione e possibilmente un esempio, se è nelle mie possibilità,

ti faccio sapere almeno a grandi linee come ed entro quando lo posso realizzare.

Buona serata a tutte/i.

 

[rischio]

Dopo tutto cio' metto due nuove previsioni

ve nazz 6-60 17-71 -23-32 68-86
ge mi 3-30-15-51-18-81-36-63

stiamo a vedere cosa succedera':d:d

 

[sospetto]

Ho adattatto un vecchio script, vedi se va bene.


Sub Main()
Dim ruote(10)
Dim ambata1(8)
Dim posta(3)
posta(3) = 1
posta(2) = 1
k = 10
ColoreTesto 1:Scrivi String(43," ") & "METODO DI Rischio SCRIPT BY Sospetto"
casi = 0
ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8600)
ini = ec
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 9
For r1 = r + 1 To r + 1
For p1 = 1 To 4
p2 = p1 + 1
a = Estratto(es,r,p1)
b = Estratto(es,r1,p1)
c = Estratto(es,r,p2)
d = Estratto(es,r1,p2)
e = 0
ok = 0
If Cadenza(c)= Decina(a) Then
ok=Cadenza(c)
End If
If Cadenza(d) = Decina(b) Then
ok=Cadenza(d)
End If
If ok=Cadenza(c) Then
e = Decina(c)
End If
If ok=Cadenza(d) Then
e = Decina(d)
End If
If Decina(b) = Decina(a) Then
If Cadenza(c)=Decina(a) Or Cadenza(d)= Decina(b) Then
casi = casi + 1
ColoreTesto 1
Scrivi
ColoreTesto 1
Scrivi String(95,"*") & " Caso n° " & Format2(casi),1
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a)
Scrivi " " & Format2(e*10+ok)
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,(r1)) & " " & Left(SiglaRuota(r1),3) & " " & Format2(b)
ColoreTesto 0
ruote(1) = r
ruote(2) = r1
n1 = (Decina(a))+(Decina(b))+ok
ambata1(1) = n1
ambata1(2) = Vert(ambata1(1))
ambata1(3) = Cadenza(a)+Cadenza(b)+e
ambata1(4) = Vert(ambata1(3))
ambata1(5) = ambata1(1)+ ambata1(3)
ambata1(6) = Vert(ambata1(5))
ambata1(7) = Fuori90(Figura(n1)*10)+Figura(ambata1(3))
ambata1(8) = Vert(ambata1(7))
rip=0
If NumeriRipetuti(ambata1) Then
rip=1
While NumeriRipetuti(ambata1)
For x=1 To 7
For y=x+1 To 8
If ambata1(x)=ambata1 Then ambata1=Fuori90(ambata1+1)
Next
Next
Wend
End If
ImpostaGiocata 1,ambata1,ruote,posta,k,0

Gioca es
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub

 

[rischio]

Ciao sospetto per la tua disponiibilita' e il tuo lavoro
gentilmente mi aiuti a capire il tutto? Grazie:d

 

[sospetto]

Credo che lo scipt sia fedele al metodo che hai esposto.Le ruote di ricerca sono consecutive, ai numeri uguali viene aggiunto +1 ,quindi son sempre 8 numeri.

 

[rischio]

pensi che il mio metodo e valido o meno perche di scipt ne capisco molto poco

 

[sospetto]

P.S. La ruota nazionale non è considerata.

 

[sospetto]

Credo che 8 numeri su 2 ruote diventa molto imegnativo se supera i 3-4 colpi.

 

[rischio]

sicuramente ai raggione ma dal tuo lavoro cosa evince?
è un metodo secondo te d'abbandonare ? quanti ambi o terni escono fuori dal tuo lavoro?
dal tuo scipt si possono eliminare i vertibili x restringere le giocate?

 

[Joe91]

Ciao, atutte/i.

Vedo con piacere che Sospetto ha già proposto uno script (e per questo ringrazio) che esegue una gran parte di quanto richiesto,

ed apprendo che è anche in grado di modificarlo.

Quindi diventa pressochè inutile replicare un lavoro già fatto e che è comunque difficile ed impegnativo.

Attendo di conoscere le Vs. valutazioni.

Cordiali saluti

 

[sospetto]

Il metodo ha dato ambo per 21 casi su 28 ,75%. Bisognerebbe provare con una progressione nelle puntate per capire la spesa effettiva.
Per quanto riguarda i vertibili si possono togliere ,ma si rinuncerebbe a buona parte dei terni e a diversi ambi.
Il metodo non è da buttare,ma da migliorare e in ogni caso da tenere in considerazione per convergenze.

 

[rischio]

IO ti sono grato e ancora di piu' se riesci a mettere all'impiedi qualcosa che ci possa tornare utile
rimango in attesa di nuovi sviluppi.

 

[rischio]

Ambo a ve primo colpo 60-32 peccato il 68 scende sulla nazz sarebbe stato un bel terno:d