Novità

Cerco Listato

S

Serpico 90

Advanced Member
Cinzia ,,,,permettimi, SEI MOLTO BRAVA........
Ti chiedo alcune cose tecniche
come si fa ad aumentare i colpi di gioco?
alcune volte appena do l'invio per la ricerca mi spunta tra parentesi (non risponde) aspetto un po e poi riprte va bene cosi??
ora passerò un po di tempo a fare delle verifiche e poi ci rileggiamo
Che dire Grazie a Solare che con la sua richiesta ha permesso di fare nuove ricerche.
GRazie a Cinzia che con la sua bravura e cortesia ha creato uno script che spero ci possa far vincere qualcosa .
buon proseguimento a tutti
Saluti
Serpico
 
C

Cinzia27

Premium Member
Per impostare i colpi di gioco su dr,che è la durata, bisogna sostituire 10 col numeri di colpi che scegli.
dr=10' durata

Ciò che sta dopo l' apostrofo è un commento che serve solo come descrizione.

Anche a me di primo acchito dice che non risponde. Ma poi lo script viene eseguito.
Credo che capiti con gli script pesanti che includono molti casi.
 
C

Cinzia27

Premium Member
Serpico 90 ha scritto:
'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
Clicca per espandere...
Scusa, Serpico,non ho capito cos' hai fatto.
Dovrebbe funzionare così com'è.
Ho corretto una piccola imprecisione stavolta mia



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

For j=1 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
 
S

Serpico 90

Advanced Member
Ciao Cinzia ..
il suggerimento che ho scritto a Solare si riferiva al PRIMO SCRIPT che hai inviato.
ho solo detto di togliere l'apice su questa frase
'In = 1' sorte interruzione - 1 ambata/2 ambo
come ho fatto io ,e lo script ha iniziato a funzionare
Non mi sono permesso di dire altro anche perchè non so fare alcun script.
In ogni caso ti chiedo scusa se ho fatto qualcosa che non dovevo fare.
Come scritto a Solare ho solo smanettato e avuto un po di fortuna ad indovinare a togliere l'apice .
tutto qui.
Questo secondo script che hai inviato sostituisce quello che hai fatto poco fa?????
Saluti
Serpico
 
C

Cinzia27

Premium Member
Ciao, Serpico.
Non voleva essere assolutamente un rimprovero, a te poi che sei così gentile.
E' quel "in" al posto di "it" che non mi suonava.
Ora che mi hai detto che si riferiva all' altro script , ho capito; temevo soltanto che Solare si sbagliasse. Tutto qua.
Anzi, a me fa piacere che possiate personalizzare i miei script.
Come vedi, ho inserito anche dei suggerimenti dopo l' apostrofo.
Si, l' ultimo script sostituisce quello precedente.
Ora lo sto facendo girare perché vorrei confrontare gli esiti delle varie ruote.
A presto
 
C

Cinzia27

Premium Member
Codice: 
+----------------------------------------+
| Prima Giocata      : 5962              |
| Ultima Giocata     : 9962              |
| Range              : 4001              |
| Casi giocab perc.  : 95,751%           |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :            3.831  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :            1.594  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :          41,61 %  | | BA |     |  172|     |     |     | | BA |     | 7,65|     |     |     | | BA | 8816|                       |
| Pronostici totali  :           49.636  | | CA |     |  203|     |     |     | | CA |     | 9,03|     |     |     | | CA | 8988|                       |
| Pronostici vinc.   :            2.246  | | FI |     |  201|     |     |     | | FI |     | 8,94|     |     |     | | FI | 9020|                       |
| Percentuale pos.   :           4,52 %  | | GE |     |  211|     |     |     | | GE |     | 9,38|     |     |     | | GE | 8828|                       |
| Giocate in corso   :              108  | | MI |     |  220|     |     |     | | MI |     | 9,78|     |     |     | | MI | 9000|                       |
| Giocate terminate  :           49.528  | | NA |     |  217|     |     |     | | NA |     | 9,65|     |     |     | | NA | 8788|                       |
| Bollette giocate   :          912.048  | | PA |     |  210|     |     |     | | PA |     | 9,34|     |     |     | | PA | 9044|                       |
| Bollette vincenti  :            2.249  | | RO |     |  241|     |     |     | | RO |     |10,72|     |     |     | | RO | 9544|                       |
| Attesa media       :                5  | | TO |     |  229|     |     |     | | TO |     |10,18|     |     |     | | TO | 8984|                       |
| Spesa              :     912.048,00 €  | | VE |     |  202|     |     |     | | VE |     | 8,98|     |     |     | | VE | 9068|                       |
| Vincita            :     517.270,00 €  | | NZ |     |  143|     |     |     | | NZ |     | 6,36|     |     |     | | NZ | 9192|                       |
| Guadagno           :    -394.778,00 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :        -43,285 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :       4.960,00 €  |   
| Estratto su ruota  :            4.498  |                                                                                                               
| Ambo su ruota      :            2.249  |                                                                                                               
|                                        |                                                                                                               
+----------------------------------------+

Ecco l' esito
 
solare

solare

Advanced Member >PLATINUM<
Vista la tua disponibilità, mi è venuta in mente altra idea, sempre che sia possibile.
Facendo riferimento al primo listato, quindi anzichè inserire una sola somma, si può fare in modo che il listato mi chieda di inserire due somma isotope ? es. chiedo al listato trovami due ambi isotopi con somma 90 e somma 45 !
ricercare solo le situazioni dove c'è la somma 90 e 45 !
 
solare

solare

Advanced Member >PLATINUM<
Chiedo al listato trova due ambi in verticale di somma 20 e somma 41. estrazione del 10/8/21 ruota di bari cagliari abbiamo somma 41 in 4 posizione e somma 20 in 5 posizione.
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ciao Cinzia.

Mi permetto di suggerire che Spaziometria,

ha un efficiente controllo dell' Avanzamento-Elaborazione.

Quindi lo si può sfruttare per monitorare la presenza dei FALSI NON FUNZIONA.

Ini = EstrazioneFin -999
Fin = EstrazioneFin
For Es = Ini to Fin
If ScriptInterrotto Then Exit For
AvanzamentoElab Ini,Fin,Es

'corpo dello script

Next

Così pure If ScriptInterrotto, permette di abilitare il funzionamento del pulsante "STOP"

per interrompere lo script ed uscire durante la sua esecuzione

Così pure da un eventuale "loop" creato per errore "senza fine".

In ultimo l'output di spaziometria è in html.

Se ci sono molte giocate, diventa piuttosto pesante.

Occupa molta memoria e tempo di elaborazione.

Quindi in genere conviene usare Gioca Es,True

che evita di avere in output tutti casi non vincenti.

:)
 
C

Cinzia27

Premium Member
solare ha scritto:
Vista la tua disponibilità, mi è venuta in mente altra idea, sempre che sia possibile.
Facendo riferimento al primo listato, quindi anzichè inserire una sola somma, si può fare in modo che il listato mi chieda di inserire due somma isotope ? es. chiedo al listato trovami due ambi isotopi con somma 90 e somma 45 !
ricercare solo le situazioni dove c'è la somma 90 e 45 !
Clicca per espandere...
Ciao, Solare.
Si può provare. Buona l' idea della doppia condizione 90-45 che tra l' altro sfoltirà i casi.
Una volta che facciamo tutto questo cosa dobbiamo mettere in gioco ?
 
C

Cinzia27

Premium Member
joe ha scritto:
Ciao Cinzia.

Mi permetto di suggerire che Spaziometria,

ha un efficiente controllo dell' Avanzamento-Elaborazione.

Quindi lo si può sfruttare per monitorare la presenza dei FALSI NON FUNZIONA.

Ini = EstrazioneFin -999
Fin = EstrazioneFin
For Es = Ini to Fin
If ScriptInterrotto Then Exit For
AvanzamentoElab Ini,Fin,Es

'corpo dello script

Next

Così pure If ScriptInterrotto, permette di abilitare il funzionamento del pulsante "STOP"

per interrompere lo script ed uscire durante la sua esecuzione

Così pure da un eventuale "loop" creato per errore "senza fine".

In ultimo l'output di spaziometria è in html.

Se ci sono molte giocate, diventa piuttosto pesante.

Occupa molta memoria e tempo di elaborazione.

Quindi in genere conviene usare Gioca Es,True

che evita di avere in output tutti casi non vincenti.

:)
Clicca per espandere...
Ciao, Joe.
Applicherò senz' altro i tuoi ottimi consigli.
:)
 
solare

solare

Advanced Member >PLATINUM<
Quest'ultima mia richiesta della doppia somma se la puoi fare come ricerca delle condizioni in parole povere come hai fatto il primo listato. Poi vedremo come sfruttare la condizione trovata.
 
C

Cinzia27

Premium Member
Eccolo, Solare. Mi raccomando fai qualche controllo.
I casi purtroppo restano tanti.

Codice: 
' Per Solare : somma isotopa 90 e 45 (Cinzia27)
Sub main()
q=100' Ultime 100 estrazioni - cambia 100 se vuoi una quantità diversa

For es=EstrazioneFin-q To EstrazioneFin
c=0
c1=0
cc=0
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
s=Fuori90(a+b)

If s=45  Then c=c+1
If s=90 Then c1=c1+1
Next
Next
next
If c>0 Then
If c1>0 Then
For rr=1 To 10
For rr1=rr+1 To 11
If rr1=11 Then rr1=12
For pp=1 To 5
a1=Estratto(es,rr,pp)
b1=Estratto(es,rr1,pp)
ss=Fuori90(a1+b1)

If ss=45 Or ss=90 Then
cc=cc+1
Scrivi FormatSpace(cc,4,1)&") "&DataEstrazione(es)&" "&formatspace(es,4,1)&" "&siglaruota(rr)&" "&format2(a1)&" "&siglaruota(rr1)_
&" "&format2(b1)&" somma "&formatspace(ss,4,1)


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

End Sub
 
solare

solare

Advanced Member >PLATINUM<
Grazie cinzia27
Forse mi sono espresso male io
ma la somma dei due ambi isotopi in verticale la devo inserire io
come hai fatto col primo listato o il secondo adesso non ricordo.
 
C

Cinzia27

Premium Member
Modificato e migliorato con le aggiunte consigliate da Joe.


Codice: 
' Per Solare : somma isotopa 90 e 45 (Cinzia27)
Sub Main()

q=1000' Ultime 100 estrazioni - cambia 100 se vuoi una quantità diversa

w=CInt(InputBox(" Inserisci la somma che vorresti",,45))
If w="" Then Exit Sub
w1=CInt(InputBox(" Inserisci la somma che vorresti",,90))
If w1="" Then Exit Sub

For es=EstrazioneFin-q To EstrazioneFin
If ScriptInterrotto Then Exit For
AvanzamentoElab EstrazioneFin-q,EstrazioneFin,Es

c=0
c1=0
cc=0
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
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
If s=w1 Then c1=c1+1
Next
Next
Next
If c>0 Then
If c1>0 Then
For rr=1 To 10
For rr1=rr+1 To 11
If rr1=11 Then rr1=12
For pp=1 To 5
a1=Estratto(es,rr,pp)
b1=Estratto(es,rr1,pp)
ss=Fuori90(a1+b1)

If ss=45 Or ss=90 Then
cc=cc+1

Scrivi FormatSpace(cc,4,1)&") "&DataEstrazione(es)&" "&FormatSpace(es,4,1)&" "&SiglaRuota(rr)&" "&Format2(a1)&" "&SiglaRuota(rr1)_
&" "&Format2(b1)&" somma "&FormatSpace(ss,4,1)


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

End Sub
 
C

Cinzia27

Premium Member
Hai ragione, l' ho corretto.
Fammi sapere se va.

Codice: 
' Per Solare : somma isotopa 90 e 45 (Cinzia27)
Sub Main()

q=1000' Ultime 100 estrazioni - cambia 100 se vuoi una quantità diversa

w=CInt(InputBox(" Inserisci la somma che vorresti",,45))
If w="" Then Exit Sub
w1=CInt(InputBox(" Inserisci la somma che vorresti",,90))
If w1="" Then Exit Sub

For es=EstrazioneFin-q To EstrazioneFin
If ScriptInterrotto Then Exit For
AvanzamentoElab EstrazioneFin-q,EstrazioneFin,Es

c=0
c1=0
cc=0
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
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
If s=w1 Then c1=c1+1
Next
Next
Next
If c>0 Then
If c1>0 Then
For rr=1 To 10
For rr1=rr+1 To 11
If rr1=11 Then rr1=12
For pp=1 To 5
a1=Estratto(es,rr,pp)
b1=Estratto(es,rr1,pp)
ss=Fuori90(a1+b1)

If ss=w Or ss=w1 Then
cc=cc+1

Scrivi FormatSpace(cc,4,1)&") "&DataEstrazione(es)&" "&FormatSpace(es,4,1)&" "&SiglaRuota(rr)&" "&Format2(a1)&" "&SiglaRuota(rr1)_
&" "&Format2(b1)&" somma "&FormatSpace(ss,4,1)


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

End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto