Novità

Joe Grafico

G

genios

Advanced Member >PLATINUM PLUS<
Joe è possibile modificare lo script in modo di avere in uscita un grafico dove sull' ascisse vengono riportati i 90 numeri e sulle ordinate i valori che otteniamo dallo script .

Codice: 
'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE


Sub Main
Dim R(12)
Dim NN(1)
For RR = 1 To 1
If Rr = 11 Then Rr = Rr + 1
Scrivi NomeRuota(rr)
R(1) = 12
fin = EstrazioneFin -1000
For n = 1 To 90
NN(1) = n
a = fin
For Rit = 1 To 15

A = SerieUltima(a - 260,a,N,RR) - 1


Next
If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
Next
Scrivi
Next
Scrivi fin
End Sub





Function SerieUltima(ini,fin,n,rr)
For Es = ini To fin
If Posizione(es,rr,n) > 0 Then SerieUltima = es
Next

End Function

Ciao Eugenio
 
Codice: 
Sub Main
	'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
	'Scritto da Joe91 Maggio 2007
	'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
	Call PreparaGrafico("Grafico",0,90,0,500,1,50)
	ReDim aV(90,2)
	Dim R(12)
	Dim NN(1)
	For RR = 1 To 1
		If Rr = 11 Then Rr = Rr + 1
		Scrivi NomeRuota(rr)
		R(1) = 12
		fin = EstrazioneFin - 1000
		For n = 1 To 90
			NN(1) = n
			a = fin
			For Rit = 1 To 15
				A = SerieUltima(a - 260,a,N,RR) - 1
			Next
			If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
			aV(n,1) = n
			aV(n,2) =(Fin - a)
		Next
		Scrivi
	Next
	Scrivi fin

	Call DisegnaLineaGrafico(aV ,2,"A")
	Call InserisciGrafico
End Sub
Function SerieUltima(ini,fin,n,rr)
	For Es = ini To fin
		If Posizione(es,rr,n) > 0 Then SerieUltima = es
	Next
End Function
 
Grazie Joe . Ti chiedo se fosse fattibile inserire nello stesso script altri 2 grafici uno per 10 ritardi e uno per 5 ritardi .

Ciao Eugenio
 
Ciao Eugenio

Ho utilizzato l'esempio a corredo di Spaziometria, che prevedeva 2 linee nel grafico.

Ne ho tolta una, per adattarlo alla tua richiesta.

Per me è noioso, rifare ciò che ho appena disfatto.

mentre, per te che ne hai l'interesse oltre un tracciato del modo ...

sarebbe un buon esercizio.

:)
 
Un po' rudimentale ma poi studio meglio . Ora ti chiedo se ce possibilità di assegnare a ciascun grafico un colore diverso e stampare sul grafico 3 rette parallele costanti di valore 135 270 405 ed aumentare la spaziatura tra un numero e l' altro .
Codice: 
Sub Main
    'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
    'Scritto da Joe91 Maggio 2007
    'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
    Call PreparaGrafico("Grafico",0,90,0,500,1,50)
    ReDim aV(90,2)
    ReDim av5(90,2) 
    ReDim aV15(90,2) 
    Dim NN(1)
    For RR = 12 To 12
        If Rr = 11 Then Rr = Rr + 1
        Scrivi NomeRuota(rr)

        fin = EstrazioneFin 
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit = 1 To 5
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            aV(n,1) = n
            aV(n,2) =(Fin - a)
        Next
        Scrivi
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit10 = 1 To 10
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            av5(n,1) = n
            av5(n,2) =(Fin - a)
        Next
Scrivi
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit15 = 1 To 15
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            aV15(n,1) = n
            aV15(n,2) =(Fin - a)
        Next

    Next
    Scrivi fin

    Call DisegnaLineaGrafico(aV ,2,"A")
    Call InserisciGrafico

    Call DisegnaLineaGrafico(av5,2,"A")
    Call InserisciGrafico

    Call DisegnaLineaGrafico(aV15,2,"A")
    Call InserisciGrafico
End Sub
Function SerieUltima(ini,fin,n,rr)
    For Es = ini To fin
        If Posizione(es,rr,n) > 0 Then SerieUltima = es
    Next
End Function
 
Risolto cosi . Per il cambiamento dei colori occorre intervenire sulla funzione scrivi ?

Codice: 
Sub Main
    'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
    'Scritto da Joe91 Maggio 2007
    'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
    Call PreparaGrafico("Grafico",0,90,0,500,1,50)
    ReDim aV(90,2)
    ReDim av5(90,2) 
    ReDim aV15(90,2) 
    ReDim av135(90,2)
    ReDim av270(90,2)
    ReDim av405(90,2)
    Dim NN(1)
    For RR = 12 To 12
        If Rr = 11 Then Rr = Rr + 1
        Scrivi NomeRuota(rr)

        fin = EstrazioneFin 
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit = 1 To 5
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            aV(n,1) = n
            aV(n,2) =(Fin - a)
        Next
        Scrivi
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit10 = 1 To 10
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            av5(n,1) = n
            av5(n,2) =(Fin - a)
        Next
Scrivi
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit15 = 1 To 15
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            aV15(n,1) = n
            aV15(n,2) =(Fin - a)
        Next
For n = 1 To 90
            NN(1) = n


                A = 135            
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            av135(n,1) = n
            av135(n,2) =a
        Next
For n = 1 To 90
            NN(1) = n


                A = 270            
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            av270(n,1) = n
            av270(n,2) =a
        Next
For n = 1 To 90
            NN(1) = n


                A = 405             
            'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
            av405(n,1) = n
            av405(n,2) =a
        Next

    Next
    Scrivi fin

    Call DisegnaLineaGrafico(aV ,2,"A")
    Call InserisciGrafico

    Call DisegnaLineaGrafico(av5,2,"A")
    Call InserisciGrafico

    Call DisegnaLineaGrafico(aV15,2,"A")
    Call InserisciGrafico

    Call DisegnaLineaGrafico(av135,2,135)
    Call InserisciGrafico

    Call DisegnaLineaGrafico(av270,2,270)
    Call InserisciGrafico

Call DisegnaLineaGrafico(av405,2,405)
    Call InserisciGrafico


End Sub
Function SerieUltima(ini,fin,n,rr)
    For Es = ini To fin
        If Posizione(es,rr,n) > 0 Then SerieUltima = es
    Next
End Function
 
Codice: 
Sub Main
	'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
	'Scritto da Joe91 Maggio 2007
	'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
	Call PreparaGrafico("Grafico",0,90,0,500,1,50)
	ReDim aV(90,2)
	ReDim av5(90,2)
	ReDim aV15(90,2)
	ReDim aV135(90,2)
	Dim NN(1)
	For RR = 12 To 12
		If Rr = 11 Then Rr = Rr + 1
		Scrivi NomeRuota(rr)
		fin = EstrazioneFin
		For n = 1 To 90
			NN(1) = n
			a = fin
			For Rit = 1 To 5
				A = SerieUltima(a - 260,a,N,RR) - 1
			Next
			'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
			aV(n,1) = n
			aV(n,2) =(Fin - a)
		Next
		Scrivi
		For n = 1 To 90
			NN(1) = n
			a = fin
			For Rit10 = 1 To 10
				A = SerieUltima(a - 260,a,N,RR) - 1
			Next
			'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
			av5(n,1) = n
			av5(n,2) =(Fin - a)
		Next
		Scrivi
		For n = 1 To 90
			NN(1) = n
			a = fin
			For Rit15 = 1 To 15
				A = SerieUltima(a - 260,a,N,RR) - 1
			Next
			'If fin - a > 0 Then Scrivi Format2(N) & " " & Fin - a
			aV15(n,1) = n
			aV15(n,2) =(Fin - a)
		Next
	Next
	For n =  0 To 90 
		aV135(n,1) = n
		aV135(n,2) = 135
	Next
	Scrivi fin
	Call DisegnaLineaGrafico(aV,1,"A")
	Call DisegnaLineaGrafico(aV135,1,"135")
	'Call InserisciGrafico
	Call DisegnaLineaGrafico(av5,2,"B")
	'Call InserisciGrafico
	Call DisegnaLineaGrafico(aV15,3,"C")

	Call InserisciGrafico
End Sub
Function SerieUltima(ini,fin,n,rr)
	For Es = ini To fin
		If Posizione(es,rr,n) > 0 Then SerieUltima = es
	Next
End Function
 
capito

Codice: 
Sub Main
    'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
    'Scritto da Joe91 Maggio 2007
    'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
    Call PreparaGrafico("Grafico",0,90,0,600,1,50)
    ReDim aV5(90,2)
    ReDim aV10(90,2)
    ReDim aV15(90,2)
    ReDim aV135(90,2)
    ReDim aV270(90,2)
      ReDim aV405(90,2)

    Dim NN(1)
    For RR = 12 To 12
        If Rr = 11 Then Rr = Rr + 1
        Scrivi NomeRuota(rr)
        fin = EstrazioneFin -100
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit = 1 To 5
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 135 Then Scrivi Format2(N) & " " & Fin - a
            aV5(n,1) = n
            aV5(n,2) =(Fin - a)
        Next
        Scrivi
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit10 = 1 To 10
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 270 Then Scrivi Format2(N) & " " & Fin - a
            aV10(n,1) = n
            aV10(n,2) =(Fin - a)
        Next
        Scrivi
        For n = 1 To 90
            NN(1) = n
            a = fin
            For Rit15 = 1 To 15
                A = SerieUltima(a - 260,a,N,RR) - 1
            Next
            'If fin - a > 405 Then Scrivi Format2(N) & " " & Fin - a
            aV15(n,1) = n
            aV15(n,2) =(Fin - a)
        Next
    Next
    For n =  0 To 90 
        aV135(n,1) = n
        aV135(n,2) = 135
    Next
    For n =  0 To 90 
        aV270(n,1) = n
        aV270(n,2) = 270
    Next
      For n =  0 To 90 
        aV405(n,1) = n
        aV405(n,2) = 405
    Next

    Scrivi fin
    Call DisegnaLineaGrafico(aV5,1,"A")
    Call DisegnaLineaGrafico(aV135,1,"135")
    'Call InserisciGrafico

    Call DisegnaLineaGrafico(aV10,2,"B")
    Call DisegnaLineaGrafico(aV270,1,"270")
    'Call InserisciGrafico

    Call DisegnaLineaGrafico(aV15,3,"C")
    Call DisegnaLineaGrafico(aV405,1,"405")
    Call InserisciGrafico

End Sub
Function SerieUltima(ini,fin,n,rr)
    For Es = ini To fin
        If Posizione(es,rr,n) > 0 Then SerieUltima = es
    Next
End Function
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 dicembre 2025
    Bari
    72
    48
    90
    14
    52
    Cagliari
    11
    78
    87
    47
    53
    Firenze
    50
    08
    32
    71
    74
    Genova
    20
    18
    09
    76
    07
    Milano
    13
    34
    68
    07
    16
    Napoli
    75
    61
    50
    16
    10
    Palermo
    32
    44
    38
    16
    70
    Roma
    13
    67
    32
    44
    69
    Torino
    45
    64
    49
    37
    63
    Venezia
    81
    19
    30
    79
    36
    Nazionale
    21
    85
    89
    35
    77
    Estrazione Simbolotto
    Venezia
    38
    12
    34
    27
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto