jueves, 22 de noviembre de 2007
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
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
jueves, 15 de noviembre de 2007
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-oro2_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)
-Contadores de todos los numeros
-El contador total(nos falta algo minimo ya que se nos presento un error)
jueves, 8 de noviembre de 2007
¿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.
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
-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
martes, 6 de noviembre de 2007
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/
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.aspx3_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/
Suscribirse a:
Entradas (Atom)