L
LuigiB
Guest
ciao a tutti , con il nuovo aggiornamento ho corretto
eliminaripetuti
gioca
eliminaripetuti
gioca
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Proviamo a Testare le funzioni script di spazio Light e chiedere delucidazioni sulle difficoltà riscontrate
- Creatore Discussione i legend
- Data di inizio
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.
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
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 Classfillotto
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
Troppa Grazia!!!!!
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!!!!!
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.
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<
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<
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<
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
ecco lo script
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
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
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
script vbnet
grazie se puoi rispondermi
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 Subscript 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 Classgrazie 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
invece non è quello .. il merito della velocità è seriestoricoturbo fatta in un linguaggio unmanaged che non è il vb6 ..
Ultima estrazione Lotto
-
Estrazione del lotto
lunedì 03 novembre 2025Bari8028116750Cagliari2029713315Firenze3350210911Genova3215900923Milano6622480377Napoli5764272026Palermo2265789074Roma3257432008Torino7480665401Venezia0175821311Nazionale7105557761Estrazione Simbolotto
Torino
1306400210
