Novità

Richiesta script sul vb.net ritardo di pos di tutti i num 1/90 su tutte

fillotto

Advanced Member >PLATINUM<
come da titolo vorrei vedere una tabella così fatta:

Num in esameRit su 1° est (tutte)Rit su 2° est (tutte)Rit su 3° est (tutte)Rit su 4° est (tutte)Rit su 5° est (tutte)Ruota + ritar(dei 5)
Il tutto per sfruttareil premio di 5, 5 (lordo) ed eventualmente azzeccare la ruota
oltre che paragonare ritardi e posizioni uguali (ma si può giocare il determinato sulla ruota "TUTTE"? Penso di si , o no?)
 
Ultima modifica:
Ciao Fill studiando un codice ex novo immesso da Luigi negli esempi, ho voluto adattarlo alla tua richiesta (senza la Ruota).
Ma è molto + potente di quello che svolge.
Alla tua domanda si può giocare sul determinato a Tutte , certo che si !!! come si può giocare anche su estratto semplice a Tutte.
e qualcuno può dire estratto semplice a tutte riprendi appena la spesa a meno che non esce doppio o triplo e così guadagni.

bando alle ciance ecco lo script

Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim ItmCol As ClsColonnaSviluppo
        Dim coll As Collection
        Dim ru(1),rit,max,fre,pre,incr,ini,fin,pos(),a  As Integer
        Dim T() As String
        Dim aPos() As Boolean
        ini = 1
        fin = EstrazioniArchivio
        T = {"Combinazione"," Rit Corr "," Rit Max "," IncrMax "," Pos1 "," Pos2 "," Pos3 "," Pos4 "," Pos5 "}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco )
        ru(1) = 12
        coll = SviluppoCombInMemoria( GetNumPerSviluppo(90) ,1,0 )
        For Each ItmCol In coll
            For p  As Integer = 1 To 5
                ReDim aPos(5)
                aPos(p) = True
                a = SerieRitardo (ItmCol.aN ,ru,1,fin ,aPos,,ini )
                ReDim Preserve pos(p)
                pos(p) = a
            Next
            SerieStat (ItmCol.aN,ru,1,rit,max,fre,pre,incr,ini,fin )
            T = { StringaNumeri(ItmCol.aN) ,rit ,max,incr,pos(1),pos(2) ,pos(3),pos(4),pos(5)  }
            Call AddRigaTabella(T)
            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
            For x1 As Integer = 4 To 8
                Call SetColoreCellaRighe((x1),ColoreRosa,ColoreNero)
                If T(1) = T(x1) Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreBianco)
            Next
            'Scrivi ( StringaNumeri ( ItmCol.aN) & vbTab & fre )
        Next
        CreaTabella
    End Sub
End Class



Combinazione
Rit Corr 5​
Rit Max
IncrMax
Pos1
Pos2
Pos3
Pos4
Pos5
27​
13​
17​
0​
30​
14​
14​
13​
18​
80​
8​
16​
0​
10​
21​
13​
8​
24​
61​
7​
22​
0​
13​
14​
19​
8​
7​
70​
6​
15​
0​
6​
12​
13​
11​
10​
53​
6​
15​
0​
17​
10​
12​
10​
6​
 
Sicuramente è la versione.
aggiorna alla 1.0.32
il codice è nuovo ed è presente nell'ultima versione.
Scaricate sempre l'aggiornamento
 
Mike script interessante ma ho degli errori sopra riportati
sicuro che dipende dalla versione a me non succede perchè ho la 32 !
Un modo per utilizzarlo potrebbe essere questo:
Ho messo indietro lo script così " fin = EstrazioniArchivio-10" in modo da controllare le ultime 10 estrazioni la situazione al 7/1/22 era la seguente:
Combinazione
Rit Corr 5​
Rit Max
IncrMax
Pos1
Pos2
Pos3
Pos4
Pos5
85​
10​
19​
0​
14​
23​
12​
10​
23​
86​
7​
13​
0​
12​
16​
16​
7​
18​
l'85 era il num più ritardato su tutte in 2^e 5^ posiz avevano identico ho controllato e ho visto inoltre che la ruota più rit era milano perciò era lecito sperare che la ruota più propabile fosse MI e le posiz. la 2 e la 5 risultato alla 3^ estrazione MI 85 5^ pos.
 
Tom, hai un sacco di errori che non fanno parte dello script (Tipo Sub AbbinamentiFT ... )
Sei sicuro di aver copiato correttamente lo script
Ricopialo avendo cura di cancellare tutto e tutto quello che hai in memoria.

In effetti dopo aver installato la versioen 1.0.32 non mi esegue nemmeno gli altri script... ho prvato a spegnere e riaccendere ma nulla... :( :unsure:
 
Prova ad estrarre i file dallo zip in una nuova cartella,avrai fatto qualche pasticcio nella tua cartella.
ciao

ciao mike ho provato anche così ma purtroppo con la nuova versione 1.0.32 continua a darmi un sacco di errori quando tento di eseguire qualsiasi script... mentre con la "vecchia" 1.0.30 funzionano... (tranne gli ultimi script ovviamente).
 
Qui deve consigliarti e darti le dritte il maestro Luigi.
Ad essere coerente con le informazioni, qualche volta succede anche a me che si chiude lo spazioscript è lancia il visual studio ma poi chiudo il tutto e comunque non succede di frequente.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto