Novità

Cerco Listato

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

Codice:
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
 
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 .
 
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.
 
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 ?
 
Cinzia se ritieni che ci sono troppi casi ,se mi posso permettere,vedi con SOLO RUOTE CONSECUTIVE ,se diminuiscono
ma sono sempre esiti vincenti.
 
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.
 
Si potrebbe fare la ricerca solo su ruote diametrali oppure gemelle !
questo comporterebbe meno previsioni.
 
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

Codice:
' 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
 
'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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19

Ultimi Messaggi

Indietro
Alto