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ì 16 dicembre 2025
    Bari
    78
    53
    62
    77
    16
    Cagliari
    15
    58
    32
    39
    24
    Firenze
    85
    20
    39
    32
    29
    Genova
    17
    60
    15
    33
    43
    Milano
    13
    39
    14
    15
    34
    Napoli
    82
    76
    15
    24
    73
    Palermo
    40
    55
    78
    26
    08
    Roma
    23
    41
    17
    53
    76
    Torino
    52
    20
    70
    59
    65
    Venezia
    43
    58
    19
    08
    09
    Nazionale
    71
    55
    60
    04
    35
    Estrazione Simbolotto
    Venezia
    28
    37
    27
    40
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto