Avance de la clase del 22 de Noviembre

Pudimos finalizar el ascensor terminado ede programar el contador total del ascensor.

Apunte de la clase del 22 de Noviembre

Pudimos finalizar el ascensor(acas esta todo lo que hicimos):

Private Sub Command5_Click()
End Sub
Private Sub alarma_Click()If avisodealarma.Caption = "" Thenavisodealarma.BackColor = vbRedavisodealarma.Caption = "_____---DANGER---_____"uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecero.Enabled = Falsemenosuno.Enabled = Falsemenosunodos.Enabled = Falsecerodos.Enabled = Falseunodos.Enabled = Falsedosdos.Enabled = Falsetresdos.Enabled = Falsecuatro.Enabled = Falseparar.Enabled = Falseluz.Enabled = Falsecuatrodos.Enabled = Falseok.Enabled = False
Elseavisodealarma.Caption = ""avisodealarma.BackColor = vbActiveBorderuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecero.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatro.Enabled = Trueparar.Enabled = Trueluz.Enabled = Truecuatrodos.Enabled = Trueok.Enabled = True
End If

End Sub
Private Sub cerodos_Click()ascensor.Top = 3120aux1.Top = 3120aux2.Top = 3120contador0.Caption = Val(contador0.Caption) + 1cero.Enabled = Falsemenosuno.Enabled = Truecerodos.Enabled = Falseuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truemenosunodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd Sub
Private Sub ok_Click()If contraseña.Text = "chinito" Thenascensor.Top = 240aux1.Top = 240aux2.Top = 240aux2.Caption = "240"contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1contadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End Ifuno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Falsecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = FalseElsecontador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd IfEnd Sub
Private Sub tres_Click()ascensor.Top = 960aux1.Top = 960aux2.Top = 960aux2.Caption = aux1.Captionaux1.Caption = "960"contador3.Caption = Val(contador3.Caption) + 1uno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Falsecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Truetresdos.Enabled = Falsecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd Sub
Private Sub dos_Click()ascensor.Top = 1680aux1.Top = 1680aux2.Top = 1680aux2.Caption = aux1.Captionaux1.Caption = "1680"contador2.Caption = Val(contador2.Caption) + 1dos.Enabled = Falseuno.Enabled = Truecero.Enabled = True
tres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = True
menosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Falsetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd Sub
Private Sub uno_Click()ascensor.Top = 2400aux1.Top = 2400aux2.Top = 2400aux2.Caption = aux1.Captionaux1.Caption = "2400"contador1.Caption = Val(contador1.Caption) + 1uno.Enabled = Falsecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Falsedosdos.Enabled = Truemenosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd Sub
Private Sub cero_Click()ascensor.Top = 3120aux1.Top = 3120aux2.Top = 3120aux2.Caption = aux1.Captionaux1.Caption = "3120"contador0.Caption = Val(contador0.Caption) + 1cero.Enabled = Falsemenosuno.Enabled = Truecerodos.Enabled = Falseuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truemenosunodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd Sub
Private Sub cuatro_Click()If contraseña.Text = "chinito" Thenascensor.Top = 240aux1.Top = 240aux2.Top = 240aux2.Caption = aux1.Captionaux1.Caption = "240"contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1contadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End Ifuno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Falsecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = FalseElsecontador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd IfEnd Sub
Private Sub cuatrodos_Click()If contraseña.Text = "chinito" Thenascensor.Top = 120aux1.Top = 120aux2.Top = 120contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1
uno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Falsecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = False
Else
contador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd If
End Sub
Private Sub dosdos_Click()ascensor.Top = 1680aux1.Top = 1680aux2.Top = 1680contador2.Caption = Val(contador2.Caption) + 1dos.Enabled = Falseuno.Enabled = Truecero.Enabled = True
tres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = True
menosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Falsetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd Sub
Private Sub luz_Click()If ascensor.BackColor = vbBlack Thenascensor.BackColor = vbYellowElseascensor.BackColor = vbBlackEnd If
End Sub
Private Sub menosuno_Click()ascensor.Top = 3840aux1.Top = 3840aux2.Top = 3840aux2.Caption = aux1.Captionaux1.Caption = "3840"contadormenos1.Caption = Val(contadormenos1.Caption) + 1menosuno.Enabled = Falsemenosunodos.Enabled = False
cero.Enabled = Trueuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = Truecontadortotal.Caption = Val(aux1.Caption) - Val(aux2.Caption)If contadortotal > 0 Thenverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / 720Elseverdaderocontador.Caption = Val(verdaderocontador.Caption) + Val(contadortotal.Caption) / -720End IfEnd Sub
Private Sub menosunodos_Click()ascensor.Top = 3840aux1.Top = 3840aux2.Top = 3840contadormenos1.Caption = Val(contadormenos1.Caption) + 1menosuno.Enabled = Falsemenosunodos.Enabled = False
cero.Enabled = Trueuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = True
End Sub
Private Sub parar_Click()If uno.Enabled = True Thenuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecero.Enabled = Falsemenosuno.Enabled = Falsemenosunodos.Enabled = Falsecerodos.Enabled = Falseunodos.Enabled = Falsedosdos.Enabled = Falsetresdos.Enabled = Falsecuatro.Enabled = Falsealarma.Enabled = Falseluz.Enabled = Falsecuatrodos.Enabled = Falseok.Enabled = False
Elseuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecero.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatro.Enabled = Truealarma.Enabled = Trueluz.Enabled = Truecuatrodos.Enabled = Trueok.Enabled = True
End IfEnd Sub
Private Sub tresdos_Click()ascensor.Top = 960aux1.Top = 960aux2.Top = 960contador3.Caption = Val(contador3.Caption) + 1uno.Enabled = Truecero.Enabled = Truedos.Enabled = Truetres.Enabled = Falsecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truemenosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Truetresdos.Enabled = Falsecuatrodos.Enabled = TrueEnd Sub
Private Sub unodos_Click()ascensor.Top = 2400aux1.Top = 2400aux2.Top = 2400contador1.Caption = Val(contador1.Caption) + 1uno.Enabled = Falsecero.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Falsedosdos.Enabled = Truemenosuno.Enabled = True
menosunodos.Enabled = True
dosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd Sub
Private Sub verdaderocontador_Click()
End Sub

Articulos que interesan de la octava semana por Ary

1-Cine
Sintesis:El próximo 13 de enero de 2008 se celebrará la 65ª edición de la entrega de los Globos de Oro en la que, tal como se anunció ayer, Steven Spielberg recibirá el Premio Cecil B. DeMille en reconocimiento a su excepcional contribución al mundo del cine.
Opinion:Me parece fantastico que sea premiado en una entrega tan importante en tema destinado al cine Spielberg ya que se lo merece por su larga y exitosa historia como director de este rubro de maravillosas peliculas como Munich ,Jurasic Park, La terminal y otras peliculas excelentes. http://www.blogdecine.com/2007/11/15-steven-spielberg-sera-premiado-en-los-globos-de-oro

2_Juegos
Sintesis:Pues ya se ha comenzado a comercializar en Europa la nueva entrega de uno de los más famosos managers de fútbol. Viene con una nueca interfaz con nuevas “skins”, una nueva opción de management internacional, que te dejará gestionar tu equipo nacional, una barra dinámica, herramientas de análisis y un montón de estadísticas de jugadores y de los partidos jugados. Podéis bajar una demo de Gamershelz.
Opinion:No hay juego tan bueno en la compu como el super soccer manager .Es extraordinario ponerse a pensar que sos el tecnico del equipo que vos elegis y tratas de tanto ascender si empezas con un equipo chico o de obtener campeonatos jugando con un gran equipo ej,Racing.Lejisimos de todos los demas juegos para compu este es el mejor.
http://www.juegosblog.com/2006/10/14/championship-manager-2007/
3_Actualidad de Bs.As.

Sintesis:El planeta entero esta encantado con Buenos Aires. Esta vez, los lectores suscriptos a la revista Travel + Leisure la eligieron como segundo destino preferido para hacer turismo. El año pasado, la misma encuesta, la había ubicado como favorita de Latinoamérica y en séptimo lugar a nivel mundial. La única ciudad que le ganó fue Florencia (por muy poquita diferencia), que también había liderado el ranking en el 2006.


Opinion:Es interesante saber esto ya que nos damos cuenta que lo que nosotros pensamos que es una ciudad fea o normal los de afuera la aprecian como en este caso diciendo que estan encantados con bellezas que posse Bs. As. y por ende encantados para elegirlao como ciudad de destino, de vacaciones,etc.
http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/07/12/otra-vez-favorita/

Avance de la clase del 15 de noviembre por Ary

Con mi compañero Ezequiel logramos programar:
-Contadores de todos los numeros
-El contador total(nos falta algo minimo ya que se nos presento un error)

¿Que estuvo bueno y que falto?

1)Nombrar 3 actividades o contenidos que les sorprendieron haber aprendido este año .
2)Nombrar 3 actividades o contenidos que les sorprendieron haber aprendido este año en TIC.
3)Nombrar dos actividades o contenidos que me hubiesen gustado tener en este año.
4)Nombrar dos actividades o contenidos que me hubiesen gustado tener este año en TIC.

1)A:Me sorprendio en primer lugar fue la vez que hicimos la representacion de una obra de tema libre en hebreo ya que con mis amigos que me toco hacer esta obra pensabamos que no teniamos idea como hacer para crearla ya que ademas de actuarla la teniamos que escribir nosotros.Igual un dia nos juntamos,empezamos a leer lo que habiamos hecho en la carpeta, lo que decia en el libro y finalmente sin ayuda de nadie pudimos escribirla y luego actuarla tan bien que nos sacamos tov meod(muy bien).

B:Algo sorprendente tambien fue sin duda lo de la camara de grafica ya que fue increible como tanto yo como los de la division en general nuca habian hecho algo de ese estilo y pudimos crear primero una camara(obviamente sin flash)y luego en un cuarto especial revelamos la foto que nos sacamos afuera del edificio de construcciones.

C:Otra cosa que no me la imaginaba que ibamos a ver fue en tecnologia lo de los sistemas electricos ya que estamos viendo como son estos.Es decir, vemos cosas que son muy dificiles de aprender pero que se encuentran en muchos de los electrodomesticos , medios de transporte , etc. que usamos o nos manejamos con ellos cotidianamente.

2)A:Lo primero que me sorprendio de TIC fue aprender el signicado de lo que es un blog ya que realmente no lo conocia y luego a usarlo creandome uno y postiando cosas que vos nos pedias postiar tanto en mi blog personal como en el general de la division.

B:Tambien me sorprendio usar un programa llamado Jot Form en el cual vos podes crear encuestas de cualquier tipo y luego con un embed que te da esta pagina luego la podes postiar en algun blog y la gente te puede votar en base a su opinion personal la encuesta que yo hice(algo buenisimo que me intereso muchisimo,tanto fue mi interes que todavia sigo haciendo encuestas y les digo a amigos que opinen votando).

C:Por ultimo,me sorprendio en el programaVisual Basic como vos podes tanto diseñar como programar cosas que se usan diariamente como un control remoto , una claculadora y un ascensor.Es decir, cosas que vos usas casi siempre que yo pude programar y hacer funcionar con mi compañero(y con un poco de ayuda del profesor).

3)A:Algo que me hubiese gustado seria que en la hora de gimnasia con el profesor Angel hubiesemos podido jugar mas seguido al futbol ya que a lo largo del año lo hicimos pocas veces ya que la mayoria de las clase las tenemos en el tercer piso el cual es una cancha de voley y de basquet y no se puede jugar al futbol.

B:Otra cosa que me hubiese gustado seria que en Ciencias Sociales hubieramos podido aprender un poco mas de geografia (cosa que me fascina,principalmente las capitales de los paises)y no tanto de historia como lo hicimos en el año.

4)A:En TIC me hubiese gustado aprender a diseñar paginas webs .Es decir,el año pasado pudimos aprender esto pero no completamente a fondo.Entonces no lo pude aprender y es una cosa que si me la enseñarian la utilizaria para crear mi propia pagina deL mejor tema tema de todos:el futbol.

B:Otra cosa que la comentamos en clase y que me gustaria haber la aprendido fue a traves del photo shop u otros programas poder editar fotos y cuando las tenga en ese programa poder cambiarle la rotacion a esta foto,el color de la foto u otra cosa que me interese que haga que la foto sea como yo la desee.

Avance de la clase del 8 de noviembre por Ary

Con mi compañero de trabajo logramos programar:
-Los contadores de cada piso
-El contador total(nos falta arreglar un detalle)
-Arreglar algo de la contraseña(con el visible)
Y tambien diseñamos ya el 2do ascensor pero todavia no empezamos a programarlo

Articulos que interesan de la septima semana por Ary

1_Cine

Sintesis:Las noticias sobre el remake de ‘Ultimátum a la Tierra’ están siendo repartidas.Ahora nos llega la buena noticia de que el personaje que interpretó Patricia Neal en 1951 será interpretado por la maravillosa Jennifer Connelly, que tiene un par impresionante (de ojos quiero decir). Bueno, al menos podremos disfrutar del trabajo y la belleza de esta cada vez mejor actriz.
Opinion:Esta noticia me atrapo ya que al leerla me di cuenta que el que hace este blog y habla de este tema como a la mayoria de las personas no les interesa la calidad de actuacion que tiene el personaje sino lo que le importa es lo exterior(ejemplo:la belleza).Es decir miran mas la belleza de la acrtiz que la actuacion de la misma.

http://www.blogdecine.com/2007/11/06-jenniffer-connelly-estara-en-el-remake-de-ultimatum-a-la-tierra

2_Juegos
Sintesis:La segunda videoconsola de Sony celebra su séptimo aniversario, cuando la Playstation 2 todavía sigue viva en el mercado, y acumula cifras históricas de ventas. Así lo informa SCEE, la división americana de la compañía.Según sus datos, la Ps2 logró vender 100 millones de máquinas en cinco años y nueve meses, superando a la PsOne, que necesitó nueve años y seis mese para lograr tamaña cifra. Actualmente el número de PS2 vendidas ya superan los 120 millones de unidades.
Opinion:Me parece extraordinario y nafda sorprenderte ver ya la cantidad de ps2 que ya se vendieron ya que esta es fabulosa.Lo que me extraño es como existia ya hace siete años ya que yo la tengo hace dos años esta ps2 y parecia nueva en el mercado.Es normal ver la diferencia de la compra entre la play uno y la dos ya que la dos tiene mucha mas tecnologia y es multiuso(cosa que no posee la play 1). http://juegos.blogs.terra.es/blogs/juegos/archive/2007/11/05/laps2cumplesieteaos.aspx
3_Actualidad de Bs. As.
Sintesis:Más de la mitad de los porteños admite tener conductas violentas cuando está frente al volante. La información la publicó Clarín y se basa en los resultados de una encuesta realizada recientemente por la asociación civil “Luchemos por la vida”. El número es preocupante. Sobre todo, si se tiene en cuenta que este tipo de comportamiento puede derivar en accidentes de tránsito.
Opinion:En un auto muchas o la mayoria de las veces se observan diferentes aspectos o conductas del individuo.Esta comprobado por diferentes encuestas que el porteño es violento a la hora de manejar y esto hace que peligre la vida de mucha gente y del mismo conductor. http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/08/02/%c2%a1anda-a-lavar-los-platos/

Articulos que interesan de la sexta semana por Ary

1_Cine
Sintesis:Las estrellas Julia Roberts y Clive Owen volverán a verse las caras en una película, tras la ácida comedia sexual ‘Closer’. Será para la Universal Pictures en el thriller de acción ‘Duplicity’, que debería comenzar a rodarse en el mes de marzo. La pareja interpretará a unos amantes que resultan ser espías de corporaciones rivales. Juntos trazarán un plan para timar a ambas compañías y llevarse un suculento premio.
Opinion:Elegi este articulo ya que me intereso volver a ver y a oir de Julia Roberts ya que me gustan muchos la peliculas en las que actua como Cuatro novias y un funeral , Nothing Hill , La gran estafa, Eric Brockovich, La mejicana,etc..Ademas me intereso esta pelicula ya que trata de espionaje que es un tema que me gusta ver en las peliculas.
http://www.blogdecine.com/2007/11/02-julia-roberts-y-clive-owen-repetiran-en-duplicity

2_Juegos


Sintesis:Nintendo sigue los pasos de Sega, que tiempo atrás retiro totalmente su apoyo técnico a su fallecida consola Dreamcast, dejando de suministrar servicios y atención a sus soportes más antiguos.
Opinion:Me atrapo totalmente esta noticia ya que recorde cuando jugaba de chico yo a la super nintendo y luego hace un año cuando nos compramos la Play la dejamos de usar completamente y yo creo que con la tecnologia que hay ahora este nintendo es muy antiguo y ya paso su epoca y edad. http://juegos.blogs.terra.es/blogs/juegos/archive/2007/10/22/lamuerteanunciadadelasviejasconsolasdenintendo.aspx

3_Actualidad de Bs.As.

Sintesis:La situación se repite con frecuencia: en cuanto sube una embarazada, un discapacitado o una persona mayor al subte, colectivo o tren, no falta quien se haga el distraído, se esconda detrás del diario, se haga el dormido o, simplemente, mire para otro lado. La escena se resuelve con el llamado a la solidaridad de algún pasajero indignado por la indiferencia del resto.

Opinion:Mas alla de que este especificado en diferentes lugares por ejemplo colectivos , subtes,trenes,etc. el lugar que se le debe dar a un discapacitado a una persona embarazada a una persona mayor o a una perosna que lo requiera un lugar siempre hay gente que se hace el distraido ante esta necesidad de la perosna que posee la dificultad de no poder viajar parada. http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/06/27/la-buena-convivencia/

Apunte de la clase del primero de noviembre

Private Sub cuatro_Click()If contraseña.Text = "chinito" Thenascensor.Top = 856
contador4.Caption = Val(contador4.Caption) + 1Else
contador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd If

End Sub

Private Sub cuatrodos_Click()If contraseña.Text = "chinito" Thenascensor.Top = 856
contador4.Caption = Val(contador4.Caption) + 1Else
contador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd If
End Sub

Private Sub luz_Click()If ascensor.BackColor = vbBlack Thenascensor.BackColor = vbYellowElseascensor.BackColor = vbBlackEnd If
End Sub

Avance de la clase del 18 de octubre por Ary

Con mi compañero Ezequiel llegamos a diseñar todo el ascensor (parte de adentro y de afuera) pero todavia no llegamos a programar nada

Articulos que interesan de la quinta semana por Ary

1_Cine
Sintesis:Desde el guión, el personaje debe tener matices y aristas, estar bien compuesto, mostrar una personalidad diferenciada y que atraiga, ya sea de manera negativa o positiva. A eso además hay que sumarle un intérprete con suficiente carisma como para darle vida. Y una buena dirección de actores. Al parecer, todos estos factores flaquean a la hora de componer hoy en día tipos femeninos.

Opinion: Yo, como fanatico del cine , al ver esta noticia me intereso desde el punto de vistade la comparacion entre el cine y la vida misma.Como este articulo habla de que las mujeres no pueden o son flojas para los factores que le convoca el cine y dice que en estas cosas laas mujeres son poca exitosas y no se comparan como las de antes ni con los actores masculinos de la actualidad.

http://www.blogdecine.com/2007/10/22-que-ocurre-hoy-en-dia-con-los-personajes-femeninos



2_Juegos


Sintesis:Según la empresa de investigación, la consola Wii es el octavo objeto cotidiano digital más deseado entre las mujeres, con un 9% que desean poseerlo. Por otra parte, los hombres, prefieren la Ps3 como su principal soporte de entretenimiento, con un 10% de encuestados ansiosos por adquirirla, y situándola en sexto lugar entre sus preferencias de ocio digital. La 360 y la Wii se encuentran por debajo de la PS3 en el ranking de consolas preferidas por los hombres, ocupando el sexto y el noveno lugar, respectivamente.


Opinion:A mi criterio esta noticia me gusto ya que vi como a las mujeres tambien le gustan este tipo de accesorios tan tecnologicos y extraordinarios y tambien pude ver y saber que los hombre toman preferencia por la play 3 que por la wii ya que eran dos cosas que me encantaban.
http://juegos.blogs.terra.es/blogs/juegos/archive/2007/10/22/lasmujeresprefierenlawiiloshombreslaps3.aspx

3_Actualidad de Bs.As.



Sintesis:El miércoles 10 de octubre, a las 18, el programa de televisión Cuestión de Peso organiza el segundo abrazo simbólico al Congreso de la Nación para pedir que se apruebe la Ley contra la Obesidad. El primer abrazo fue casi un año atrás, el 20 de noviembre del 2006, y juntó casi 10.000 personas que reclamaron la sanción de una ley que contemplara la prevención y el tratamiento que esta enfermedad demanda.



Opinion:Esta noticia me parece totalmente justa ya que es hora que se tome verdaderamente la obesidad como una enfermedad y ser obeso no es una joda es un problema que se debe tratar en cualquier hospital.

http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/10/09/un-programa-de-tv-y-un-reclamo-al-congreso/

Articulos que interesan de la cuarta semana por Ary

1_Celulares

Sintesis:Samsung sigue presentando smartphones con Symbian S60; El Samsung i570 era el smartphone con teclado QWERTY, el i550 era el candybar con cámara de 3.2mpx y, ahora, aparece el SGH-i560 que suma GPS como elemento distintivo en esa familia.

Opinion: Una cosa que me llamo la atencion de esta noticia y que adamas me gusto por ello es que este celular ademas de tenr un monton de funciones muy avanzadas comparadas a la de los demas celulares incluye adentro del celulare un sistema de teclado y ademas un zoomtan optico que llama la atencion por lo delgado que es el equipo.

http://www.celularis.com/samsung/samsung-sgh-i560-hsdpa-symbian-y-gps.php

2_Juegos

Sintesis:Dado que la tarea de verificar uno por uno los videos que los usuarios suben al sitio es sumamente complicada, se decidió la implementación de un sistema antipiratería denominado YouTube Video Identification, el cual se encargará de identificar y eliminar contenido con copyright.

Opinion:En mi opinion esta noticia es interesante y llamativa y sobre todo muy dificil que se cumpla ya que en you tu be se encuentran muchos videos que se piratean constantemente y por ahora nadie hace nada para evitarlo y por ahora estas medidas que dicen que se van a tomar no se tomaron y yo por mi parte no creo que se cumplan.

http://www.dotpod.com.ar/2007/10/16/youtube-implementa-un-filtro-antipirateria/

3_Actualidad de Bs. As.

Sintesis:El 5 de diciembre se conocerán los sitios argentinos que por primera vez se alcen con el Arroba de Oro, un premio que ya tiene su historia en países como El Salvador- donde nació el certamen- Panamá, Honduras, Nicaragua y República Dominicana. Este año es la primera edición local y hasta el 7 de noviembre tenés tiempo de votar(nos).

Opinion:Esto me gusto ya que estaria bueno saber que paginas son las mas visitadas en la Argentina.Yo en mi opinion pienso que sin duda el arroba de oro y con eso el primer puesto va a ser claramente para google.

http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/10/17/¡a-votar-2/

Articulos que interesan de la tercer semana por Ary

1_Celulares

Sintesis:Samsung acaba de presentar un nuevo headset bluetooth, el WEP 430 que está orientado a los que hacen deportes y, aunque no entiendo muy bien esa segmentacion de mercado, su distintivo es el aro de goma que “ata” el auricular alrededor de la oreja.

Opinion:Me parece interesante esto ya que demuestra como cada vez mas vca creciendo la tecnologia y llegando hasta un punto tan sorprendente.Ademas de las ventajas que tine el WEP 430 tambien se le suman esos increibles auriculares que se atan a la oreja con un aro de oreja.

http://www.celularis.com/samsung/samsung-wep-430-un-headset-deportivo.php

2_Juegos

Sintesis:Microsoft Popfly es un nuevo sitio destinado al desarrollo de su nueva plataforma Silverlight, la cual intenta expandirse dentro de la red buscando destronar al tan preciado Flash de Adobe y el uso de AJAX en la famosamente llamada Web 2.0

Opinion:Me gusto esta noticia ya que me interesan y me gustan estos juego de armar y diseñar como el flash y me gusta que se vayan creando mas y con mas tecnologia.

http://www.dotpod.com.ar/2007/10/08/microsoft-popfly-microsoft-hace-alarde-de-silverlight/

3_Actualidad de Bs. As.

Sintesis:Un libro, de 240 páginas, que reúne la historia de 39 pizzerías mas deliciosas de toda Bs. As. . Hay clásicas, de culto, barriales, viejas, nuevas, pioneras y cool. Esta especie de guía también incluye los horarios en que se pueden visitar y un plano en el que se detalla la ubicación de cada local.

Opinion:No se si esta noticia es relevane o quisas pueda ser una pabada pero la pizza me gusta tanto que tenia ganas de poner este articulo.Es lo mas rico que hay .Esta bien , en Bs. As. hay muchos problemas actualmente pero tambien hay que rescatar lo bueno que tiene como el futbol y obviamente esa fascinante pizza.

http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/08/24/nuestra-pizza/

Avance de la clase del 11/10

Pudimos programar:
-mas/menos
-porcentaje
-1/x

Con esto terminamos la calculadora.

Apunte del 11 del 10

Programamos:
Private Sub divididouno_Click()If visor.Caption = 0 Thenvisor.Caption = "ERROR"Elsevisor.Caption = 1 / Val(visor.Caption)End If
End Sub


Private Sub igual_Click()
punto.Enabled = True
If signos.Caption = "+" Then
visor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""
ElseIf signos.Caption = "-" Thenvisor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "*" Thenvisor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "/" ThenIf visor.Caption = "0" Thenvisor.Caption = "ERROR"signos.Caption = ""auxcanal.Caption = ""Elsevisor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""End IfEnd IfEnd IfEnd IfEnd IfIf signos.Caption = "%" Thenvisor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)End If


Private Sub masmenos_Click()visor.Caption = Val(-(visor.Caption))
End Sub

Private Sub porcentaje_Click()signos.Caption = "%"auxcanal.Caption = visor.Captionvisor.Caption = ""
End Sub

Articulos que interesan de la segunda semana

1_Celulares
Sintesis: Nokia sigue avanzando en el mercado del video móvil a toda marcha, al acuerdo alcanzado con la FIBA le suman muevos proveedores de contenidos móviles para el programa tan exitoso como Nokia Video Center que brinda magnificos servicios.

Opinion:Me gusto esta noticia ya que te muestra como a traves de un programa llamado Nokia Video Center en el celular que se encuentra en la imagen de abajo el aparato tiene todo tipo de accesorios impresionantes como noticias de deporte, de la actualidad ,entretenimiento.Ademas posee un Jamba que es parte de este programa que hace que el celular tenga la capacidad de tener cualquier tipo de videos musicales y comics.Tambien y lo que mas me llamo la atencion es que tiene tambien Sony Pictures para trailers y adelantos de la television.


2_Juegos
Sintesis: Hace unos años, crear un ambiente en tres dimensiones demandaba mucho tiempo y pulmón. Luego vinieron algunas aplicaciones específicas para diseño de ambientes y llevaron el 3D a un nivel un poco más sociable, donde el arquitecto podía jactarse de crear sus proyectos directamente en la PC.

Opinion:Me intereso esta noticia ya que cuenta lo dificil que era hacer hace un par de años juegos 3d y que si los hacian en ese entonces eran muy unicos y sorprendentes . Y ahora con programas de este tipo (como el que se encuentra en la imagen de abajo) te ayudan a que el diseño de estos juegos sea mucho mas accesible y es por eso de que ahora hay un monton de juegos 3d y aunque son excelentes dejan de ser tan sorprendentes como antes .

http://www.dotpod.com.ar/2007/10/04/scenecaster-diseno-de-interiores-en-3d-online/

3_Actualidad de Bs. As.
Sintesis:Según una nota que publicó esta semana el diario Clarín, los bloggers argentinos ya son más de 260 mil. Si el dato es cierto, nada despreciable es el puesto 29º que ocupa este blog en el ranking que publica la consultora Alianzo.

Opinion:Esta noticia me impacto al ver la gran cantidad de argentinos que usan el blog . 260 mil son los que tienen blog y me puse a pensar lo que decia el articulo en la pagina de que año a año va aumentando abruptamente la cantidad de blogs y pense que el año pasado por ejemplo yo no sabia lo que era y ahora lo se y tengo uno y conozco un monton y se que va a segir aumentando esta cantidad de blogs año a año como lo esta haciendo.

Articulos que interesan de la primer semana

Los temas que elegi fueron:

1_Celulares

2_Juegos

3_Actualidad de Bs. As.

1_
Opinion:La siguiente imagen del celular que esta abajo la elegi porque me gustan los celulares de este tipo,es decir, con tanta tecnologia y ademas me sorprendi al leer lo que aparecia debajo de la imagen al verel precio tan elevado que tenia el celular.
http://www.dotpod.com.ar/2007/10/01/nokia-n95-cubierto-de-diamantes/

2_

Opinion:Esta imagen que se encuentra abajo la elegi porque es un juego muy parecido al Mac y me fascinan los juegos de ese estilo.

http://www.dotpod.com.ar/2007/10/02/twitux-y-gtwitter-aplicaciones-para-usar-twitter-en-linux/

3_

Opinion:Esta imagen que elegi no me sorprende ya que es lo que esta pasando en Bs. As. en la actualidad y toda la gente lo esta sufriendo y los que trabajan en la politica no hacen nada para mejorarlo y que las personas puedan tener un viaje un poco por lo menos mas placentero.

http://www.buenosaires.gov.ar/blog/pasaenbsas/2007/09/24/el-viajar-no-es-un-placer/

Pantalla de temas que interesan

Esta es la pantalla de mi escritorio virtual de Netvibes en el cual se pueden observar los tres blogs que agregue por mi cuenta. Se tratan de : Celulares , juegos y actualidad de Bs. As. (en ese orden de importancia).

En esta otra pantalla se puede observar la pestaña que se me agrego haciendo click en el icono que nos mando Guillermo en la consigna de Netvibes.

Apunte de la clase del 20 de setiembre

Lo que hicimos en esta clase fue:

Private Sub alcuadrado_Click()
visor.Caption = visor.Caption * visor.Caption

End Sub


Private Sub igual_Click()
punto.Enabled = True

If signos.Caption = "+" Then
visor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "-" Then
visor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "*" Then
visor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "/" Then
If visor.Caption = "0" Then
visor.Caption = "ERROR"
signos.Caption = ""
auxcanal.Caption = ""
Else
visor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
End If
End If
End If
End If
End If
If signos.Caption = "%" Then
visor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)
End If

End Sub

Private Sub potencias_Click()
visor.Caption = visor.Caption * visor.Caption

End Sub

Private Sub raizcuadrada_Click()

If visor.Caption < 0 Then
visor.Caption = "ERROR"
Else
visor.Caption = Sqr((Val(visor.Caption)))
End If

End Sub

Avance de la clase del 20 de setiembre por Ary

Con mi compañero Ezequiel en esta clase logramos programar las siguientes funciones

-Raíz
-Potenciacion
-+/-
Tambien logramos corregir algo del igual que estaba mal y diseñar el porcentaje, el cual todabia no pudimos programar.Esperamos programarlo la clase que viene.

Avance de la clase del 6 de setiembre

En esta clase con mi compañero EZequiel lo que hicimos fue:
Programar en la calculadora:el boton borrar, multiplicar,dividir,la coma,un label afuera de la computadora para que borrase los signos, el igual(lo completamos ya que nos faltaba algo)
Ademas diseñamos 3 botones auxiliares para tapar los numeros y signos auxiliares.

Apunte de la clase del 6 de setiembre

Lo que hicmos con la calculadora hoy fue:
Private Sub borrar_Click()
visor.Caption = ""
auxcanal.Caption = ""
signos.Caption = ""
punto.Enabled = True
End Sub

Private Sub dividido_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "/"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub igual_Click()
punto.Enabled = True

If signos.Caption = "+" Then
visor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "-" Then
visor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "*" Then
visor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "/" Then
If visor.Caption = "0" Then
visor.Caption = "ERROR"
signos.Caption = ""
auxcanal.Caption = ""
Else
visor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
End If
End If
End If
End If
End If
End Sub

Private Sub por_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "*"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
punto.Enabled = False
End Sub

Apunte del 30 de agosto

En esta clase comenzamos la calculadora y lo que hicimos fue:

Private Sub cero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Private Sub cinco_Click()
visor.Caption = visor.Caption + "5"
End Sub

Private Sub cuatro_Click()
visor.Caption = visor.Caption + "4"
End Sub

Private Sub dos_Click()
visor.Caption = visor.Caption + "2"
End Sub

Private Sub nueve_Click()
visor.Caption = visor.Caption + "9"
End Sub

Private Sub ocho_Click()
visor.Caption = visor.Caption + "8"
End Sub


Private Sub onoff_Click()
If onoff1.BackColor = vbRed Then
onoff1.BackColor = vbBlack
auxcanal.Caption = ""
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
mas.Enabled = False
menos.Enabled = False
por.Enabled = False
dividido.Enabled = False
igual.Enabled = False
visor.Caption = ""
borrar.Enabled = False

Else
onoff1.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
mas.Enabled = True
menos.Enabled = True
por.Enabled = True
dividido.Enabled = True
igual.Enabled = True
borrar.Enabled = True

End If
End Sub


Private Sub seis_Click()
visor.Caption = visor.Caption + "6"
End Sub

Private Sub siete_Click()
visor.Caption = visor.Caption + "7"
End Sub

Private Sub tres_Click()
visor.Caption = visor.Caption + "3"
End Sub

Private Sub uno_Click()

visor.Caption = visor.Caption + "1"
End Sub

Private Sub mas_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "+"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub menos_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "-"
visor.Caption = ""
punto.Enabled = True

End Sub

Avance de la clase del 30/8 con mi compañero Ezequiel

Hoy con mi compañero logramos programar:
-Todos los numeros
-Boton de sumar
-Boton de restar
-Boton del igual
-El boton on/off.
-El boton de borrar
Ademas logramos diseñar toda la calculadora.

Apunte del 16/8

Esta clase no apunte nada ya que no concurrimos al laboratorio a realizar el trabajo . Por ende, no pudimos programar nada.

Avance del 23 de agosto ,por Ary

En esta clase lo que hicimos en le trabajo fue:
-Programar de vuelta el enter ya que habiamos hecho algo mal
-Programar el anterior
-Crear el canalanterior

Apunte de la clase del 23 de agosto

Lo que hicimos la clase del 23 fue programar el anterior y el enter .este ult. de vuelta ya que habiamos hecho algo mal.

Private Sub anterior_Click()
auxcanal.Caption = canalant.Caption
canalant.Caption = numerodecanal.Caption
numerodecanal.Caption = auxcanal.Caption
auxcanal.Caption = ""


Private Sub enter_Click()
If tvcatv.Caption = "tv" Then
If auxcanal.Caption < 13 Then
canalant.Caption = numerodecanal.Caption
numerodecanal.Caption = auxcanal.Caption
auxcanal.Caption = ""
Else
auxcanal.Caption = ""

End If
Else
If auxcanal.Caption < 120 Then
canalant.Caption = numerodecanal.Caption
numerodecanal.Caption = auxcanal.Caption
auxcanal.Caption = ""
Else
auxcanal.Caption = ""
End If
End If



End Sub

Avance de la clase del 16/8 con mi compañero Ezequiel

Esta clase no hemos podido avanzar debido a que no concurrimos al laboratorio . Por ende, no pudimos crear el boton anterior ni programar el canal ant , canal mas y el enter( las cosas que vimos en esta clase).Lo haremos el jueves que viene.

Avance de la clase del 19/7 por Ary y Ezequiel

En la clase del 19 de julio programamos:
-canal mas y canal menos para catv para que lleguen a 120 y luego vuelvan a 1
-onoff para que cuando la tele este apagada se desactiven todos los botones de numeros , canal mas , canal menos y enter por medio de enabled.

Cronicas de las vacaciones por Ary

Ejercicio 2
Lo mejor de estas vacaciones fue el campamento de mi club llamado Brit-Ajim donde pasamos tres dias increibles en Hogar Escuela (en Ezeiza).
Lo peor de estas vacaciones fue que los dias se pasaron muy rapidos y no pude disfrutar tanto de descansar.
Algo nuevo que hize fue ver a mi prima de Israel ya que ella se encuentra en vacaciones de verano en su pais natal .Con mi prima nos divertimos mucho hablando en hebreo.
Algo que siempre hago en las vacaciones es descansar mucho haciendo casi todos los dias siestas demasiado largas.
La actividad mas divertida de estas vacaciones fue ir al Abasto con mi amigos donde nos divertimos un monton tanto cuando jugamos como cuando fuimos a comer a Burger King.
La actividad mas aburrida fue haber leido El sabueso de los Baskerville cosa que me aburrio un monton y tambien hacer el trabajo de Scribd ya que cuando algo no me salia me ponia muy nervioso.

Ejercicio 3: los mojones verdes son los que agregue yo, no así los rojos que son los que venian pre hechos por el programa.
Las etiquetas de los lugares que puse se encuentran en mi cuenta personal de FLOF.

Cronica de vacaciones

23 de julio : Fui al shopping con mi familia , paseamos y comimos ahi.

24 de julio: Jugue a la play con mi hermano y lugo fui a futbol a entrenar en avellaneda.

25,26 y 27 de julio: Me fui de campamento con mi club llamado Brit-Ajim a Hogar Escuela en Ezeiza (el lugar).

28 de julio: Descanse en mi casa , jugue a la plat con mi hermano y lei el sabueso de los baskerville.

29 de julio: Pasie con mi prima de Uruguay que vino de visita y junto a mi familia por Recoleta.

30 de julio: Lei la mayor parte de el sabueso de los baskerville y ademas fui a futbol a entrenar.

31 de julio: Fui a trotar con mi papa por los bosques de Palermo y luego me llevo a la casa de un amigo y comimos en burger king.

1º de agosto:Vi la pelicula " Amando a Maradona y luego junto a toda mi familia vi "Paradiso ahora".

2 de agosto: Pude ver a mi prima y mi tio de Israel que vinieron a comer a mi casa y vinieron con mi abuela.

3 de agosto: Sali con mis amigos al Abasto , luego me quede a dormir de uno de ellos y pedimos pizza en La continental que estuvo deliciosa.

Imagen de una de las peliculas que vi en las vacaciones.

Alli me fui de campamento (Ezeiza) con mi club 3 dias.

Analisis de la encuesta

Avpunte de la clase del 19/7

Te pongo el form. nada mas porque me dijiste que con eso alcanzaba.


El formulario de lo que hize en la clase del 19 de julio fue:
Private Sub canalmas_Click
()If tvcatv.Caption = "tv" Then
If Val(numerodecanal.Caption) > 12 Then
numerodecanal.Caption = 1
Else
numerodecanal.Caption = numerodecanal.Caption + 1
End If
Else
If Val(numerodecanal.Caption) > 120 Then
numerodecanal.Caption = 1
Else
numerodecanal.Caption = numerodecanal.Caption + 1
End If
End If
End Sub
Private Sub canalmenos_Click()
If tvcatv.Caption = "tv" Then
If Val(numerodecanal.Caption) < 1 Then
numerodecanal.Caption = 13
Else
numerodecanal.Caption = numerodecanal.Caption - 1
End If
Else
If Val(numerodecanal.Caption) < 1 Then
numerodecanal.Caption = 120
Else
numerodecanal.Caption = numerodecanal.Caption - 1
End If
End If
End Sub
Private Sub onoff_Click()
If OFFON.BackColor = vbRed Then
OFFON.BackColor = vbbalck
canalmas.Enabled = False
canalmenos.Enabled = False
enter.Enabled = False
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False


Else
OFFON.BackColor = vbRed
canalmas.Enabled = True
canalmenos.Enabled = True
enter.Enabled = True
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
End If


If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub
Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
End Sub

Apunte de clase del 12/7

Hoy , 12/7 el formulario que programamos con mi compañero fue:
Private Sub canalmas_Click()
If Val(numerodecanal.Caption) < 13 Then
numerodecanal.Caption = Val(numerodecanal.Caption) + 1
Else
numerodecanal.Caption = 1
End If
End Sub
Private Sub canalmenos_Click()
If Val(numerodecanal.Caption) > 1 Then
numerodecanal.Caption = Val(numerodecanal.Caption) - 1
Else
numerodecanal.Caption = 13
End If
End Sub
Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
End Sub
Private Sub onoff_Click()
If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub
Private Sub cero_Click()
auxcanal.Caption = auxcanal.Caption + "0"
End Sub
Private Sub uno_click ()
auxcanal.Caption = auxcanal.Caption + "1"
Private Sub dos_click ()
auxcanal.Caption = auxcanal.Caption + "2"
End Sub
Private Sub tres_click ()
auxcanal.Caption = auxcanal.Caption + "3"
End Sub
Private Sub cuatro_click ()
auxcanal.Caption = auxcanal.Caption + "4"
End Sub
Private Sub cinco_click ()
auxcanal.Caption = auxcanal.Caption + "5"
End Sub
Private Sub seis_click ()
auxcanal.Caption = auxcanal.Caption + "6"
End Sub
Private Sub siete_click ()
auxcanal.Caption = auxcanal.Caption + "7"
End Sub
Private Sub ocho_click ()
auxcanal.Caption = auxcanal.Caption + "8"
End Sub
Private Sub nueve_click ()
auxcanal.Caption = auxcanal.Caption + "9"

Encuesta de futbol

Definiciones en power point

Pablo NerudaElegia a Pablo Neruda porque me parece un muy buenpoeta y en la primaria estudie poesias de el y me parecioun personaje muy importante y me gustaban mucho las poesias q escuchaba de el

foto imagen

Biografia: -En 1921 se radica en Santiago y estudia pedagogía en francés en la Universidad de Chile, donde obtiene el primer premio de la fiesta de la primavera con el poema La canción de fiesta, publicado posteriormente en la revista Juventud.
En 1924 aparece en Editorial Nascimento sus Veinte poemas de amor y una canción desesperada, en el que todavía se nota una influencia del modernismo.
-En 1945 obtiene el premio Nacional de Literatura.
-En octubre de 1971 recibe el Premio Nobel de Literatura.
-Póstumamente de su muerte se publicaron sus memorias en 1974, con el título Confieso que he vivido

Foto en evento:

Mapa satelital:

Texto literario:

Mi casa, las paredes cuya madera frescarecien cortada huele aun: destartaladacasa de la frontera, que crujiaa cada paso, y silbaba con el viento de guerradel tiempo austral, haciendose elementode tempestad, ave desconocidabajo cuyas heladas plumas crecio mi canto.Vi sombras, rostros que como plantasen torno a mis raices crecieron, deudosque cantaban tonadas a la sombra de un arboly disparaban entre los caballos mojados,mujeres escondidas en la sombraque dejaban las torres masculinas,galopes que azotaban la luz, enrarecidasnoches de colera, perros que ladraban.Mi padre con el alba oscura de la tierra,hacia que perdidos archipielagosen sus trenes que aullaban se deslizo?Mas tarde ame el olor del carbon en el humo,los aceites, los ejes de precision helada,y el grave tren cruzando el invierno extendidosobre la tierra, como una oruga orgullosa.De pronto trepidaron las puertas.Es mi padre.Lo rodean los centuriones del camino:ferroviarios envueltos en sus mantas mojadas,el vapor y la lluvia con ellos revistieronla casa, el comedor se lleno de relatosenronquecidos, los vasos se vertieron,y hasta a mi, de los seres, como una separadabarrera, en que vivian los dolores,llegaron las congojas, las cenudascicatrices, los hombres sin dinero,la garra mineral de la pobreza.Pablo Neruda.

Video: Lo elegi porque me parecio importante esta poesia y me gusto demasiado ademas la combine con la poesiaq es la misma que pusae en el texto literario.

Pantalla

Pantalla

DEFINICIONES

\La informática es la disciplina que estudia el tratamiento automático de la información utilizando dispositivos electrónicos y sistemas computacionales. En lo que hoy conocemos como informática confluyen muchas de las técnicas y de las máquinas que el hombre ha desarrollado a lo largo de la historia para apoyar y potenciar sus capacidades de memoria, de pensamiento y de comunicación.


Internet es una red mundial de computadoras con un conjunto de protocolos, el más destacado, el TCP/IP. Además todos los usuarios pueden comunicarse en Internet desde cualquier parte del mundo.

Un programador es un individuo que ejerce la programación, es decir, que escribe programas de ordenador. Los programadores también reciben el nombre de desarrolladores de software. El programador se encarga de la programación de algoritmos que se encargan mediante un lenguaje de programación que entenderá la computadora.

Usuario: en gral. se denomina a la persona que utiliza en la ultima instancia la computadora y el software de aplicación como herramienta para desarrollar su trabajo o ayudarse en su actividad y por ello se considera en un principio como elemento perteneciente al personal informativo.

World Wide Web: La World Wide Web, la Web o WWW, es un sistema de navegador web para extraer elementos de información llamados "documentos" o "páginas web". Puede referirse a "una web" como una página, sitio o conjunto de sitios que proveen información por los medios descritos, o a "la Web", que es la enorme e interconectada red disponible prácticamente en todos los sitios de Internet. Ésta es parte de Internet, siendo la World Wide Web uno de los muchos servicios ofertados en la red Internet.
Una red de computadoras (también llamada red de ordenadores o red informática) es un conjunto de computadoras y/o dispositivos conectados por enlaces de un medio físico (medios guiados) ó inalámbricos (medios no guiados) y que comparten información (archivos), recursos (CD-ROM, impresoras, etc.) y servicios (e-mail, chat), etc.

Un Programa informático (software) es un conjunto de instrucciones que una computadora puede entender y ejecutar. Puede interpretar y ejecutar una o varias estructuras de datos que almacena la información, independiente de las instrucciones que dicha secuencia de instrucciones maneja. Para ello se la damos a la computadora mediante un lenguaje de programación.
Un blog, es un sitio web cada tanto actualizado que recopila cronológicamente textos o artículos de uno o varios autores, apareciendo primero el más reciente, donde el autor conserva siempre la libertad de dejar publicado lo que crea pertinente. Habitualmente, en cada artículo, los lectores pueden escribir sus comentarios y el autor darles respuesta, de forma que es posible establecer un diálogo.
Un (o una) wiki (del hawaiano wiki wiki, «rápido») es un sitio web que puede ser editado por varios usuarios. Los usuarios de una wiki pueden así crear, editar, borrar o modificar el contenido de una página web, de una forma interactiva, fácil y rápida; dichas facilidades hacen de una wiki una herramienta efectiva para la escritura colaborativa.
RSS es parte del desarrollado específicamente para todo tipo de sitios que se actualicen con frecuencia y por medio del cual se puede compartir la información y usarla en otros sitios web o programas. A esto se le conoce como redifusión o sindicación. El RSS no es otra cosa que un sencillo formato de datos que es utilizado para sindicar (redifundir) contenidos a suscriptores de un sitio web.
YouTube es un sitio web que permite a los usuarios subir, ver y compartir clips de vídeos.. YouTube usa un formato Adobe Flash para servir su contenido. Es popular de la misma manera que lo es Google Video debido a la posibilidad de alojar vídeos personales de manera sencilla. YouTube aloja una variedad de clips de películas, programas de televisión, videos musicales, y vídeos caseros (a pesar de las reglas de YouTube contra subir vídeos con copyright, este material existe en abundancia). Los enlaces a vídeos de YouTube pueden ser también puestos en blogs y sitios web personales usando APIs.
Google Inc., empresa propietaria de la marca Google, es una compañía cuyo principal producto es el principal producto de la información de Internet. . Aunque su principal producto es el buscador, la empresa ofrece también entre otros servicios, un comparador de precios... llamado Froogle, un motor de búsqueda para material almacenado en discos locales Google Desktop Search, y un servicio que ha revolucionado el mundo del correo electrónico gratuito llamado Gmail, el cual dispone para sus usuarios más de 2.800 MB de espacio y va aumentando constantemente a razón de 4 bytes por segundo .Google es el motor de búsqueda mas usado y grande. Ofrece una forma sencilla y rápida de hacer y obtener información

Aviones roboticos en la NASA

La NASA quiere usar aviones robóticos y convencionales en el mismo espacio aéreo
No es una novela de ciencia ficción de Philip K. Dick: La NASA ha comunicado recientemente que está impulsando un programa para conseguir que aviones robots y aviones convencionales pilotados compartan espacio aéreo civil de forma rutinaria y segura.
(CNews) La NASA quiere emplear sus UAVs (Unmaned Aereal Vehicles) comercialmente. Esto implica que aviones robóticos compartan espacio aéreo con los tripulados por personas. Cabe recordar que, hoy en día, los vehículos voladores no tripulados están limitados a pruebas restringidas o espacios militares.
Este programa está siguiendo las propuestas y recomendaciones de la Federal Aviation Administration (Administración Federal de Aviación), apoyados por datos, que permitirían a la agencia idear cómo podrían volar los aviones robots por los mismos cielos que los aviones tripulados por pilotos humanos.
Los participantes en el proyecto son conscientes de que hay muchas barreras técnicas y políticas, así como montones de pruebas, antes de que esto se convierta en una realidad.
En los últimos años, los aviones robots han sido utilizados en algunas catástrofes de gran magnitud, así como en combate en Irak y Afganistán. En los Estados Unidos, aviones prototipo han aterrizado en una autopista, rodeada de cráteres en el desierto. Perfeccionando la tecnología podría extender su uso en aplicaciones civiles y comerciales como la extinción de incendios, control de fronteras o seguridad doméstica y de comunicaciones.
Las compañías industriales involucradas en el programa incluyen gigantes como Boeing, Lockheed Martin Aeronautics y Northrop Grumman Integrated Systems and Aerovironment.

vuelve te lo pido