Novità

Spazio Script in VbNet Per LottoProjectLB

Numeri per Mese

Codice: 
Class Script
    Sub Main()
        Dim x(90),ru(1),nu(1),aNum()  As Integer
        Dim r As Integer = InputBox("Inserisci la ruota di ricerca","RUOTA",9)
        Dim kk As Integer = CInt(InputBox("Inserisci mese di ricerca","MESE",Month(Now)))
        Dim An1 As Integer = CInt(InputBox("Inserisci INIZIO ANNO di ricerca","ANNO",2009))
        Dim An2 As Integer  = CInt(InputBox("Inserisci FINE ANNO di ricerca","ANNO",Year(Now)))
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim T(),aUscita(),esito  As String
        Dim a,n,e,n1,i,ind,ess,er,sf,k,xx,clp As Integer
        T = {"Numero","Presenza","Verifica Mese Corrente","ID Data","colpo","Ritardo","Presenze Mese"}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco )
        For a = 1 To 90
            x(a) = 0
        Next
        For n = ini To fin
            If Mese(n) = kk And Anno(n) >= An1 And Anno(n) <= An2 Then
                'For r=1 To 10
                ru(1) = r
                For e = 1 To 5
                    n1 = Estratto(n,r,e)
                    x(n1) = x(n1) + 1
                Next
                'Next
            End If
        Next
        Scrivi (" Quantità per ogni numero estratto DA ANNO N." & An1 & " FINO ANNO N." & An2 & " sulla ruota di " & NomeRuota(r) & " nel MESE di " & MeseNome(kk),1)
        For i = 1 To 90
            nu(1) = i
            ind = IndiceMensile(fin)
            ess = fin - ind '
            esito = "--"
            If VerificaEsito(nu,ru,1,ess+1,,13,clp,aUscita)
                For k1 As Integer = 0 To aUscita.GetUpperBound(0)
                    If aUscita(k1) <> "" Then esito = aUscita(k1)
                Next
            End If
            er = EstrattoRitardo(i,r, ini,fin)
            sf = SerieFrequenza (nu,ru,1,ess+1,fin )
            If EstrattoFrequenza(i,r, ess,fin) > 0 Then
                k +=1
                ReDim Preserve aNum(k)
                aNum(k) = i
            End If
            T  = { i ,x(i) ,esito ,GetInfoEstrazione(ess+clp ),clp,er,sf }
            Call AddRigaTabella(T)
            For xx = 0 To 7
                If er = 0 Then Call SetColoreCellaRighe ((xx),ColoreMagenta,ColoreBianco )
                If sf > 0 And er > 0 Then Call SetColoreCellaRighe ((xx),ColoreRosa,ColoreNero )
            Next
        Next
        CreaTabella(1)
        Call Scrivi("Numeri Sortiti Nel Mese corrente..... " & StringaNumeri(aNum) & "  ( " & k & " )",1)
    End Sub
End Class

Quantità per ogni numero estratto DA ANNO N.2005 FINO ANNO N.2022 sulla ruota di To nel MESE di Febbraio

Numero​
Presenza​
Verifica Mese Corrente​
ID Data​
colpo​
Ritardo​
Presenze Mese​
51​
24​
--​
10040 - 173 - 08/02/2022​
4​
8​
0​
30​
23​
To --.30.--.--.--​
10039 - 172 - 05/02/2022​
3​
1​
1​
85​
21​
--​
10040 - 173 - 08/02/2022​
4​
10​
0​
41​
19​
--​
10040 - 173 - 08/02/2022​
4​
4​
0​
76​
18​
To --.--.--.--.76​
10038 - 171 - 03/02/2022​
2​
2​
1​
 
esempio per creare un grafico

Codice: 
Class Script
    Sub Main
    'inserire qui il proprio codice...
        Dim aNomi () As String = {"","Serie 1", "Serie 2"}
        dim aColori () as integer ={0 , coloreblu ,colorerosa}

        Dim aSerie (10,2)
        For x As Integer = 0 To 10
            aSerie (x ,0) = x
            aSerie (x ,1) = NumeroCasuale (1,90)
            aSerie (x ,2) = NumeroCasuale (1,90)


        Next
            
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" )
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,tipografico_column ,1500,1000)
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,tipografico_torta ,1500,1000)

    End Sub
End Class
 
Buona sera Mike58,
se posso ancora una volta approfittare della tua gentilezza, ti chiederei un consiglio, sempre da un tuo script che allogo, su come poter ricavare i numeri più frequenti prendendo in esame tutta la colonna "estratti". Ho provato ad utilizzare la funzione StringaNumeriToArray, ma con scarsi risultati.
Grazie sempre...
Sub Main
Dim Nu(2),aN(2),Num(4),Ru(2), contenitore() As Integer
Dim T(),V() , aUscite() , esito, estratti 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 "," Estratti ", " Colpo "," Spesa " , " Vincita "}
Call InitTabella(T)
For es = Ini To fin
For r1 = 1 To 10
For r2 = r1 + 1 To 11
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
'---------------------------------------------------------
If esito = " -- " Then
estratti = " -- "
Else
If esito.contains(Ru(1)) Then
estratti = StringaEstratti(es+nclp,Ru(1))
Else
estratti = StringaEstratti(es+nclp,Ru(2))
End If
End If
'----------------------------------------------------------
contenitore= StringaNumeriToArray(estratti)

'----------------------------------------------------------
V = {GetInfoEstrazione(es),ArrayRuoteToString (Ru),StringaNumeri(Nu),StringaNumeri (Num), esito ,estratti,nclp , spesa , vincita }
Call AddRigaTabella(V)
End If
End If
Next
Next
Next
Next
Next
Next
Next
CreaTabella
ScriviResoconto
Scrivi ("Tempo Di Elaborazione " & FormattaSecondi(SecondiTrascorsi))
End Sub
 
LuigiB ha scritto:
esempio per creare un grafico

Codice: 
Class Script
    Sub Main
    'inserire qui il proprio codice...
        Dim aNomi () As String = {"","Serie 1", "Serie 2"}
        dim aColori () as integer ={0 , coloreblu ,colorerosa}

        Dim aSerie (10,2)
        For x As Integer = 0 To 10
            aSerie (x ,0) = x
            aSerie (x ,1) = NumeroCasuale (1,90)
            aSerie (x ,2) = NumeroCasuale (1,90)


        Next
           
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" )
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,tipografico_column ,1500,1000)
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,tipografico_torta ,1500,1000)

    End Sub
End Class
Clicca per espandere...
Grazie Luigi, sul grafico ci sto lavorando , non senza difficoltà.
Ci riprovo con andamento ritardi di un numero in esame.
Purtroppo con qualche intoppo (gioco di parole)
Poi magari ti chiedo.
 
la cosa è alquanto semplice
per disegnare un grafico sono necessarie una serie di coordinate x ed y , l'unione dei punti x ed y della stessa serie rappresenta la linea del grafico
volendo si possono disegnare piu linee , tutti i punti condividono la coordinata X e hanno invece un valore specifico per la coordinata y
per passare alal funzione i dati del grafico quindi usiamo un array a 2 dimensioni , la prima dimesione riguarda il numero di punt che vogliamo disegnare , la seconda dimensione identifica il numero di linee che vogliamo disegnare sl grafico.
Nell' esempio come vedi ci sono 11 punti che vanno da 0 a 10 per ogni punto impostiamo la stessa coordinata X e valoriziamo casulmente i valori delel 2 diverse linee.

nel caso dell'adamento dei ritardi di un numero il numero di punti coincide con il numero d uscite di quel numero
ma se vuo confrontare 2 numeri invece ti conviene usare come valore per X l'id eellestrazione in cui il numero è uscito.
 
x Luigi.
Il concetto si è capito, poi a metterlo in pratica è tutto un altra cosa. (per me)
Questa è un progetto che mi interessa e sicuramente terrò in considerazione i tuoi consigli.

x Antonino per ora non saprei cosa vuoi ottenere e quindi non so come e cosa consigliarti.
sicuramente Luigi avrà una dritta da darti.

Io se metto troppe cose insieme vado in confusione.

Ciao
 
ecco un esempio pratico dove si confrotna la "frequnza" di 2 numeri in blocchi di x estrazioni su una ruota

Codice: 
Class Script
    Sub Main

        Dim Inizio As Integer , Fine As Integer , nEstrPerBlocco As Integer ,nBlocchi As Integer ,nEstrTot As Integer , idBlocco As Integer 
        Dim n1 As Integer ,n2 As Integer , Ruota As Integer

        n1 = 1 
        n2 = 2
        Ruota = 1
        nEstrPerBlocco = 180


        Inizio = 1
       
        nEstrTot = EstrazioniArchivio  - (Inizio-1)
        nBlocchi = (nEstrTot / nEstrPerBlocco ) +1
        
        Dim aValori (nBlocchi ,2) As Object
        Dim aTitoli () As String = {"" ,"Numero " & n1 , "Numero " & n2 }
        Dim aColori () As Integer = { 0 , ColoreBlu , ColoreMagenta } 

        ' preimposto l'orgine di tuttel e linee
        aValori ( idBlocco , 0) = 0 
        aValori ( idBlocco , 1) = 0
        aValori ( idBlocco , 2) = 0

        ' calcolo la frequenza nei blocchi 
        Fine = (Inizio-1) + nEstrPerBlocco
        Do While  Fine  <= nEstrTot
            idBlocco +=1
            If Fine > EstrazioniArchivio Then Fine = EstrazioniArchivio 
            aValori ( idBlocco , 0) = idBlocco 
            aValori ( idBlocco , 1) = EstrattoFrequenza(n1, 1,Inizio ,Fine  )
            aValori ( idBlocco , 2) = EstrattoFrequenza(n2, 1,Inizio ,Fine  )

            Fine +=  nEstrPerBlocco
            
        Loop

        DisegnaGrafico (aValori ,aTitoli,aColori,"Confronto frequenza" ,,,1200  )
 
    End Sub
End Class
 
In qualche maniera sono riuscito con il mio modus.
Il tuo è ancora diverso ma cercherò di studiarci sopra.
intanto la mia sequenza di ritardi su NUMERO e Ruota.

Codice: 
Class Script
    Sub Main
        Dim rp(),z ,elencoRit()  As Integer
        Dim aNomi () As String = {"","Serie 1"}
        Dim aColori () As Integer = {0 , ColoreBlu}
        Dim nu(1),ru(1) As Integer
        nu(1) = 8 : ru(1) = 6
        Dim aSerie (20,1)
        ReDim rp(20)
        Dim inizio As Integer  = 1
        Dim fine As Integer = EstrazioniArchivio
        For z  = 1 To 20 ' ultimi 20 ritardi prec
            rp(z) = SerieRitardo(nu,ru,1,fine,,,inizio )
            fine = fine -(rp(z) + 1)
        Next
        Scrivi ("Numero : "  & nu(1) & " Su Ruota di : "  & NomeRuota(ru(1),False) & " Sequenza Ritardi <> " & StringaNumeri(rp) )
        For x As Integer = 0 To 20
            ReDim Preserve elencoRit(x)
            elencoRit(x) = rp(x)
            aSerie (x ,0) = x
            aSerie (x ,1) = elencoRit(x)
        Next
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,TipoGrafico_Linea)
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,TipoGrafico_Column )
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,TipoGrafico_Torta )
        DisegnaGrafico (aSerie ,aNomi ,aColori ,"Grafico esempio" ,,TipoGrafico_Barre  )
    End Sub
End Class
 
Per ora i miei neuroni con le sinapsi sono andati a riposare.
Dai correggilo che deve servire agli scopi prefissati.
Grazie per lo stimolo.
 
Codice: 
Class Script
    Sub Main
        Dim Inizio As Integer , Fine As Integer , nEstrPerBlocco As Integer ,nBlocchi As Integer ,nEstrTot As Integer , idBlocco As Integer
        Dim n1 As Integer ,n2 As Integer , Ruota As Integer
        n1 = 1
        n2 = 2
        Ruota = 1
        nEstrPerBlocco = 180
        Inizio = 1
        nEstrTot = EstrazioniArchivio  - (Inizio-1)
        If nEstrTot Mod nEstrPerBlocco =0 Then
            nBlocchi = (nEstrTot \ nEstrPerBlocco )
        Else
            nBlocchi = (nEstrTot \ nEstrPerBlocco ) +1
        End If
        Dim aValori (nBlocchi ,2) As Object
        Dim aTitoli () As String = {"" ,"Numero " & n1 , "Numero " & n2 }
        Dim aColori () As Integer = { 0 , ColoreBlu , ColoreMagenta }
        aValori ( idBlocco , 0) = 0
        aValori ( idBlocco , 1) = 0
        aValori ( idBlocco , 2) = 0
        Fine = (Inizio-1) + nEstrPerBlocco
        Do While Fine <= nEstrTot And idBlocco < nBlocchi
            idBlocco += 1
            aValori(idBlocco, 0) = idBlocco
            aValori(idBlocco, 1) = EstrattoFrequenza(n1, Ruota, Inizio, Fine)
            aValori(idBlocco, 2) = EstrattoFrequenza(n2, Ruota, Inizio, Fine)
            Fine += nEstrPerBlocco
            If Fine > EstrazioniArchivio() Then Fine = EstrazioniArchivio()
        Loop
        DisegnaGrafico (aValori ,aTitoli,aColori,"Confronto frequenza" ,,,1200  )
    End Sub
End Class
 
Mike58 ha scritto:
x Luigi.
Il concetto si è capito, poi a metterlo in pratica è tutto un altra cosa. (per me)
Questa è un progetto che mi interessa e sicuramente terrò in considerazione i tuoi consigli.

x Antonino per ora non saprei cosa vuoi ottenere e quindi non so come e cosa consigliarti.
sicuramente Luigi avrà una dritta da darti.

Io se metto troppe cose insieme vado in confusione.

Ciao
Clicca per espandere...
Ok. Ugualmente grazie...
 
Si Continua con le sperimentazioni
Numero scelto Per Mese su Ruota scelta.
Con andamento grafico.

Codice: 
Class Script
    Sub Main
        Dim ini As Integer = 7440 'EstrazioniArchivio - 800
        Dim fin As Integer = EstrazioniArchivio
        Dim nu(1),ru(1),n,r,es,sf1,z  As Integer
        Dim m(12) As Integer
        Dim T() As String
        Dim PresMese() As Integer
        r  = InputBox("Ruota","RUOTA",6)
        n  = InputBox("Numero","NUMERO",8)
        ru(1) = r
        nu(1) = n
        Scrivi ("Numero....   "  & nu(1))
        Scrivi ("Ruota di  :  " & NomeRuota(ru(1),False))
        Scrivi ("Estraz. ini  " & GetInfoEstrazione(ini))
        Scrivi ("Estraz. fine " & GetInfoEstrazione(fin))
        T = {" Mese "," Presenze " }
        Call InitTabella(T)
        For es = ini To fin
            For x As Integer = 1 To 12
                If Mese(es) = x Then
                    sf1 = SerieFrequenza(nu,ru,1,es,es)
                    If sf1 > 0 And Mese(es) = x Then m(x) = m(x) + sf1
                End If
            Next
        Next
        '-------------------------------
        Dim serie(12,1)
        Dim nomi() As String = {"","Presenza nei Mesi"}
        Dim colore () As Integer = {0,ColoreBlu }
        '----------------------------------------
        For y As Integer = 1 To 12
            T = {MeseNome(y) , m(y) }
            Call AddRigaTabella(T)
            'Scrivi ("Mese... " & y & " - Freq = " & m(y)  )
            '---------------------------------------------------
        Next
        For z = 0 To 12
            ReDim Preserve PresMese(z)
            PresMese(z) = m(z)
            serie(z,0) = MeseNome(z)
            serie(z,1) = PresMese(z)
        Next
        CreaTabella
        DisegnaGrafico (serie ,nomi ,colore ,"Grafico linea" ,,TipoGrafico_Linea)
        DisegnaGrafico (serie ,nomi ,colore ,"Grafico esempio" ,,TipoGrafico_Column )
        DisegnaGrafico (serie ,nomi ,colore ,"Grafico esempio" ,,TipoGrafico_Torta )
        DisegnaGrafico (serie ,nomi ,colore ,"Grafico esempio" ,,TipoGrafico_Barre  )
    End Sub
End Class


Numero.... 8
Ruota di : Napoli
Estraz. ini 7440 - 36 - 04/05/2005
Estraz. fine 10040 - 173 - 08/02/2022


Mese ​
Presenze ​
Gennaio​
15​
Febbraio​
9​
Marzo​
13​
Aprile​
15​
Maggio​
8​
Giugno​
11​
Luglio​
15​
Agosto​
16​
Settembre​
14​
Ottobre​
12​
Novembre​
10​
Dicembre​
13​
 
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
 
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
Clicca per espandere...
Buon pomeriggio mike, ti è possibile inserire in questo script i numeri da mettere in gioco evidenziandoli e aggiungere in indice di convenienza
grazie
 
Ciao Bogotà per calcolare l'indice di convenienza bisogna calcolare per prima ritardo e presenza
Comunque eccolo.

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 Tot,rit,fre As Integer 
        Dim co As Integer = 0
        Dim es,a,c,nClp As Integer
        Dim T(),aUscite(),esito As String
        Dim spesa,vincita,ic As Decimal
        Tot = fin-ini+1
        T = {"Caso n.","data Rilevamento","Estratto","cadenza","Numeri in Gioco","Rit num","freq Num","Ind.Conv","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
                  SerieStat (n1,ruota,2,rit,,fre,,,ini,fin)
               ic =  CalcolaIC (fre,rit,(Tot) )           
            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),rit,fre,ic,esito,nClp,spesa,vincita*.92,(vincita*.92)-spesa }
                Call AddRigaTabella(T)
Call SetColoreCellaTitolo(4,ColoreVerde,ColoreBianco)
Call SetColoreCellaTitolo(7,ColoreVerde,ColoreBianco)
                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
 
prova cosi

Codice: 
Class Script
    Sub Main
        Scrivi ("METODO BY Marco ***** List in VbNet **** Mike58 ***** ",1)
        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 Tot,rit,fre As Integer
        Dim co As Integer = 0
        Dim es,a,c,nClp As Integer
        Dim T(),V(),aUscite(),esito As String
        Dim spesa,vincita,ic As Decimal
        Tot = fin-ini+1
        T = {"Caso n.","data Rilevamento","Estratto","cadenza","Numeri in Gioco","Rit num","freq Num","Ind.Conv","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
                SerieStat (n1,ruota,2,rit,,fre,,,ini,fin)
                ic =  CalcolaIC (fre,rit,(Tot) )
                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
                If esito = "--" And nClp < clp Then esito = " In Corso "
                V = {co,GetInfoEstrazione(es),a,Cadenza(a),StringaNumeri(n1),rit,fre,ic,esito,nClp,spesa,vincita*.92,(vincita*.92)-spesa }
                Call AddRigaTabella(V)
                Call SetColoreCellaTitolo(4,ColoreVerde,ColoreBianco)
                Call SetColoreCellaTitolo(7,ColoreVerde,ColoreBianco)
                If esito = " In Corso " Then Call SetColoreCellaRighe(4,ColoreGiallo,ColoreRosso)
                Call ImpostaGiocata (1,n1,ruota,poste,,clp,2)
                Call Gioca (es,True,,,False  )
                Call GetSpesaVincita(spesa,vincita)
            End If
        Next
        Call AddRigaTabella(T)
        Call SetColoreCellaRighe(4,ColoreVerde,ColoreBianco)
        Call SetColoreCellaRighe(7,ColoreVerde,ColoreBianco)
        CreaTabella
        ScriviResoconto
        Scrivi ("Utile....................... " & (vincita *.92) - spesa ,1)
        DisegnaGraficoAndamento (1250,800)
    End Sub
End Class
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto