Novità

X Baffo

M

morena59

Junior Member

Mi serve un aiutino,
ho fatto un gran casino e non riesco a mettere l'incremento sull'ambata determinata.
Mi serve che la 1°,2°,3° sono le posizioni principali
mentre la 4°,55° solo per recupero spese
il lista ha 5000 estrazioni di controllo solo x farti vedere il resoconto
dopo puoi mettere quello che vuoi,la cosa importante è che si arrivi a un
utile decoroso.i casi negativi sono anche per le strane condizioni dell'estrazione di calcolo

Sono 2 ore che temto di scrivere sto post,è proprio no schifo sto....
mettilo a posto tu il list,sia con il cod e chi più ne ha più ne metta,
me vien fuori sta strunzata
Codice: 
Sub
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2)[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]posta[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1)[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4)[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]posta
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10[/SIZE]
[SIZE=2]Ini 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 5000[/SIZE]
[SIZE=2]fin 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]co 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Ini [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] fin[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AvanzamentoElab
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Ini,fin,es[/SIZE]
[SIZE=2]a1 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,1,1)[/SIZE]
[SIZE=2]a2 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,1,2)[/SIZE]
[SIZE=2]a3 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,1,3)[/SIZE]
[SIZE=2]a4 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,1,4)[/SIZE]
[SIZE=2]a5 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,1,5)[/SIZE]
[SIZE=2]b1 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,10,1)[/SIZE]
[SIZE=2]b2 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,10,2)[/SIZE]
[SIZE=2]b3 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,10,3)[/SIZE]
[SIZE=2]b4 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,10,4)[/SIZE]
[SIZE=2]b5 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](es,10,5)[/SIZE]
[SIZE=2]a 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](a2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] b3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a4)[/SIZE]
[SIZE=2]b 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](b2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] a3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] b4)[/SIZE]
[SIZE=2]c 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] b)[/SIZE]
[SIZE=2]d 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Distanza[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](a,b)[/SIZE]
[SIZE=2]e 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Vert[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](c)[/SIZE]
[SIZE=2]f 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Vert[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](d)[/SIZE]
[SIZE=2]co 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] co [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] c[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] d[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] e[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] f[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ImpostaGiocata
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]posta[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],12,1[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Gioca
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] es[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi
Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]String[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](65,"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]*[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 2[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] casi trovati : [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] co,1[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]String[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](65,"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] * [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]TestoInBandaPassante
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]*°*°* Cacchiatina by Antelao *°*°* [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",1,3,0[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriviResoconto
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE]


































































































































 
Ultima modifica:
Ci ho provato a formattarlo un pò

ma in spaziometria quando lo lancio si blocca tutto.

ho dovuto fare delle piccole modifiche.....

Non ho capito bene che ti serve,
adesso mi cala la palbebra,
domani vediamo meglio.....

ok ?


Codice: 
Sub Main
    Dim ruote(10)
    Dim posta(1)
    Dim n(4)
    posta(1) = 1
    ruote(1) = 1
    ruote(2) = 10
    ini = EstrazioneFin - 20
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)
        b1 = Estratto(es,10,1)
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        ImpostaGiocata 1,n,ruote,posta,12,1
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Cacchiatina by Antelao *°*°* ",1,3,0
    ScriviResoconto
End Sub
 
Ultima modifica di un moderatore:
Ciao Baffo,
ora il listato è apposto ma non capisco cosa stia succedendo,
Anche questa mattina solo per fare il copia incolla faccio fatica,
mi compaiono delle righe nell'area da copiare boh!!!
Allora, come vedi,anche qui i casi negativi sono esigui,lanciando
il programma a 5000 estrazioni trova solo 32 casi negativi su 3500
che probabilmente sono quei casi che nella previsione calcola solo
una ambata (tipo 28-82-82-28)
Se noti,anche qui la maggioranza dei casi si sfalda nei primissimi colpi
nelle posizioni 1-2-3 e molte volte capita la doppia vincita.
Volevo capire se,giocando in queste posizioni
tenendo presente la 2-4 solo per un misero ritorno spese,
si riesce a ricavare qualcosa
 
Ultima modifica:
Ti ho modificato lo script
ti ho messo la 1°, 2°, 3° posizione principali
e poi la 4° e la 5°posizione secondarie.

Fammi sapere se vuoi modoficare qualcosa.

Codice: 
Sub Main
    Dim ruote(10)
    Dim poste(10)
    Dim n(4)
    poste(6) = 1
    poste(7) = 1
    poste(8) = 1
    poste(9) = 0.5
    poste(10) = 0.5
    ruote(1) = 1
    ruote(2) = 10
    ini = EstrazioneFin - 20' aumenta il numero per analizzare piu estrazioni
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
        b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        Scrivi String(80,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
        Scrivi String(80,"°"),1
        ImpostaGiocata 1,n,ruote,poste,12
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
    ScriviResoconto
End Sub
 
Dove hai applicato gli apici di inutilità funzione è dovuto al fatto che ho provato
un po tutte le vie di calcolo.Cmq fin qui ci sono arrivato anch'io,mi serve un incremento
di giocata estrazione dopo estrazione.Direi di tenere solo la1-2-3-posizione.
Anche se i casi utili diminuiscono....pazienza
 
antelao ha scritto:
Dove hai applicato gli apici di inutilità funzione è dovuto al fatto che ho provato
un po tutte le vie di calcolo.Cmq fin qui ci sono arrivato anch'io,mi serve un incremento
di giocata estrazione dopo estrazione.Direi di tenere solo la1-2-3-posizione.
Anche se i casi utili diminuiscono....pazienza
Clicca per espandere...


Se per incremento di giocata, intendi progressione,

quelle ancora non le so fare, mi incasino.....


così ti gioca solo in 1°, 2° e 3°.


Codice: 
Sub Main
    Dim ruote(10)
    Dim poste(10)
    Dim n(4)
    poste(6) = 1
    poste(7) = 1
    poste(8) = 1
    'poste(9) = 0.5
    'poste(10) = 0.5
    ruote(1) = 1
    ruote(2) = 10
    ini = EstrazioneFin - 20' aumenta il numero per analizzare piu estrazioni
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
        b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        Scrivi String(80,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
        Scrivi String(80,"°"),1
        ImpostaGiocata 1,n,ruote,poste,12
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
    ScriviResoconto
End Sub
 
Così il listato gira ma non riesco a capire se realmente
incrementa a ogni colpo
Codice: 
Sub MainDim ruote(10)
Dim poste2(2)
Dim poste6(6)
Dim poste8(8)
Dim poste10(10)
Dim n(4)
Dim Importi(10,5)
poste6(6) = 2
poste8(8) = 2
poste10(10) = 2




ruote(1) = 1
ruote(2) = 10
Importi(10,1) = 2 'se metto (6,1)dovrebbe riconoscere la prima posizione
Importi(10,2) = 3.5
Importi(10,3) = 6
Importi(10,4) = 10
Importi(10,5) = 18








ini = EstrazioneFin - 50' aumenta il numero per analizzare piu estrazioni
fin = EstrazioneFin
co = 0
For es = Ini To fin
Messaggio es
a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
a2 = Estratto(es,1,2)
a3 = Estratto(es,1,3)
a4 = Estratto(es,1,4)
a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
b2 = Estratto(es,10,2)
b3 = Estratto(es,10,3)
b4 = Estratto(es,10,4)
b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
a = Fuori90(a2 + b3 + a4)
b = Fuori90(b2 + a3 + b4)
c = Fuori90(a + b)
d = Distanza(a,b)
e = Vert(c)
f = Vert(d)
n(1) = c
n(2) = d
n(3) = e
n(4) = f
co = co + 1
ruote(1) = 1
ruote(2) = 10
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
Scrivi String(80,"°"),1
ImpostaGiocata 1,n,ruote,poste6,12,1
ImpostaGiocata 2,n,ruote,poste8,12,1
ImpostaGiocata 3,n,ruote,poste10,12,1
ImpostaProgressione 6,Importi
ImpostaProgressione 8, Importi
ImpostaProgressione 10, Importi






Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
ScriviResoconto 
End Sub
 
Ultima modifica:
Infatti non fa il suo dovere,però se vado per esclusione
facendo girare una singola posizione,il conteggio lo
esegue,Probabilmente basta un piccolo aggiustaggio
Help me! Oramai sono in aceto,meglio fermarsi e
riprendere un altro momento
 
Ultima modifica:
antelao ha scritto:
Infatti non fa il suo dovere,però se vado per esclusione
facendo girare una singola posizione,il conteggio lo
esegue,Probabilmente basta un piccolo aggiustaggio
Help me! Oramai sono in aceto,meglio fermarsi e
riprendere un altro momento
Clicca per espandere...


Ci do un'occhiata.......
 
Adesso dovrebbe andare....

Ma tieni presente che sono
4 estratti da giocare in 3 posizioni
4 x 3 = 12 !!!!
Quindi fatti i conti.......


Codice: 
Sub Main
    Dim ruote(10)
    Dim poste6(6)
    Dim poste8(8)
    Dim poste10(10)
    Dim n(4)
    Dim Importi6(6,5)
    Dim Importi8(8,5)
    Dim Importi10(10,5)
    poste6(6) = 2'posta iniziale
    poste8(8) = 2
    poste10(10) = 2
    ruote(1) = 1
    ruote(2) = 10
    Importi6(6,1) = 2 ' metto (6,1)dovrebbe riconoscere la prima posizione
    Importi6(6,2) = 3.5
    Importi6(6,3) = 6
    Importi6(6,4) = 10
    Importi6(6,5) = 18
    '----------------------------------------------------------------------
    Importi8(8,1) = 2 ' metto (8,1)dovrebbe riconoscere la terza posizione
    Importi8(8,2) = 3.5
    Importi8(8,3) = 6
    Importi8(8,4) = 10
    Importi8(8,5) = 18
    '----------------------------------------------------------------------
    Importi10(10,1) = 2 'metto (10,1)dovrebbe riconoscere la quinta posizione
    Importi10(10,2) = 3.5
    Importi10(10,3) = 6
    Importi10(10,4) = 10
    Importi10(10,5) = 18
    '----------------------------------------------------------------------
    ini = EstrazioneFin - 50' aumenta il numero per analizzare piu estrazioni
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
        b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        Scrivi String(80,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
        Scrivi String(80,"°"),1
        ImpostaGiocata 1,n,ruote,poste6,5,6' ho messo solo 5 colpi
        ImpostaGiocata 2,n,ruote,poste8,5,8
        ImpostaGiocata 3,n,ruote,poste10,5,10
        ImpostaProgressione 1,Importi6
        ImpostaProgressione 2,Importi8
        ImpostaProgressione 3,Importi10
        Scrivi "puntate eseguite " & colpi
        Scrivi " - 1.cl - " & Importi6(6,1) & " euro  x estratto determinato in 1°"' ho messo solo per 5 colpi, anche sotto
        Scrivi " - 2 cl - " & Importi6(6,2) & " euro  x estratto determinato in 1°"
        Scrivi " - 3 cl - " & Importi6(6,3) & " euro  x estratto determinato in 1°"
        Scrivi " - 4 cl - " & Importi6(6,4) & " euro  x estratto determinato in 1°"
        Scrivi " - 5 cl - " & Importi6(6,5) & " euro  x estratto determinato in 1°"
        '--------------------------------------------------------------------------
        Scrivi " - 1.cl - " & Importi8(8,1) & " euro  x estratto determinato in 3°"
        Scrivi " - 2 cl - " & Importi8(8,2) & " euro  x estratto determinato in 3°"
        Scrivi " - 3 cl - " & Importi8(8,3) & " euro  x estratto determinato in 3°"
        Scrivi " - 4 cl - " & Importi8(8,4) & " euro  x estratto determinato in 3°"
        Scrivi " - 5 cl - " & Importi8(8,5) & " euro  x estratto determinato in 3°"
        '--------------------------------------------------------------------------
        Scrivi " - 1.cl - " & Importi10(10,1) & " euro  x estratto determinato in 5°"
        Scrivi " - 2 cl - " & Importi10(10,2) & " euro  x estratto determinato in 5°"
        Scrivi " - 3 cl - " & Importi10(10,3) & " euro  x estratto determinato in 5°"
        Scrivi " - 4 cl - " & Importi10(10,4) & " euro  x estratto determinato in 5°"
        Scrivi " - 5 cl - " & Importi10(10,5) & " euro  x estratto determinato in 5°"
        '--------------------------------------------------------------------------
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
    ScriviResoconto
End Sub
 
Ok ipotesi scartata!Almenoche non si abbiano convergenze con le ambate calcolate.
In questo caso ho un 1-35 su BA che forse sono buone.
A ogni modo la tua modifica era nei miei pensieri,ora ho capito come fare con
questo tipo di giocata.
Tenkyù Baffone:)
 
Ciao, ci stavo ragionando anche io ma purtroppo devo scappare l'errore evidente è nella impostazione della dim importi dove (10,5) non è corretto deve essere 5,10.
5 sta per sorte giocata e 10 i numeri in gioco e non viceversa.

vi allego lo script modificato al volo.
dove prendere spunto .

[CODESub Main
Dim ruote(10)
Dim postadeterminata(10)
postadeterminata(6) = 1
postadeterminata(8) = 1
postadeterminata(10) = 1
'Dim poste6(6)
'Dim poste8(8)
'Dim poste10(10)
Dim n(4)
Dim Importi(1,5)
ruote(1) = 1
ruote(2) = 10
Importi(1,1) = 1 'se metto (6,1)dovrebbe riconoscere la prima posizione
Importi(1,2) = 2
Importi(1,3) = 3
Importi(1,4) = 4
Importi(1,5) = 5
ini = EstrazioneFin - 50' aumenta il numero per analizzare piu estrazioni
fin = EstrazioneFin
co = 0
For es = Ini To fin
Messaggio es
a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
a2 = Estratto(es,1,2)
a3 = Estratto(es,1,3)
a4 = Estratto(es,1,4)
a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
b2 = Estratto(es,10,2)
b3 = Estratto(es,10,3)
b4 = Estratto(es,10,4)
b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
a = Fuori90(a2 + b3 + a4)
b = Fuori90(b2 + a3 + b4)
c = Fuori90(a + b)
d = Distanza(a,b)
e = Vert(c)
f = Vert(d)
n(1) = c
n(2) = d
n(3) = e
n(4) = f
co = co + 1
ruote(1) = 1
ruote(2) = 10
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
Scrivi String(80,"°"),1
ImpostaGiocata 1,n,ruote,postadeterminata,5,1
'ImpostaGiocata 2,n,ruote,postadeterminata,12,1
'ImpostaGiocata 3,n,ruote,postadeterminata,12,1
ImpostaProgressione 1,Importi
'ImpostaProgressione 8, Importi
'ImpostaProgressione 10, Importi
Gioca es
Scrivi "spesa : " & GetSpesa(True)
Scrivi "Vincita : " & GetVincita(True)
Scrivi "guadagno : " & GetGuadagno(True)
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
ScriviResoconto
End Sub
][/CODE]
 
Grazie Mike,il problema è stato risolto alla grande con l'aiuto di Baffone.
Mi sono salvato lo script in modoche se la prossima volta m'inghippo
su una situazione simile ho il vademecum.
Cmq sei talmente di corsa che nemmeno tu....ci hai azzeccato,il tuo
rivisitamento riporta gli stessi esiti evidenziati all'inizio dell'avventura
 
antelao ha scritto:
Ok ipotesi scartata!Almenoche non si abbiano convergenze con le ambate calcolate.
In questo caso ho un 1-35 su BA che forse sono buone.
A ogni modo la tua modifica era nei miei pensieri,ora ho capito come fare con
questo tipo di giocata.
Tenkyù Baffone:)
Clicca per espandere...

Hehehe, adesso lo capita anchio, per modificarti lo script
mi sono letto lo script che fece il maestro Luigi come esempio....
 
Mike58 ha scritto:
Ciao, ci stavo ragionando anche io ma purtroppo devo scappare l'errore evidente è nella impostazione della dim importi dove (10,5) non è corretto deve essere 5,10.
5 sta per sorte giocata e 10 i numeri in gioco e non viceversa.

vi allego lo script modificato al volo.
dove prendere spunto .
Clicca per espandere...


Non ci posso credere mike, tu sei molto più bravo di me con gli script..

Questo è un pezzo di quello che scrive Luigi :

ImportiProgressione (nSorte,nColpo ) = sorte giocata e colpi di gioco !!! (non numeri in gioco)


Importi(10,5) è giusto perchè la sorte è l'estratto determinato in 5° pos, da giocare x 5 colpi.

Però il tuo script si basa sullo script base di antelao,

l'ultimo che ho fatto io, lo ritengo corretto invece,

o no ?

Sono ancora una schiappa negli script, ma cerco di ragionare piano piano.





 
Ultima modifica di un moderatore:
Cmq Baffo,
ora che si è capito il tutto,l'ultima modifica(quella esatta)
la si può adoperare per incrementre le sorti di ambo,terno,quaterna,cinquina
 
antelao ha scritto:
Grazie Mike,il problema è stato risolto alla grande con l'aiuto di Baffone.
Mi sono salvato lo script in modoche se la prossima volta m'inghippo
su una situazione simile ho il vademecum.
Cmq sei talmente di corsa che nemmeno tu....ci hai azzeccato,il tuo
rivisitamento riporta gli stessi esiti evidenziati all'inizio dell'avventura
Clicca per espandere...


Hehehehe, alla grande.

Però al posto del vademecum
da rivedere all'occasione,
dovresti assorbire i concetti.
Vedrai che dopo è più facile.
Almeno per me funzia così
che mi sembra la via da seguire
senza adarsi a vedere decine di pezzi
di script per vedere come si fa una cosa.
è chiaro che è solo un consiglio...
:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto