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
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto