Spazio Script in VbNet Per LottoProjectLB

fillotto · 10 Febbraio 2022

sfruttando un metodo del bravo Marco per la ricerca dei migliori algoritmi
un listato per ambo a Tutte che sfrutta la tabella con evidenza spesa,vincita,utile e il virtuale gioca con grafico andamento spesa - vincita.

Codice:

Class Script
    Sub Main
        Scrivi ("METODO E LIST BY Marco")
        Dim poste(2) As Single
        Dim ruota(1) As Integer
        Dim n1(2) As Integer
        poste(2) = 1
        Dim clp As Integer = 10
        Dim ini  As Integer = EstrazioniArchivio  - 1000
        Dim fin As  Integer  = EstrazioniArchivio
        Dim co As Integer = 0
        Dim es,a,c,nClp As Integer
        Dim T(),aUscite(),esito As String
        Dim spesa,vincita As Decimal
        T = {"Caso n.","data Rilevamento","Estratto","cadenza","Numeri in Gioco","Esito","nColpo","Spesa","Vincita","Utile"}
        Call InitTabella(T)
        ruota(1) = 12
        For es = ini To fin
            Messaggio (es)
            Call AvanzamentoElab(ini,fin,es)
            a = Estratto(es,1,1)
            If IndiceMensile(es) = 1 Then
                If Cadenza(a) = 1 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,10,3)) - Estratto(es,5,3) + 42,90)
                End If
                If Cadenza(a) = 2 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,1) + 1,90)
                    n1(2) = FuoriX(Estratto(es,3,5) + Estratto(es,6,3) + 21,90)
                End If
                If Cadenza(a) = 3 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,8,5) + Estratto(es,12,4) + 32,90)
                End If
                If Cadenza(a) = 4 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,9,5)) - Estratto(es,4,5) + 33,90)
                End If
                If Cadenza(a) = 5 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,8,2)) - Estratto(es,7,1) + 41,90)
                End If
                If Cadenza(a) = 6 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,1,3) + Estratto(es,6,2) + 89,90)
                End If
                If Cadenza(a) = 7 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,4,1) + Estratto(es,12,4) + 64,90)
                End If
                If Cadenza(a) = 8 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,8,3) * Estratto(es,9,1) + 5,90)
                End If
                If Cadenza(a) = 9 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,10,4)) - Estratto(es,4,2) + 89,90)
                End If
                If Cadenza(a) = 0 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,2,2)) - Estratto(es,10,5) + 10,90)
                End If
                '
                co = co + 1
                esito = "--"
                If VerificaEsito (n1,ruota,2,es+1,,clp,nClp,aUscite)
                    For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                        If aUscite(k1) <> "" Then esito = aUscite(k1)
                    Next
                End If
                T = {co,GetInfoEstrazione(es),a,Cadenza(a),StringaNumeri(n1),esito,nClp,spesa,vincita*.92,(vincita*.92)-spesa }
                Call AddRigaTabella(T)
                Call ImpostaGiocata (1,n1,ruota,poste,,clp,2)
                Call Gioca (es,True,,,False  )
                Call GetSpesaVincita(spesa,vincita)
            End If
        Next
        CreaTabella
        ScriviResoconto
        Scrivi ("Utile....................... " & (vincita *.92) - spesa ,1)
        DisegnaGraficoAndamento (1250,800)
    End Sub
End Class

il rendiconto dice:
Casi Esaminati : 77
Spesa Totale : 474,00
Vincita Totale : 1.400,00 (55x25=1375 ) ????
Vincita Totale Netta : 1.288,00 (55x23= 1265) ????
Bollette giocate : 474
Bollette vincenti : 55
Utile....................... 814

Mike58 · 10 Febbraio 2022

fill, - Resoconto , Non lo so - andrebbe valuato su pochi casi.
ma questi calcoli fateli voi.
magari c'è qualche errore di riporto nello script.
non so

Mike58 · 11 Febbraio 2022

15 Ritardatari Prospetto e altro.

Codice:

Class Script
    Sub Main
        Dim Nu(15),rit(16),pos(5),po(15),fre(16),Ru(1) As Integer
        Dim T(),V(),vv(),aUscite(),Esito As String
        Dim Ini As Integer = EstrazioniArchivio  - 200
        Dim fin As Integer = EstrazioniArchivio  - 1
        Dim fine As Integer = EstrazioniArchivio
        Dim riga As String
        Dim p,aaa,x,xx,r,k  As Integer
        Scrivi ("Tabella By Mike58",1)
        T = {" Ruota "," N1 ", "N2 "," N3 "," N4 "," N5 "," N6 "," N7 "," N8 "," N9 "," N10 "," N11 "," N12 "," N13 "," N14" ," N15 "," ---- Esito Fin ----  "}
        Call InitTabella(T,ColoreBlu,,,ColoreBianco )
        riga = ""
        For r = 1 To 11
            For p = 1 To 15
                Nu(p) = NumeroPosRit(fin,r,p)
                rit(p) = EstrattoRitardo(Nu(p),r,Ini,fin)
                fre(p) = EstrattoFrequenza(Nu(p),r,fine,fine)
                If fre(p) > 0 Then riga = riga & p & ","
                If fre(p) <> 1 Then rit(p) = rit(p) + 1
                Ru(1) = r
            Next
            Esito = "--"
            If VerificaEsito(Nu,Ru,1,fine,,1,,aUscite) Then
                For k1 As Integer = 0 To aUscite.getupperbound(0)
                    If aUscite(k1) <> "" Then Esito = aUscite(k1)
                Next
            End If
            V = {StringaRuote(Ru),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),Nu(6),Nu(7),Nu(8),Nu(9),Nu(10),Nu(11),Nu(12),Nu(13),Nu(14),Nu(15),Esito}
            vv = {"Rit",rit(1),rit(2),rit(3),rit(4),rit(5),rit(6),rit(7),rit(8),rit(9),rit(10),rit(11),rit(12),rit(13),rit(14),rit(15),"Posiz......... " & RimuoviLastChr(riga,",") }
            Call AddRigaTabella(V,,,75,,,"arial black")
            Call SetColoreCellaRighe (0,,ColoreRosso)
            riga = ""
            k = 0
            For x = 1 To 16
                If rit(x) > 99 Then Call SetColoreCellaRighe ((x ),ColoreRosso ,ColoreGiallo)
                If rit(x) > 54 And rit(x) < 100 Then Call SetColoreCellaRighe((x ),ColoreMagenta,ColoreNero )
                If fre(x) > 0 Then Call SetColoreCellaRighe((x ),ColoreVerde ,ColoreBianco )
            Next
            Call AddRigaTabella(vv,,"Right",,ColoreBlu)
            For xx = 1 To 16
                If rit(xx) > 54 And rit(xx) < 100 Then Call SetColoreCellaRighe((xx ),ColoreGiallo,ColoreNero )
                If rit(xx) > 99 Then Call SetColoreCellaRighe((xx ),ColoreGiallo,ColoreRosso )
            Next
            ' sPos = ""
        Next
        CreaTabella
    End Sub
End Class

Ruota	N1	N2	N3	N4	N5	N6	N7	N8	N9	N10	N11	N12	N13	N14	N15	---- Esito Fin ----
Ba	11	7	34	51	87	81	12	46	31	22	21	65	14	32	3	--
Rit	58	55	48	45	45	44	42	41	39	39	37	36	36	35	34	Posiz.........
Ca	39	15	12	40	53	35	83	84	23	77	47	18	27	37	76	--
Rit	84	78	51	49	49	46	46	45	45	44	43	40	39	37	36	Posiz.........
Fi	67	15	83	40	20	36	55	26	45	3	62	7	34	85	31	Fi --.03.--.--.--
Rit	109	84	55	55	54	54	48	40	38	35	35	31	30	29	29	Posiz......... 10

Mike58 · 11 Febbraio 2022

Numeri.... ultimi 10 ritardi con media ritardi inferiore a 10

Codice:

Class Script
    Sub Main
        Dim Nu(1),Ru(1) As Integer
        Dim ini,fin ,fine,inizio  As Integer
        Dim r,k1,k2,k,n,z,somRit  As Integer
        Dim MedRit As Decimal
        Dim rit() As Integer
        Dim T(),V() As String
        fin = EstrazioniArchivio
        ini = fin - 1000
        For r = 1 To 11
            Scrivi ("Numeri ultimi 10 Ritardi *** Equilibrio In...Stabile ****  Script By Mike58 **** © ",1,,,ColoreBlu ,,,True)
            T = {"Ruota","Numero","RitCorr","Rp2","Rp3","Rp4","Rp5","Rp6","Rp7","Rp8","Rp9","Rp10","K<18","K>18","SommaRit","MedRit"}
            Call InitTabella(T,ColoreVerde ,,,ColoreBianco)
            For  n = 1 To 90
                Nu(1) = n
                Ru(1) = r
                ReDim rit (10)
                inizio = 1
                fine = EstrazioniArchivio
                somRit = 0
                For z = 1 To 10
                    rit(z) = SerieRitardo (Nu,Ru,1,fine,,,inizio)
                    fine = fine -(rit(z) + 1)
                    If rit(z) <= 18 Then k1 = k1 + 1
                    If rit(z) > 18 Then k2 = k2 + 1
                    somRit = somRit + rit(z)
                    MedRit = somRit/z
                Next
                If MedRit < 10 Then
                    V = {NomeRuota(r),Nu(1),rit(1),rit(2),rit(3),rit(4),rit(5),rit(6),rit(7),rit(8),rit(9),rit(10),k1,k2,somRit, MedRit  }
                    Call AddRigaTabella(V)
                    For x As Integer = 2 To 11
                        If V(x)  > 18 Then Call SetColoreCellaRighe ((x),ColoreNero,ColoreBianco )
                    Next
                    Call SetColoreCellaRighe(1,ColoreVerde,ColoreBianco)
                    Call SetColoreCellaRighe(12,ColoreRosa,ColoreNero)
                    Call SetColoreCellaRighe(13,ColoreRosa,ColoreNero)
                End If
                k1 = 0
                k2 = 0
            Next
            CreaTabella(12)
        Next
    End Sub
End Class

Numeri ultimi 10 Ritardi *** Equilibrio In...Stabile **** Script By Mike58 **** Â©

Ruota	Numero	RitCorr	Rp2	Rp3	Rp4	Rp5	Rp6	Rp7	Rp8	Rp9	Rp10	K<18	K>18	SommaRit	MedRit
Ba	53	17	2	1	3	0	16	9	6	13	2	10	0	69	6,9
Ba	54	3	1	23	1	0	7	10	10	1	0	9	1	56	5,6
Ba	62	14	0	8	29	4	4	4	5	15	1	9	1	84	8,4
Ba	15	12	5	24	12	2	6	2	2	1	26	8	2	92	9,2
Ba	55	0	7	5	1	5	6	20	21	11	1	8	2	77	7,7
Ba	86	5	24	1	3	1	4	27	6	8	8	8	2	87	8,7

Mike58 · 12 Febbraio 2022

Numeri Sincroni per Livello di Ritardo

Codice:

Class Script
    Sub Main()
        Dim ru(1),n(1),aN()  As Integer
        Dim T(),V(),rigo,esito,aUscite() As String
        Dim ini,fin,fine As Integer
        Dim r,rit,rit2,i,co,d,s,trovati,p,Rcc As Integer
        Dim Tab(,) As Object
        fin = EstrazioniArchivio  - 1
        fine = EstrazioniArchivio
        For r = 1 To 11
            'Erase Tab '= 0
            ReDim Tab(90,5)
            T = {" Livello "," Ruota "," RitCorr "," Numeri Sincroni "," Verifica Sortita Fine "}
            Call InitTabella(T)
            ru(1) = r : co = 1 :d = 1
            n(1) = NumeroPosRit(fin,r,1)
            rit = SerieRitardo(n,ru,1,fin-250,,,fin )
            Tab(1,d) = n(1)
            Tab(1,0) = rit
            For i = 2 To 90 ' scorro le posizioni di ritardo
                n(1) = NumeroPosRit(fin,r,i)
                rit2 = SerieRitardo(n,ru,1,fin,,,fin-250)
                If rit2 <> rit Then
                    co = co + 1
                    d = 1
                    Tab(co,d) = n(1)
                    Tab(co,0) = rit2
                    rit = rit2
                Else
                    d = d + 1
                    Tab(co,d) = n(1)
                End If
            Next
            '------------------------------------------
            'Scrivi Chr(10) & " RC  - " & NomeRuota(r),1
            For s = 1 To 5
                For i = 0 To co
                    trovati = 0 : rigo = ""
                    For p = 1 To 5
                        If Tab(i,p) > 0 Then
                            trovati = trovati + 1
                            rigo = rigo & Format2(Tab(i,p)) & " "
                            ReDim Preserve aN(trovati)
                            aN(trovati) = Tab(i,p)
                        Else Exit For
                        End If
                    Next
                    esito = "--"
                    If  VerificaEsito(aN,ru,1,fine,,,,aUscite) Then
                        For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                            If aUscite(k1) <> "" Then esito = aUscite(k1)
                        Next
                    End If
                    Rcc = SerieRitardo(aN,ru,1,fin,,,fin-250)
                    If SerieFrequenza(aN,ru,1,fine,fine ) = 0 Then Rcc = Rcc  + 1
                    If SerieFrequenza (aN,ru,1,fine,fine ) > 0 Then Rcc = Rcc
                    'If trovati = s Then Scrivi FormatSpace(Tab(i,0),3,1) & " => " & Rigo & vbTab & es1 : rigo = "": Exit For
                    If trovati = s Then
                        V = {s,NomeRuota(r),Rcc  ,StringaNumeri(aN,,1),esito }
                        Call AddRigaTabella(V)
                        rigo = ""
                        Exit For
                    End If
                Next
            Next
            CreaTabella
        Next 'r
    End Sub
End Class

Livello	Ruota	RitCorr	Numeri Sincroni	Verifica Sortita Fine
1	Ba	58	11	--
2	Ba	45	51.87	--
3	Ba	27	72.67.05	Ba --.--.05.--.--
4	Ba	7	74.36.59.29	--
5	Ba	16	49.38.64.66.53	Ba --.38.--.--.--

Mike58 · 17 Febbraio 2022

a Seguito della discussione su altro post circa Ritardo Sincrono Di Livello, uno script che raccoglie tutti i coefficienti di ritardo di livello > 0,79 e con altri indici e somma indici.
Vediamo come si comporta

P.s. in miei script sono quasi sempre raccolti alla estrazione fine -1 e valutati in verifica esito all'ultima estrazione.

Codice:

Class Script
    Sub Main
        Dim T(),aUscite(),esito As String
        Dim Nu(1),Ru(1),aN() As Integer
        Dim ini,fin,es,fine  As Integer
        Dim rit,rit1,r,x,k,RsL ,nliv,Liv,pre,freq ,tot As Integer
        Dim coeff,Attend , PresTeo ,IC,SomInd  As Decimal
        fin = EstrazioniArchivio-1
        fine = fin + 1
        ini = fin - 200
        tot = fin - ini + 1
        'Liv = CInt(InputBox("Quale Livello ",,3))
        'r = InputBox("Quale Ruota",,1)
        Scrivi ("Estrazione inizio............. " & GetInfoEstrazione (ini))
        Scrivi ("Estrazione Fine............... " & GetInfoEstrazione(fin))
        Scrivi ("Estrazioi Esaminate........... " & tot )
        Scrivi ("Filtro Tabella Coeff-RsL...... " & "> 0.79",1)
        Scrivi ("Script By Mike58 ",1,,,ColoreBlu )
        T = {"Ruota","Ritardo","Presenze" ,"Numeri","Livello"," RitSincLiv ","Coeff - RSL/RIT "," Ind.Conv.. ","Attendibilità","Somma Indici","Verifica Fine"}
        Call InitTabella(T)
        For r = 1 To 11
            For rit = 0 To 230
                For x = 1 To 90
                    Nu(1) = x
                    Ru(1) = r
                    'SerieStat (Nu,Ru,1,rit1,,freq,pre,,ini,fin)
                    rit1 = SerieRitardo (Nu,Ru,1,fin,,,ini)
                    If rit1 = rit Then
                        k +=1
                        ReDim Preserve aN(k)
                        aN(k) = x
                        RsL = RitSincronoDiLivello (x,r,fin,nliv,0)
                        freq = SerieFrequenza (aN,Ru,1,ini,fin)
                        coeff = Divisione(RsL,rit )
                        IC  = CalcolaIC(freq,rit1,tot)
                        PresTeo = ((5*1) *(10/11) ^ rit1)
                        Attend = Divisione(nliv,nliv + PresTeo )
                        SomInd = coeff + IC + Attend
                    End If
                Next
                esito = "--"
                If VerificaEsito (aN,Ru,1,fine,,,,aUscite) Then
                    For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                        If aUscite(k1) <> "" Then esito = aUscite(k1)
                    Next
                End If
                'If k > 0 And nliv = Liv  Then
                If k > 0 And coeff > 0.79 And coeff < 1 Then
                    T = {NomeRuota(r), rit,freq, StringaNumeri(aN),nliv,RsL,coeff, IC,Attend,SomInd ,esito  }
                    Call AddRigaTabella(T)
                    Call SetColoreCellaTitolo(9,ColoreRosso,ColoreBianco) 
                    Call SetColoreCellaTitolo(3,ColoreRosso,ColoreBianco)
                    Call SetColoreCellaTitolo(6,ColoreVerde,ColoreBianco)
                End If
                k = 0
            Next
        Next
        CreaTabella(9)
    End Sub
End Class

Estrazione inizio............. 9842 - 114 - 03/11/2020
Estrazione Fine............... 10042 - 175 - 12/02/2022
Estrazioi Esaminate........... 201
Filtro Tabella Coeff-RsL...... > 0.79
Script By Mike58

Ruota	Ritardo	Presenze	Numeri	Livello	RitSincLiv	Coeff - RSL/RIT	Ind.Conv..	AttendibilitÃ	Somma Indici	Verifica Fine
Fi	30	27	31.72.85	3	24	0,8	4,020	0,91	5,730	--
Na	58	13	25	1	47	0,81	3,770	0,98	5,560	--
Ve	104	7	13	1	87	0,84	3,640	1,00	5,480	--
Ca	79	9	15	1	72	0,91	3,555	1,00	5,465	--
Na	42	15	10.59	2	36	0,86	3,150	0,96	4,970	--
Nz	37	17	55	1	30	0,81	3,145	0,87	4,825	--
Nz	72	8	18	1	62	0,86	2,880	0,99	4,730	--
Ve	14	40	19.64.78.87	4	13	0,93	2,786	0,75	4,466	Ve --.--.--.--.87

gabbo87 · 29 Marzo 2022

Mike58 ha scritto:

sfruttando un metodo del bravo Marco per la ricerca dei migliori algoritmi
un listato per ambo a Tutte che sfrutta la tabella con evidenza spesa,vincita,utile e il virtuale gioca con grafico andamento spesa - vincita.

Codice:

Class Script
    Sub Main
        Scrivi ("METODO E LIST BY Marco")
        Dim poste(2) As Single
        Dim ruota(1) As Integer
        Dim n1(2) As Integer
        poste(2) = 1
        Dim clp As Integer = 10
        Dim ini  As Integer = EstrazioniArchivio  - 1000
        Dim fin As  Integer  = EstrazioniArchivio
        Dim co As Integer = 0
        Dim es,a,c,nClp As Integer
        Dim T(),aUscite(),esito As String
        Dim spesa,vincita As Decimal
        T = {"Caso n.","data Rilevamento","Estratto","cadenza","Numeri in Gioco","Esito","nColpo","Spesa","Vincita","Utile"}
        Call InitTabella(T)
        ruota(1) = 12
        For es = ini To fin
            Messaggio (es)
            Call AvanzamentoElab(ini,fin,es)
            a = Estratto(es,1,1)
            If IndiceMensile(es) = 1 Then
                If Cadenza(a) = 1 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,10,3)) - Estratto(es,5,3) + 42,90)
                End If
                If Cadenza(a) = 2 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,1) + 1,90)
                    n1(2) = FuoriX(Estratto(es,3,5) + Estratto(es,6,3) + 21,90)
                End If
                If Cadenza(a) = 3 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,8,5) + Estratto(es,12,4) + 32,90)
                End If
                If Cadenza(a) = 4 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,9,5)) - Estratto(es,4,5) + 33,90)
                End If
                If Cadenza(a) = 5 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,8,2)) - Estratto(es,7,1) + 41,90)
                End If
                If Cadenza(a) = 6 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,1,3) + Estratto(es,6,2) + 89,90)
                End If
                If Cadenza(a) = 7 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,4,1) + Estratto(es,12,4) + 64,90)
                End If
                If Cadenza(a) = 8 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(Estratto(es,8,3) * Estratto(es,9,1) + 5,90)
                End If
                If Cadenza(a) = 9 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,10,4)) - Estratto(es,4,2) + 89,90)
                End If
                If Cadenza(a) = 0 Then
                    n1(1) = FuoriX(Estratto(es,1,1) + Estratto(es,1,2) + 1,90)
                    n1(2) = FuoriX(90 +(Estratto(es,2,2)) - Estratto(es,10,5) + 10,90)
                End If
                '
                co = co + 1
                esito = "--"
                If VerificaEsito (n1,ruota,2,es+1,,clp,nClp,aUscite)
                    For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                        If aUscite(k1) <> "" Then esito = aUscite(k1)
                    Next
                End If
                T = {co,GetInfoEstrazione(es),a,Cadenza(a),StringaNumeri(n1),esito,nClp,spesa,vincita*.92,(vincita*.92)-spesa }
                Call AddRigaTabella(T)
                Call ImpostaGiocata (1,n1,ruota,poste,,clp,2)
                Call Gioca (es,True,,,False  )
                Call GetSpesaVincita(spesa,vincita)
            End If
        Next
        CreaTabella
        ScriviResoconto
        Scrivi ("Utile....................... " & (vincita *.92) - spesa ,1)
        DisegnaGraficoAndamento (1250,800)
    End Sub
End Class

Buonasera mike ho visto nel forum che tu e Luigi siete i più esperti del programma Spaziometria, io lo sto usando da poco , sto cercando di utilizzare la voce lunghette per effettuare una ricerca classe 10 sorte 3 su una ruota specifica solo tra i numeri pari ,però impostando i parametri e selezionando solo i numeri pari nei risultati escono lunghette contenenti numeri dispari, non rispetta la griglia che scelgo ,anche diminuendo i numeri inserisce numeri non selezionati e mi fa la stessa cosa anche con i dispari ,cosa sbaglio ?
Spero mi possa aiutare Ti ringrazio anticipatamente

Mike58 · 30 Marzo 2022

Ciao Gabbo, premesso che non uso queste finestre del programma , in quanto io preferisco cimentarmi nel fare statistiche tramite script, quindi la mia risposta non può essere precisa.

Tuttavia sperimentando e simulalando la statistica lunghette, io ho selezionato 6 numeri x sorte ambo e tutti numeri pari e l'elaborazione riporta solo numeri pari.

Se invece volessi impostare 10 numeri x sorte terno e stoppassi l'eleaborazione questa riporta anche numeri dispari sul trovato. (forse perchè stppato prima non saprei) .

Anche finita l'elaborazioni mi riporta numeri dispari ( è vero ) sarà un vecchio baco come ti ha detto Nikor in altra risposta post.

Ciao

gabbo87 · 30 Marzo 2022

Mike58 ha scritto:
Ciao Gabbo, premesso che non uso queste finestre del programma , in quanto io preferisco cimentarmi nel fare statistiche tramite script, quindi la mia risposta non può essere precisa.

Tuttavia sperimentando e simulalando la statistica lunghette, io ho selezionato 6 numeri x sorte ambo e tutti numeri pari e l'elaborazione riporta solo numeri pari.

Se invece volessi impostare 10 numeri x sorte terno e stoppassi l'eleaborazione questa riporta anche numeri dispari sul trovato. (forse perchè stppato prima non saprei) .

Anche finita l'elaborazioni mi riporta numeri dispari ( è vero ) sarà un vecchio baco come ti ha detto Nikor in altra risposta post.

Ciao

Ciao Mike grazie per la risposta.Purtroppo lo fa anche limitando la scelta dei numeri es imposto dall 1-45 mi da lunghette con numeri superiori
Non c è rimedio ? Perché usare la griglia per limitare i numeri era una bella opzione

antonioquagliozzi · 11 Aprile 2022

x mike 58 e' possibile script spia 79 bari??? grazie

Cerca

Cerca

Spazio Script in VbNet Per LottoProjectLB

fillotto

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

gabbo87

Junior Member

Mike58

Advanced Member >PLATINUM PLUS<

gabbo87

Junior Member

antonioquagliozzi

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi

Ruota	Numero	RitCorr	Rp2	Rp3	Rp4	Rp5	Rp6	Rp7	Rp8	Rp9	Rp10	K<18	K>18	SommaRit	MedRit
Ba	53	17	2	1	3	0	16	9	6	13	2	10	0	69	6,9
Ba	54	3	1	23	1	0	7	10	10	1	0	9	1	56	5,6
Ba	62	14	0	8	29	4	4	4	5	15	1	9	1	84	8,4
Ba	15	12	5	24	12	2	6	2	2	1	26	8	2	92	9,2
Ba	55	0	7	5	1	5	6	20	21	11	1	8	2	77	7,7
Ba	86	5	24	1	3	1	4	27	6	8	8	8	2	87	8,7

Ruota	Numero	RitCorr	Rp2	Rp3	Rp4	Rp5	Rp6	Rp7	Rp8	Rp9	Rp10	K<18	K>18	SommaRit	MedRit
Ba	53	17	2	1	3	0	16	9	6	13	2	10	0	69	6,9
Ba	54	3	1	23	1	0	7	10	10	1	0	9	1	56	5,6
Ba	62	14	0	8	29	4	4	4	5	15	1	9	1	84	8,4
Ba	15	12	5	24	12	2	6	2	2	1	26	8	2	92	9,2
Ba	55	0	7	5	1	5	6	20	21	11	1	8	2	77	7,7
Ba	86	5	24	1	3	1	4	27	6	8	8	8	2	87	8,7

Ruota	Numero	RitCorr	Rp2	Rp3	Rp4	Rp5	Rp6	Rp7	Rp8	Rp9	Rp10	K<18	K>18	SommaRit	MedRit
Ba	53	17	2	1	3	0	16	9	6	13	2	10	0	69	6,9
Ba	54	3	1	23	1	0	7	10	10	1	0	9	1	56	5,6
Ba	62	14	0	8	29	4	4	4	5	15	1	9	1	84	8,4
Ba	15	12	5	24	12	2	6	2	2	1	26	8	2	92	9,2
Ba	55	0	7	5	1	5	6	20	21	11	1	8	2	77	7,7
Ba	86	5	24	1	3	1	4	27	6	8	8	8	2	87	8,7