Brii !

Ascensor 3 (por Bri)

2008-11-19T16:43:00.001-08:00

Private Sub Boton1_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = False
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 4440
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(Cantpiso1.Caption) + 1

End Sub

Private Sub Boton12_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = False
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 4440
Numpisoo.Caption = 1
Numpisoss2.Caption = 1
Numpisopb2.Caption = 1
Numpiso12.Caption = 1
Numpiso22.Caption = 1
Numpiso32.Caption = 1
Numpiso42.Caption = 1
Numpiso52.Caption = 1
Cantpiso12.Caption = Val(Cantpiso12.Caption) + 1
End Sub

Private Sub Boton2_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(2)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = False
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 3360
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(Cantpiso2.Caption) + 1

End Sub

Private Sub Boton22_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(2)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = False
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 3360
Numpisoo.Caption = 2
Numpisoss2.Caption = 2
Numpisopb2.Caption = 2
Numpiso12.Caption = 2
Numpiso22.Caption = 2
Numpiso32.Caption = 2
Numpiso42.Caption = 2
Numpiso52.Caption = 2
Cantpiso22.Caption = Val(Cantpiso22.Caption) + 1
End Sub

Private Sub Boton3_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(3)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = False
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 2280
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1

End Sub

Private Sub Boton32_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(3)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = False
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 2280
Numpisoo.Caption = 3
Numpisoss2.Caption = 3
Numpisopb2.Caption = 3
Numpiso12.Caption = 3
Numpiso22.Caption = 3
Numpiso32.Caption = 3
Numpiso42.Caption = 3
Numpiso52.Caption = 3
Cantpiso32.Caption = Val(Cantpiso32.Caption) + 1
End Sub

Private Sub Boton4_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(4)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = False
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 1200
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(Cantpiso4.Caption) + 1

End Sub

Private Sub Boton42_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(4)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = False
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 1200
Numpisoo.Caption = 4
Numpisoss2.Caption = 4
Numpisopb2.Caption = 4
Numpiso12.Caption = 4
Numpiso22.Caption = 4
Numpiso32.Caption = 4
Numpiso42.Caption = 4
Numpiso52.Caption = 4
Cantpiso42.Caption = Val(Cantpiso42.Caption) + 1
End Sub

Private Sub Boton5_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(5)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = False
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 120
Numpiso.Caption = 5
Numpiso.Caption = 5
NumpisoSS.Caption = 5
NumpisoPB.Caption = 5
Numpiso1.Caption = 5
Numpiso2.Caption = 5
Numpiso3.Caption = 5
Numpiso4.Caption = 5
Numpiso5.Caption = 5
Cantpiso5.Caption = Val(Cantpiso5.Caption) + 1

End Sub

Private Sub Boton52_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(5)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = False
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
ascensor2.Top = 120
Numpisoo.Caption = 5
Numpisoss2.Caption = 5
Numpisopb2.Caption = 5
Numpiso12.Caption = 5
Numpiso22.Caption = 5
Numpiso32.Caption = 5
Numpiso42.Caption = 5
Numpiso52.Caption = 5
Cantpiso52.Caption = Val(Cantpiso52.Caption) + 1
End Sub

Private Sub BotonPB_Click()
contra.Text = ""
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(0)) ^ 2)
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = False
BotonSS.Enabled = True
Ascensor.Top = 5520
Numpiso.Caption = 0
NumpisoSS.Caption = 0
NumpisoPB.Caption = 0
Numpiso1.Caption = 0
Numpiso2.Caption = 0
Numpiso3.Caption = 0
Numpiso4.Caption = 0
Numpiso5.Caption = 0
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub Botonpb2_Click()
contra2.Text = ""
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(0)) ^ 2)
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = False
Botonss2.Enabled = True
ascensor2.Top = 5520
Numpisoo.Caption = 0
Numpisoss2.Caption = 0
Numpisopb2.Caption = 0
Numpiso12.Caption = 0
Numpiso22.Caption = 0
Numpiso32.Caption = 0
Numpiso42.Caption = 0
Numpiso52.Caption = 0
Cantpisopb2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub BotonSS_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(-1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = False
Ascensor.Top = 6600
Numpiso.Caption = -1
NumpisoSS.Caption = -1
NumpisoPB.Caption = -1
Numpiso1.Caption = -1
Numpiso2.Caption = -1
Numpiso3.Caption = -1
Numpiso4.Caption = -1
Numpiso5.Caption = -1
CantpisoSS.Caption = Val(CantpisoSS.Caption) + 1

End Sub

Private Sub Command1_Click()
End Sub

Private Sub Botonss2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(-1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
Boton52.Enabled = True
Boton42.Enabled = True
Boton32.Enabled = True
Boton22.Enabled = True
Boton12.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = False
ascensor2.Top = 6600
Numpisoo.Caption = -1
Numpisoss2.Caption = -1
Numpisopb2.Caption = -1
Numpiso12.Caption = -1
Numpiso22.Caption = -1
Numpiso32.Caption = -1
Numpiso42.Caption = -1
Numpiso52.Caption = -1
Cantpisoss2.Caption = Val(Cantpisoss2.Caption) + 1

End Sub

Private Sub Enter_Click()
If contra.Text = "3899" Then
Ascensor.Top = 120
Else
contra.Enabled = False
Enter.Enabled = False
End If
contra.Text = ""
contra.Enabled = False
Enter.Enabled = False
End Sub

Private Sub Enter2_Click()
If contra2.Text = "3899" Then
ascensor2.Top = 120
Else
contra2.Enabled = False
Enter2.Enabled = False
End If
contra2.Text = ""
contra2.Enabled = False
Enter2.Enabled = False
End Sub

Private Sub Luz_Click()
If Ascensor.BackColor = vbBlack Then
Ascensor.BackColor = vbYellow
Else
Ascensor.BackColor = vbBlack
End If

End Sub

Private Sub Luz2_Click()
If ascensor2.BackColor = vbBlack Then
ascensor2.BackColor = vbYellow
Else
ascensor2.BackColor = vbBlack
End If
End Sub

Private Sub PBNum_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(0)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = False
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 5520
Numpiso.Caption = 0
NumpisoSS.Caption = 0
NumpisoPB.Caption = 0
Numpiso1.Caption = 0
Numpiso2.Caption = 0
Numpiso3.Caption = 0
Numpiso4.Caption = 0
Numpiso5.Caption = 0
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub pbnum2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(0)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = False
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 5520
Numpisoo.Caption = 0
Numpisoss2.Caption = 0
Numpisopb2.Caption = 0
Numpiso12.Caption = 0
Numpiso22.Caption = 0
Numpiso32.Caption = 0
Numpiso42.Caption = 0
Numpiso52.Caption = 0
Cantpisopb2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub SSNum_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(-1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = False
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 6600
Numpiso.Caption = -1
NumpisoSS.Caption = -1
NumpisoPB.Caption = -1
Numpiso1.Caption = -1
Numpiso2.Caption = -1
Numpiso3.Caption = -1
Numpiso4.Caption = -1
Numpiso5.Caption = -1
CantpisoSS.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub SSnum2_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(-1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = False
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 6600
Numpiso2.Caption = -1
Numpisoss2.Caption = -1
Numpisopb2.Caption = -1
Numpiso12.Caption = -1
Numpiso22.Caption = -1
Numpiso32.Caption = -1
Numpiso42.Caption = -1
Numpiso52.Caption = -1
Cantpisoss2.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub Stop1_Click()
If Luz.Enabled = True Then
Luz.Enabled = False
PBNum.Enabled = False
teclado1.Enabled = False
teclado2.Enabled = False
teclado3.Enabled = False
teclado4.Enabled = False
teclado5.Enabled = False
SSNum.Enabled = False
BotonPB.Enabled = False
BotonSS.Enabled = False
Boton1.Enabled = False
Boton2.Enabled = False
Boton3.Enabled = False
Boton4.Enabled = False
Boton5.Enabled = False
contadorpiso.Caption = "0"
Ascensor.BackColor = vbBlack
Else
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
SSNum.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Luz.Enabled = True
End If
contra.Text = ""
CantpisoSS.Caption = "0"
CantpisoPB.Caption = "0"
Cantpiso1.Caption = "0"
Cantpiso2.Caption = "0"
Cantpiso3.Caption = "0"
Cantpiso4.Caption = "0"
Cantpiso5.Caption = "0"
If Stop1.Caption = "Stop" Then
Stop1.Caption = "Enable"
Else
Stop1.Caption = "Stop"
End If

End Sub

Private Sub Stop2_Click()
If Luz2.Enabled = True Then
Luz2.Enabled = False
pbnum2.Enabled = False
teclado12.Enabled = False
teclado22.Enabled = False
teclado32.Enabled = False
teclado42.Enabled = False
teclado52.Enabled = False
SSnum2.Enabled = False
Botonpb2.Enabled = False
Botonss2.Enabled = False
Boton12.Enabled = False
Boton22.Enabled = False
Boton32.Enabled = False
Boton42.Enabled = False
Boton52.Enabled = False
contadorpiso2.Caption = "0"
ascensor2.BackColor = vbBlack
Else
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
SSnum2.Enabled = True
Botonpb2.Enabled = True
Botonss2.Enabled = True
Boton12.Enabled = True
Boton22.Enabled = True
Boton32.Enabled = True
Boton42.Enabled = True
Boton52.Enabled = True
Luz2.Enabled = True
End If
contra2.Text = ""
Cantpisoss2.Caption = "0"
Cantpisopb2.Caption = "0"
Cantpiso12.Caption = "0"
Cantpiso22.Caption = "0"
Cantpiso32.Caption = "0"
Cantpiso42.Caption = "0"
Cantpiso52.Caption = "0"
If Stop2.Caption = "Stop" Then
Stop2.Caption = "Enable"
Else
Stop2.Caption = "Stop"
End If
End Sub

Private Sub teclado1_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(1)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = False
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 4440
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado12_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(1)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = False
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 4440
Numpisoo.Caption = 1
Numpisoss2.Caption = 1
Numpisopb2.Caption = 1
Numpiso12.Caption = 1
Numpiso22.Caption = 1
Numpiso32.Caption = 1
Numpiso42.Caption = 1
Numpiso52.Caption = 1
Cantpiso12.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado2_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(2)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = False
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 3360
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado22_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(2)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = False
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 3360
Numpisoo.Caption = 2
Numpisoss2.Caption = 2
Numpisopb2.Caption = 2
Numpiso12.Caption = 2
Numpiso22.Caption = 2
Numpiso32.Caption = 2
Numpiso42.Caption = 2
Numpiso52.Caption = 2
Cantpiso22.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado3_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(3)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = False
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 2280
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1

End Sub

Private Sub teclado32_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(3)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = False
teclado42.Enabled = True
teclado52.Enabled = True
ascensor2.Top = 2280
Numpisoo.Caption = 3
Numpisoss2.Caption = 3
Numpisopb2.Caption = 3
Numpiso12.Caption = 3
Numpiso22.Caption = 3
Numpiso32.Caption = 3
Numpiso42.Caption = 3
Numpiso52.Caption = 3
Cantpiso32.Caption = Val(Cantpiso32.Caption) + 1
End Sub

Private Sub teclado4_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(4)) ^ 2)
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = False
teclado5.Enabled = True
Ascensor.Top = 1200
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(CantpisoPB.Caption) + 1

End Sub

Private Sub teclado42_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(4)) ^ 2)
contra2.Text = ""
Enter2.Enabled = False
contra2.Enabled = False
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = False
teclado52.Enabled = True
ascensor2.Top = 1200
Numpisoo.Caption = 4
Numpisoss2.Caption = 4
Numpisopb2.Caption = 4
Numpiso12.Caption = 4
Numpiso22.Caption = 4
Numpiso32.Caption = 4
Numpiso42.Caption = 4
Numpiso52.Caption = 4
Cantpiso42.Caption = Val(Cantpisopb2.Caption) + 1
End Sub

Private Sub teclado5_Click()
contadorpiso.Caption = contadorpiso.Caption + Sqr((Val(Numpiso.Caption) - Val(5)) ^ 2)
contra.Text = ""
Enter.Enabled = True
contra.Enabled = True
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = False

End Sub

Private Sub teclado52_Click()
contadorpiso2.Caption = contadorpiso2.Caption + Sqr((Val(Numpisoo.Caption) - Val(5)) ^ 2)
contra2.Text = ""
Enter2.Enabled = True
contra2.Enabled = True
SSnum2.Enabled = True
pbnum2.Enabled = True
teclado12.Enabled = True
teclado22.Enabled = True
teclado32.Enabled = True
teclado42.Enabled = True
teclado52.Enabled = False
End Sub

Ascensor 2

2008-11-07T16:37:00.000-08:00

Private Sub Boton1_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = False
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 4800
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(Cantpiso1.Caption) + 1
End Sub

Private Sub Boton2_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = False
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 3720
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(Cantpiso2.Caption) + 1
End Sub

Private Sub Boton3_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = False
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 2640
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1
End Sub

Private Sub Boton4_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = False
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 1560
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(Cantpiso4.Caption) + 1
End Sub

Private Sub Boton5_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = False
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Ascensor.Top = 480
Numpiso.Caption = 5
Numpiso.Caption = 5
NumpisoSS.Caption = 5
NumpisoPB.Caption = 5
Numpiso1.Caption = 5
Numpiso2.Caption = 5
Numpiso3.Caption = 5
Numpiso4.Caption = 5
Numpiso5.Caption = 5
Cantpiso5.Caption = Val(Cantpiso5.Caption) + 1
End Sub

Private Sub BotonPB_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = False
BotonSS.Enabled = True
Ascensor.Top = 5880
Numpiso.Caption = PB
Numpiso.Caption = PB
NumpisoSS.Caption = PB
NumpisoPB.Caption = PB
Numpiso1.Caption = PB
Numpiso2.Caption = PB
Numpiso3.Caption = PB
Numpiso4.Caption = PB
Numpiso5.Caption = PB
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub BotonSS_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
Boton5.Enabled = True
Boton4.Enabled = True
Boton3.Enabled = True
Boton2.Enabled = True
Boton1.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = False
Ascensor.Top = 6960
Numpiso.Caption = SS
Numpiso.Caption = SS
NumpisoSS.Caption = SS
NumpisoPB.Caption = SS
Numpiso1.Caption = SS
Numpiso2.Caption = SS
Numpiso3.Caption = SS
Numpiso4.Caption = SS
Numpiso5.Caption = SS
CantpisoSS.Caption = Val(CantpisoSS.Caption) + 1
End Sub

Private Sub Command1_Click()
End Sub

Private Sub Enter_Click()
If contra.Text = "3899" Then
Ascensor.Top = 480
Else
contra.Enabled = False
Enter.Enabled = False
End If
contra.Text = ""
contra.Enabled = False
Enter.Enabled = False
End Sub

Private Sub Luz_Click()
If Ascensor.BackColor = vbBlack Then
Ascensor.BackColor = vbYellow
Else
Ascensor.BackColor = vbBlack
End If

End Sub

Private Sub PBNum_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = False
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 5880
Numpiso.Caption = PB
NumpisoSS.Caption = PB
NumpisoPB.Caption = PB
Numpiso1.Caption = PB
Numpiso2.Caption = PB
Numpiso3.Caption = PB
Numpiso4.Caption = PB
Numpiso5.Caption = PB
CantpisoPB.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub SSNum_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = False
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 6960
Numpiso.Caption = SS
NumpisoSS.Caption = SS
NumpisoPB.Caption = SS
Numpiso1.Caption = SS
Numpiso2.Caption = SS
Numpiso3.Caption = SS
Numpiso4.Caption = SS
Numpiso5.Caption = SS
CantpisoSS.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub Stop_Click()
If Luz.Enabled = True Then
Luz.Enabled = False
PBNum.Enabled = False
teclado1.Enabled = False
teclado2.Enabled = False
teclado3.Enabled = False
teclado4.Enabled = False
teclado5.Enabled = False
SSNum.Enabled = False
BotonPB.Enabled = False
BotonSS.Enabled = False
Boton1.Enabled = False
Boton2.Enabled = False
Boton3.Enabled = False
Boton4.Enabled = False
Boton5.Enabled = False
Ascensor.BackColor = vbBlack
Else
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
SSNum.Enabled = True
BotonPB.Enabled = True
BotonSS.Enabled = True
Boton1.Enabled = True
Boton2.Enabled = True
Boton3.Enabled = True
Boton4.Enabled = True
Boton5.Enabled = True
Luz.Enabled = True
End If
contra.Text = ""
CantpisoSS.Caption = "0"
CantpisoPB.Caption = "0"
Cantpiso1.Caption = "0"
Cantpiso2.Caption = "0"
Cantpiso3.Caption = "0"
Cantpiso4.Caption = "0"
Cantpiso5.Caption = "0"
End Sub

Private Sub teclado1_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = False
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 4800
Numpiso.Caption = 1
NumpisoSS.Caption = 1
NumpisoPB.Caption = 1
Numpiso1.Caption = 1
Numpiso2.Caption = 1
Numpiso3.Caption = 1
Numpiso4.Caption = 1
Numpiso5.Caption = 1
Cantpiso1.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado2_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = False
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 3720
Numpiso.Caption = 2
NumpisoSS.Caption = 2
NumpisoPB.Caption = 2
Numpiso1.Caption = 2
Numpiso2.Caption = 2
Numpiso3.Caption = 2
Numpiso4.Caption = 2
Numpiso5.Caption = 2
Cantpiso2.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado3_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = False
teclado4.Enabled = True
teclado5.Enabled = True
Ascensor.Top = 2640
Numpiso.Caption = 3
NumpisoSS.Caption = 3
NumpisoPB.Caption = 3
Numpiso1.Caption = 3
Numpiso2.Caption = 3
Numpiso3.Caption = 3
Numpiso4.Caption = 3
Numpiso5.Caption = 3
Cantpiso3.Caption = Val(Cantpiso3.Caption) + 1
End Sub

Private Sub teclado4_Click()
contra.Text = ""
Enter.Enabled = False
contra.Enabled = False
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = False
teclado5.Enabled = True
Ascensor.Top = 1560
Numpiso.Caption = 4
NumpisoSS.Caption = 4
NumpisoPB.Caption = 4
Numpiso1.Caption = 4
Numpiso2.Caption = 4
Numpiso3.Caption = 4
Numpiso4.Caption = 4
Numpiso5.Caption = 4
Cantpiso4.Caption = Val(CantpisoPB.Caption) + 1
End Sub

Private Sub teclado5_Click()
contra.Text = ""
Enter.Enabled = True
contra.Enabled = True
SSNum.Enabled = True
PBNum.Enabled = True
teclado1.Enabled = True
teclado2.Enabled = True
teclado3.Enabled = True
teclado4.Enabled = True
teclado5.Enabled = False
End Sub

Semana 29

2008-10-28T16:24:00.000-07:00

27/10
Mozilla tendrá listo su navegador para móviles a principios de 2009
Mozilla tendrá lista para principios de 2009 una primera versión completa de su navegador gratuito Firefox para dispositivos móviles, llamado Fennec, según dijo el viernes el consejero delegado de esta comunidad impulsora de programas de código abierto, John Lilly. "Fennec será Firefox en tu dedo. Todos los que tengan nuestro navegador en su ordenador querrán tenerlo en el móvil", aseguró Lilly en una entrevista en la que se mostró convencido del éxito de esta aplicación.

Más Información

28/10
El Microsoft Word cumple 25 años de vida
Hace 25 años, dos jóvenes programadores de la también joven Microsoft creaban un programa que se convertiría en la gallina de los huevos de oro para la empresa y una herramienta habitual en la vida diaria de millones de personas: el Microsoft Word.

Más Información

28/10
Un nuevo Windows para desarrolladores
Microsoft presentó una nueva variante de su sistema operativo Windows, denominado Azure , una plataforma de servicios web que permite a los programadores y empresas contar con un entorno de desarrollo dentro de los servidores de la empresa de Redmond.

Más Información

Semana 28

2008-10-24T16:18:00.000-07:00

20/10
Almacenamiento SSD, la tecnología que quiere acabar con los discos duros
En los últimos meses, numerosos ordenadores portátiles y reproductores de música y vídeo han comenzado a utilizar una nueva generación de discos duros, denominados SSD por sus siglas en inglés (Solid State Drive, o unidades de estado sólido) que acceden a la información de forma más rápida, al no incorporar partes móviles que añadan retardo a este proceso.

Más Información

24/10
Comenzó la selección de participantes de Gran Hermano Argentina a través de Facebook
Para esta edición los organizadores del reality reclutarán concursantes por medio de la red social, además de realizar el tradicional casting.

Más Información

24/10
Buenos Aires inalámbrico
Con el crecimiento en las ventas de notebooks y teléfonos inteligentes con Wi-Fi, encontrar un lugar que nos permita conectarnos a la Red en forma simple cuando estamos lejos de casa o la oficina resulta muy atractivo.
Aunque crece la oferta de banda ancha móvil usando redes 3G, quienes no cuentan con un módem de este tipo para su notebook o tienen un abono con transferencias de datos limitadas pueden aprovechar las conexiones Wi-Fi públicas, también conocidas como hotspots, disponibles en la ciudad.

Más Información

Semana 27

2008-10-17T16:03:00.000-07:00

14/10
Conexiones inalámbricas con energía solar para llevar Internet a los más pobres
Trabajan en la creación de un novedoso sistema de conexión inalámbrica a internet alimentada con energía solar y que pretende a mediano plazo convertirse en producción a gran escala.

Más Información

15/10
Motorola lanzará teléfono móvil táctil en Estados Unidos
Motorola, el tercer mayor fabricante mundial de teléfonos, reveló que su nuevo móvil con pantalla táctil será comercializado por la operadora Verizon Wireless, en un intento de ambas empresas de competir con el iPhone.

Más Información

16/10
Bluekey abre puertas con el móvil
Coltec ha desarrollado y patentado el sistema Bluekey , un nuevo dispositivo de apertura de puertas automáticas que según sus creadores está llamado a sustituir a las llaves tradicionales y a los mandos a distancia convirtiendo el teléfono móvil en un mando a distancia universal.

Más Información

Semana 26

2008-10-16T19:47:00.001-07:00

10/10
Un satélite patrocinado por Google envía su primera imagen
Un satélite patrocinado por el gigante de internet estadounidense Google envió su primera fotografía a la Tierra, en lo que fue una exitosa prueba de la cámara que proveerá imágenes para el servicio en línea de mapas y navegación de la empresa estadounidense. La imagen a color de alta resolución enviada desde el GeoEye-1, que fue lanzado el 6 de septiembre desde una base de la fuerza aérea estadounidense en California (oeste), mostraba un campus universitario en Pensilvania, informó el operador del satélite en un comunicado.

Más Información

14/10
UE advierte a los jóvenes que bajen el volumen del MP3
Millones de jóvenes en toda Europa podrían sufrir de pérdida permanente de la audición después de cinco años si escuchan los reproductores de música MP3 a todo volumen durante más de cinco horas a la semana, dijeron el lunes científicos de la UE.

Más Información

16/10
Una pantalla de 50 pulgadas en el bolsillo
Acudir a una reunión de trabajo con un móvil, apagar las luces y proyectar contra la pared la presentación que se lleva dentro del teléfono será una realidad a corto plazo. Los proyectores para móviles y reproductores de MP3 se han convertido en una de las posibles soluciones que busca la industria para mejorar la visibilidad de las pantallas de estos dispositivos portátiles a la hora de mostrar imágenes de vídeo. Los primeros aparatos comerciales se presentaron en la feria CES de Las Vegas a primeros de año.

Más Información

Semana 25

2008-10-16T19:46:00.001-07:00

3/10
Diseñadora argentina busca "conectarse" a ropa inteligente
La línea de ropa "inteligente" de Julieta Gayoso reconoce la presencia constante de la tecnología en la vida moderna y la irritación que genera quedarse sin baterías. La chaqueta cuenta con un cable que va desde el panel solar a una batería ubicada en un bolsillo interior, en el que se pueden recargar hasta ocho equipos electrónicos al mismo tiempo.

Más Información

3/10
Windows 7: beta en diciembre y versión final en 2009
Microsoft mostrará los avances en Windows 7 en dos de sus próximas conferencias de tecnología agendadas para este año. Según trascendió, la primera versión de prueba del sistema sucesor de Vista será publicada en diciembre de 2008 y, la versión final, un año después, a finales de 2009 o primeros meses de 2010. Además, el vendor prometió que el arranque de Windows 7 no durará más de quince segundos.

Más Información

06/10
Microsoft extiende la vida de Windows XP
Microsoft pese a que tiene Windows Vista en el mercado, con unos discutibles números, a Windows 7 en preparación con una beta que saldrá a finales de este año, pese a todo esto aun daban la posibilidad de que usuarios de Windows Vista pudiesen “downgradearse” a Windows XP. Esto en realidad no es malo, es una de esas raras señales de que Microsoft escuchó a sus usuarios pidiendo poder volver a una versión anterior.

Más Información

Semana 24

2008-10-16T19:43:00.000-07:00

26/09
Google lanza concurso donde premiara el ganador con 10 Millones de dolares
Coincidiendo con el décimo aniversario de la empresa este mes, Google anunció la iniciativa 10 to the 100th, que seleccionará las cien mejores ideas entre internautas de todo el mundo y repartirá 10 millones de dólares para hacerlas realidad un máximo de cinco de ellas.

Más Información

27/09
Nokia lanzará rival de iPhone el 2 de octubre
Nokia revelará su primer teléfono de pantalla sensible al tacto la semana próxima en un reto directo al exitoso iPhone de Apple, dijeron el viernes dos fuentes de la industria a Reuters.

Más Información

27/09
El año que viene (por fin) volarán los autos
Transition, el primer automóvil con la capacidad de transitar por el aire, saldrá a la venta el próximo año, con un precio que se situará en torno a 132.000 euros. El coche dispone de las cuatro ruedas habituales, pero además incorpora unas alas plegables con una envergadura superior a ocho metros y una hélice trasera. El vehículo está impulsado por un único motor de gasolina y puede rodar por carretera como un coche normal.

Más Información

Ascensor

2008-10-15T16:26:00.000-07:00

Private Sub Boton1_Click()
Ascensor.Top = 4800
End Sub
Private Sub Boton2_Click()
Ascensor.Top = 3720
End Sub
Private Sub Boton3_Click()
Ascensor.Top = 2640
End Sub
Private Sub Boton4_Click()
Ascensor.Top = 1560
End Sub
Private Sub Boton5_Click()
Ascensor.Top = 480
End Sub
Private Sub BotonPB_Click()
Ascensor.Top = 5880
End Sub
Private Sub BotonSS_Click()
Ascensor.Top = 6960
End Sub

Semana 23

2008-09-25T17:39:00.000-07:00

Google presenta Gaudi, su buscador de audio Google ha anunciado el lanzamiento de una nueva herramienta en su motor de búsqueda. El objetivo es facilitar la búsqueda de vídeos sin necesidad de visionarlos al completo. La finalidad de Gaudi (Google Audio Indexing) es organizar la información y hacerla más útil, según la propia compañía.
NO HAY FOTO DISPONIBLE
Más Información

Internet Explorer 8 Beta 2, en castellano Internet Explorer 8 Beta 2 se encuentra disponible en castellano. La primera vez que Microsoft lanzó la beta 1 del navegador fue el 8 de marzo y fue una versión destinada a desarrolladores.

Más Información

La UE aprueba una legislación contra la propaganda terrorista en internet El Europarlamento aprobó el martes la revisión del arsenal legislativo antiterrorista de la Unión Europea (UE), que permitirá a partir de ahora sancionar de forma penal a quienes inciten públicamente, incluyendo vía internet, a la ejecución de actos terroristas.

Más Información

Semana 22

2008-09-25T17:29:00.000-07:00

¿Cuánto ocupa el código fuente del Chrome?
Google ya ha hecho público bastante código y Linux ( www.gnu.org ). Es más, en enero de 1998 Netscape fundó el proyecto Mozilla y abrió sus fuentes. Pero ésta es la primera vez que podemos mirar tan de cerca un emprendimiento de la que hoy es la mayor compañía de Internet, cuya acción en Nasdaq supera los 400 dólares y que ha enfrentado sin hesitar al más poderoso de los gigantes de la era informática, Microsoft.

Más Información

Yahoo abrirá sitio de música para otros servicios
Yahoo Inc planea abrir un sitio de música en internet en el que ofrecerá información de canciones y artistas proveniente de servicios externos como iTunes de Apple Inc o Amazon.com, dijo el jueves un ejecutivo.

Más Información

Windows 7, en diciembre
Apenas dos años después del estreno de Vista, Microsoft podría lanzar la versión beta de Windows 7. ¿Cuándo? Pues según el blog de Mary Jo Foley en Zdnet.com antes de fin de año.

Más Información

Semana 21

2008-09-12T17:18:00.000-07:00

Microsoft adelanta cómo será el Internet Explorer 8Microsoft liberó la segunda beta del Internet Explorer 8 , la nueva versión de su navegador web que contará con más elementos para aumentar la seguridad y facilidad de uso de la Red.

Más Información
Microsoft realizará modificaciones en Hotmail
Se llamará Windows Live Hotmail Wave 3. Contará con cambios como mayor velocidad de carga y capacidad de almacenamiento, innovaciones en la apariencia y la posibilidad de integrar los eventos del calendario, entre otros. el nuevo Hotmail permitirá a cada usuario cambiar la interface a su gusto, será compatible con todos los navegadores y mejorará el envío de correo electrónico a grupos para facilitar su uso.

Más Información
Los dominios Argentinos de Internet podrán usar acentos y la letra “Ñ”Los usuarios podrán registrar los nuevos dominios multilingües, que seguirán perteneciendo a sus dueños. Al concluir el proceso de aprobación de las solicitudes, el Registro de nombres de dominios de Argentina (NIC) anunciará la apertura al público de dominios IDN. Los nuevos dominios podrán contener caracteres con acento diacrítico, como requieren muchas lengua, entre ellas, el español, portugués e idiomas europeos, o caracteres de escrituras no latinas como la árabe y la china.

Más Información

Semana 20

2008-09-12T06:22:00.000-07:00

Microsoft adelanta cómo será el Internet Explorer 8
Microsoft liberó la segunda beta del Internet Explorer 8 , la nueva versión de su navegador web que contará con más elementos para aumentar la seguridad y facilidad de uso de la Red.

Más Información

Microsoft realizará modificaciones en Hotmail
Se llamará Windows Live Hotmail Wave 3. Contará con cambios como mayor velocidad de carga y capacidad de almacenamiento, innovaciones en la apariencia y la posibilidad de integrar los eventos del calendario, entre otros. el nuevo Hotmail permitirá a cada usuario cambiar la interface a su gusto, será compatible con todos los navegadores y mejorará el envío de correo electrónico a grupos para facilitar su uso.

Más Información

Los dominios Argentinos de Internet podrán usar acentos y la letra “Ñ”
Los usuarios podrán registrar los nuevos dominios multilingües, que seguirán perteneciendo a sus dueños. Al concluir el proceso de aprobación de las solicitudes, el Registro de nombres de dominios de Argentina (NIC) anunciará la apertura al público de dominios IDN. Los nuevos dominios podrán contener caracteres con acento diacrítico, como requieren muchas lengua, entre ellas, el español, portugués e idiomas europeos, o caracteres de escrituras no latinas como la árabe y la china.

Más Información

Visual Basic

2008-08-30T01:19:00.000-07:00

Private Sub CATV_Click()TVCATV.Caption = "CATV"End Sub
Private Sub cero_Click()auxiliar.Caption = auxiliar.Caption + "0"End Sub
Private Sub cinco_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub ENTER_Click()NUMEROCANAL.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub masbrillo_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub mascanal_Click()If NUMEROCANAL.Caption < caption =" NUMEROCANAL.Caption" caption =" 0End" left =" Pantalla.Left" top =" Pantalla.Top"> 0 ThenNUMEROCANAL.Caption = NUMEROCANAL.Caption - 1ElseNUMEROCANAL.Caption = 129End IfEnd Sub
Private Sub menosvolumen_Click()Pantalla.Left = Pantalla.Left - 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub OFF_Click()auxiliar.Caption = ""NUMEROCANAL.Caption = ""TVCATV.Caption = ""ONOFF.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = FalseTV.Enabled = FalseCATV.Enabled = FalseEnd Sub
Private Sub ON_Click()NUMEROCANAL.Caption = "0"TVCATV.Caption = "TV"ONOFF.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueTV.Enabled = TrueCATV.Enabled = True
End Sub
Private Sub seis_Click()auxiliar.Caption = auxiliar.Caption + "6"End Sub
Private Sub siete_Click()auxiliar.Caption = auxiliar.Caption + "7"End Sub
Private Sub tres_Click()auxiliar.Caption = auxiliar.Caption + "3"End Sub
Private Sub TV_Click()TVCATV.Caption = "TV"End Sub
Private Sub uno_Click()auxiliar.Caption = auxiliar.Caption + "1"End Sub

Semana 19

2008-08-30T01:12:00.000-07:00

22/08
Hoy llega el iPhone "oficial" a la Argentina, de la mano de Claro y Movistar
El iPhone, el famoso teléfono de Apple, comienza este viernes a venderse en la Argentina en forma oficial. Desde hace un año hay equipos de este teléfono móvil en el país que fueron desbloqueados por los usuarios. El modelo que se comercializará desde el 22 de agosto es el que funciona en redes de tercera generación (3G).

Más Información

26/08
MercadoLibre compra Deremate
MercadoLibre anunció hoy que firmó un acuerdo para comprar las operaciones de DeRemate , plataforma de compras y ventas por Internet, de Argentina (www.deremate.com.ar), Chile (www.deremate.cl), Colombia (www.dereto.com.co) y México (www.dereto.com.mx).

Más Información

26/08
Facebook superó los 100 millones de usuarios
Facebook, la red social en Internet que se convirtió en un verdadero fenómeno de los contactos en línea, acaba de superar los 100 millones de usuarios activos.

Más Información

Mapa

2008-08-27T15:48:00.001-07:00

Este es el mapa marcado con todos los lugares en los que estuve durante las vacaciones de Invierno:

Ver mapa más grande

Semana 18

2008-08-21T20:00:00.001-07:00

21/08
Olímpicos de Pekín con audiencia récord, éxito Internet
Los Juegos de Pekín se convirtieron en los más vistos de los 112 años de historia del evento, impulsados por una enorme plataforma popular en internet, dijo el miércoles el Comité Olímpico Internacional (COI). El COI aseguró que la cifra de audiencia en regiones claves, incluido Estados Undios, era muy favorable y podría eclipsar el récord anterior establecido en Atenas 2004.
"Los ratings son mucho mayores que en cualquier otro Juegos Olímpicos anterior" aseguró.

Más Información

21/08
Sony anuncia lanzamiento de nueva versión de PSP portátil
Sony Corp anunció el miércoles el lanzamiento de una nueva versión de su consola de videojuegos portátil Playstation Portable que puede ser utilizada como teléfono, la cual saldrá a la venta el 15 de octubre.
La Playstation Portable 3000, que ha sido objeto de especulaciones en las páginas de internet, tendrá incorporado un micrófono y una nueva pantalla que posee más colores y está mejor capacitada para usar en el exterior, informó Sony en la convención de videojuegos más importante en Leipzig, Alemania.

Más Información

21/08
Palm lanza Treo Pro para competir a Blackberry
Palm Inc reveló el miércoles su último modelo Treo basado en software de Microsoft Corp, con el que busca competir por usuarios de negocios contra rivales como el BlackBerry de Research In Motion (RIM).
El Treo Pro será comercializado a partir de septiembre por Vodafone Group Plc y 02 en Europa, y por Telstra en Australia, informó Palm.

Más Información

Mis Vacaciones

2008-08-21T18:17:00.001-07:00

El Viernes 25 me fui de vacaciones con una colonia a Mendoza:

El Lunes 28 fui al viñedo de Gargantini-Giol y a la casa de Giol y Gargantini.

El Martes 29 fui a la Puente del Inca, Las Cuevas y Penitentes (nieve)

El Miércoles 30 fui a las Termas de Cacheuta.

El Jueves 31 fui a Los Altos Limpios.

El Viernes 1 me quedé en el hotel y jugué al fútbol con unos amigos. A la noche volví de Mendoza.

El Lunes 4 fui a la casa de Pau a hacer un trabajo de Cs. Sociales con Fabi, Lau, Anita y Pau.

El Martes 5 fui a almorzar a Marini para festejar el cumpleaños de una amiga.

El Miércoles 6 fui a la cancha de Argentinos a ver el partido AAAJ vs. CASLA

El Jueves 7 me quedé en mi casa y leí "Los Vecinos Mueren En Las Novelas"

El Viernes 8 vinieron Fabi, Lau Rod, Anita y Pau Man a terminar el trabajo de Cs. Sociales conmigo.

Semana 17

2008-08-14T19:13:00.000-07:00

07/08
Google lanza en China su primer servicio de descarga gratuita de música
El motor de búsqueda por internet Google ha elegido China para lanzar su primer servicio de descarga legal y gratuita de música, informó hoy el diario "Shanghai Daily".

Más Información

10/08
Mark Zuckerberg: "Facebook nos hace ser más amables"
Facebook tiene 124 millones de usuarios, pero por ahora carece de un modelo de negocios. Aunque inversionistas entusiastas inyectan millones de dólares en capital de riesgo al proyecto Facebook, el famoso "libro" todavía no tiene un modelo de negocios. El interés principal de Zuckerberg es que los usuarios se sientan “más como personas". Los ingresos pueden esperar.
Por ahora, solo anticipó que hay varias noticias en camino, pero que están en una etapa tan temprana de desarrollo, que no es posible dar detalles.

Más Información

12/08
Dos virus, al acecho de las redes sociales (actualizacion)
La empresa de seguridad Kaspersky Labs informó la semana pasada que había detectado dos nuevas variantes de un gusano informático que se transmite por medio de MySpace y Facebook.
Son las versiones A y B del Net-Worm.Win32.Koobface, un peligroso gusano que, una vez instalado en la computadora, descarga un código malicioso de Internet, convierte el equipo en un zombi de una red robot (botnet) e instala un keylogger en la máquina.

Más Información

Semana 16

2008-08-10T16:21:00.000-07:00

01/08
Un experimento secreto para defender a Vista
La empresa hizo creer a un grupo de usuarios de Windows XP que les mostraría un preview del nuevo sistema operativo que está desarrollando, denominado “Mojave”, cuando lo que les mostró en realidad era una instalación estándar de Windows Vista. Los usuarios se mostraron impresionados por las nuevas características del software, sin saber que eran las mismas características que critican de Vista.

Más Información

01/08
La casa Wi-Fi, todos los chiches y ningún cable
Se suele identificar Wi-Fi con el acceso inalámbrico a Internet, pero, en rigor, Wi-Fi es un método para conectar dispositivos entre sí sin usar cables, más allá de que accedan o no a la Red. Y cada vez son más los que aprovechan las redes hogareñas para brindar nuevos servicios.

Más Información

06/08
YouTube retransmitirá los Juegos Olimpicos para 77 países
YouTube realizará retransmisiones en directo de tres horas diarias para 77 países en los que no se va a cubrir los Juegos Olímpicos a través de la televisión, como son India, Corea del Sur o Nigeria. Estos países suponen una audiencia potencial de unos 200 millones de personas.

Más Información

Semana 15

2008-07-24T16:27:00.001-07:00

18/07
Kalipedia se expande hacia Latinoamérica

Ocho meses después del lanzamiento de Kalipedia en octubre de 2007, este recurso web de ayuda al estudio de Grupo Santillana se ha posicionado como referente con casi 1.000.000 de usuarios únicos en el mes de mayo, según datos de medición procedentes de Omniture.

Más Información

22/07
Se celebra en Egipto la 'Wikimanía 2008', cuarta conferencia anual de la 'Fundación Wikimedia'

Cada año se lleva a cabo en un continente distinto. En 2009 Buenos Aires será la anfitriona. Para su creador, el objetivo de la Fundación es llegar a los países en desarrollo.
El cuarto encuentro anual organizado por la 'Fundación Wikimedia' se lleva a cabo en la ciudad de Alejandría, Egipto. En 'Wikimanía 2008' se tratan cuestionamientos como de qué manera garantizar la calidad y veracidad de la enciclopedia virtual 'Wikipedia'. Las grandes metas para su creador, Jimmy Wales, son llegar a países en desarrollo y lograr la profundidad, más que la extensión.

Más Información

22/07
MySpace logra 10 millones de usuarios en China en 8 meses

El portal de redes sociales MySpace.com, que está impulsado su expansión por Asia en sus cuatro principales mercados de internet, China, Japón, Corea del Sur e India, ha conseguido en el gigante asiático más de 10 millones de usuarios desde su apertura hace ocho meses.
China ya tiene el mayor número de internautas del mundo (221 millones en febrero pasado, por encima de los 215 millones de Estados Unidos), y en el país "las redes sociales están creciendo muy rápido en estos momentos", declaró a Efe Sung Lee, vicepresidenta de operaciones de MySpace para Asia.

Más Información

Semana 14

2008-07-24T16:26:00.002-07:00

12/07

Consejos para elegir la notebook perfecta

¿Qué debería tener una notebook hoy?
Pantalla: no menos de 15 pulgadas, excepto que busquemos una máquina realmente pequeña. Y cuidado con los display de talla gigante, porque inevitablemente aumentan el tamaño de todo el equipo.
No menos de 1 GB de RAM, y 2 GB, si viene con Windows Vista. La memoria es el principal parámetro para aumentar el ciclo de vida de un sistema informático. Y en las notebooks tiene una importancia adicional, porque reduce el uso del disco duro y por lo tanto la temperatura interna del equipo.
Hablando de discos, debe venir con una unidad interna de 80 o más GB y, si va a ser nuestro único equipo, una grabadora de DVD de última generación. Dependiendo del uso que le demos, el tamaño del rígido es más o menos importante. Para hojas de cálculo, textos e Internet, 80 GB sobran. Pero si vamos a bajar todas las fotos y videos de nuestra cámara digital, habría que apuntar más alto. Debe recordarse que, en general, no podremos simplemente añadir otro rígido, como en una desktop.
Puesto que son equipos móviles, la conectividad es la clave de una buena notebook . Debe contar con puertos USB (más de uno, preferentemente), FireWire, lectora de tarjetas de memoria, red por cable (también llamada Ethernet, LAN o RJ45, por el tipo de conector), ranura para tarjetas de expansión (ExpressCard y PC Card) y, desde luego, Bluetooth y Wi-Fi. Bluetooth nos permitirá, por ejemplo, pasar cosas hacia y desde el celular. Wi-Fi integrado no es un opcional; hoy es obligatorio. La norma vigente se llama 802.11g. La que viene es la 802.11n.
Un peso que resulte cómodo, buena autonomía de baterías y teclado en español completan una buena compra, pero hay que prestarle atención también al software . Si viene con Windows XP, cualquiera está bien, aunque es preferible la versión Professional. Si viene con el Vista, debe optarse, aunque cueste un poco más, por la versión Home Basic, como mínimo.
Debe recordarse, además, que Windows no trae el Office. Las notebooks requieren una inversión bastante elevada, y no es muy divertido llegar a casa y descubrir que todo lo que tenemos para escribir es el Bloc de Notas.

Más Información

16/07
Nintendo planea lanzar juego 'Wii Music' de 60 instrumentos

La empresa tecnológica japonesa Nintendo dijo el martes que planeaba lanzar un juego de música para su consola de juegos Wii durante este año, para aprovechar el rápido crecimiento de un nicho de negocios iniciado por el software "Guitar Hero."
"Wii Music" permitirá a los jugadores simular más de 60 instrumentos diferentes. "Guitar Hero," de Activision, transformó el género de hacer música en la categoría más buscada en los videojuegos.

NO HAY IMAGEN DISPONIBLE

Más Información

16/07
Las PCs con Windows sin actualizar sólo tardan cuatro minutos en ser infectados

Es una de las recomendaciones más comunes de los expertos en seguridad informática. Si quiere mantenerse a salvo de virus y programas espía, debe actualizar a menudo su sistema operativo.

Fabricantes como Microsoft crean constantemente parches que cierran las vulnerabilidades descubiertas en Windows. Y si no las instalas quedas expuesto al peligro. Un estudio del SANS Institute dice que las copias no actualizadas son infectadas en menos de cuatro minutos.

NO HAY IMAGEN DISPONIBLE

Más Información

Semana 13

2008-07-24T16:26:00.001-07:00

04/07

Falla en red datos Telefónica afecta sevicios en Sao Paulo

Una falla en la red de datos de la subsidiaria brasileña de la española Telefónica afectó el jueves servicios públicos del estado de Sao Paulo, el más rico y más poblado estado de Brasil, incluyendo de emisión de documentos.

Más Información

07/07
Uruguay importa tecnología para seguridad pública y combate al narcotráfico

El Estado uruguayo se apresta a desarrollar un ambicioso proyecto en materia de seguridad pública, a través del cual se propone intensificar la lucha contra el narcotráfico y demás delitos, con una inversión inicial de 14 millones de dólares en tecnología importada de China. El plan denominado 'Alta Tecnología en Materia de Seguridad Pública' incluye control migratorio con programas de reconocimiento facial, cámaras de vídeo vigilancia en puntos estratégicos de la ciudad de Montevideo, gestión carcelaria y videoconferencias para atender situaciones de emergencia.

Más Información

09/07
Pioneer crea un disco óptico de 400 gigas

La empresa japonesa Pioneer, especializada en dispositivos de sonido para automóviles y para el hogar, se ha lanzado en la carrera de los ópticos presentando en sociedad un disco de hasta 400 GB de memoria, ocho veces más que lo que puede almacenar un Blu-ray de doble capa.

Más Información

Semana 12

2008-07-24T16:25:00.001-07:00

30/06
Hombre que vendía su vida en eBay recibe menos de lo esperado
Ian Usher, un hombre de 44 puso su vida en eBay. Sostuvo una subasta durante 7 días de todas sus pertenencias, incluyendo a sus amigos, su moto, su perro, una casa de tres habitaciones en Perth y un período de prueba para su trabvajo en una tienda de alfombras, después de que terminara su matrimonio de cinco años.

NO HAY FOTO DISPONIBLE
Más Información

01/07
Microsoft deja de vender el sistema operativo Windows XP

Microsoft puso fin este lunes a la venta de su sistema operativo Windows XP, mucho más popular que su sucesor Windows Vista, lanzado a fines de 2006, que será a partir del martes el único ofrecido a los consumidores. Los propietarios del sistema XP seguirán beneficiándose hasta 2014 de sus actualizaciones y de un soporte técnico, según una carta abierta del vicepresidente de la empresa, Bill Veghte, publicada la semana pasada.

Más Información

01/07
Nokia firma un acuerdo de música con Warner
Nokia, el mayor fabricante de teléfonos móviles del mundo, ha cerrado un acuerdo con Warner Music Group para incluir los títulos de Warner en su servicio Comes With Music y en la tienda de música de Nokia, según ha anunciado hoy la empresa finlandesa. Este servicio de Nokia se diferenciaría de otros paquetes del mercado en que los usuarios pueden quedarse durante 12 meses toda la música que se descargan.

Más Información

Semana 11

2008-07-24T16:24:00.000-07:00

22/06
El retiro del hombre que cambió la informática
Bill Gates se despide de su trabajo a tiempo completo, en Microsoft, este viernes. El 27 de junio Gates será un director no ejecutivo, en vez de director ejecutivo, y pasará sólo un día a la semana en su empresa de Microsoft. Ray Ozzie, que reemplazó hace dos años a Gates en el papel de arquitecto jefe de software, y Steve Ballmer, el socio de toda la vida de Gates, y director ejecutivo desde 2000, afirman Microsoft no perderá el paso como resultado del cambio. Sin embargo, la partida de Gates tiene un valor simbólico que ninguna planificación de relaciones públicas puede evitar.

Mas Información

22/06
Microsoft adquiere Navic, especialista en publicidad televisada
El editor estadounidense de 'software' Microsoft, adquirió la firma especializada en televisión Navic, a fin de aumentar su presencia en el mercado, según un comunicado publicado el miércoles. El monto de la transacción no ha sido informado.

Más Información

22/06
Buenos Aires: Inauguraron una planta de fabricación de fibra óptica
Una empresa japonesa inauguró una planta en la provincia de Buenos Aires para abastecer al mercado interno y regional de fibra óptica. Se trata de la empresa japonesa Furukawa, una de las productoras mundiales de fibra óptica, cables e infraestructura de redes de telecomunicaciones y TI. Que, ahora, decidió reforzar su estrategia productiva en la Argentina.

Más Información

Encuesta Segunda Semana

2008-07-06T01:28:00.000-07:00

Esta es la presentación de el análisis de mi encuesta:

Animación Flash 6

2008-06-27T21:31:00.000-07:00

[Upload your own video]

Animación Flash 4

2008-06-27T21:29:00.000-07:00

[Upload your own video]

Animación Flash 3

2008-06-27T21:28:00.000-07:00

[Upload your own video]

Animación Flash 2

2008-06-27T21:26:00.000-07:00

[Upload your own video]

Semana 10

2008-06-19T16:42:00.001-07:00

19/06
Encuentran la primera vulnerabilidad en Firefox 3
Cinco horas después de que Mozilla lanzara oficialmente Firefox 3.0, investigadores encontraron una vulnerabilidad en el nuevo navegador. Tipping Point ha verificado la falla y se la reportó a Mozilla. Ya que Mozilla está trabajando en arreglar la falla, los investigadores no compartirán detalles del problema. El problema afecta a los usuarios de Firefox 3.0 así como Firefox 2.0.

NO HAY FOTO DISPONIBLE
Más Información

18/06
Un supermercado holandés ensaya un sistema de pago con huellas dactilares
Ni billetes, ni monedas, ni tarjetas... Sólo un dedo, eso es lo que la empresa Ahold, un supermercado holandés, está intentando establecer como nuevo método de pago. El objetivo es que los clientes sólo necesiten para pagar poner el dedo en un escáner.

Más Información

Semana 9

2008-06-12T19:24:00.000-07:00

12/06
HP presenta su pantalla LP2480zx de 24 pulgadas con 1 billón de colores
HP tiene el placer de presentar la nueva pantalla LP2480zx. Es un placer porque se les nota la felicidad en presentar su primera pantalla con retroiluminación LED para profesionales, ya que es capaz de alcanzar 1 billón de colores, 64 veces más que una pantalla LCD normal.

Más Información

12/06
Google/Yahoo Search Partnership Announcement At 1:30 This Afternoon
Yahoo and Google will make a joint announcement this afternoon. The announcement is a search partnership between the two companies that outsources all or part of Yahoo search marketing, and possibly search itself, to Google.

Más Información

12/06
Firefox 3 llegará el 17 de junio
Mozilla ha puesto fecha al lanzamiento de Firefox 3, la nueva edición de su exitoso navegador de internet. Firefox 3 es el resultado de 34 meses de desarrollo realizado con la contribución y consejo de millones de voluntarios y usuarios. Esta versión del navegador, que incorpora novedades en la barra de navegación, la gestión de favoritos, seguridad y trabajo sin conexión, entre otros aspectos es mucho más rápida y estable que las anteriores.

Más Información

Segundo Mes de Noticias

2008-06-12T11:31:00.000-07:00

Acá está la presentación en Power Point de mi primer y segundo mes de noticias:

Semana 8

2008-05-31T01:24:00.000-07:00

06/06
Gmail quiere que te tomes un descanso
Los usuarios de su servicio de correo electrónico Gmail podrán probar próximamente 13 nuevas funcionalidades desde una nueva pestaña que aparecerá en la página web. Entre ellas, una herramienta que obliga al titular de la cuenta a tomarse un descanso de 15 minutos, durante los cuales no podrá consultar si tiene mensajes nuevos.

Más Información

06/06

Portátiles de bajo costo irrumpen en feria Computex

En la feria informática Computex, celebrada esta semana en Taiwán, fabricantes como Acer y Asustek han presentado modelos más sencillos y de bajo costo con los que esperan abrir un nuevo mercado y apuntalar el negocio en momentos en los que la desaceleración económica reduce el gasto de los consumidores.

Más Información

05/06
El conflicto entre Gates y Ballmer que facilitó el cambio de guardia en Microsoft
Microsoft corría el riesgo de disolverse. Bill Gates acababa de entregarle las riendas de Microsoft Corp. a Steve Ballmer pero Gates retuvo el poder. Esto desató una batalla entre ambos que hasta ahora poco se ha ventilado. El conflicto paralizó decisiones sobre estrategia de Internet que aún afectan a la compañía y diversos miembros de la junta intervinieron para forzar una tregua. El fundador de Microsoft decidió dejar que su amigo dirigiera la compañía por su cuenta. En unas semanas, Gates abandonará sus funciones en Microsoft para dedicarse a la filantropía.

Más Información

Encuesta Primer Semana

2008-05-29T13:49:00.000-07:00

Resultados de mi Encuesta

¿Cuál es su edad?

Menor de 8 - 3 personas
De 8 a 13 años - 69 personas
De 14 a 19 años - 18 personas
De 20 a 30 años - 5 personas
Mayor de 30 - 3 personas

¿Cuál es su género?

Femenino - 67 personas
Masculino - 33 personas

¿Cuantas actividades semanales diferentes hacés (Además de los estudios y/o trabajo)?

1 actividad - 44 personas
4 actividades - 16 personas
7 actividades por semana - 3 personas
No hago nada - 8 personas
Ninguna de las anteriores - 27 personas

¿Faltás con frecuencia a ellas?

A veces, si no tengo ganas - 23 personas
No falto nunca. No me lo perdonaría - 14 personas
No voy nunca - 10 personas
Solo cuando no puedo ir - 51 personas

¿Te gusta todo lo que hacés?

Me gusta todo lo que hago. Si no, no lo haría - 61 personas
Me gusta, pero me cansa demasiado hacerlo - 17 personas
No me gusta. Pero lo elegí para hacer alguna actividad - 12 personas
No. Pero me obligan a hacerlo - 8 personas

¿Nunca te vinieron ganas de repente de dejar todo o te diste cuenta que no podías hacer todo?

No tengo muchas cosas, entonces no me impide hacer el resto - 14 personas
Nunca me pasó - 32 personas
Si, cada tanto. Pero lo termino superando por un tiempo - 35 personas
Si, siempre - 17 personas

¿Cuanto tiempo semanal está ocupado por esas actividades (No cuenta la escuela y/o el trabajo)?

Me ocupo todo lo posible. Y cuando tengo espacios libre, me los lleno con alguna cosa - 9 personas
Mucho tiempo, pero hago todo lo posible para aprovechar mi tiempo libre - 16 personas
Nada. Solo voy a la escuela y vuelvo a mi casa. No salgo más en todo el día - 9 personas
No se - 48 personas
Un 25% de las semana - 18 personas

Semana 7

2008-05-28T04:48:00.000-07:00

23/05

¿Te duele la mano por culpa del mouse?

El túnel carpiano es una estructura anatómica que tenemos en la muñeca. Es un corredor que deja pasar elementos importantes para la movilización y sensibilidad de la mano. Uno de ellos es el nervio mediano, que pasa por el centro y dispone de un espacio muy justo en su interior. Si disminuye aún más este espacio, el nervio resulta comprimido y aparece este síndrome. Algunas veces se produce sin causa aparente, pero puede asociarse a distintas enfermedades reumatológicas, al embarazo e incluso a algunas profesiones que utilizan mucho las manos en su trabajo. Los que trabajan con computadoras tendrían que tomar en cuenta algunos consejos para evitar este mal. (Más Información)

Lo elegí porque conozco a mucha gente que le pasa eso, y cuando lo ví, me interesó mucho.

25/05
ABC. es lanza un blog sobre internet y Web 2.0
ABC.es estrena ELPUNTOES. El blog de ABC.es en el que hablamos de todo lo concerniente a Internet y Web 2.0 con un tono diferente.

Lo elegí porque demuestra el avance de los blogs y la comunicación entre la gente por computadora.

Más Información

29/05
Nintendo desarrolla un videojuego para dejar de fumar
La firma Nintendo desarrollará un videojuego para dejar de fumar, basada en el célebre método del británico Allen Carr que ayudó con sus libros y clínicas a dejar el hábito definitivamente a más de 10 millones de personas. El juego estará disponible en noviembre de 2008.

Más Información

Lo elegí porque me parece interesante la forma en la que planean hacer que la gente deje de fumar.

Semana 6

2008-05-22T12:02:00.001-07:00

22/05
Mozilla pisa el acelerador con Firefox 3
Más rápido, más seguro, gráficamente más atractivo y más fácil de usar. La nueva versión del navegador Mozilla, Firefox 3, está en la recta final para su lanzamiento definitivo, previsto para el próximo mes de junio.

Mas Información

Lo elegí porque yo uso Firefox y me encanta. Me parece un muy buen programa, y el Firefox 3, por ahora, me anda muy bien.

22/05
Hackers: ¿Los Malos de la Película?
Cúal es la diferencia entre hackers y crackers? "Se habla de hackers para describir a una persona que destaca en su ámbito de actuación de manera sobresaliente, pero se les ha encasillado como los malos de la película".

NO HAY FOTO DISPONIBLE

Más Información

Lo elegí porque me parece muy mal que pongan a los Hackers en ese papel.

17/05
En el Día de la Internet
Internet se ha convertido en el entorno natural de la información y en el espacio virtual de nuestras relaciones. El mejor homenaje que podemos hacer a internet en su día es apoderarnos un poco más y un poco mejor de sus herramientas y explotar todo su potencial mejorando nuestra alfabetización digital. Hay que renovar la apuesta por la integración de internet en todos los niveles de la enseñanza, pero no exclusivamente como una tecnología, sino fundamentalmente como una metodología.

NO HAY FOTO DISPONIBLE

Más Información

Lo elegí porque estoy de acuerdo con el artículo.

Primer mes de noticias

2008-05-15T15:44:00.000-07:00

Semana 5

2008-05-15T12:24:00.000-07:00

15/05
Los minijuegos en las redes sociales crean lucrativas oportunidades de negocio
Desde finales de los años noventa existen redes de juego para pasar unos minutos de entretenimiento. Por ejemplo, Yahoo! y MSN cuentan con secciones desde donde se puede echar una partida al dominó, parchís o tute. 52 millones de personas jugaron en Yahoo! y 40 millones optaron por MSN en 2007. Se calcula que unos 200 millones de internautas usan estos servicios de minijuegos.

Más Información

La elegí porque me gusta mucho jugar a los juegos de computadora.

15/05
Adelantos de Apple Worldwide Developers Conference 2008
Se inaugurará el próximo 9 de junio la Conferencia con la presentación de las plataformas de desarrollo Mac OS X Leopard y OS X iPhone. Este año el programa de sesiones para Mac brindará tanto a los nuevos desarrolladores como a los veteranos los fundamentos tecnológicos y las técnicas necesarias para crear aplicaciones para OS X Leopard a través de sesiones que abordarán los diferentes niveles del sistema, incluyendo el diseño e implantación de la interfaz, frameworks de aplicación, seguridad, localización/ traducción y redes.

Más Información

Lo elegí porque demuestra el avance del IPhone.

14/05
MySpace gana 230 millones de dólares en juicio contra "spam"
"El rey del spam" y su socio le adeudan ahora unos 230 millones de dolares a MySpace por daños y perjuicios, después que una juez federal le otorgó la razón al popular sitio de reunión virtual.

Más Información

Lo elegí porque me encanta My Space, y no me gustaría que sea mal visto que, por suerte, no lo es.

Semana 4

2008-05-07T17:17:00.001-07:00

Shadow C5, un robot con mano humana
Shadow C5, un artilugio robótico capaz de reproducir de forma muy realista todos los movimientos de una mano humana.
Este invento ha demostrado entregando una manzana a un humano, haciendo entrechocar una taza de café con otra o dando la mano a una persona.

Lo elegí porque es una muestra de como avanza nuestra tecnología.

Los dilemas de las empresas ante la red
La red ya alcanza al 20% de la población del planeta, y ahora toca comprender que eso ya no basta y que hay ser parte de la Web.
La Web social representa el nuevo modo de interacción y participación de los internautas en el medio.
Es comprensible que si los medios de comunicación tradicionales siguen intentando descubrir su identidad y sus funciones en el nuevo escenario, con más razón las empresas se vean sumidas en dudas cuando se trata de asumir las consecuencias prácticas de la famosa primera tesis del Manifiesto Cluetrain: “Los mercados son conversaciones”.
No es casual que el weblog oficial de la empresa McDonald’s se titule Open for Discussion, el de Benetton, Benetton Talk o el de Coca-Cola sea Coca-Cola Conversations: es el intento deliberado de formar parte de la conversación que se produce en la red acerca de la propia marca y de sus productos y servicios.
Las empresas en la red se han convertido en medios: escuchan y promueven la conversación acerca de su marca y de sus productos, construyen comunidades con sus clientes, les ofrecen nuevos servicios y fidelizan su atención y su tiempo.
Las empresas en la red ahora pretenden ir a dónde están los usuarios y no sólo hablarles de sus productos, sino también y sobre todo, escuchar lo que dicen acerca de ellos.

NO HAY FOTO DISPONIBLE

Lo elegí porque estoy de acuerdo con todo lo que dice, la Internet se usa más y más cada minuto, y las empresas se aprovechan de eso.

HP crea un nuevo componente electrónico básico 37 años después de ser ideado
La compañía informática Hewlett Packard ha logrado hacer realidad un nuevo complemento electrónico básico que se une a los existentes actualmente: solenoides, resistencias y condensadores.
Este nuevo avance, que reducirá el consumo de energía, permitirá además construir memorias no volátiles para computación, cuyos datos no desaparezcan aunque se corte la corriente eléctrica.
Esta posibilidad fue formulada en 1971 por un científico de la Universidad de Berkeley, pero por ahora nadie había logrado llevarla a la práctica.

Lo elegí porque yo pienso que debería haber más cosas como estas, que no solo sean buenas tecnológicamente, sino que ayuden a mejorar cosas externas.

Encuesta

2008-05-03T15:34:00.000-07:00

Hagan esta encuesta, por favor.
Necesito llegar a 100!

Universo (por Bri)

2008-05-01T10:36:00.000-07:00

Le cambié el fondo de pantalla de arriba, el color del de abajo y el color de la letra.
Visitar Mi Universo

Semana 3

2008-05-01T10:33:00.001-07:00

30\04\2008
CinemaNow permitirá encargar películas desde el móvil en EEUU

Los usuarios de CinemaNow en Estados Unidos podrán utilizar el teléfono móvil para ver trailers y encargar películas enteras a través de su página web para móviles, y luego verlas en la televisión de su casa o en una computadora. CinemaNow, que ya compite con servicios como el alquiler de videos de la tienda de Apple iTunes, cobra en torno a 14,99 dólares por comprar una película online y unos 1,99 dólares por alquilarla.

Más Información

Me parece muy bueno que se puedan encargar películas tan rápido, y tan práctico. Si viviera en EEUU, seguro que usaría ese servicio!

30\04\2008

Se busca pareja con alto coeficiente intelectual en internet

Existe una nueva red social para buscar parejas con el mismo nivel de inteligencia tuyo. Los candidatos tienen que pasar un test en línea para demostrar que tiene un Coeficiente Intelectual superior a 115. Los que superan esta prueba se sitúan dentro del 15 por ciento de la población con más capacidad intelectual. Se cree que las personas inteligentes se comunican mejor con otras personas inteligentes y el amor surge más fácilmente si te comunicas bien. El test para acceder al sistema está basado en una prueba utilizada por Mensa, una organización internacional fundada en el Reino Unido para el dos por ciento de personas con un mayor CI. Las personas pueden tomar el exámen dos veces.

NO HAY FOTO DISPONIBLE

Más Información

Yo también creo que, una persona muy inteligente se lleva mejor con una persona también muy inteligente. Y me parece bien que haya ese tipo de posibilidades, en vez de más páginas de esas para buscar citas, que para mi no sirven. Y además, esta página también te toma tu coeficiente intelectual.

28\04\2008
Las web argentinas tendrán ‘ñ’ y tildes y diéresis

Se podrá añadir el subdominio ".gob.ar" para reemplazar al ".gov.ar", referencia de goverment, en Inglés. El Ministerio de Relaciones Exteriores trabaja hace más de un año en el desarrollo del proyecto, que ahora tiene el visto bueno institucional con la resolución firmada por el canciller Jorge Taiana, que abarca también el uso de la diéresis y los acentos en castellano y portugués, como el uso de la cedilla. Internet fue creado para permitir nombres de dominio que contuvieran solamente caracteres del estándar ASCII, es decir pertenecientes al alfabeto inglés. Este nuevo tipo de dominios puede contener caracteres con acento diacrítico o caracteres de escrituras no latinas.

Más Información

Elegí este post porque me parece mal que Internet esté basado en el Inglés, ya que es usado en todo el mundo. Que suerte que van a hacer esto, así nos parece más cómodo para todos usar la red.

Semana 2

2008-05-01T10:29:00.000-07:00

17/04/2008
Un presidente estadounidense al gusto del internauta

Para quienes no les convence ningún candidato a presidente, ha llegado la hora de modelar a su gusto al próximo inquilino de la Casa Blanca, aunque se trate de ficción, gracias a un "software" similar al de la linea Wikipedia donde se puede puede modificar o sobrescribir las entradas precedentes, cambiando cualquier cosa del aspirante ideal a la presidencia de USA.
Fue lanzado por investigadores de la Universidad Cornell de Nueva York con el fin de explorar los pros y contras de una "participación cívica en línea" durante un año electoral.

Más Información

Lo elegí porque, en la actualidad, la mayoría de la gente vota POR COMPROMISO, y eso está mal. Hay gente que ni vota, ya que no le parece justo lo que ofrecen los candidatos. Sería bueno tener más variedad, y gente honesta. Me gustó mucho este artículo. Me parece muy buena idea. Aunque estaría bueno que esa persona existiese de verdad.

18/04/2008
Dar la vuelta al mundo y contarlo en un blog

Me anuncia Pedro Jareño de Minube que se pone en marcha para dar la vuelta al mundo en 60 días y contarlo en Vuelta al mundo 2.0. Pedro visitará las ciudades de Zurich, Londres, Bangkok, Singapur, Hong Kong, Tokyo, Santiago de Chile, Buenos Aires, México D.F., Miami, Los Ángeles, Las Vegas, San Francisco y Nueva York, donde espera poder reunirse con bloguers y emprendedores hispanos locales que le sirvan de guía.

NO HAY IMAGEN DISPONIBLE.

Más Información

Me parece muy interesante porque, sería buenísimo pasear por todo el mundo, visitar muchos lugares, diferentes culturas, etc. Y gracias al avance tenológico de nuestra época, ¡podemos hacerlo en tan solo 2 meses!

18/04/2008
Enciclopedia Britannica Ahora Gratis Para Bloggers

Enciclopedia Britannica es usada a veces como un ejemplo definitivo de como la nueva tecnología puede interrumpir un negocio. Según Comscore, por cada página vista sobre Brittanica.com, 184 páginas se verán en la Wikipedia. Ahora, puede obtener acceso a la versión online gratuita a través de un nuevo programa llamado Britannica Webshare. "Este programa está orientado a las personas que publican con cierta regularidad en la Internet, ya se trate de los bloggers, los webmasters, o escritores. Nos reservamos el derecho a denegar la participación a cualquier persona que, a nuestro juicio, no reúne los requisitos.

Más Información

Lo elegí porque me parece muy interesante que haya mucha variedad de Enciclopedias. Debo decir que uso Wikipedia muy seguido, y me parece una página muy completa, pero hay que darle espacio a personas que se expresan diferente, y talvez sacás algo interesante.

Milugar

2008-04-17T16:49:00.000-07:00

El lugar que yo elegí es Bayer, Munro. Me encanta porque cuando voy, siempre puedo hacer lo que más tenga ganas de hacer. Puedor jugar Fútbol, patinar, jugar Fútbol con patines, Handball, Tenis, tomar aire, tomar sol, usar la notebook, escuchar música tranquila, comer, lo que sea. Es uno de los lugares a los que más voy. Es como un club, pero no hay gente (casi siempre). Por eso lo elegí.

Ver mapa más grande

Frederich Bayer

El fundador del Grupo Bayer nació en el distrito Barmen-Wichlinghausen en Wuppertal, 1825. Como hijo de un trabajador con telas, Friedrich Bayer creció cuando la industria textil crecía. A los 14 años se unió al distribuidor de productos químicos Wesenfeld & Co en Barmen como aprendiz. Durante el aprendizaje, Bayer se familiarizó con los fundamentos y los problemas del comercio de la tintura.
A los 20 años el ya había empezado a experimentar tinturas naturales. Tres años después el encontró sus primer compañía de ventas y estableció una red de distribución Europea. Los colorantes naturales inicialmente ofrecidos por Bayer se extrajeron de Dyewoods. Debido a su alta calidad, Bayer hizo fuerte actividad de negocio con estos productos en las capitales europeas de Londres, Bruselas y San Petersburgo, e incluso de lugares tan lejanos como Nueva York.

Los descubrimientos de la química inorgánica en el ámbito de la fabricación y el colorante potencial de mercado asociados a estos avances, Friedrich Bayer llevó a ampliar su programa de distribución. La primera colorantes artificiales importados por Bayer - anilina y fuchsine - eran superiores a tintes naturales, en términos de la pureza y el brillo. Junto con su futuro socio de negocios Friedrich Weskott, Bayer experimentado con la producción y las pruebas de estos colorantes de alquitrán por su propia empresa. Ellos finalmente logrado en la producción de tintes, que son de mucho mejor calidad que la primera generación.

El éxito de la colaboración entre Bayer-Weskott y llevado a la creación de una primera instalación de producción de los pequeños. La semilla de lo que luego sería Bayer AG se plantó el 1 de agosto de 1863, con la entrada de "Friedrich Bayer & cia." En el registro mercantil.

A raíz de los acontecimientos más colorante sobre la base de anilina, alizarina y fuchsine, fundadores de la compañía consiguió ampliar considerablemente la capacidad de producción ahora a pesar de la tensa situación económica. Cuando Friedrich Bayer murió en 1880 a la edad de 55 años, dejó tras de sí un floreciente negocio familiar. Los fundadores de los hijos e hijastros, que se han integrado en la empresa en calidad de socios, creó una base importante para el éxito futuro de Bayer por su transformación en una sociedad anónima.

Canción de Super Ratones (entre otros); Como Estamos Hoy:

Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Estamos a full, duro y parejo, que mañana ser igual porque anoche ya es viejo.
Una vuelta más, otra vuelta más, seguro que nos vamos a marear.

Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Ponemos la mano, metemos la otra, nadie dice nada, o a nadie le importa. Tocamos ahí, un poquito acá, seguro que nos vamos a quemar.

Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Mirá a los demás, parecen contentos, que se pone más y más violenta, empujamos a ella, empujamos a él, seguro que nos vamos a caer.

Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?

Cómo estamos acá, cómo estamos así,
yo me quiero quedar, no nos queremos ir, si me dicen que si, si me dicen que no, que no no no no no no no no no!

Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?
Cómo estamos hoy, eh!?

La canción es de una vieja propaganda de Bayer, y ahora es muy conocida.

Semana 1

2008-04-17T16:47:00.000-07:00

14/04/08

Hal, un esqueleto robótico para multiplicar tu fuerza y capacidad de movimiento

Una empresa japonesa ha presentado en Tokio un robot-traje bautizado con el nombre de Hal. Se trata de una especie de esqueleto externo cibernético cuyo objetivo es facilitar los movimientos de ancianos y disminuidos físicos. También podrá ser usado en programas de rehabilitación para personas con discapacidad física, ya que no hace falta hacer mucha fuerza para moverlo.

Más Información

Lo elegí porque me parece muy buena idea lo del robot. Y supongo que va a ayudar a mucha gente. Está muy bueno que se estén inventando muchas cosas que, además de uso básico, se puedan usar para "ejercitar" personas con discapacidad física.

12/04/08
Chatarra En El Espacio
Para nadie es un misterio que alrededor de la órbita de nuestro querido planeta Tierra giran miles de objetos de desecho. La idea de todo esto sería recoger aquellos desechos, sin embargo, aquello es tan caro que no tienta a ninguna super potencia (era que no). Además, el peligro está latente en cada misión que sale desde nuestro planeta, y por lo visto tendrán que tomar medidas al respecto lo antes posible, si no quieren tener accidentes en el futuro.

Más Información

Lo elegí porque me parece casi increíble que, sabiendo los efectos de la contaminación, y viendo como está quedando nuestro mundo, la gente lo sigue haciendo. Sigue tirando basura por las calles, contamina los ríos, tira abajo los árboles, y otros. A mi me parece que tratar de solucionar el problema importa más que los costos de esta idea. La plata viene y va, nosotros no tenemos otro mundo en el que estar.

09/04/2008
5 Increíbles Edificios De Hielo!
Increíble que algunos de estos edificios se hagan una y otra vez, año tras año luego que los derritan los calores primaverales. Un espectáculo digno de admirar.

Más Información

Cuando leí el título me impresionó mucho. Y cuando ví las fotos, mucho más! Me parece increíble que se puedan hacer tantas cosas con hielo, y que la gente pueda disfrutar de esas cosas.

Blogs Elegidos

2008-04-10T17:48:00.000-07:00

Entré al Buscador de Blogs en Google y busqué los blogs que más trataban sobre los temas requeridos con Blogs de tecnología, Informática y Blogs de Internet.

Los blogs que elegí son Techlatina (http://techlatina.com), Ciencia y tecnología en español al alcance de todos (http://cienciatech.wordpress.com), Mis Favoritos En Internet (http://misfavoritoseninternet.wordpress.com), Techrunch (http://feeds.feedburner.com/Techcrunch), ECuaderno (http://ecuaderno.com) y Blog De Tecnología (http://tecnotic.wordpress.com).

Mi blog personalizado

2008-04-10T15:02:00.000-07:00

Mi blog personalizado

http://www.elblogdebri.blogspot.com/

Mirenlo:

El tema que yo elegí para mi blog es el futbol, concentrándome en Argentinos Jrs. Lo primero que hice fue buscar imágenes en Google poniendo "Argentinos Juniors". Me guardé dos imágenes y las puse en el blog. Cambié los colores, poniendo los oficiales de AAAJ, agregué una barra de video con videos de goles del futbol en general.

Bri.

Canción2

2008-03-30T13:07:00.000-07:00

Ir a Wikipedia

Addicted - Kelly Clarkson

It's like you're a drug
It's like you're a demon I can't face down
It's like I'm stuck
It's like I'm running from you all the time
And I know I let you have all the power
It's like the only company I seek is misery all around
It's like you're a leech
Sucking the life from me
It's like I can't breathe
Without you inside of me
And I know I let you have all the power
And I realize I'm never gonna quit you over time

It's like I can't breathe
It's like I can't see anything
Nothing but you
I'm addicted to you
It's like I can't think
Without you interrupting me
In my thoughts
In my dreams
You've taken over me
It's like I'm not me
It's like I'm not me

It's like I'm lost
It's like I'm giving up slowly
It's like you're a ghost that's haunting me
Leave me alone
And I know these voices in my head
Are mine alone
And I know I'll never change my ways
If I don't give you up now

It's like I can't breathe
It's like I can't see anything
Nothing but you
I'm addicted to you
It's like I can't think
Without you interrupting me
In my thoughts
In my dreams
You've taken over me
It's like I'm not me
It's like I'm not me

I'm hooked on you
I need a fix
I can't take it
Just one more hit
I promise I can deal with it
I'll handle it, quit it
Just one more time
Then that's it
Just a little bit more to get me through this
I'm hooked on you
I need a fix
I can't take it
Just one more hit
I promise I can deal with it
I'll handle it, quit it
Just one more time
Then that's it
Just a little bit more to get me through this

It's like I can't breathe
It's like I can't see anything
Nothing but you
I'm addicted to you
It's like I can't think
Without you interrupting me
In my thoughts
In my dreams
You've taken over me
It's like I'm not me
It's like I'm not me

Cuando escuché esta canción por primera vez, no paré de escucharla, y todavía no me canso de hacerlo. Me encanta la voz de Kelly Clarkson y la canción es muy pegadiza. La letra me encanta mucho porque, para mi, está muy bien pensada. Por eso la elegí.

Miblog

2008-03-28T04:20:00.000-07:00

La dirección de mi blog es: http://www.elblogdebri.blogspot.com/