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,
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
Chiedo Scusa a Mike58 per le modifiche, ma il mio intento è quello di capire, imparare e migliorare.
Ringrazio comunque come sempre.
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 |
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 ClassChiedo Scusa a Mike58 per le modifiche, ma il mio intento è quello di capire, imparare e migliorare.
Ringrazio comunque come sempre.
