Spia Somma 59

[lottomoney]

Buonasera a tutti,
ho trovato molto interessante questa ricerca e chiedo per cortesia se c'è un volontario per la trasformazione in script.
Bisogna trovare su due ruote tra queste: FIRENZE/GENOVA/PALERMO/ROMA/NAZIONALE, in posizione isotopa due numeri
che la loro somma dia 59.
Rilevata questa condizione si può mettere in gioco il numero 5 come ambata capogioco ed i numeri 39,85,27,62 come abbinamenti per ambo, terno e quaterna.
Ringrazio anticipatamente chi desidera impegnarsi.
lottomoney

[Blackmore]

Non mi occupo piu' di VbScript... giusto ogni tanto per pura curiosità
Giudica il metodo tu stesso...
ciao

Codice: Seleziona tutto

Sub main()

'Somma 59 Isotopa su 2 Ruote tra FI-GE-PA-RO-NZ

Dim Ruote(2),Ambata(1),Cinquina(5)
Dim Posta(1),Poste(5)

Posta(1) = 1
Poste(2) = 1
Poste(3) = 1
Poste(4) = 0.50
Poste(5) = 0.50

Colpi = InputBox("Colpi di gioco"," ")

k=0
For es = 8800 To EstrazioneFin
AvanzamentoElab 8800,EstrazioneFin,es

For r1 = 1 To 10
For r2 = 1 To 12

If r1 = FI_ And r2 = GE_ Or r1 = FI_ And r2 = PA_ Or r1 = FI_ And r2 = RO_ Or r1 = FI_ And r2 = NZ_ Or _
r1 = GE_ And r2 = PA_ Or r1 = GE_ And r2 = RO_ Or r1 = GE_ And r2 = NZ_ Or _
r1 = PA_ And r2 = RO_ Or r1 = PA_ And r2 = NZ_ Or _
r1 = RO_ And r2 = NZ_ Then

For p = 1 To 5

a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
somma = a+b
If somma = 59 Then

Ruote(1) = r1
Ruote(2) = r2

k=k+1
Scrivi String(80,"*")&" Caso n° "& Format2(k)
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"   "& Format2(a)&"  Pos. "& p
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"   "& Format2(b)&"  Pos. "& p

Ambata(1) = 5
ImpostaGiocata 1,Ambata,Ruote,Posta,Colpi,1

Cinquina(1) = 5
Cinquina(2) = 27
Cinquina(3) = 39
Cinquina(4) = 62
Cinquina(5) = 85
ImpostaGiocata 2,Cinquina,Ruote,Poste,Colpi,2
Gioca es

End If
Next
End If
Next
Next
Next
ScriviResoconto
End Sub

[lottomoney]

E' fantastico!!!!
Ma non produttivo.
E' possibile restringere il gioco alle sole ruote di MILANO e TORINO? inteso solo come gioco, lasciando inalterate le ruote di ricerca.
Grazie Blackmore.

[Blackmore]

Codice: Seleziona tutto

Sub main()

    'Somma 59 Isotopa su 2 Ruote a scelta

    Dim Ruote(2),Ambata(1),Cinquina(5)
    Dim Posta(1),Poste(5)

    Posta(1) = 1
    Poste(2) = 1
    Poste(3) = 1
    Poste(4) = 0.50
    Poste(5) = 0.50

    r1 = InputBox("Ruota n°1"," ")
    r2 = InputBox("Ruota n°2"," ")
    Colpi = InputBox("Colpi di gioco"," ")

    k=0
    For es = 7500 To EstrazioneFin
    AvanzamentoElab 7500,EstrazioneFin,es

    For p = 1 To 5

    a = Estratto(es,r1,p)
    b = Estratto(es,r2,p)
    somma = a+b
    If somma = 59 Then

    Ruote(1) = r1
    Ruote(2) = r2

    k=k+1
    Scrivi String(80,"*")&" Caso n° "& Format2(k)
    Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"   "& Format2(a)&"  Pos. "& p
    Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"   "& Format2(b)&"  Pos. "& p

    Ambata(1) = 5
    ImpostaGiocata 1,Ambata,Ruote,Posta,Colpi,1

    Cinquina(1) = 5
    Cinquina(2) = 27
    Cinquina(3) = 39
    Cinquina(4) = 62
    Cinquina(5) = 85
    ImpostaGiocata 2,Cinquina,Ruote,Poste,Colpi,2
    Gioca es

    End If
    Next
    Next
    ScriviResoconto
    End Sub

[lottomoney]

Decisamente sei fantastico!!!!

Grazie mille!

[lottomoney]

E' fantastico!!!!
Ma non produttivo.
E' possibile restringere il gioco alle sole ruote di MILANO e TORINO? inteso solo come gioco, lasciando inalterate le ruote di ricerca.
Grazie Blackmore.

L'unica cosa, è che il calcolo lo fà sulle due ruote MI TO, mentre queste due ruote sono da prendere in considerazione per la messa in gioco. Per il calcolo intendevo lasciare le ruote di FIRENZE/GENOVA/PALERMO/ROMA/NAZIONALE.

Sempre se è possibile. GRAZIE

[Blackmore]

Ultima modifica...

se vuoi il mio "parere personale" questo metodo è una cavolata
senza contare che i casi si accavallano... in realtà 5 previsioni positive sono solo una se guardi le date
quindi falsato parecchio
Ciao

Codice: Seleziona tutto

Sub main()

'Somma 59 Isotopa su 2 Ruote tra FI-GE-PA-RO-NZ

Dim Ruote(2),Ambata(1),Cinquina(5)
Dim Posta(1),Poste(5)

Posta(1) = 1
Poste(2) = 1
Poste(3) = 1
Poste(4) = 0.50
Poste(5) = 0.50

Colpi = InputBox("Colpi di gioco"," ")

k=0
For es = 8800 To EstrazioneFin
AvanzamentoElab 8800,EstrazioneFin,es

For r1 = 1 To 10
For r2 = 1 To 12

If r1 = FI_ And r2 = GE_ Or r1 = FI_ And r2 = PA_ Or r1 = FI_ And r2 = RO_ Or r1 = FI_ And r2 = NZ_ Or _
r1 = GE_ And r2 = PA_ Or r1 = GE_ And r2 = RO_ Or r1 = GE_ And r2 = NZ_ Or _
r1 = PA_ And r2 = RO_ Or r1 = PA_ And r2 = NZ_ Or _
r1 = RO_ And r2 = NZ_ Then

For p = 1 To 5

a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
somma = a+b
If somma = 59 Then

Ruote(1) = MI_
Ruote(2) = TO_

k=k+1
Scrivi String(80,"*")&" Caso n° "& Format2(k)
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"   "& Format2(a)&"  Pos. "& p
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"   "& Format2(b)&"  Pos. "& p

Ambata(1) = 5
ImpostaGiocata 1,Ambata,Ruote,Posta,Colpi,1

Cinquina(1) = 5
Cinquina(2) = 27
Cinquina(3) = 39
Cinquina(4) = 62
Cinquina(5) = 85
ImpostaGiocata 2,Cinquina,Ruote,Poste,Colpi,2
Gioca es

End If
Next
End If
Next
Next
Next
ScriviResoconto
End Sub

[lottomoney]

....e secondo il tuo parere non c'è modo di renderlo profittevole?

[Blackmore]

....e secondo il tuo parere non c'è modo di renderlo profittevole?

SI... prenderlo e buttarlo nella spazzatura
Non so dove l'hai trovato, ma i metodi "del web" sono solo "spazzatura"
valgono per un brevissimo tempo, poi "sicuramente" falliscono
è anche per questo che non mi dedico più alle richieste script, se non i rarissimi casi

poi ogniuno puo' pensarla come vuole, ci mancherebbe....

Ciao