Novità

Spazio Script in VbNet Per LottoProjectLB

Mike58

Advanced Member >PLATINUM PLUS<
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​
 
L

LuigiB

Guest
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
 

antonino7629

Junior Member
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
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.
 
L

LuigiB

Guest
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.
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 
L

LuigiB

Guest
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
Per ora i miei neuroni con le sinapsi sono andati a riposare.
Dai correggilo che deve servire agli scopi prefissati.
Grazie per lo stimolo.
 
L

LuigiB

Guest
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
 

antonino7629

Junior Member
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
Ok. Ugualmente grazie...
 

Mike58

Advanced Member >PLATINUM PLUS<
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​
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 
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
Buon pomeriggio mike, ti è possibile inserire in questo script i numeri da mettere in gioco evidenziandoli e aggiungere in indice di convenienza
grazie
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto