Idea x nuovo script in spaziometria...

[Roby]

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

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. [|)]

pser 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... [)]







"Vero sapiente e' colui che sa di non sapere" (Socrate)

 

[LuigiB]

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.

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

 

[lotto_tom75]

Sei un alienoooo di bravuraaaaaaaaaaaaaaaaaaaaaaaaa!!!

Grazie 1000 mito

[|)]

pser 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)

 

[LuigiB]

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

 

[lotto_tom75]

Ok grazie ancora!



"Vero sapiente e' colui che sa di non sapere" (Socrate)