Novità

Spazio Script in VbNet Per LottoProjectLB

L

LuigiB

Guest
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 >PLATINUM<
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto