Novità

Spazio Script in VbNet Per LottoProjectLB

scusa mike ma qui perche non hai usato serieStat ? che prende tutti e 3 i valori che ti servono in un colpo solo ?

sf = SerieFrequenza (aNum,Ru,3,Ini,fin)
sp = SeriePresenza (aNum,Ru,3,Ini,fin)
sr = SerieRitardo (aNum,Ru,3,fin,,,Ini)
 
Si !!! Copiato dal forum, è successo anche a me , ma poi ricopiato è andato a buon fine.
Non lo sò perchè succede, infatti è successo altre volte su altri script, ma poi ritentando ritornano a funzionare.
Chiaro ci vuole anche l'ultima versione 1.0.35.
 
scusa mike ma qui perche non hai usato serieStat ? che prende tutti e 3 i valori che ti servono in un colpo solo ?

sf = SerieFrequenza (aNum,Ru,3,Ini,fin)
sp = SeriePresenza (aNum,Ru,3,Ini,fin)
sr = SerieRitardo (aNum,Ru,3,fin,,,Ini)
Certo Luigi , visto che c'ero volevo provare i codici in solitario.
 
Come suggerisce Luigi, usiamo seriestat e magari non va in errore.

Codice:
Class Script
    Sub Main
        Dim aNum(),Ru(1) As Integer
        Dim T(),V() As String
        Dim q,r,k,sf,sr,x ,k1,k2,sp    As Integer
        Dim Ini As Integer = EstrazioniArchivio - 540
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito ,esitoR,aUsciteR()  As String
        Dim rigo As Integer
        Dim pNumOrd() As STRUCT_VALORI_STAT_ESTRATTO
        Dim PNum() As STRUCT_VALORI_STAT_ESTRATTO
        q = 10
        Scrivi (q & " Combinazioni + Frequenti per Ruota sorte Minima Terno " & " **** Tabella By Mike58 ****",1)
        T = {"Ruota",q & " Combinazione + freq"," Q.tà sortiti "," Ultima Sortita "," Seriefrequenza "," SeriePresenza ", " SerieRitardo  ", " Esito al Ritardo "," Data Sortita "}
        Call InitTabella(T,,,90)
        For r = 1 To 11
            Ru(1) = r
            PNum = StatEstratti(Ini,fin,r,,pNumOrd,"Frequenza",-1)
            For k  = 1 To q
                ReDim Preserve aNum (k)
                aNum(k) = pNumOrd(k).Numero
                SerieStat (aNum,Ru,3,sr,,sf,sp,,Ini,fin )
                'sf = SerieFrequenza  (aNum,Ru,3,Ini,fin)
                'sp = SeriePresenza (aNum,Ru,3,Ini,fin)
                'sr = SerieRitardo (aNum,Ru,3,fin,,,Ini)
                If EstrattoFrequenza(aNum(k),r,1,fin,fin) = 1 Then
                    k1 +=1
                End If
                esito = "--"
                If VerificaEsito(aNum ,Ru,1,fin,,,,aUscite) Then
                    For k2 = 0 To aUscite.GetUpperBound(0)
                        If aUscite(k2)  <> "" Then esito = aUscite(k2)
                    Next
                End If
                If VerificaEsito (aNum,Ru,3,fin-sr,,,,aUsciteR) Then
                    For k3 As Integer  = 0 To aUsciteR.GetUpperBound(0)
                        If aUsciteR(k3) <> "" Then esitoR = aUsciteR(k3)
                    Next
                End If
            Next
            V = {NomeRuota(r),StringaNumeri(aNum,,1), NomeSorte(k1,False) ,esito,sf, sp ,sr ,esitoR ,DataEstrazione( fin-sr ) }
            Call AddRigaTabella(V)
            k1 = 0
        Next
        CreaTabella
    End Sub
End Class
 
Non saprei intanto salvalo e poi ritenta altre volte.
Io L'ho appena ricopiato e funziona.

Ciao
 
anche a me Mike58 mi chiude il programma dopo aver lanciato lo script, ho provato a ricopiarlo più volte anche dopo averlo inserito in file di testo e ricopiato...chissà perchè? Gli altri script da te postati vanno tutti bene.
 
ulteriori informazioni questa mattina l'ho fatto girare e invece di sbattermi fuori mi ha riempito di una 15 ina di errorri ho pulito tutto fattp girare i precedenti script e sono OK!!
ho ritentato e questa volta non mi dava errori ma misbatteva fuori-
E' evidente che la 35,solo con i codicidi quest'ultimo script, da fastidio a qualcuno ed ad altri no :unsure:
 
Ultima modifica:
Si !! Rudi e Fill, esiste questo problema.
Stamattina lanciando lo script salvato mi ha buttato fuori per ben 3 volte, poi riaperto ancora il programma e lanciando altri script 2-3 diversi il programma eseguiva gli script correttamente,
Poi ho rilanciato lo script in esame e anche questo ha elaborato velocemente la risultanza. (troppo Veloce ? ).

Non saprei il perchè di questa anomalia, Luigi od Edoardo potranno dirci qualcosa in più o prossimi aggiornamenti magari seguendo il consiglio di Luigi di scampattare in una nuova cartella tutti i file.

Aspettiamo altre info.

Ciao e grazie per l'apprezzamento nel seguirmi.
 
ho cambiato il size di scrittura su entrambi , Titoli e Addrigatabella, riprovate a scaricarlo
Codice:
Class Script
    Sub Main
        Dim aNum(),Ru(1) As Integer
        Dim T(),V() As String
        Dim q,r,k,sf,sr,x ,k1,k2,sp,sff    As Integer
        Dim Ini As Integer = EstrazioniArchivio - 540
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito ,esitoR,aUsciteR()  As String
        Dim rigo As Integer
        Dim pNumOrd() As STRUCT_VALORI_STAT_ESTRATTO
        Dim PNum() As STRUCT_VALORI_STAT_ESTRATTO
        q = 10
        Scrivi (q & " Combinazioni + Frequenti per Ruota sorte Minima Terno " & " **** Tabella By Mike58 ****",1)
        T = {"Ruota",q & " Combinazione + freq"," Q.tà sortiti "," Ultima Sortita "," Seriefrequenza "," SeriePresenza ", " SerieRitardo  ", " Esito al Ritardo "," Data Sortita ","Tipo Esito" }
        Call InitTabella(T,,,90)
        For r = 1 To 11
            Ru(1) = r
            PNum = StatEstratti(Ini,fin,r,,pNumOrd,"Frequenza",-1)
            For k  = 1 To q
                ReDim Preserve aNum (k)
                aNum(k) = pNumOrd(k).Numero
                SerieStat (aNum,Ru,3,sr,,sf,sp,,Ini,fin )
                'sf = SerieFrequenza  (aNum,Ru,3,Ini,fin)
                'sp = SeriePresenza (aNum,Ru,3,Ini,fin)
                'sr = SerieRitardo (aNum,Ru,3,fin,,,Ini)
                If EstrattoFrequenza(aNum(k),r,1,fin,fin) = 1 Then
                    k1 +=1
                End If
                esito = "--"
                If VerificaEsito(aNum ,Ru,1,fin,,,,aUscite) Then
                    For k2 = 0 To aUscite.GetUpperBound(0)
                        If aUscite(k2)  <> "" Then esito = aUscite(k2)
                    Next
                End If
                If VerificaEsito (aNum,Ru,3,fin-sr,,,,aUsciteR) Then
                    For k3 As Integer  = 0 To aUsciteR.GetUpperBound(0)
                        If aUsciteR(k3) <> "" Then esitoR = aUsciteR(k3)
                    Next
                End If
                sff = SerieFrequenza(aNum,Ru,3,fin-sr ,fin-sr)
            Next
            V = {NomeRuota(r),StringaNumeri(aNum,,1), NomeSorte(k1,False) ,esito,sf, sp ,sr ,esitoR ,DataEstrazione( fin-sr ), NomeSorte(sff,False) }
            Call AddRigaTabella(V,,,90)
            k1 = 0
        Next
        Call Scrivi (Space(148) & FormattaSecondi(SecondiTrascorsi))
        CreaTabella
    End Sub
End Class
 
A me no succede sempre, a meno che non togliete il size dal titolo e addrigatabella.
Call InitTabella(T,,,90)
con
Call InitTabella(T)
lo stesso con
Call AddRigaTabella(V,,,90)
con
Call AddRigaTabella(V)

Non c'è altra ragione per cui sbatte fuori, ma succede provate senza il size = 90 .

poi cambiate anche questa riga
sff = SerieFrequenza(aNum,Ru,3,fin-sr,fin-sr )
con
sff = SerieFrequenza(aNum,Ru,1,fin-sr,fin-sr )
 
Ciao a tutti,anche a me si Bloccava e mi cacciava, utilizzo Win7,
poi ho seguito Bogotà ,ho dato compatibillita per win7 ,e non mi caccia ,Tabella super veloce

ps. un GRAZIE a MIKE58 ,Luigib ,Edoardo e ..
che ci mettete a disposizione un GRANDISSIMO PROGRAMMA
 
A me no succede sempre, a meno che non togliete il size dal titolo e addrigatabella.
Call InitTabella(T,,,90)
con
Call InitTabella(T)
lo stesso con
Call AddRigaTabella(V,,,90)
con
Call AddRigaTabella(V)

Non c'è altra ragione per cui sbatte fuori, ma succede provate senza il size = 90 .

poi cambiate anche questa riga
sff = SerieFrequenza(aNum,Ru,3,fin-sr,fin-sr )
con
sff = SerieFrequenza(aNum,Ru,1,fin-sr,fin-sr )
=========================================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.35
======================
Ciao Mike58 ,
======================
ho provato anche con le due modifiche da te consigliate
ma lo stesso mi chiude il programma,
vedi immagine :
=====================
stickman.gif
script1.jpg
=====================
Ho w11 sul pc portatile.
======================
Buon venerdì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Ciao Silop, capisco le stiamo tentando tutte.
Prova il suggerimento di bogotà di dare la compatibilità al sistema operativo.
Anche io l'ho fatto e non mi è andato + in errore.
 
Altro script Ambi su Ruota con Incremento di Ritardo Max superiore a 2000 e con Risultati anche a Ruota tutte .

Codice:
Class Script
    Sub Main
        Dim Nu(2),Ru(1),rtt(1)  As Integer
        Dim x,y,k,r,rit,max,fre,pre,incr,ritT,MaxT,FreT,preT   As Integer
        Dim ini,fin As Integer
        Dim T() ,aUscite(),esito As String
        ini = 1
        fin = EstrazioniArchivio
        T = {"Ambo","Ruota" ,"Rit","Max","fre","Incr","-","Rit_TT ","Max_TT", "freQ TT "," Esito al ritardo TuTTe "}
        Call InitTabella(T)
        For x = 1 To 89
            For y = x + 1 To 90
                For r = 1 To 10
                    Nu(1) = x
                    Nu(2) = y
                    Ru(1) = r
                    rtt(1) = 12
                    SerieStat (Nu,Ru,2,rit,max,fre,pre,incr,ini,fin)
                    If incr > 2000 Then
                        k+=1
                        Call Messaggio(k)
                        Call AvanzamentoElab(x,y,k)
                        SerieStat (Nu,rtt,2,ritT,MaxT,FreT,preT,,ini,fin)
                        If VerificaEsito(Nu,rtt,2,fin-ritT,,,,aUscite) Then
                            For k1 As Integer = 0 To aUscite.getUpperBound(0)
                                If aUscite(k1) <> "" Then esito = aUscite(k1)
                            Next
                        End If
                        T = {StringaNumeri(Nu),NomeRuota(r),rit,max,fre,incr,"-",ritT,MaxT,FreT,esito }
                        Call AddRigaTabella(T)
                    End If
                Next
            Next
        Next
        Scrivi (FormattaSecondi(SecondiTrascorsi))
        CreaTabella
    End Sub
End Class



00:00:33

Ambo
Ruota
Rit 5​
Max
fre
Incr
-
Rit_TT
Max_TT
freQ TT
Esito al ritardo TuTTe
58.80​
Pa​
4594​
686​
18​
3908​
-​
10​
250​
238​
Fi 58.--.--.80.--​
54.82​
Pa​
4552​
1443​
15​
3109​
-​
49​
224​
231​
Ve --.82.--.54.--​
16.42​
Rm​
4330​
730​
20​
3600​
-​
62​
335​
235​
Fi --.--.--.16.42​
6.45​
Ba​
3880​
1161​
10​
2719​
-​
8​
267​
210​
Ca --.06.--.--.45​
12.23​
Ve​
3565​
1114​
14​
2451​
-​
69​
219​
220​
Ba --.23.12.--.--​
3.77​
Fi​
3558​
906​
22​
2652​
-​
34​
208​
205​
Na 03.--.77.--.--​
 

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