Novità

Idea x nuovo script in spaziometria...

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Se non c'è già dentro il fantastico programma e semplicemente... non riesco a trovarlo :D

Per gli eccelsi programmatori (primo fra tutti ovviamente luigi) qui presenti sono sicuro sia una bazzecola realizzarlo.

Dunque si tratterebbe solo... di questo:

Dato in pasto allo script 21 ambi generare per ognuno un grafico relativo a tutti i ritardi x ogni ruota riscontrati dal 1871 al 2011.

Credo sia proprio banale per voi geni ;) di script in spaziometria.

Grazie infinite se potete postarlo x tutti/e.

Un saluto, grazie e ancora complimenti all'incredibile team che avete formato con a capo il mitico LuigiB. [|)]

ps:Per cercare eventualmente di collaborare con piccolissimi apporti... in futuro vi chiedo... il linguaggio di script di spaziometria è molto dissimile dal c++? Perchè quest'ultimo un poco lo mastico... [:o)]







"Vero sapiente e' colui che sa di non sapere" (Socrate)
 
Ciao LottoTom , se sapevi lavorare in c++ il linguaggio script te lo mangi a colazione..
Lo script che ti posto nnon fa esattamente quello che hai chiesto ,
si limita a fare il grafico di un solo ambo che verra chiesto all'utente
.E' un ottimo punto di partenza per realizzare lo script che ti serve.

Codice:
Option Explicit
Sub Main
	
	ReDim aRuote(1)
	ReDim aNumeri(2)
	Dim idEstr
	Dim nEstrTot
	Dim tmpRit
	Dim nMaxRit
	Dim nE
	Dim sAmbo
	
	
	If ScegliRuote(aRuote) Then
	
		If ScegliNumeri(aNumeri) = 2 Then
			sAmbo = StringaNumeri(aNumeri)
			nEstrTot =(EstrazioneFin + 1) - EstrazioneIni
			ReDim aValoriGraf(nEstrTot,2)
			For idEstr = EstrazioneIni To EstrazioneFin 		
				nE = nE + 1
				aValoriGraf(nE,1) = nE
				If AmboUscito(aRuote,aNumeri,idEstr) Then
					
					tmpRit = 0
					aValoriGraf(nE,2) = tmpRit
				Else
					tmpRit = tmpRit + 1
					aValoriGraf(nE,2) = tmpRit
					If tmpRit > nMaxRit Then
						nMaxRit = tmpRit
					End If

				End If
			Next
			
			Call PreparaGrafico("Grafico ritardo ambo " & sAmbo,0,nEstrTot,0,nMaxRit,nEstrTot /20, nMaxRit/10)
			Call DisegnaLineaGrafico(aValoriGraf,Blu_,sAmbo)

			Call InserisciGrafico

		Else
			MsgBox "Scegliere solo 2 numeri"
		End If
	End If
	
End Sub

Function AmboUscito(aRuote,aNumeri ,idEstr )

	
	Dim k, j , p 
	Dim ret
	
	ret = False
	
	For k = 1 To UBound(aRuote)
		p =0
		If aRuote(k) > 0 Then 
			For j = 1 To 2 
				If IsNumeroPresenteInEstrazione(idEstr  , aRuote(k),aNumeri(j),0) Then
					p = p +1 
				End If
			Next
			If p = 2  Then 
				ret = True
				Exit For 
			End If 
		Else
			Exit For 
		End If
	Next
	AmboUscito = ret 
	
End Function
 
Sei un alienoooo di bravuraaaaaaaaaaaaaaaaaaaaaaaaa!!! :D

Grazie 1000 mito

[|)]

ps:Per cercare di inoltarmi pian piano in questo per me nuovo linguaggio script aggrappandomi a questo esempio qui sopra come si modifica la linea dei ritardi crescenti (quella ascendente) che magari potrebbe essere + fine e di un altro colore?

"Vero sapiente e' colui che sa di non sapere" (Socrate)
 
piu fine non si puo , ti pare molto spessa perche se scegli un range molto ampio i punti cvengono disegnati vicinissimi , d'altra parte 8000
estrazioni per la larghezza del grafico ... il colore si modifica facilmente leggi bene il codice e sono certo che tte ne accorgerai da solo.
Ciao
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39

Ultimi Messaggi

Indietro
Alto