Spazio Script in VbNet Per LottoProjectLB

LuigiB · 3 Febbraio 2022

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 · 3 Febbraio 2022

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 · 3 Febbraio 2022

LuigiB ha scritto:
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 · 3 Febbraio 2022

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

fillotto · 3 Febbraio 2022

fuori anche con questa versione, boh
provato più volte

Mike58 · 3 Febbraio 2022

Non saprei intanto salvalo e poi ritenta altre volte.
Io L'ho appena ricopiato e funziona.

Ciao

rudivall · 3 Febbraio 2022

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 · 4 Febbraio 2022

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

Bogotà · 4 Febbraio 2022

Mike58 · 4 Febbraio 2022

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 · 4 Febbraio 2022

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

fillotto · 4 Febbraio 2022

fuori pure qui

Xeroxs · 4 Febbraio 2022

Ciao a Tutti,
Confermo

rudivall · 4 Febbraio 2022

si di nuovo fuori programma

silop2005 · 4 Febbraio 2022

anche a me

Mike58 · 4 Febbraio 2022

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 · 4 Febbraio 2022

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 · 4 Febbraio 2022

Mike58 ha scritto:
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 )

=========================================================

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 :

=====================

Ho w11 sul pc portatile.

======================

Buon venerdì a tutto il forum.

======================

A presto

Silop

Mike58 · 4 Febbraio 2022

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 · 4 Febbraio 2022

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

Spazio Script in VbNet Per LottoProjectLB

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<