Apunte de la clase del 22 de Noviembre

Pudimos finalizar el ascensor(acas esta todo lo que hicimos):Private Sub Command5_Click()End SubPrivate 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 = FalseElseavisodealarma.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 = TrueEnd IfEnd SubPrivate 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 SubPrivate 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 SubPrivate 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 = Truemenosunodos.Enabled = Truedosdos.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 SubPrivate 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 = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.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 SubPrivate 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 = Truemenosunodos.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 SubPrivate 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 SubPrivate 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 SubPrivate Sub cuatrodos_Click()If contraseña.Text = "chinito" Thenascensor.Top = 120aux1.Top = 120aux2.Top = 120contraseña.Text = ""contador4.Caption = Val(contador4.Caption) + 1uno.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 SubPrivate Sub dosdos_Click()ascensor.Top = 1680aux1.Top = 1680aux2.Top = 1680contador2.Caption = Val(contador2.Caption) + 1dos.Enabled = Falseuno.Enabled = Truecero.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truemenosuno.Enabled = Truemenosunodos.Enabled = Truedosdos.Enabled = Falsetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate Sub luz_Click()If ascensor.BackColor = vbBlack Thenascensor.BackColor = vbYellowElseascensor.BackColor = vbBlackEnd IfEnd SubPrivate Sub menosuno_Click()ascensor.Top = 3840aux1.Top = 3840aux2.Top = 3840aux2.Caption = aux1.Captionaux1.Caption = "3840"contadormenos1.Caption = Val(contadormenos1.Caption) + 1menosuno.Enabled = Falsemenosunodos.Enabled = Falsecero.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 SubPrivate Sub menosunodos_Click()ascensor.Top = 3840aux1.Top = 3840aux2.Top = 3840contadormenos1.Caption = Val(contadormenos1.Caption) + 1menosuno.Enabled = Falsemenosunodos.Enabled = Falsecero.Enabled = Trueuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecerodos.Enabled = Trueunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate 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 = FalseElseuno.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 = TrueEnd IfEnd SubPrivate 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 = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Falsecuatrodos.Enabled = TrueEnd SubPrivate 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 = Truemenosunodos.Enabled = Truedosdos.Enabled = Truetresdos.Enabled = Truecuatrodos.Enabled = TrueEnd SubPrivate Sub verdaderocontador_Click()End Sub

Avance de la clase del 22 de noviembre

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

Avance de la clase del 8 de noviembre

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

Que estubo bueno y que falto

1. Nombra 3 actividades que te hayan sorprendido haber aprendido este año y explica el por que.

Me sorprendieron:

-En hebreo haber aprendido a poder describir una imagen, a hablar más o menos, a poder hacer una historia.
-La segunda cosa fue en grafica haber echo una cámara fotográfica, ya que nunca me imagine que con cartón, cartulina, y papel fotográfico podría hacer una foto con la que después me quedaría, nunca me hubiese imaginado que era tan fácil de hacer y una experiencia tan entretenida.
-Otra cosa q me sorprendía fue el torneo de handball, en el que fuimos a jugar a Velez. No me imagine que iríamos a un club a jugar un torneo y fue una experiencia muy divertida que compartí con mis compañeros de handball.


Nombrar 3 actividades o contenidos que les sorprendió haber aprendido en TIC este año. Expliquen porqué:

-Una de las cosas que me sorprendió haber aprendido en TIC fue aprender a programar, ya que en 4º año yo quiero seguir informática y creo que esto me será muy útil, además me pareció muy divertido haber aprendido a usar Visual Basic ya que a mi me gusta programar.
-Otra de las cosas que me sorprendió haber aprendido fueron las páginas que no conocía, ya que son muy útiles para todo, como netvives para poder poner muchas páginas adentro de una misma.
-La otra cosa que me sorprendió fue el echo de poder hacer una encuesta en la que la gente pueda votar, porque no me imaginaba que a través de una pagina se pueda hacer una encuesta en la que la gente pueda dar su opinión votando y después se puedan sacar los resultados ya con ellos hacer conclusiones.


Nombrar 2 actividades o contenidos que les hubiera gustado tener. Expliquen porqué:

-Me hubiera gustado haber leído un libro en ingles como hicimos el año pasado, ya que seria muy interesante y entretenido.
-Me hubiese gustado hacer la maqueta de la planta que hicimos en comunicación grafica, ya que hubiese sido una gran experiencia y muy divertida el poder hacer una maqueta.


Nombrar 2 actividades o contenidos que les hubiera gustado tener en TIC. Expliquen porque.


-Me hubiese gustado aprender a programar un juego aunque sea uno sencillo, porque me gusta mucho programar y aprender a programar un juego seria una experiencia increíble.
-Me gustaría haber aprendido un poco más sobre programación, algún nuevo programa o un poco mas sobre Visual Basic, ya que me gusta programar y me resulta entretenido pero creo que tendré que esperar hasta 4º.

avance de la clase del 11/10

Pudimos programar:
-mas/menos
-porcentaje
-1/x
Con esto terminamos la calculadora.

apunte de la clase del 11/10

Programamos:
Private Sub divididouno_Click()
If visor.Caption = 0 Then
visor.Caption = "ERROR"
Else
visor.Caption = 1 / Val(visor.Caption)End IfEnd SubPrivate Sub igual_Click()punto.Enabled = TrueIf signos.Caption = "+" Thenvisor.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 IfPrivate Sub masmenos_Click()visor.Caption = Val(-(visor.Caption))End SubPrivate Sub porcentaje_Click()signos.Caption = "%"auxcanal.Caption = visor.Captionvisor.Caption = ""End Sub