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
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto