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
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19

Ultimi Messaggi

Indietro
Alto