Novità

Un "Piccolo" aiuto

Xeroxs

Advanced Member >GOLD<
Buongiorno a Tutti,
Vorrei chiedere in Primis a Mike58, ma chi Vuole intervenire e ben apprezzato.

Ho Volutamente modificato uno script di Mike58 per il nuovo programma SpazioLight (VB.NET) sperando in un consenso positivo, in quanto non riuscendo a fare come in spaziometria, ho sfruttato quanto da Lui pubblicato cercando di ottenere qualcosa di Simile utilizzando la funzione Verifica esito impiegando 2 Ruote di Gioco, ma non capisco in cosa sbaglio in quanto ho un esposizione parziale dei dati che vengono riportati solo in parte.

Il mio intento era quello di Verificare con la scelta di un estratto se questo ha avuto esiti su altre due Ruote
in questo esempio ho scelto il 4 di GE alla 10 del mese e Verifico su Torino e Venezia.
Come si vede dalla tabella nella colonna Estratti Id mi riporta solo gli estratti di Torino ma se escono a Venezia dovrebbe scrivere quelli ma non ci sono riuscito in quanto modificando in alcune righe non mi accetta l'unica voce Ruote o aRg in quanto ricevo sempre un errore,


Caso n.
Data Rilevamento
Estratti
Num In Gioco
Verifica esito
Colpo
Sorte
Estratti Id
Data id Verifica
1​
23/01/2021​
22.49.74.62.55​
62​
Negativo​
10​
11.14.51.15.58​
16/02/2021​
2​
23/02/2021​
01.89.70.42.20​
42​
Ve --.--.--.--.42​
1​
62.85.88.40.43​
25/02/2021​
3​
23/03/2021​
75.79.26.42.01​
42​
Negativo​
10​
76.90.41.17.40​
15/04/2021​
4​
22/04/2021​
02.73.76.06.15​
6​
To --.06.--.--.--​
3​
Estratto​
28.06.61.81.54​
29/04/2021​
5​
22/05/2021​
57.83.18.55.62​
55​
To 55.--.--.--.--​
6​
Estratto​
55.42.10.85.11​
05/06/2021​
6​
22/06/2021​
44.41.67.54.77​
54​
Ve --.--.--.--.54​
2​
44.51.36.14.20​
26/06/2021​
7​
22/07/2021​
90.31.20.67.68​
67​
Ve --.67.--.--.--​
1​
61.04.82.65.05​
24/07/2021​
8​
24/08/2021​
82.05.73.15.11​
15​
Ve --.--.--.15.--​
5​
24.21.25.06.67​
04/09/2021​
9​
23/09/2021​
09.41.18.31.54​
31​
To --.--.--.31.--​
1​
Estratto​
03.32.44.31.49​
25/09/2021​
10​
23/10/2021​
56.04.77.17.88​
17​
Ve 17.--.--.--.--​
1​
09.72.18.74.66​
26/10/2021​
11​
23/11/2021​
11.40.36.23.44​
23​
Ve --.--.23.--.--​
9​
12.68.71.85.55​
14/12/2021​
12​
23/12/2021​
33.58.83.44.70​
44​
Ve --.--.--.44.--​
7​
23.82.89.83.74​
08/01/2022​
13​
22/01/2022​
68.32.13.76.03​
76​
Negativo​
1​
88.26.30.13.23​
25/01/2022​
In che modo posso intervenire per avere il giusto esito, premetto che dal 22 aprile 2021 sempre positivo su una delle 2 ruote come si evince dalla colonna Verifica esito.

Questo è lo script VB.NET

Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim an(1) , Nu(5) ,Ru(2) As Integer
        Dim Num As Integer
        Dim Ruote(2),aRg(2) As Integer
        'Dim Inizio  As Integer = EstrazioniArchivio -180
        Dim Inizio  As Integer = 9867 ' ----> 31/12/2020
        Dim fine As Integer = EstrazioniArchivio
        Dim aUscite () ,esito ,pt ,nn , T() As String
        Dim r ,k1,k2,k3 ,kc  As Integer
        r = 4
        Ru(1) = r
        Ruote(1) = 9
        Ruote(2) = 10
        aRg(1) = Ruote(1)
        aRg(2) = Ruote(2)
        Scrivi ("Scelgo Un Estratto della Ruota di ---> ",1,0)
        Scrivi (NomeRuota(r,False),1,0,,ColoreRosso)
        Scrivi ( " * E' Lo Verifico sulle Ruote di ----> ",1,0)
        Scrivi ( NomeRuota (Ruote(1),False) & " - " & NomeRuota(Ruote(2),False),1,,,ColoreRosso)
        Dim nColpi , es As Integer
        T = {" Caso n. " ,"  Data Rilevamento  " ," Estratti " ," Num In Gioco  ", "  Verifica esito  ","  Colpo   " , "  Sorte  ", " Estratti Id " ," Data id Verifica " }
        Call InitTabella(T,ColoreVerde,,80,ColoreBianco)
        For es = Inizio To fine
            'For es = fine To 1 Step - 1
            If IndiceMensile(es) = 10 Then
                'If IsUltimaDelMese(es)  Then
                kc + = 1
                'an(1) = FuoriX (Estratto(es,9,2) + 3,90) ' Ambata Sommativa
                Num = Estratto(es,4,4)
                an(1) = Num ' Ambata Fissa
                esito = "<> --.--.--.--.--"
                'If VerificaEsito(an,Ru,1,es+1,,13,nColpi,aUscite) Then
                If VerificaEsito(an,aRg,1,es+1,,10,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+1 + nColpi-1 ,r,p)
                    Nu(p) = Estratto(es+1 + nColpi-1 ,Ruote(1),p)
                    'Nu(p) = Estratto(es+1 + nColpi-1 ,Ruote(2),p)
                Next
                '-------------------------------------------------------------
                Dim ess As Integer = (es + nColpi)-1
                'nn = StringaEstratti(ess +1 ,r)
                nn = StringaEstratti(ess +1 ,Ruote(1))
                'nn = StringaEstratti(ess +1 ,Ruote(2))
                pt = PuntiSuArray (Nu  ,an)
                If pt = 1 Then k1 = k1 + 1
                If esito = "<> --.--.--.--.--" Then esito = " Negativo "
                If esito = "<> --.--.--.--.--" Then pt = " -- "
                'Dim posta As Integer   = 1
                'Dim spesa As Integer   = ( posta ) * nColpi
                T = {kc,DataEstrazione(es), StringaEstratti(es,r), an(1),esito,nColpi,NomeSorte(pt,False),nn, DataEstrazione(ess+1) }
                Call AddRigaTabella(T,,,80)
            End If
        Next
        CreaTabella()
    End Sub
End Class

Chiedo Scusa a Mike58 per le modifiche, ma il mio intento è quello di capire, imparare e migliorare.

Ringrazio comunque come sempre.
 
L

LuigiB

Guest
ciao xerox ho solo dato uno sguardo , sicuramente qui non va bene

If aUscite(k) <> "" Then esito = aUscite(k)

in quanto facendo il ciclo sulle uscite ogni volta la variabile esito viene valorizzata con un nuovo valore quando invece dvrebbe essere concatenata con il valore precedente ..
se nel ciclo ci sono 2 uscite fatti conto , csi come hai fatto solo l'ultima sara riportata nella variabile esito.
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao xeroxs, nessun problema da parte mia circa modifiche per i propri scopi sui miei script.
Poi quella riga evidenziata da Luigi è la riga che agisce solo su un esito e nel caso tuo di 2 ruote se ci fossero
più esiti stessa estrazione la puoi concatenare così

If aUscite(k) <> "" Then esito = esito & aUscite(k)

poi c'è un altro errore circa la scrittura NomeSorte come vedi punti array che è quello che da la variabile a NomeSorte,
agisce solo su una ruota (9) e quindi devi rivedere anche quello.(qui bisogna ingegnarsi)

Buon studio e sperimentazione.
 

Xeroxs

Advanced Member >GOLD<
Ciao xeroxs, nessun problema da parte mia circa modifiche per i propri scopi sui miei script.
Poi quella riga evidenziata da Luigi è la riga che agisce solo su un esito e nel caso tuo di 2 ruote se ci fossero
più esiti stessa estrazione la puoi concatenare così

If aUscite(k) <> "" Then esito = esito & aUscite(k)

poi c'è un altro errore circa la scrittura NomeSorte come vedi punti array che è quello che da la variabile a NomeSorte,
agisce solo su una ruota (9) e quindi devi rivedere anche quello.(qui bisogna ingegnarsi)

Buon studio e sperimentazione.
Ciao, Mike58

Allora da Ieri fino a qualche minuto fà le ho provate tutte, array ruote, degli if , ma nulla da fare, non capisco perche se uso l'array come in Verifica esito funziona mentre se lo applico su "Sorte" ed "Estratti Id" non ottengo l'esito voluto, sicuramente PuntiSuArray deve essere legato a nomesorte con qualche costrutto o come dici Tu con qualche astuzia che a me purtroppo sfugge o meglio non è ancora alla mia portata.

Credimi ho riscritto il tutto da capo ma poi anche li stesso risultato negativo. ho cercato di espostare anche il mio script di spaziometria cambiando l'uso della corretta funzione in VB.Net di Verifica esito, ma anche li anche con costrutto diverso non ci sono riuscito.

Inoltre non capisco perchè non scrive gli estratti corrispondenti alla Ruota come avveniva in Spaziometria, cerco di seguire alla lettera la regola delle funzioni, ma con questa sono impantanato.

Può sembrare che mi sono arreso, ma dal mio punto di vista direi di No, anche perchè grazie ai tuoi esempi, sto apprendendo molto, più di quanto io stesso pensavo.
Spero di ricevere un aiuto comunque.

Grazie ancora
 

Mike58

Advanced Member >PLATINUM PLUS<
Xeroxs, capisco la difficoltà, ma il verificaesito in spaziolight non è come in spaziometria, manca l'esito che io ottenevo con punti array.
Questo mi restituiva un valore numerico di quante presenze ci sono in quella estrazione sui numeri giocati che poi riporto in NomeSorte.
questo era riportato su una ruota, ma poi devi riportarlo nell'altra 2° ruota.
Tutto qui.
Non avendo un nome esito ambo-terni etc. in verificaesito bisogna come dicevo ingegnarsi.
Comunque sono contento che i miei spunti ti sono di aiuto.

Ciao
 

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

Ultimi Messaggi

Alto