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

[fillotto]

come da titolo vorrei vedere una tabella così fatta:

Num in esame Rit 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?)

 

[Mike58]

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

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​

 

[fillotto]

Impressionante
.....il tempo di pensarlo

 

[pippopippo]

 

[pippopippo]

Mike script interessante ma ho degli errori sopra riportati

 

[Mike58]

Sicuramente è la versione.
aggiorna alla 1.0.32
il codice è nuovo ed è presente nell'ultima versione.
Scaricate sempre l'aggiornamento

 

[lotto_tom75]

Sicuramente è la versione.
aggiorna alla 1.0.32
il codice è nuovo ed è presente nell'ultima versione.
Scaricate sempre l'aggiornamento

Io ho aggiornato con la 1.0.32 e il relativo nuovo giocolib ma mi da errori bloccanti comunque mike

 

[fillotto]

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.

 

[Mike58]

Io ho aggiornato con la 1.0.32 e il relativo nuovo giocolib ma mi da errori bloccanti comunque mike

Vedi l'allegato 2229508

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.

 

[lotto_tom75]

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...

 

[Mike58]

Prova ad estrarre i file dallo zip in una nuova cartella,avrai fatto qualche pasticcio nella tua cartella.
ciao

 

[lotto_tom75]

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).

 

[Mike58]

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.