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ì 21 maggio 2026
    Bari
    88
    65
    11
    87
    59
    Cagliari
    05
    64
    45
    80
    74
    Firenze
    37
    56
    25
    19
    36
    Genova
    29
    31
    90
    15
    17
    Milano
    73
    61
    45
    85
    48
    Napoli
    21
    85
    29
    48
    77
    Palermo
    40
    02
    66
    87
    51
    Roma
    23
    68
    57
    60
    26
    Torino
    44
    04
    76
    05
    57
    Venezia
    79
    86
    19
    29
    40
    Nazionale
    33
    54
    75
    39
    63
    Estrazione Simbolotto
    Milano
    27
    16
    30
    21
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto