Novità

Cerco Listato

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
 
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.
 
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
 
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
 
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
 
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
 
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 !
 
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.
 
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.

:)
 
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 ?
 
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.
:)
 
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.
 
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
 
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.
 
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
 
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 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto