Novità

Joe Grafico

G

genios

Advanced Member >PLATINUM<
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ì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto