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.
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
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
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 |
Fil , queste variazioni potete farle anche da voi, il mio scopo e far vedere come applicare i codici e come realizzare progetti in vbnet.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!
Xerox , grazie.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.
E...siFil , queste variazioni potete farle anche da voi, il mio scopo e far vedere come applicare i codici e come realizzare progetti in vbnet.
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 |
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
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
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
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
invece non è quello .. il merito della velocità è seriestoricoturbo fatta in un linguaggio unmanaged che non è il vb6 ..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 ..