Novità

Proviamo a Testare le funzioni script di spazio Light e chiedere delucidazioni sulle difficoltà riscontrate

Mike58

Advanced Member >PLATINUM PLUS<
Intanto un grazie a luigi per le correzioni dei codici su citati.
metto a disposizione una sorte di verifica giocata algoritmica, con uso di codici PuntiArray e verificaEsito - con resoconto calcolato in manuale.

Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim an(1) , Nu(5) ,Ru(1) As Integer
        'an = {0,61,27,55,10,85,90,79}
        Dim Inizio  As Integer = EstrazioniArchivio -183
        Dim fine As Integer = EstrazioniArchivio
        Dim aUscite () ,esito ,pt ,nn , T() As String
        Dim r ,k1,k2,k3 ,kc  As Integer
        r = 9
        Ru(1) = r
        Scrivi ("Metodo Algoritmo ogni 1^ del Mese Fuori90 ( 2° Estratto di Torino + 3 ) " )
        Dim nColpi , es As Integer
        T = {" Caso n. " ,"  Info data Rilevamento  " ,"  Num In Gioco  ", "  Verifica Esito  ","  Colpo   " , "  Sorte  ", " Estratti Id " ," Data id Verifica ", _
        "  Spesa  ", "  SpesaPr  ","  vincita " ," VincitaPr " , " Utile "," utilrPr  "}
        Call InitTabella(T,ColoreVerde,,80,ColoreBianco)
        For es = Inizio To fine
            If IndiceMensile(es) = 1 Then
                kc +=1
                an(1) = FuoriX (Estratto(es,9,2) + 3,90)
                'esito = "<> --.--.--.--.--"
                If VerificaEsito(an,Ru,1,es,,14,nColpi,aUscite) Then
                    For k As Integer = 0 To aUscite.getupperbound(0)
                        If aUscite(k) <> "" Then esito = aUscite(k)
                    Next
                End If
                '-------------------------------------------------------------
            
                For p As Integer = 1 To 5
                    Nu(p) = Estratto(es+nColpi-1 ,r,p)
                Next
                '-------------------------------------------------------------
                Dim ess As Integer = (es+nColpi)-1
                nn = StringaEstratti(ess ,r)
                pt = PuntiSuArray (Nu  ,an)
                If pt = 1 Then k1 = k1 + 1
                'If pt = 2 Then k2 = k2 + 1
                'If pt = 3 Then k3 = k3 + 1
                'nn = "Nessuna Sortita"
                'If pt > 0 Then
                Dim posta As Integer   = 1
                Dim spesa As Integer   = ( posta ) * nColpi
                Dim spesaPr As Integer
                spesaPr = spesaPr + spesa
                Dim Vincita As Decimal
                Vincita = (11.23 *.92)
                Dim VincitaPr As Decimal
                VincitaPr = VincitaPr + Vincita
                Dim utile As Decimal = Vincita - spesa
                Dim utilePr As Decimal
                utilePr = VincitaPr - spesaPr
                T = {kc,GetInfoEstrazione(es), an(1),esito,nColpi,NomeSorte(pt,False),nn, GetInfoEstrazione(ess) ,spesa ,spesaPr,Vincita,VincitaPr,utile,utilePr   }
                Call AddRigaTabella(T,,,80)
                'Scrivi (es & ")"  & esito   & vbTab & nColpi-1  & vbTab & nn  & vbTab, 0,0)
                'Scrivi ( NomeSorte (pt,False),1,,,ColoreRosso )
            End If
        Next
        'Scrivi ("Punti Estratto...... " & k1)
        'Scrivi ("Punti Ambo.......... " & k2)
        'Scrivi ("Punti Terno......... " & k3)
        CreaTabella()
    End Sub
End Class
 

fillotto

Advanced Member >PLATINUM<
Buona sera Mike, volevo fare una piccola variazione allo script fatto da te nell'ultimo post ho aggiunto una variabile "lui(90)" eun ciclo for " For lui =1 To 90 " al posto del tuo "+3" nell'intento di vedere poi cosa ne usciva fuori perchè pensavo di poter pi scegliere se effettivamente era proprio il 3 o un altro numero ma evidentemente non si può fare così (vedi script di sotto) . Eallora come si dovrebbe fare?
Class Script
Sub Main
'inserire qui il proprio codice...
Dim an(1) , Nu(5) ,Ru(1),lui(90) As Integer
'an = {0,61,27,55,10,85,90,79}
Dim Inizio As Integer = EstrazioniArchivio -183
Dim fine As Integer = EstrazioniArchivio
Dim aUscite () ,esito ,pt ,nn , T() As String
Dim r ,k1,k2,k3 ,kc As Integer
r = 9
Ru(1) = r
Scrivi ("Metodo Algoritmo ogni 1^ del Mese Fuori90 ( 2° Estratto di Torino + 3 ) " )
Dim nColpi , es As Integer
T = {" Caso n. " ," Info data Rilevamento " ," Num In Gioco ", " Verifica Esito "," Colpo " , " Sorte ", " Estratti Id " ," Data id Verifica ", _
" Spesa ", " SpesaPr "," vincita " ," VincitaPr " , " Utile "," utilrPr "}
Call InitTabella(T,ColoreVerde,,80,ColoreBianco)
For es = Inizio To fine
For lui =1 To 90
If IndiceMensile(es) = 1 Then
kc +=1
an(1) = FuoriX (Estratto(es,9,2) + lui),90)
'esito = "<> --.--.--.--.--"
If VerificaEsito(an,Ru,1,es,,14,nColpi,aUscite) Then
For k As Integer = 0 To aUscite.getupperbound(0)
If aUscite(k) <> "" Then esito = aUscite(k)
Next
Next
End If
'-------------------------------------------------------------

For p As Integer = 1 To 5
Nu(p) = Estratto(es+nColpi-1 ,r,p)
Next
'-------------------------------------------------------------
Dim ess As Integer = (es+nColpi)-1
nn = StringaEstratti(ess ,r)
pt = PuntiSuArray (Nu ,an)
If pt = 1 Then k1 = k1 + 1
'If pt = 2 Then k2 = k2 + 1
'If pt = 3 Then k3 = k3 + 1
'nn = "Nessuna Sortita"
'If pt > 0 Then
Dim posta As Integer = 1
Dim spesa As Integer = ( posta ) * nColpi
Dim spesaPr As Integer
spesaPr = spesaPr + spesa
Dim Vincita As Decimal
Vincita = (11.23 *.92)
Dim VincitaPr As Decimal
VincitaPr = VincitaPr + Vincita
Dim utile As Decimal = Vincita - spesa
Dim utilePr As Decimal
utilePr = VincitaPr - spesaPr
T = {kc,GetInfoEstrazione(es), an(1),esito,nColpi,NomeSorte(pt,False),nn, GetInfoEstrazione(ess) ,spesa ,spesaPr,Vincita,VincitaPr,utile,utilePr }
Call AddRigaTabella(T,,,80)
'Scrivi (es & ")" & esito & vbTab & nColpi-1 & vbTab & nn & vbTab, 0,0)
'Scrivi ( NomeSorte (pt,False),1,,,ColoreRosso )
End If
Next
'Scrivi ("Punti Estratto...... " & k1)
'Scrivi ("Punti Ambo.......... " & k2)
'Scrivi ("Punti Terno......... " & k3)
CreaTabella()
End Sub
End Class
 

Mike58

Advanced Member >PLATINUM PLUS<
Fil salvo errori dovrebbe essere cosi.


Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim an(1) , Nu(5) ,Ru(1),lui As Integer
        'an = {0,61,27,55,10,85,90,79}
        Dim Inizio As Integer = EstrazioniArchivio -183
        Dim fine As Integer = EstrazioniArchivio
        Dim aUscite () ,esito ,pt ,nn , T() As String
        Dim r ,k1,k2,k3 ,kc As Integer
        Dim utilePr As Decimal
        Dim Vincita As Decimal
        Dim spesa As Integer
        Dim spesaPr As Integer
        Dim VincitaPr As Decimal
        Dim utile As Decimal
        Dim posta As Integer
        posta = 1
        Dim utprx , vinprx , spprx As Decimal
        r = 9
        Ru(1) = r
        For lui = 1 To 90
            esito = "<> --.--.--.--.--"
            Scrivi ("Metodo Algoritmo ogni 1^ del Mese Fuori90 ( 2° Estratto di Torino  + " & lui & " )" )
            Dim nColpi , es As Integer
            T = {" Caso n. " ," Info data Rilevamento " ," Num In Gioco ", " Verifica Esito "," Colpo " , " Sorte ", " Estratti Id " ," Data id Verifica ", _
            " Spesa ", " SpesaPr "," vincita " ," VincitaPr " , " Utile "," utilrPr "}
            Call InitTabella(T,ColoreVerde,,80,ColoreBianco)
            For es = Inizio To fine
                If IndiceMensile(es) = 1 Then
                    kc +=1
                    an(1) = FuoriX (Estratto(es,9,2 ) + lui ,90)
                    esito = "<> --.--.--.--.--"
                    'vincita = 0
                    If VerificaEsito(an,Ru,1,es,,14,nColpi,aUscite) Then
                        For k As Integer = 0 To aUscite.getupperbound(0)
                            If aUscite(k) <> "" Then esito = aUscite(k)
                            If aUscite(k) = "Estratto" Then k1 = k1 + 1
                            If aUscite(k) <> ""  Then Vincita = (11.23 *.92)
                        Next
                    End If
                    'End If
                    '-------------------------------------------------------------
                    For p As Integer = 1 To 5
                        Nu(p) = Estratto(es+nColpi-1 ,r,p)
                    Next
                    '-------------------------------------------------------------
                    Dim ess As Integer = (es+nColpi)-1
                    nn = StringaEstratti(ess ,r)
                    pt = PuntiSuArray (Nu ,an)
                    If pt = 1 Then k1 = k1 + 1
                    'If pt = 2 Then k2 = k2 + 1
                    'If pt = 3 Then k3 = k3 + 1
                    'nn = "Nessuna Sortita"
                    'If pt > 0 Then
                    spesa = posta  * nColpi
                    spesaPr = spesaPr + spesa
                    VincitaPr = VincitaPr + Vincita
                    utile = Vincita - spesa
                    utilePr = VincitaPr - spesaPr
                    spprx = spesaPr
                    vinprx = VincitaPr
                    utprx = utilePr
                    T = {kc,GetInfoEstrazione(es), an(1),esito,nColpi,NomeSorte(pt,False),nn, GetInfoEstrazione(ess) ,spesa ,spesaPr,Vincita,VincitaPr,utile,utilePr }
                    Call AddRigaTabella(T,,,80)
                End If
            Next
            Scrivi ("Esiti Positivi..... " & k1,1 )
            Scrivi ("Spesa.......... " & spesaPr )
            Scrivi ("Vincita........ " & VincitaPr)
            Scrivi ("Utile.......... " & utilePr)
            k1 = 0
            spprx = 0
            spesa  = 0
            spesaPr = 0
            Vincita = 0
            VincitaPr = 0
            utile = 0
            utilePr = 0
            CreaTabella()
        Next
    End Sub
End Class
 

fillotto

Advanced Member >PLATINUM<
Grazie Mike però ci deve essere un errore con il " 90" viene così:
Metodo Algoritmo ogni 1^ del Mese Fuori90 ( 2° Estratto di Torino + 90 )
Esiti Positivi..... 14
Spesa.......... 14
Vincita........ 144,6424
Utile.......... 130,6424


Caso n.
Info data Rilevamento
Num In Gioco
Verifica Esito
Colpo
Sorte
Estratti Id
Data id Verifica
Spesa
SpesaPr
vincita
VincitaPr
Utile
utilrPr
1247​
9854 - 126 - 01/12/2020​
86​
To --.86.--.--.--​
1​
Estratto​
88.86.63.68.26​
9854 - 126 - 01/12/2020​
1​
1​
10,3316​
10,3316​
9,3316​
9,3316​
1248​
9868 - 1 - 02/01/2021​
66​
To --.66.--.--.--​
1​
Estratto​
78.66.42.82.54​
9868 - 1 - 02/01/2021​
1​
2​
10,3316​
20,6632​
9,3316​
18,6632​
1249​
9881 - 14 - 02/02/2021​
21​
To --.21.--.--.--​
1​
Estratto​
25.21.69.74.46​
9881 - 14 - 02/02/2021​
1​
3​
10,3316​
30,9948​
9,3316​
27,9948​
1250​
9893 - 26 - 02/03/2021​
4​
To --.04.--.--.--​
1​
Estratto​
37.04.33.05.88​
9893 - 26 - 02/03/2021​
1​
4​
10,3316​
41,3264​
9,3316​
37,3264​
1251​
9906 - 39 - 01/04/2021​
78​
To --.78.--.--.--​
1​
Estratto​
09.78.24.53.86​
9906 - 39 - 01/04/2021​
1​
5​
10,3316​
51,6580​
9,3316​
46,6580​
1252​
9919 - 52 - 03/05/2021​
3​
To --.03.--.--.--​
1​
Estratto​
04.03.79.68.51​
9919 - 52 - 03/05/2021​
1​
6​
10,3316​
61,9896​
9,3316​
55,9896​
1253​
9932 - 65 - 01/06/2021​
86​
To --.86.--.--.--​
1​
Estratto​
58.86.12.69.11​
9932 - 65 - 01/06/2021​
1​
7​
10,3316​
72,3212​
9,3316​
65,3212​
1254​
9945 - 78 - 01/07/2021​
42​
To --.42.--.--.--​
1​
Estratto​
84.42.69.34.73​
9945 - 78 - 01/07/2021​
1​
8​
10,3316​
82,6528​
9,3316​
74,6528​
1255​
9959 - 92 - 03/08/2021​
27​
To --.27.--.--.--​
1​
Estratto​
71.27.11.30.42​
9959 - 92 - 03/08/2021​
1​
9​
10,3316​
92,9844​
9,3316​
83,9844​
1256​
9972 - 105 - 02/09/2021​
20​
To --.20.--.--.--​
1​
Estratto​
05.20.08.49.13​
9972 - 105 - 02/09/2021​
1​
10​
10,3316​
103,3160​
9,3316​
93,3160​
1257​
9985 - 118 - 02/10/2021​
57​
To --.57.--.--.--​
1​
Estratto​
78.57.34.17.43​
9985 - 118 - 02/10/2021​
1​
11​
10,3316​
113,6476​
9,3316​
102,6476​
1258​
9998 - 131 - 02/11/2021​
35​
To --.35.--.--.--​
1​
Estratto​
16.35.56.34.75​
9998 - 131 - 02/11/2021​
1​
12​
10,3316​
123,9792​
9,3316​
111,9792​
1259​
10011 - 144 - 02/12/2021​
82​
To --.82.--.--.--​
1​
Estratto​
73.82.60.21.38​
10011 - 144 - 02/12/2021​
1​
13​
10,3316​
134,3108​
9,3316​
121,3108​
1260​
10024 - 1 - 03/01/2022​
70​
To --.70.--.--.--​
1​
Estratto​
64.70.66.75.68​
10024 - 1 - 03/01/2022​
1​
14​
10,3316​
144,6424​
9,3316​
130,6424​

Troppa Grazia!!!!!
 

fillotto

Advanced Member >PLATINUM<
Forse sarebbe da fermarsi , nel ciclo for a 89 perchè è logico che trova se stesso col 90 !Oppure avere una ruota di gioco e una di ricerca o se si vuol fare tutto in una ruota "lui" dovrebbe essere dell'estraz. precedente!
 

Xeroxs

Advanced Member >GOLD<
Buongiorno a Tutti,

Scaricato Ultima Versione, Ringrazio LuigiB Per L'aggiornamento Fatto.

Grazie anche a Mike58 Per i suoi Script, molto utili per capire meglio il VB.Net, anche se serve molto leggere anche le varie funzioni, ma con lo script vedi le sue applicazioni espresse davvero bene.
 

Mike58

Advanced Member >PLATINUM PLUS<
Forse sarebbe da fermarsi , nel ciclo for a 89 perchè è logico che trova se stesso col 90 !Oppure avere una ruota di gioco e una di ricerca o se si vuol fare tutto in una ruota "lui" dovrebbe essere dell'estraz. precedente!
Fil , queste variazioni potete farle anche da voi, il mio scopo e far vedere come applicare i codici e come realizzare progetti in vbnet.
 

Mike58

Advanced Member >PLATINUM PLUS<
Buongiorno a Tutti,

Scaricato Ultima Versione, Ringrazio LuigiB Per L'aggiornamento Fatto.

Grazie anche a Mike58 Per i suoi Script, molto utili per capire meglio il VB.Net, anche se serve molto leggere anche le varie funzioni, ma con lo script vedi le sue applicazioni espresse davvero bene.
Xerox , grazie.
sei uno dei pochi che segue e legge veramente i miei sviluppi e che come me hanno voglia di imparare a sviluppare in vbnet.

Bravo.
 

fillotto

Advanced Member >PLATINUM<
Fil , queste variazioni potete farle anche da voi, il mio scopo e far vedere come applicare i codici e come realizzare progetti in vbnet.
E...si 🥴 mi pare giusto !!! Così ho fatto .
All'ultimo tuo script ho fatto una minima variazione:
da così an(1) = FuoriX (Estratto(es,9,2 ) + lui ,90)
a così an(1) = FuoriX (Estratto(es-1,9,2 ) + lui ,90)
In modo da ottenere la possibilità, qualora lo ritenessi opportuno di giocare con inizio gioco alla prima del mese . I risultati sono più conoscitivi , anche se siamo sempre lì scopriamo con esatteza quello che è successo nelle puntate precedenti ma su quelle future........
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi, mi aiuti a capire.
Mi Ricordo che Per accedere alla funzione GetSPesaVincita bisogna impostare i parametri di
ImpostaGiocata
Gioca
(questo lo inserivo in spaziometria come Output Virtuale in modo da non fare scrivere le giocate )
in questo modo potevo raccogliere la spesa e la vincita e riportarle in una tabella.
Ora metto bVirtuale in gioca non scrive le giocate ma invece scrive la riga
Interrotta per esito verificato
Interrotta per esito verificato
Interrotta per esito verificato
Interrotta per esito verificato
Tempo Di Elaborazione 00:00:01

infoData
Ruote
Ambo_Uguale
Numeri In Gioco
Verifica Esito
Colpo
Spesa
Vincita
9870 - 3 - 07/01/2021​
Ba.Mi​
47.7​
27.54.81.90​
Mi --.90.--.54.27​
4​
12​
749,7​
9871 - 4 - 09/01/2021​
Mi.Rm​
29.68​
25.7.32.90​
--​
13​
64​
749,7​
9871 - 4 - 09/01/2021​
Rm.Ve​
86.68​
55.64.29.90​
--​
13​
116​
749,7​

ecco lo script

Codice:
Class Script
    Sub Main
        Dim Nu(2),aN(2),Num(4),Ru(2) As Integer
        Dim T(),V() , aUscite() , esito As String
        Dim posta(3) As Single
        Dim es , r1 , r2 , p1 , p2 , p3 , p4 ,a,b,c,d ,k,aa,es1,nclp   As  Integer
        Dim spesa , vincita As Decimal
        posta(2) = 1.5
        posta(3) = .5
        Dim Ini As Integer  = 9870
        Dim fin As Integer  = EstrazioniArchivio
        T = {"  infoData  ","  Ruote  ","   Ambo_Uguale   ", "  Numeri In Gioco  ","  Verifica Esito  ", " Colpo "," Spesa " , " Vincita "}
        Call InitTabella(T)
        For es = Ini To fin
            For r1 = 1 To 10
                For r2 = r1 + 1 To 12
                    If r2 = 11 Then r2 = 12
                    For p1 = 1 To 4
                        For p2 = p1 + 1 To 5
                            a = Estratto(es,r1,p1)
                            b = Estratto(es,r1,p2)
                            For p3 = 1 To 4
                                For p4 = p3 + 1 To 5
                                    c = Estratto(es,r2,p3)
                                    d = Estratto(es,r2,p4)
                                    If a = c And b = d Or a = d And b = c Then
                                        k = k + 1
                                        Call Messaggio("Elaboro...... " )
                                        Call AvanzamentoElab(Ini,fin,es)
                                        Nu(1) = a
                                        Nu(2) = b
                                        aN(1) = c
                                        aN(2) = d
                                        Ru(1) = r1
                                        Ru(2) = r2
                                        If Figura(Nu(1)) < 9 Then
                                            aa =(Figura(Nu(1)) & Figura(Nu(2)))
                                            Num(1) = CInt(aa)
                                            Num(2) = FuoriX(Nu(1) + Nu(2),90) : If Num(2) = Num(1) Then Num(2) = Vertibile(Num(1))
                                            Num(3) = FuoriX(Num(1) + Num(2),90)
                                            Num(4) = 90
                                            '---------------------------------------------------------
                                            ImpostaGiocata(1,Num,Ru,posta,,13,2)
                                            Gioca (es+1,True,True,True,False,False)
                                            GetSpesaVincita(spesa,vincita)
                                            '---------------------------------------------------------
                                            esito = " -- "
                                            If VerificaEsito(Num,Ru,2,es+1,,13,nclp,aUscite)
                                                For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                                                    If aUscite(k1) <> "" Then esito = aUscite(k1)
                                                Next
                                            End If
                                            '----------------------------------------------------------
                                            V = {GetInfoEstrazione(es),ArrayRuoteToString (Ru),StringaNumeri(Nu),StringaNumeri (Num), esito ,nclp ,  spesa , vincita }
                                            Call AddRigaTabella(V)
                                        End If
                                    End If
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
        Scrivi ("Tempo Di Elaborazione " & FormattaSecondi(SecondiTrascorsi))
        CreaTabella
        ScriviResoconto
    End Sub
End Class
 
L

LuigiB

Guest
il discorso virtuale non virtuale riguarda solo il conteggi odelle bollette e delel vincite non dovrebbe entrarci niete l'output.
 

Mike58

Advanced Member >PLATINUM PLUS<
Come vedi lo stesso script in spaziometria , utilizzo le funzioni ma non scrivo le giocate .
Cosi riporto i valori spesa e vincite in una tabella

Codice:
Sub Main
'Metodo E.Masi 15.4.2021
   Dim Nu(2),aN(2),Num(4),Ru(2),T,V,posta(3)
   posta(2) = 1.5
   posta(3) = .5
   ResetTimer
   Ini = 9870'EstrazioneFin - 100
   fin = EstrazioneFin
   T = Array(T,"infoData","Ruote","Ambo_Uguale","Numeri_In_Gioco","VerificaEsito","Colpo","TipoEsito","Id_Verifica"," xxx ","Spesa","Vincita","Utile","SpesaPr","VincitaPr","UtilePr")
   Call InitTabella(T,0,,2,5,"Arial Black")
   For es = Ini To fin
      For r1 = 1 To 10
         For r2 = r1 + 1 To 12
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 4
               For p2 = p1 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        c = Estratto(es,r2,p3)
                        d = Estratto(es,r2,p4)
                       ' If a = c Or a = d And p1 <> p3 And p1 <> p4 And p2 <> p3 And p2 <> p4 Then
                           'If b = c Or b = d And p1 <> p3 And p1 <> p4 And p2 <> p3 And p2 <> p4 Then
                           If a = c And b = d Then
                           k = k + 1
                           Call Messaggio("Elaboro...... " & TempoTrascorso)
                              Call AvanzamentoElab(Ini,fin,es)
                              Nu(1) = a
                              Nu(2) = b
                              aN(1) = c
                              aN(2) = d
                              Ru(1) = r1
                              Ru(2) = r2
                              'Num(1) = Distanza(Nu(1),Nu(2))
                              If Figura(Nu(1)) < 9 Then
                              aa =(Figura(Nu(1)) & Figura(Nu(2)))' : If Num(1) > 90 Then Num(1) = Figura(Nu(2)) & Figura(Nu(1))
                              Num(1) = CInt(aa)
                              Num(2) = Fuori90(Nu(1) + Nu(2)) : If Num(2) = Num(1) Then Num(2) = Vert(Num(1))
                              Num(3) = Fuori90(Num(1) + Num(2))
                              Num(4) = 90
                              '-----------------------------------------
                              ImpostaGiocata 1,Num,Ru,posta,20,2
                              Gioca es,,,,,False
                              sp = GetSpesa(True)
                              vin = GetVincita(True)
                              ut = GetGuadagno(True)
                              spPr = GetSpesa(False)
                              vinPr = GetVincita(False)
                              utPr = GetGuadagno(False)
                              '-----------------------------------------
                              Call VerificaEsito(Num,Ru,es + 1,2,20,,esito,clp,es1,id)
                              If esito = "" And clp < 20 Then xxx = " In Corso colpi : " & 20 - clp
                              If esito = "" And clp = 20 Then xxx = " Negativo "
                              If esito <> "" Then xxx = "--"
                              

                              V = Array(V,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),StringaNumeri(Num),es1,clp,esito,GetInfoEstrazione(id),xxx,sp,vin,ut,spPr,VinPr,utPr)
                              Call AddRigaTabella(V)
                              
                              If utPr < 0 Then Call SetColoreCella(15,2,5)
                              For x = 1 To 8
                              If id = fin Then Call SetColoreCella((x),7,5)
                              Next
                            
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "Utile Finale " & UtPr,1
   Call SetTableWidth("100%")
   CreaTabella
   Scrivi "Tempo Di Elaborazione " & TempoTrascorso,1
   ScriviResoconto
End Sub
 
L

LuigiB

Guest
ciao mike prova a sostituire la dll

 

Mike58

Advanced Member >PLATINUM PLUS<
Fatto.
Lo script in questione adesso non riporta più la scritta indesiderata.

Grande... 👍Luigi
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi ho un nuovo quesito.
Ho uno script in vbscript che cerca una coppia di massimo ritardo storico per sorte di estratto.
Lo script in spaziometria impiega con la funzione SerieStoricoTurbo , 13 secondi ad elaborare i dati ( anche con ordinamatrice )
mentre lo stesso script in spaziolight senza ordinamatrice impiega circa 55 secondi.
Non capisco perchè in alcune forma certi sviluppi vbnet sono piu lenti del vbscript.

script spaziometria

Codice:
Sub Main
   Dim Nu(2),Ru(1),Mat(4005,4)
   Ini = 7440'EstrazioneIni
   fin = EstrazioneFin
   ResetTimer
   For r = 1 To 12
      If r = 11 Then r = 12
      For n1 = 1 To 89
         For n2 = n1 + 1 To 90
            Nu(1) = n1 : Nu(2) = n2 : Ru(1) = r
            st = SerieStoricoTurbo(Ini,fin,Nu,Ru,1)
            If st > 110 Then
               k = k + 1
               nn = StringaNumeri(Nu,"-",1)
               data = SerieEstrazioneStorico(Ini,fin,Nu,Ru,1)
               Mat(k,1) = GetInfoEstrazione(data)
               Mat(k,2) = StringaRuote(Ru)
               Mat(k,3) = nn
               Mat(k,4) = st
               Scrivi GetInfoEstrazione(data) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu) & vbTab & st
            End If
         Next
      Next
   Next
   OrdinaMatrice Mat,- 1,4
   Scrivi String(80,"-")
   ScriviMatrice(Mat)
   Scrivi TempoTrascorso
   'Next
End Sub

script vbnet

Codice:
Class Script
    Sub Main
        Dim Nu(2),Ru(1) As Integer
        Dim Ini As Integer = 7440
        Dim fin As Integer = EstrazioniArchivio
        Dim r  as integer
        dim  n1 , n2 , st, k ,p1,p2 as integer
        For r = 1 To 11
            For n1 = 1 To 89
                For n2 = n1 + 1 To 90
                    Nu(1) = n1 : Nu(2) = n2 : Ru(1) = r
                    st = SerieStorico (nu,ru,1,ini,fin)
                    
                    If st > 110 Then
                        k +=1
                        Scrivi (nomeruota(r) & vbTab & StringaNumeri(Nu) & vbTab & st )
                    End If
                Next
            Next
        Next
        scrivi (Formattasecondi (seconditrascorsi))
    End Sub
End Class

grazie se puoi rispondermi
 
L

LuigiB

Guest
spaziometria qando fa le statistiche non si regisstra sempre tutte le uscite cosa che invece fanno le funzioni di questo nuovo programma , forse la lentezza potrbbe dipendere da quello , se cosi dovrei cambviare qualcsa io ..
 
L

LuigiB

Guest
spaziometria qando fa le statistiche non si regisstra sempre tutte le uscite cosa che invece fanno le funzioni di questo nuovo programma , forse la lentezza potrbbe dipendere da quello , se cosi dovrei cambviare qualcsa io ..
invece non è quello .. il merito della velocità è seriestoricoturbo fatta in un linguaggio unmanaged che non è il vb6 ..
 

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
Alto