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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto