El Blog del José

VBScript if else

Option Explicit
'Script written by 
'Script copyrighted by 
'Script version martes, 11 de agosto de 2009 9:37:31

' Procedimiento que imprime los dos puntos introducidos por el usuario
' por orden de mas cercano al origen.
Sub Main()
	Dim punto1, punto2, d1, d2
	
	punto1 = Rhino.GetPoint("Punto 1: ")
	punto2 = Rhino.GetPoint("Punto 2: ")
	
	d1 = (punto1(0)^2 + punto1(1)^2 + punto1(2)^2)^0.5
	d2 = (punto2(0)^2 + punto2(1)^2 + punto2(2)^2)^0.5
	
	If d1 > d2 Then
		Rhino.Print punto2(0) & ", " & punto2(1) & ", " & punto2(2)
		Rhino.Print punto1(0) & ", " & punto1(1) & ", " & punto1(2)
	Else
		Rhino.Print punto1(0) & ", " & punto1(1) & ", " & punto1(2)
		Rhino.Print punto2(0) & ", " & punto2(1) & ", " & punto2(2)
	End If
End Sub

' Lo mismo con el anterior pero con las funciones de la libreria.
Sub Main2()
	Dim punto1, punto2, d1, d2, puntoOrigen
	
	punto1 = Rhino.GetPoint("Punto 1: ")
	punto2 = Rhino.GetPoint("Punto 2: ")
	puntoOrigen = Array(0, 0, 0)
	
	d1 = Rhino.Distance(puntoOrigen, punto1)
	d2 = Rhino.Distance(puntoOrigen, punto2)
	
	If d1 > d2 Then
		Rhino.Print Rhino.Pt2Str(punto2)
		Rhino.Print Rhino.Pt2Str(punto1)
	Else
		Rhino.Print Rhino.Pt2Str(punto1)
		Rhino.Print Rhino.Pt2Str(punto2)
	End If
	
End Sub

' Lo mismo que el anterior pero con 3 puntos.
' Además añade una polilinea que empezando en el origen pasa por
' los 3 puntos.

Sub Main3()
	Dim punto1, punto2, punto3, auxPunto, d1, d2, d3, auxD, po
	
	
	punto1 = Rhino.GetPoint("Punto 1: ")
	punto2 = Rhino.GetPoint("Punto 2: ")
	punto3 = Rhino.GetPoint("Punto 3: ")
	po = Array(0, 0, 0)
	
	d1 = Rhino.Distance(po, punto1)
	d2 = Rhino.Distance(po, punto2)
	d3 = Rhino.Distance(po, punto3)
	
	
	If d3 < d2 Then
		' Intercambiamos las distancias
		auxD = d3
		d3 = d2
		d2 = auxD
		' Intercambiamos los puntos correspondientes
		auxPunto = punto3
		punto3 = punto2
		punto2 = auxPunto
	End If
		
	If d2 < d1 Then
		auxD = d2
		d2 = d1
		d1 = auxD
		auxPunto = punto2
		punto2 = punto1
		punto1 = auxPunto
	End If
	
	If d3 < d2 Then
		' Intercambiamos las distancias
		auxD = d3
		d3 = d2
		d2 = auxD
		' Intercambiamos los puntos correspondientes
		auxPunto = punto3
		punto3 = punto2
		punto2 = auxPunto
	End If
	
	Rhino.Print Rhino.pt2str(punto1)
	Rhino.Print Rhino.Pt2Str(punto2)
	Rhino.print Rhino.Pt2Str(punto3)
	
	Rhino.AddLine po, punto1
	Rhino.AddLine punto1, punto2 
	Rhino.AddLine punto2, punto3
	
End Sub

Mas ejemplos de if - else. Taras siento el retraso, la próxima vez los colgaré al acabar la clase.

mcts exam 70-536

Bueno he elegido este como primer titulo Microsoft, a ver si lo consigo. Trata sobre «.NET FRAMEWORK 2.0 Application development foundation» y voy a seguir el libro oficial, que consta de nada menos que 1040 páginas aproximadamente. He empezado a leerlo y comenta que necesitas haber programado dos años en vistual studio, ya veremos si es verdad :D.

Un ejemplo de if else anidados

Sub ComprobarCuadrante()
	Dim x, y
	x = Rhino.getreal("coordenada x:")
	y = Rhino.getreal("coordenada y:")
	If x = 0 And y = 0 Then
		Rhino.Print "Origen"
	Else
		If x = 0 Then
			If y > 0 Then
				rhino.print "y +"
			Else
				rhino.print "y -"
			End If
		Else
			If y = 0 Then
				If x < 0 Then
					rhino.print "x -"
				Else
					rhino.print "x +"
				End If
			Else
				If x > 0 Then
					If y > 0 Then
						rhino.print "I"
					Else
						rhino.print "IV"
					End If
				Else
					If y > 0 Then
						rhino.print "II"
					Else
						rhino.print "III"
					End If
				End If
			End If
		End If
	End If
End Sub

arrays

 
' Matrices o Arrays.
' Si declaras un array mediante el uso de Dim el tipo de cada
' elemento del array es generico (puede contener un valor de cualquier tipo).
' A cada posicion le puedes asignar un valor del cualquier tipo.
' Pero al array no se le puede asignar un array especifico
' como un rhpoint o un array(2, 2, 2). Estos son arrays de elementos de tipos concretos.
' En el momento de la declaración entre los parentesis se indica el indice máximo
' si el indice máximo es 2, iria de 0 a 2.
' Para crear una matriz, creamos un vector y luego le asignamos componente a componente.

Sub probe1()
	Dim p1(2)
	
	' error, no es lo mismo un array generico que un array punto.
	' p1 = rhino.getpoint("un punto")
	' p1 = array(2, 2, 2)
	
	p1(0) = array(2, 2, 2) ' en la primera fila, 3 columnas todas con valor 2.
	p1(1) = rhino.getpoint("un punto") ' en la segunda fila un punto de rhino.
	rhino.print p1(0)(0) ' interesante forma de acceder al primer elemento de la primera fila
	p1(2) = 6 ' en la tercera fila un entero 
End Sub

VBScript in Rhino

Bueno, ahora me pongo a aprender programación en Rhinoceros, es bastante mas sencillo de lo que pensaba. El tema es que los tipos de datos van un poco a lo loco, ya que para las variables no se indica tipo en la declaracíon, solo hay que diferenciar si son vectores o no. Además, tampoco se indica el tipo de los elementos del vector y cada uno puede ser de un tipo u otro .

CAZORLA

Pues bien, acabo de volver de un hotel balneario (balneario parque de cazorla), que se encuentra en un pueblo de ésta llamado «arroyo frio». Era una oferta, están de apertura. La verdad es que esta bien, pero el personal de recepción está poco rodado y la información sobre el funcionamiento era inexistente. Era en plan aventura gráfica, pulsa este botón y a ver que pasa. Una vez controlados los botones y como la oferta incluye gratis el SPA, ya se lo que es un hidromasaje, jacuzzi, ducha escocesa, cañones de agua….

Lo mejor las tardes, en la piscina vacía, en buena compañía y con la sierra delante.

De todas formas, en ese hotel o en otro, ir a cazorla…

Padre de familia

Para mi, uno de los grandes momentos de esta serie, sin duda:

[youtube]http://www.youtube.com/watch?v=o4FJ56YQFHk[/youtube]

El amigo informático

voy a probar a poner un vídeo a ver si sale…

[youtube]http://www.youtube.com/watch?v=R3nNR_XALoQ[/youtube]

XCM XFPS 360

Bueno, esto es un adaptador de teclado, raton y mando para ps2, para la xbox 360. Yo tengo ya mi edad, y la agilidad no la tengo con el pad, si no con mi teclado y ratón, asi que, para jugar al «gear wars» (por ejemplo), buscaba algo así. Parece ser que lo único que hay en el mercado es esto. Me puse a leer por ahi sobre opiniones y aqui aún no esta muy extendido y la gente habla (por hablar) sobre el. En las americas, encontre este post:

. Using the mouse and keyboard is like using a PC. Its easy. If you’re playing a first person shooter, its just a matter of point and click. Unfortunately, the XFPS sometimes does not recognize small movements but in some games, you can adjust the sensitivity but even sometimes that doesnt work and the mouse can be finicky especially during those crucial moments when you’re going for that headshot! So its pretty much a hit or miss. There were no problems with the use of the keyboard.

So, me esperaré, es que son 90€, si alguien tiene experiencia propia sobre esto, le agradeceria mil, que la compartiera.

SALSAS

Acabo de descubrir que no me gusta la salsa gorgonzola (en general ningún queso agrio). Supongo que será porque no me gusta el queso gorgonzola. Bueno, la he hecho yo, a lo mejor en algun restaurante conocen algun truquillo que la hará esquisita. Seguire con mi salsa de espinacas y mi salsa de tomate :).