HELP !!! SCRIPTER..... IL METODO PER VINCERE.

[Imaging]

Serve se possibile il listato......
IL METODO PER VINCERE!
Cari amici, ho fatto una nuova ricerca di un metodo Esito: al 3° colpo ambo secco 8-54 a Milano.
molto semplice ed interessante.
Estrazione del 20 giugno 2015 -
Milano 08-16 .
Vediamo qual è la condizione di gioco idonea:
- individuare in 1ª e 2ª posizione, un ambo in distanza 8;
- la somma dei due numeri ci darà l'ambata;
- i diametrali dei due numeri saranno gli abbinamenti della Previsione: Milano-Venezia ambata 24, ambí secchi terzina (A e B);
-i vertibili di A e B saranno i due abbinamenti principali.
Il gioco si effettuerà sulle ruote diametrali.
Nota: *quando l'ambata ricavata risulta essere presente
nell'estrazione di calcolo, si fare +1 all'ambata stessa.
08+16=24 ambata
08 diametrale 53 /16 diametrale 61
53 vertibile 35/61 vertibile 16
24.35 e 24.16, terzina 24.53.16.
Esito: al 6° colpo ambo 24-53 a Milano
Estrazione del 13 agosto 2015 - Roma 63-71
63+71=44 ambata
63 diametrale 18/71 diametrale 26
18 vertibile 81/26 vertibile 62
Previsione: Firenze-Roma ambata 44, ambo secco 44.81
e 44.62, terzina 44.18.26.
Esito: al 1° colpo TERNO SECCO 44.18.26 a Firenze!
Estrazione del 17 agosto 2015 - Firenze 18-26
18+26=44 ambata
18 diametrale 63/26 diametrale 71
63 vertibile 36/71 vertibile 17
Previsione: Firenze-Roma ambata 44, ambi secchi 44.36
e 44.17, terzina 44.63.71.
Esito: al 4° colpo ambo secco 44.36 a Roma.
In data 25 agosto, con l'ambo 63-71 su Genova, si è
generata questa previsione":
Esempi di gioco: estrazione del 28 aprile 2015
Cagliari 47-55 (distanza 8)
47+55=12 ambata
47 diametrale 02 e 55 diametrale 10
Vertibile di 02 = 20 / Vertibile di 10 = 01
Previsione: Cagliari-Palermo ambata 12, ambi secchi
12.20 e 12.01, terzina per ambo e terno 12.2.10.
Esito: al 7° colpo ambo secco 12-20 a Cagliari.
Estrazione del 30 maggio 2015 - Milano 58-50
58+50=18 ambata
58 diametrale 13/50 diametrale 05
13 vertibile 31/ 05 vertibile 50
Previsione: Milano-Venezia ambata 18, ambi secchi
18.31 e 18.50, terzina per ambo e terno 18.13.05.
Esito: al 2° colpo ambo in terzina 18.13 a Venezia.
Estrazione del 9 giugno 2015 - Bari 5-13
05+13=18 ambata
05 diametrale 50/13 diametrale 58
50 vertibile 05/58 vertibile 85
Previsione: Bari-Napoli ambata 18, ambi secchi 18.05 e
18.85, terzina 18.50.58.
Esito: al 1° colpo ambo secco 18.85 a Bari
Estrazione del 9 giugno 2015 - Milano 8-90
08+90=08 ambata
08 diametrale 53/90 diametrale 45
53 vertibile 35/45 vertibile 54
Previsione: Milano-Venezia ambata 08, ambi secchi
GENOVA-TORINO ambata 45
ambi secchi 45-81 e 45-62
per ambo e terno 45-18-26

Ringrazio tutti i partecipanti GRAZIE.

 

[virtualhuman]

Sub Main()
Dim ruote(12)

Dim numeri1(10)
Dim numeri2(10)
Dim poste(1)
poste(1) = 1



For es = EstrazioneFin - 50 To EstrazioneFin
Messaggio es
For r = 1 To 10

a = Estratto(es,r,1)
b = Estratto(es,r,2)

dist = Distanza(a,b)
If dist = 8 Then

n1 = Fuori90(a + b)
n2 = Diametrale(a)
n3 = Diametrale(b)
n4 = Vert(n2)
n5 = Vert(n3)

Scrivi String(32,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " / " & StringaEstratti(es,r)
Scrivi "estratti = " & Format2(a) & "--" & Format2(b) & "-- dist. = " & Format2(dist)
ruote(1) = r
ruote(2) = r + 5

numeri1(1) = n1
numeri1(2) = n2
numeri1(3) = n3
ImpostaGiocata 1,numeri1,ruote,poste,9

numeri2(1) = n1
numeri2(2) = n4
numeri2(3) = n5
ImpostaGiocata 2,numeri2,ruote,poste,9



Gioca es,True
End If
Next
Next
End Sub

 

[virtualhuman]

Imaging ,quando incolli lo script in spaziometria Format2(dist) va scritto dopo la & che lo precede e quindi sullo stesso rigo....purtroppo inviando il messaggio e' andato a finire nella riga successiva!

 

[virtualhuman]

scusa Imaging ho visto solo adesso la tua nota :
Nota: *quando l'ambata ricavata risulta essere presente
nell'estrazione di calcolo, si fare +1 all'ambata stessa.


lo script corretto :


Sub Main()
Dim ruote(12)

Dim numeri1(10)
Dim numeri2(10)
Dim poste(1)
poste(1) = 1



For es = EstrazioneFin - 350 To EstrazioneFin
Messaggio es
For r = 1 To 10

a = Estratto(es,r,1)
b = Estratto(es,r,2)

dist = Distanza(a,b)
If dist = 8 Then

n1 = Fuori90(a + b)
po = Posizione(es,r,n1)
If po > 1 Then n1 = (n1 + 1)
n2 = Diametrale(a)
n3 = Diametrale(b)
n4 = Vert(n2)
n5 = Vert(n3)

Scrivi String(32,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " / " & StringaEstratti(es,r)
Scrivi "estratti = " & Format2(a) & "--" & Format2(b) & "-- dist. = " & Format2(dist)
ruote(1) = r
ruote(2) = r + 5

numeri1(1) = n1
numeri1(2) = n2
numeri1(3) = n3
ImpostaGiocata 1,numeri1,ruote,poste,9

numeri2(1) = n1
numeri2(2) = n4
numeri2(3) = n5
ImpostaGiocata 2,numeri2,ruote,poste,9



Gioca es,True
End If
Next
Next
End Sub

 

[virtualhuman]

ti suggerisco inoltre di sostituire ruote(2) = r + 5 con
ruote(2) = RuotaDiametrale(r)

purtroppo nella fretta non mi ero accorta dell'errore

 

[Imaging]

Ringrazio
camy64 .

 

[Imaging]

ti suggerisco inoltre di sostituire ruote(2) = r + 5 con
ruote(2) = RuotaDiametrale(r)

purtroppo nella fretta non mi ero accorta dell'errore

Grazie per l'impegno nel comporre lo/a script ottimo lavoro non ne capisco di listati sia chiaro...ma la giocata è di Estratto ambo e terzina .....non due terzine per estratto allego l'ultima previsione
Comunque bravo, Se ricordo bene Ambata 48. Ambi 48.82 e 48.2 terzina A. e T. 48.28.20. si può migliorare grazie per l'impegno.

 

[virtualhuman]

Sub Main()
Dim ruote(12)

Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)

Dim poste(2)
poste(1) = 1
poste(2) = 1



For es = EstrazioneFin - 350 To EstrazioneFin
Messaggio es
For r = 1 To 10

a = Estratto(es,r,1)
b = Estratto(es,r,2)

dist = Distanza(a,b)
If dist = 8 Then

n1 = Fuori90(a + b)
po = Posizione(es,r,n1)
If po > 1 Then n1 = (n1 + 1)
n2 = Diametrale(a)
n3 = Diametrale(b)
n4 = Vert(n2)
n5 = Vert(n3)

Scrivi String(32,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " / " & StringaEstratti(es,r)
Scrivi "estratti = " & Format2(a) & "--" & Format2(b) & "-- dist. = " & Format2(dist)
ruote(1) = r
ruote(2) = RuotaDiametrale(r)

numeri1(1) = n1
ImpostaGiocata 1,numeri1,ruote,poste,9

numeri2(1) = n1
numeri2(2) = n2
ImpostaGiocata 2,numeri2,ruote,poste,9

numeri3(1) = n1
numeri3(2) = n3
ImpostaGiocata 3,numeri3,ruote,poste,9

numeri4(1) = n1
numeri4(2) = n4
numeri4(3) = n5
ImpostaGiocata 4,numeri4,ruote,poste,9

Gioca es,True
End If
Next
Next
End Sub

 

[Imaging]

Chiedo scusa nel copiare le istruzioni avevo già copiato qualche cosa di diverso ecco rimetto la giusta descrizione !!!
IL METODO PER VINCERE!
Cari amici , un metodo molto semplice ed interessante sotto l'aspetto vincite. Vediamo qual è la condizione di gioco idonea:
- individuare in 1ª e 2ª posizione, un ambo in distanza 8;
- la somma dei due numeri ci darà l'ambata;
- i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B);
-i vertibili di A e B saranno i due abbinamenti principali.
Il gioco si effettuerà sulle ruote diametrali.
Nota: *quando l'ambata ricavata risulta essere presente
nell'estrazione di calcolo, fare +1 all'ambata stessa.
Esempi di gioco: estrazione del 28 aprile 2015
Cagliari 47-55 (distanza 8)
47+55=12 ambata
47 diametrale 02 e 55 diametrale 10
Vertibile di 02 = 20 / Vertibile di 10 = 01
Previsione: Cagliari-Palermo ambata 12, ambi secchi
12.20 e 12.01, terzina per ambo e terno 12.2.10.
Esito: al 7° colpo ambo secco 12-20 a Cagliari.
Ottimo intervento se non chiedo troppo ci vuole un piccolo ritocco nel listato mi spiego prendiamo la previsione dell'11/05/2021
Quindi previsione : 48 Estratto senza ambo, 48.82 solo ambo 48.02 solo ambo; poi terzina: 48.28.20 solo ambo e terno.
Genova Torino:
Ambata: 48
Ambi Secchi: 48.82 - 48.02
per Ambo e Terno : 48. 28. 20 -
In Corso e ancora valida per altri 5 colpi.
Grazie per l'impegno ......

 

[gabby]

tt ok non vedo scriviresoconto????

 

[Imaging]

tt ok non vedo scriviresoconto????

Ti chiedo scusa ma è in costruzione il listato se ne sta occupando il grande,

virtualhuman fino a questo momento è l'unico magnifico che sta smanettando....chiaramente ringrazio di quello che sta facendo .​

 

[virtualhuman]

Sub Main()
Dim ruote(12)

Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)

Dim poste(2)
poste(1) = 1
poste(2) = 1



For es = EstrazioneFin - 10 To EstrazioneFin
Messaggio es
For r = 1 To 10

a = Estratto(es,r,1)
b = Estratto(es,r,2)

dist = Distanza(a,b)
If dist = 8 Then

n1 = Fuori90(a + b)
po = Posizione(es,r,n1)
If po > 1 Then n1 = (n1 + 1)
n2 = Diametrale(a)
n3 = Diametrale(b)
n4 = Vert(n2)
n5 = Vert(n3)

Scrivi String(32,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " / " & StringaEstratti(es,r)
Scrivi "estratti = " & Format2(a) & "--" & Format2(b) & "-- dist. = " & Format2(dist)
ruote(1) = r
ruote(2) = RuotaDiametrale(r)

numeri1(1) = n1
ImpostaGiocata 1,numeri1,ruote,poste,9

numeri2(1) = n1
numeri2(2) = n4
ImpostaGiocata 2,numeri2,ruote,poste,9

numeri3(1) = n1
numeri3(2) = n5
ImpostaGiocata 3,numeri3,ruote,poste,9

numeri4(1) = n1
numeri4(2) = n2
numeri4(3) = n3
ImpostaGiocata 4,numeri4,ruote,poste,9

Gioca es,True
End If
Next
Next
ScriviResoconto
End Sub



scusate il ritardo ! ho letto solo ora!
p.s. grazie per il complimento,ma sono soltanto una casalinga alle prime armi con gli script !

 

[Imaging]

Sub Main()
Dim ruote(12)

Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)

Dim poste(2)
poste(1) = 1
poste(2) = 1



For es = EstrazioneFin - 10 To EstrazioneFin
Messaggio es
For r = 1 To 10

a = Estratto(es,r,1)
b = Estratto(es,r,2)

dist = Distanza(a,b)
If dist = 8 Then

n1 = Fuori90(a + b)
po = Posizione(es,r,n1)
If po > 1 Then n1 = (n1 + 1)
n2 = Diametrale(a)
n3 = Diametrale(b)
n4 = Vert(n2)
n5 = Vert(n3)

Scrivi String(32,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " / " & StringaEstratti(es,r)
Scrivi "estratti = " & Format2(a) & "--" & Format2(b) & "-- dist. = " & Format2(dist)
ruote(1) = r
ruote(2) = RuotaDiametrale(r)

numeri1(1) = n1
ImpostaGiocata 1,numeri1,ruote,poste,9

numeri2(1) = n1
numeri2(2) = n4
ImpostaGiocata 2,numeri2,ruote,poste,9

numeri3(1) = n1
numeri3(2) = n5
ImpostaGiocata 3,numeri3,ruote,poste,9

numeri4(1) = n1
numeri4(2) = n2
numeri4(3) = n3
ImpostaGiocata 4,numeri4,ruote,poste,9

Gioca es,True
End If
Next
Next
ScriviResoconto
End Sub



scusate il ritardo ! ho letto solo ora!
p.s. grazie per il complimento,ma sono soltanto una casalinga alle prime armi con gli script !

OK . Brava anzi bravissima già per la composizione va bene benissimo i calcoli sono tutti giusto solo se possibile Estratto (senza x ambo) poi gli ambi secchi solo ambo (senza x estratto) mentre la terzina x ambo e Terno (senza estratto).grazie tatissimo.

 

[virtualhuman]

OK . Brava anzi bravissima già per la composizione va bene benissimo i calcoli sono tutti giusto solo se possibile Estratto (senza x ambo) poi gli ambi secchi solo ambo (senza x estratto) mentre la terzina x ambo e Terno (senza estratto).grazie tatissimo.

Mi spiace qui non so aiutarti! forse bisognerebbe cambiare le poste in gioco....spero che qualche scripter possa chiarire il procedimento!

 

[Imaging]

Mi spiace qui non so aiutarti! forse bisognerebbe cambiare le poste in gioco....spero che qualche scripter possa chiarire il procedimento!

OK !!! grande basta ringraziarti va bene anche cosi possibilmente ci rifaremo sul prossimo metodo grazie alla prossima.

 

[Cinzia27]

Ciao, Imaging.
Ho fatto una piccola modifica allo script di Virtualhuman, alla quale rivolgo i miei complimenti.
Spero di non aver fatto errori.

Sub Main()
Dim ruote(2)

Dim numeri1(1)
Dim numeri2(2)
Dim numeri3(2)
Dim numeri4(3)

Dim post(1)' posta ambata

Dim poste(2)' posta ambi

Dim poste1(3)' posta ambo e terno

post(1) = 1

poste(2) = 1

poste1(2) = 1
poste1(3) = 0.50


For es = EstrazioneFin - 960 To EstrazioneFin
Messaggio es
For r = 1 To 10

a = Estratto(es,r,1)
b = Estratto(es,r,2)

dist = Distanza(a,b)
If dist = 8 Then

n1 = Fuori90(a + b)
po = Posizione(es,r,n1)
If po > 1 Then n1 = Fuori90((n1 + 1))
n2 = Diametrale(a)
n3 = Diametrale(b)
n4 = Vert(n2)
n5 = Vert(n3)

Scrivi String(32,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " / " & StringaEstratti(es,r)
Scrivi "estratti = " & Format2(a) & "--" & Format2(b) & "-- dist. = " & Format2(dist)
ruote(1) = r
ruote(2) = RuotaDiametrale(r)

numeri1(1) = n1
ImpostaGiocata 1,numeri1,ruote,post,9

numeri2(1) = n1
numeri2(2) = n4
ImpostaGiocata 2,numeri2,ruote,poste,9

numeri3(1) = n1
numeri3(2) = n5
ImpostaGiocata 3,numeri3,ruote,poste,9

numeri4(1) = n1
numeri4(2) = n2
numeri4(3) = n3
ImpostaGiocata 4,numeri4,ruote,poste1,9

Gioca es',True ' per vedere solo casi positivi togli apice
End If
Next
Next
ScriviResoconto
End Sub

 

[Imaging]

Ciao, Imaging.
Ho fatto una piccola modifica allo script di Virtualhuman, alla quale rivolgo i miei complimenti.
Spero di non aver fatto errori.

Grande Cinzia27 un ottimo listato credo che i conteggi sono esatti rispecchia il metodo perfettamente un buon listato GRAZIE ancora Cinzia27 , sottointeso ringrazio tutti per l'impegno al listato GRAZIE.