Novità

Spazio Script in VbNet Per LottoProjectLB

LuigiB

Premium Member
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)
 

Mike58

Advanced Member >PLATINUM PLUS<
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.
 

Mike58

Advanced Member >PLATINUM PLUS<
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.
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
Non saprei intanto salvalo e poi ritenta altre volte.
Io L'ho appena ricopiato e funziona.

Ciao
 

rudivall

Advanced Member >PLATINUM<
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.
 

fillotto

Advanced Member >PLATINUM<
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:

Mike58

Advanced Member >PLATINUM PLUS<
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.
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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 )
 

ciccio68av

Advanced Member >GOLD<
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
 

silop2005

Advanced Member >PLATINUM<
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 ;) ;) ;)
 

Mike58

Advanced Member >PLATINUM PLUS<
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.
 

Mike58

Advanced Member >PLATINUM PLUS<
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
    sabato 13 agosto 2022
    Bari
    73
    15
    19
    88
    47
    Cagliari
    05
    35
    26
    64
    33
    Firenze
    81
    58
    57
    13
    27
    Genova
    62
    54
    33
    70
    76
    Milano
    65
    20
    01
    44
    87
    Napoli
    48
    10
    76
    75
    04
    Palermo
    84
    70
    42
    87
    03
    Roma
    04
    32
    07
    18
    02
    Torino
    57
    43
    72
    36
    88
    Venezia
    57
    28
    70
    04
    71
    Nazionale
    61
    16
    82
    79
    06
    Estrazione Simbolotto
    Nazionale
    17
    41
    29
    05
    13

Ultimi Messaggi

Alto