Cerco Listato

[solare]

si

 

[Serpico 90]

Ciao hai fatto la verifica dell'estrazione n.88 del 24/ 7 =????

 

[Serpico 90]

Mi sembra che ci sia anche Cinzia in Linea
Buon pomeriggio Cinzia
Cortesemente ti posso chiedere un aiuto in riferimento allo script che hai gentilmente fatto per Solare?

 

[Cinzia27]

'Ciao, Serpico.
Posto un listato-test sperando di agevolarvi.
Cos' è in gioco ? Io ho messo le due ambate che danno somma 90.

Per Solare : somma isotopa (Cinzia27)- simulazione giocate
Sub Main()
Dim ru(2),n(2),ps(2)
dr=10' durata
ps(1)=0.85' spesa per ambata
ps(2)=0.15' spesa per ambo
q=20' Ultime 100 estrazioni - cambia 100 se vuoi una quantità diversa
In=1 ' sorte interruzione - 1 ambata/2 ambo
w=CInt(InputBox(" Inserisci la somma che vorresti",,90))
If w="" Then Exit Sub

For es=EstrazioneFin-q To EstrazioneFin
c=0

For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
ru(1)=r
ru(2)=r1
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
s=Fuori90(a+b)
If s=w Then
c=c+1
n(1)=a
n(2)=b
Scrivi FormatSpace(c,4,1)&") "&DataEstrazione(es)&" "&FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "&Format2(a)&" "&SiglaRuota(r1)_
&" "&Format2(b)&" somma "&FormatSpace(s,4,1)
ImpostaGiocata  1,n,ru,ps,dr,1
Gioca es
End If

Next
Next
Next
If c>0 Then Scrivi "   "&String(41,"*")
Next
ScriviResoconto
End Sub

 

[Serpico 90]

Bene Cinzia ,
ora se puoi come seconda opzione metti come numeri fissi il 45 e il 90 e vediamo nelle estrazioni successive alle previsioni cosa esce fuori .

 

[Serpico 90]

Vediamo si il 45 0 il 90 si abbinano ad uno dei due numeri in previsione e nelle due ruote.

 

[Serpico 90]

In sostanza sperando di chiarire meglio
Lo script dopo aver inserito la somma 90 .....nelle estrazioni successive ci deve indicare nelle ruote in previsione
l'uscita del 45 0 del 90 .
2 come seconda opzione la verifica se il 45 0 il 90 si e abbinato con uno dei due numeri (come da te fatto nello script prov che hai inviato)
3 se possibile per il 45 0 il 90 indicare le posizioni determinate dei due numeri che fanno somma 90 (per poter vincere qualcosa in piu) .
In sostanza con le somme 45 0 90 ci dovrebbero essere piu opportunità di gioco e di vincita.

 

[solare]

Serpico90, ottima intuizione
risultati non male......

 

[Cinzia27]

Ragazzi, ci sono troppi casi.

 

[Serpico 90]

Ciao aspettiamo il buon lavoro che certamente farà cortesemente Cinzia e vedremo se e il caso di andare avanti.
Credo che ci sarà il problema su cosa abbinare al 90 e al 45 .......
tu hai in mente qualcosa?
Come avresti giocato i risultati dell primo script ? solo ambate ?

 

[Serpico 90]

Cinzia non ti preoccupare limportante che ci siano gli estratti poi vedremo come ridurre .

 

[Cinzia27]

Giusto, Serpico. Sentiamo Solare cos' avrebbe giocato.

 

[Serpico 90]

Cinzia se ritieni che ci sono troppi casi ,se mi posso permettere,vedi con SOLO RUOTE CONSECUTIVE ,se diminuiscono
ma sono sempre esiti vincenti.

 

[Serpico 90]

Anche se sono poche previsioni ,,,il mio desiderio e quello di indovinare un ambo nelle due ruote con i fissi 45 o 90

 

[Serpico 90]

Aspettiamo ,sempre con la tua cortesia e gentilezza il tuo nuovo script

 

[solare]

Ciao Cinzia27 e serpico90.
Nel richiedere il listato per quanto mi riguarda mi serviva solo per rintracciare le somme isotope, nulla toglie che qualcuno non possa trovare un modo per mettere in gioco le ambate di cui serpico90 ha intuito.
proviamo a vedere se ne esce qualcosa di buono.

 

[solare]

Si potrebbe fare la ricerca solo su ruote diametrali oppure gemelle !
questo comporterebbe meno previsioni.

 

[solare]

a me l'ultimo listato non funziona.

 

[Cinzia27]

Anche se sono poche previsioni ,,,il mio desiderio e quello di indovinare un ambo nelle due ruote con i fissi 45 o 90

Questo dovrebbe fare quanto dici:
Dovresti modulare i parametri
E attivo solo l' ambo . Per considerare anche l'ambata basta togliere apice su 'ps(1)=0.85

' Per Solare : somma isotopa (Cinzia27)- simulazione giocate
Sub Main()
Dim ru(2),n(2),n1(2),n2(2),n3(2),ps(2)
dr=10' durata
'ps(1)=0.85' spesa per ambata ' togli apice se vuoi anche ambata
ps(2)=1' spesa per ambo
q=1000' Ultime 100 estrazioni - cambia 100 se vuoi una quantità diversa
It=2 ' sorte interruzione - 1 ambata/2 ambo
w=CInt(InputBox(" Inserisci la somma che vorresti",,90))
If w="" Then Exit Sub

For es=EstrazioneFin-q To EstrazioneFin
c=0

For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
ru(1)=r
ru(2)=r1
For p=1 To 5
a=Estratto(es,r,p)
If a>0 Then
b=Estratto(es,r1,p)
s=Fuori90(a+b)
If s=w Then
c=c+1
n(1)=a
n(2)=45
n1(1)=a
n1(2)=90

n2(1)=b
n2(2)=45
n3(1)=b
n3(2)=90


Scrivi FormatSpace(c,4,1)&") "&DataEstrazione(es)&" "&FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "&Format2(a)&" "&SiglaRuota(r1)_
&" "&Format2(b)&" somma "&FormatSpace(s,4,1)
Scrivi " Numeri in gioco "&stringanumeri(n)&" "&stringanumeri(n1)&" "&stringanumeri(n2)&" "&stringanumeri(n3)
ImpostaGiocata  1,n,ru,ps,dr,it
ImpostaGiocata  2,n1,ru,ps,dr,it
ImpostaGiocata  3,n2,ru,ps,dr,it
ImpostaGiocata  4,n3,ru,ps,dr,it

For i=1 To 3
For j=2 To 4
ImpostaInterruzioni i,j,2
ImpostaInterruzioni j,i,2
Next
Next
Gioca es
End If
End If

Next
Next
Next

If c>0 Then Scrivi "   "&String(41,"*")
Next
ScriviResoconto
End Sub

 

[Serpico 90]

'In = 1' sorte interruzione - 1 ambata/2 ambo
metti la spunta prima di in e vedi se va
io ci sono riuscito per fortuna ,,smanettando