Ascensor terminado (por Lau)

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

Semana 29 (por Lau)

Programas para crear calendarios gratis

TKexe Kalender: programa permite usar hasta dos imágenes con cada mes, con la posibilidad de rotarlas y añadirles efectos especiales. Además, puedes imprimirlas y guardarlas para modificarlas y utilizarlas el mes siguiente.
CalendarPainter: personaliza tus calendarios, programa tus días, programa fechas, ponles color y personaliza tus fuentes.
Calendar dodecahedron: diseña tu propio calendario e imprímelo pero de una manera especial, formando un dodecaedro el cual tendrás que recortar y armar.
VAMP: Creador de calendarios, con el que puedes generar calendarios mensuales con una foto a tu elección, para luego ponerlos como fondo de escritorio o imprimirlos y colgarlos en la pared. Además, te permite gestionar contenido multimedia, crear tarjetas, salvapantallas, etc.
TicTacPhoto: Su principal función es la de crear álbumes a partir de tus fotos, pero también cuenta con la característica de crear calenderarios personalizados a partir de las mismas con tan solo arrastrarlas de un lugar a otro.
Micromedia: colección de plantillas de calendarios y almanaques ordenadas por año, plantillas editables, semieditables y no editables, compatibles con corel e ilustrator.
EPrintable: hice una reseña hace un tiempo acerca de esta aplicación online que te permite crear calendarios en línea e imprimirlos en tan solo 3 pasos.
HTML Calendar Generator: es capaz de crear calendarios anuales en formato HTML, listos para ser publicados en tu sitio Web y que por supuesto también puedes imprimir.

Ver el artículo completo

Lo elegí porque me gustó que este artículo mostrara todas las posibilidades para crear calendarios y me que es bueno que se puedan personalizar y hacer el que más nos guste, sin tener que comprarlos.


HP Compaq Mini 700

HP presenta su nuevo Compaq Mini 700, un netbook con pantalla de 10 pulgadas, que estará disponible a mediados de diciembre a un precio de 399 euros.

Según ElMundo.es, como complemento a la Compaq Mini 700, también se pondrá a la venta otro netbook decorado por la diseñadora Vivienne Tam basado en el estilo China Chic.

"Se trata de un PC pensado para el público femenino que tiene características muy similares al Compaq Mini 700, pero que cuenta con Webcam, Bluetooth y un disco duro de 60 GB. El precio de salida del equipo será de 599 euros. Incluye una funda a juego".

El HP Compaq Mini 700 vendrá con pantalla de 10.2 pulgadas de tipo LED y resolución de 1024×600 píxeles, procesador Aton N270 a 1.6 GHz, memoria RAM de hasta 1 GB, 8 GB de memoria permanente flash, dos puertos USB, Ethernet, ranura para tarjetas SD, WiFi 802.11b/g, y como opción, Bluetooth y módulo 3G integrado.

Ver el artículo completo

Lo elegí porque me parece que es una muy buena computadora y me gusta su decoración.


StatBrain: herramienta gratuita para averiguar cuantas visitas tiene un sitio

Seguramente en varias ocaciones, quisimos saber cuantas visitas diarias tenía un sitio, ya sea por por curiosidad, para estudiar a nuestra competencia, o para anunciar en esa web y no quedarnos con los datos que nos dan sus administradores.

Pero como poder hacer esto si no somos los administradores del sitio?.

Para poder averiguar fácil y rápidamente cuantas visitas tiene una web, existe una herramienta online gratuita llamada StatBrain.

Su utilización es muy sencilla: solo tenemos que ingresar la dirección que queremos investigar y luego presionar el botón CHECK. StatBrain nos devuelve la cantidad de visitas diaras que tiene ese sitio además de otros indicadores, como la descripción, las palabres claves utilizadas, y la posición en varios rankings.

Ver el artículo completo

Lo elegí porque muchas veces quise saber cuantas visitas tiene una página, y ahora se cómo averiguarlo.

Semana 28 (por Lau)

Youtube cobra por visibilidad en su plataforma

Google sigue en la búsqueda y captura de la rentabilización de Youtube. El último paso resulta especialmente llamativo, lo que van a vender no es un nuevo formato publicitario sino visibilidad, audiencia para los vídeos colgados dentro del sitio. Se trata de lo que llaman "vídeos patrocinados" (Sponsored Videos) y con ellos Google quiere ingresar por los vídeos que se cuelgan para promocionar algo. ¿Quieres más visualizaciones para tu corto pretendidamente viral, para el grupo que queréis lanzar, para el anuncio de tu compañía? Pues pasa por caja.

Apostaría por esta estrategia, en mi opinión, la más inteligente que se puesto en marcha hasta el momento para hacer negocio con los sitios para compartir vídeos tipo Youtube. También lo comentó NIA.

Ver el artículo completo

Lo elegí porque me parece que está bien esta forma que escontraron de tener ganancias con YouTube.

Offbeat Guides y los productos "hiper-personalizados"

Se trata del nuevo proyecto de Dave Sifry (fundador de Technorati) y viene a ofrecer guías de viaje personalizadas bajo demanda: introduces origen y destino, las fechas en que vas a visitar la ciudad y, opcionalmente, el hotel en que te quedas. A partir de esos datos, Offbeat Guides crea una guía única teniendo en cuenta los eventos de la ciudad destino en los días que vas a estar, las diferencias con tu lugar de origen (desde enchufes a moneda, pasando por el teléfono de la embajada de tu país). De la propuesta que hacen puedes eliminar o añadir elementos, para finalmente tener descargar la guía en PDF por 10 dólares o recibirla impresa por 25.

Lo para mí más interesante, abre la puerta a escenarios realmente interesantes: más adelante puede llegar a preguntarme por el tipo de comida que me gusta, qué compras querría hacer, si me interesa más ir de marcha o el arte, y si es este último, si el contemporáneo o el clásico... y hacer una guía de viaje personalizada al milímetro, un tipo de productos "hiper-personalizados" que cada vez iremos viendo más. Lo encontramos en esta beta abierta de Offbeat Guides está todavía lejos de este futuro "hiper-personal", pero el concepto inicial me parece brillante.

Ver el artículo completo

Lo elegí porque me parece que puede ser realmente útil para viajar y que si se mejora mucha gente lo va a usar.

Nokia 5800, un móvil de gama media

Llevo unos días probando el Nokia 5800, que supone el regreso de Nokia a las interfaces táctiles y su estreno a la hora de llevarlas a S60.

Por mucho que, razonablemente, se le vea como una respuesta a iPhone, el 5800 en realidad es un terminal que por prestaciones se queda en la
gama media.

El aspecto que más me interesaba probar era conocer hasta que punto Nokia conseguía una buena experiencia de usuario llevando el interfaz táctil a los S60. El resultado es tibio, por un lado todo sigue donde estaba, quienes esperasen una revolución no la van a encontrar, la apuesta de la empresa finlandesa sigue siendo por mantener una continuidad que no obligue a su público masivo a "aprender a utilizar" un sistema diferente. La respuesta de la pantalla es correcta, con una experiencia algo diferente a la de iPhone, que le aventaja bastante con el uso de multitouch.

El 5800 utiliza tecnología háptica, cuando escoges una opción el móvil vibra ligeramente para informarte y resulta rápido aunque no tanto como la del terminal de Apple. En cuanto a la introducción de texto, disponemos de la opción "pantalla móvil normal", que es inusable si no dispones de un puntero (el Nokia sí que los admite con buen resultado, una de las ventajas de su tecnología) y en modo pantalla completa, que ya va algo mejor., aunque sigo encontrando menos productivos estos teclados táctiles respecto a los físicos. Si unimos la pantalla táctil, con un tamaño de la misma menor que el de iPhone y un funcionamiento similar al de los últimos S60 tenemos que que la Nokia 5800 es más un primer paso aceptable pero en ningún caso una evolución importante de la plataforma S60.

Ver el artículo completo

Lo elegí porque me interesa ver lo que tienen los celulares nuevos y me pareció interesante la crítica que le hacen a este celular.

Semana 27 (por Lau)

AppGet: software gratuito para mantener todos tus programas actualizados

Un software gratuito para Windows que permite tener actualizados todos los programas instalados en nuestra PC.

Se trata de AppGet, un pequeño programa que al ser ejecutado por primera vez, busca todo el software que está instalado en nuestra computadora para luego realizar comparaciones con su base de datos online y así determinar si hay disponible una nueva versión. Si este es el caso, Appget muestra un aviso para que así podamos actualizarlo.
AppGet es totalmente gratuito y puede ser utilizado en Sistemas operativos Windows en sus versiones 2000, XP y Vista.

Ver el artículo completo

Lo elegí porque me parece útil y es más fácil utilizar este programa que buscar manualmente las actualizaciones de cada programa.

Mensajes gratis a celulares

Si deseas enviar mensajes gratis a celulares, a continuación te dejo un par de enlaces hacia webs que te brindan el servicio y la posibilidad de enviar SMS gratis a celulares.

SinSaldo: al igual que el anterior, este es otro sitio para mandar mensajes de texto gratis a celulares en toda la República de Argentina. Trabaja con celulares de las compañías Movistar, CTI, Nextel, Personal.

Ver el artículo completo

Lo elegí porque me parece muy conveniente este servicio.

Descarga fácil de Rapidshare, Megaupload, etc.

Si eres de los que descarga con frecuencia de sitios como Depositfiles.com, Filefactory.com, Filer.net, Freakshare.net, Meinupload.com, Megaupload.com, Netload.com, RapidShare.com, RapidShare.de, Uploaded.to y YouTube.com, entonces esta herramienta te hará la vida más fácil.Se trata de jDownloader, un programa gratuito para Windows/Linux que te hará el proceso de descarga mucho más sencillo. Sólo tienes que añadir todos los enlaces del contenido que quieres descargar e iniciar la descarga para que el programa se encargue de todo: accede al enlace, espera el tiempo necesario, valida los mensajes e inicia la descarga. Así con todos los enlaces incluidos en la cola.

Ver el artículo completo

Lo elegí porque me pareció muy interesante y útil.

Ascensor 2 (por Lau)

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 26 (por Lau)

10,000 millones de fotos en Facebook

Número de usuarios, páginas vistas, ranking de redes sociales... en todos ellos Facebook impresiona, pero el publicado hoy - 10,000 millones de fotos almacenadas - es de los que realmente da vértigo en lo que respecta a participación. Probablemente sea el sitio más grande en internet de fotos compartidas... y además el resto de datos que ofrecen no tiene desperdicio: entre 2 y 3 terabytes de fotos subidas al día, 300,000 imágenes servidas por segundo, un petabyte de almacenamiento utilizado para ellas. ¿Que en Flickr es donde están los fotografos y donde hay más calidad? Eso en el negocio de Facebook es secundario, su centro es la relevancia, no la calidad.

Ver el artículo completo

Lo elegí porque yo uso Facebook y me parece que es cierto que es muy usado, pero me llama la atención que tantas fotos hayan sido subidas.

Show me how to play: aprende a tocar música de una manera diferente

Show me how to play es una aplicación gratuita con la que podremos aprender a tocar todas las canciones de nuestros artistas favoritos de una manera sencilla y muy divertida.
Esta aplicación está compuesta por un pequeño reproductor de video (que podemos descargar gratuitamente luego de registrarnos en el sitio) el cual está dividido en 4 pantallas en las que podremos ver los diferentes instrumentos (guitarras, batería, bajo) ejecutando la canción que queremos aprender.
El reproductor nos permite agrandar cada instrumento para verlo más de cerca, silenciar uno o varios instrumentos, bajar la velocidad de reproducción y agregar o quitar la voz entre otras opciones.

Ver el artículo completo

Lo elegí porque me pareció muy útil y divertido.

Nuevas Macbook y Macbook Pro

MacBookEl nuevo MacBook siempre tiene algo que ofrecer a todo el mundo. Con poco más de dos centímetros y medio de grosor y un peso de 2,04 kg, cabe en una mochila (y en un estilo de vida dinámico). Ofrece un gran rendimiento gráfico de serie para disfrutar de juegos en 3D o crear álbumes de fotos y películas con iLife. Además, tiene todas las prestaciones del MacBook que más te gustan a un precio que te cautivará. A partir de 1.149 €.

MacBook ProTodo gira en torno al rendimiento. Si lo que buscas son gráficos propios de un sistema de sobremesa y una pantalla más grande, te encantará el nuevo MacBook Pro. Basado en tarjetas de NVIDIA que combinan tecnología gráfica integrada y discreta, el MacBook Pro de 15 pulgadas, además de ofrecer la velocidad necesaria para ejecutar juegos exigentes en el apartado gráfico y aplicaciones profesionales, está listo para acompañarte al fin del mundo. A partir de 1.749 €.

Ver el artículo completo

Lo elegí porque me llama la atención los avances tecnológicos que las notebooks traen con cada modelo nuevo.

Ascensor (por Lau)

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 25 (por Lau)

Sincroniza y más ordenador en la televisión

Sincroniza es un proyecto de "televisión con ordenador integrado" que pude conocer en su presentación hace un par de meses. Sincroniza apuesta por un televisor-pc con un media center y mucha conectividad, abierto a todas las fuentes de contenidos en la web (no como esos odiosos set-top boxes cerrados) y que no requiere más instalación tras la compra. No es una aventura fácil la de esta empresa española, a la dificultad de acertar con lo que va a estar en el salón de casa en el futuro, se une el tener competidores como Intel aliado con Yahoo.
Hay muchos retos en esto de la televisión del futuro y su integración con internet. Tras los meses que llevo con un HTPC, menos claro tengo que sea válido simplemente "llevar internet al salón": las expectativas son diferentes (enchufar y listo, nada de instalar o configurar), la forma de utilizarlo también (en grupo frente al uso individual del ordenador) y la adaptación de servicios en la red, fundamental (es imposible leer una web en una tele de las de hoy en día a no ser que estés pegado a ella). En todo caso el proyecto Sincroniza puede tener sentido y recorrido buscando su hueco, por mucho que Intel tenga más posibilidades de llevarse al huerto a los fabricantes de teles (que es donde está el gran negocio), hay mucho que hacer en soluciones a medida en un montón de sectores, desde los hospitales hasta los clubs de marcha.

Ver el artículo completo

Lo elegí porque me pareció interesante y moderno.


Livestation: aplicación multiplataforma para ver más de 1200 canales de TV

Livestation es un excelente servicio online gratuito que nos permite ver más de 1200 canales de TV internacional a través de internet.
Algunos de los canales que podemos ver son: CNN, BBC News, CBC Sport, Fox 8 USA, Discovery Channel, ESPN y Nickelodeon entre otros.
Livestation inicialmente estaba disponible solo para Windows pero su última versión ya puede instalarse en Linux y MacOSX.
tiene un sistema de carrusel para selecionar los canales y además podemos agregar más emisoras de TV y radio.
Livestation es sin duda una excelente aplicación de entretenimiento. Vale la pena probarla.

Ver el artículo completo

Lo elegí porque me parece bastante útil que se puedan ver algunos canales por los cuales normalmente hay que pagar, gratuitamente.


Videos como fondo de pantalla

Ahora podremos mostrar videos como fondo de pantalla en Windows XP, una funcionalidad qeu recientemente añadieron y que, por un lado (bueno) no necesitamos de software alguno para lograrlo, y por el otro (lado malo) es que pues, como ya se imaginarán, consume demasiado recursos de nuestra CPU. Pero bueno, para quienes deseen probarlo, aquí se los cuento en 10 pasos:1. Abrimos el Bloc de Notas(Inicio->Programas->Accesorios->Bloc de notas) y copiamos el siguiente código:

2. Remplazar donde dice nombredemivideo.mpg por el nombre de su video y por su extensión. Por ejemplo: "mifondo.avi".3. Remplazar donde dice height="alto" por el tamaño de su resolución de su PC, pero añadiéndole 100 px al valor. (Por ejemplo, si su pantalla es de 1024×768, entonces lo tendrían que reemplazar por height="868").4. De igual que en el paso anterior, ahora cambiamos el ancho, es decir, reemplazmos width="ancho" por el ancho de nuestra pantalla pero sin añadirle los 100 px. (Por ejemplo, si su pantalla es de 1024×768, entonces lo tendrían que reemplazar por width="1024").5. Ahora, dentro de una nueva carpeta grabamos el archivo notepad con cualquier nombre pero con extensión html. Por ejemplo: miarhivo.html.6. Copiamos el archivo de video en la misma carpeta donde hemos guardado nuestro archivo html.7. Damos clic derecho sobre el escritorio y seleccionamos "Propiedades".8. Damos clic en la pestaña "Escritorio" y luego clic en el botón "Examinar..".9. Cambiamos abajo donde dice "Tipo: Archivos de fondo" por "Documentos HTML" y seleccionamos nuestro archivo html creado.10. Presionamos "Abrir" y listo.

Ver el artículo completo

Lo elegí porque a pesar de que estos fondos ocupan mucho espacio, me parece que puede ser interesante probarlo.

Semana 24 (por Lau)

Pantallas multitáctiles gigantes en Barcelona

Un proyecto al que echar un ojo, el de MultiTouch Barcelona. En su blog no comparten demasiada información, pero los vídeos hablan por sí solos de las posibilidades de su producto, a pesar de que se trate en su mayoría de pruebas de concepto. La idea es la de ofrecer pantallas multitáctiles de hasta de 3x2 metros sobre las que programar varios tipos de experiencia.
Claro que la vocación proyecto no es la de competir a priori con los grandes fabricantes de pantallas multitáctiles, no están en la liga de desarrollo de producto de consumo, pero sí que tienen un hueco en las soluciones adaptadas a cada cliente: demostración de productos, ocio o diversos tipo de performance son algunos de los casos de uso iniciales. Si en el futuro añades una versión "estándar" empaquetada con algunos ejemplos y una plataforma para desarrollar sobre ella, empezamos a hablar de proyectos como Surface.

Ver artículo completo

Lo elegí porque me parece un gran avance y puede ser muy útil.

Subir varios videos a la vez en Youtube

Youtube, el más grande sitio en alojamiento de videos, ha lanzado (caleta aún) su beta para lograr subir hasta 10 videos a la misma vez.

Claro, antes podíamos hacerlo utilizando Gears, un aplicativo que te permitía subir varios videos y llenarlos de información desde una sola interfaz y de manera muy dinámica y elegante... si no tenías Gears instalado, pues tenías que descargarlo.

Ahora, con el lanzamiento de este nuevo beta, Youtube nos permitirá subirlos (hasta 10 videos a la misma vez y hasta 1 GB en tamaño) de una manera casi similar pero sin tener que instalar nada. Además, el procedimiento es más mecánico y la interfaz se parece más a la manera que teníamos de subir videos independientes (uno por uno).

De ese modo, basta con elegir el primer video para que empiece a subirlo, mientras tanto, podríamos ir llenando los otros campos informativos acerca del video, algo que es muy ventajoso, sin embargo, aún no han considerado la manera de que podamos ver una barra de progreso o el porcentaje de subida de cada video. Hace un par de días me percaté que ya lo añadieron al "Upload" de videos independientes, esperemos que también lo hagan con éste.

Ver el artículo completo

Lo elegí porque me parece que esta nueva funcion es mucho mejor que la antrior y va a ser más fácil subir varios videos a la vez.

Traductor de Idiomas de Google

La idea de hacer este sencillo post nació del hecho de ver a una amiga abrir la página de Google para buscar un Traductor de Idiomas, sin saber que tenía uno en sus propias narices. Y es cierto, hay cosas en Internet que las miramos casi todos los días (para quienes usan Google) y nunca nos atrevemos a explorar para tratar de entender para qué sirven. Uno de ellos es el Traductor de Idiomas de Google, un servicio que está disponible desde la página principal del buscador y que siempre hemos pasado desapercibido.Como verán en la siguiente imagen, existe también un enlace desde la página principal de Google hacia su traductor online.

El servicio gratuito de traducción online de Google traduce páginas web (ingresando solo la URL de la página a traducir) y textos, detectando hasta 23 idiomas -hasta la fecha- como alemán, árabe, búlgaro, checo, chino, coreano, croata, etc.Además, cuenta en la parte superior con un Traductor de Búsquedas (consultas en español y obtienes resultados en inglés), un Diccionario (solo cuando traduces una sola palabra o frases comunes) y Herramientas (nos brinda un gadget para agregar a nuetra web y ofrecer a nuestros visitantes un traductor de nuestra web).

Y bueno, para quienes han leído hasta aquí, quizás les interese también contar con un traductor de palabras (inglés-español) online.Se trata de un servicio que viene incluido en el paquete llamado Google Toolbar (también conocido como "Barra de Google"). Solo tienes que descargarlo (es gratuito) e instalar la opción de "Traducción". Luego de eso se mostrará en la tu menú superior una barra como la de la imagen siguiente (también la puedes ocultar haciendo clic derecho sobre la barra y desactivando la opción "Google").

Una vez instalada, lo único que tienes que hacer para traducir una palabra es colocar el cursor del ratón encima de la palabra en inglés y te mostrará su traducción.

Ver el artículo completo

Lo elegí porque me pareció muy útil, especialmnte la barra de Google quee traduce fácilmente.

Calculadora 2 (por Lau)

Private Sub C_Click()
Visor.Text = "0"
auxiliar.Caption = "0"
operacion.Caption = ""
End Sub
Private Sub cero_Click()
Visor.Text = Visor.Text + "0"
End Sub
Private Sub cinco_Click()
Visor.Text = Visor.Text + "5"
End Sub
Private Sub cuatro_Click()
Visor.Text = Visor.Text + "4"
End Sub
Private Sub division_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "/"
End Sub
Private Sub dos_Click()
Visor.Text = Visor.Text + "2"
End Sub
Private Sub igual_Click()
If operacion.Caption = "+" Then
Visor.Text = Val(auxiliar.Caption) + Val(Visor.Text)
End If
If operacion.Caption = "-" Then
Visor.Text = Val(auxiliar.Caption) - Val(Visor.Text)
End If
If operacion.Caption = "*" Then
Visor.Text = Val(auxiliar.Caption) * Val(Visor.Text)
End If
If operacion.Caption = "/" Then
Visor.Text = Val(auxiliar.Caption) / Val(Visor.Text)
End If
auxiliar.Caption = "0"
operacion.Caption = ""
End Sub
Private Sub multiplicacion_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "*"
End Sub
Private Sub nueve_Click()
Visor.Text = Visor.Text + "9"
End Sub
Private Sub ocho_Click()
Visor.Text = Visor.Text + "8"
End Sub
Private Sub OFF_Click()
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
suma.Enabled = False
resta.Enabled = False
multiplicacion.Enabled = False
division.Enabled = False
OFF.Enabled = False
C.Enabled = False
igual.Enabled = False
punto.Enabled = False
Visor.Text = ""
End Sub
Private Sub ON_Click()
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
suma.Enabled = True
resta.Enabled = True
multiplicacion.Enabled = True
division.Enabled = True
OFF.Enabled = True
C.Enabled = True
igual.Enabled = True
punto.Enabled = True
Visor.Text = "0"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = "%"
auxiliar.Caption = Visor.Text
Visor.Text = ""
End Sub
Private Sub punto_Click()
Visor.Text = Visor.Text + "."
End Sub
Private Sub resta_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "-"
End Sub
Private Sub seis_Click()
Visor.Text = Visor.Text + "6"
End Sub
Private Sub siete_Click()
Visor.Text = Visor.Text + "7"
End Sub
Private Sub suma_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "+"
End Sub
Private Sub tres_Click()
Visor.Text = Visor.Text + "3"
End Sub
Private Sub uno_Click()
Visor.Text = Visor.Text + "1"
End Sub

Calculadora (por Lau)

Private Sub C_Click()Visor.Text = "0"auxiliar.Caption = "0"operacion.Caption = ""End Sub
Private Sub cero_Click()Visor.Text = Visor.Text + "0"End Sub
Private Sub cinco_Click()Visor.Text = Visor.Text + "5"End Sub
Private Sub cuatro_Click()Visor.Text = Visor.Text + "4"End Sub
Private Sub division_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "/"End Sub
Private Sub dos_Click()Visor.Text = Visor.Text + "2"End Sub
Private Sub igual_Click()If operacion.Caption = "+" ThenVisor.Text = Val(auxiliar.Caption) + Val(Visor.Text)End IfIf operacion.Caption = "-" ThenVisor.Text = Val(auxiliar.Caption) - Val(Visor.Text)End IfIf operacion.Caption = "*" ThenVisor.Text = Val(auxiliar.Caption) * Val(Visor.Text)End IfIf operacion.Caption = "/" ThenVisor.Text = Val(auxiliar.Caption) / Val(Visor.Text)End Ifauxiliar.Caption = "0"operacion.Caption = ""End Sub
Private Sub multiplicacion_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "*"End Sub
Private Sub nueve_Click()Visor.Text = Visor.Text + "9"End Sub
Private Sub ocho_Click()Visor.Text = Visor.Text + "8"End Sub
Private Sub OFF_Click()uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falsesuma.Enabled = Falseresta.Enabled = Falsemultiplicacion.Enabled = Falsedivision.Enabled = FalseOFF.Enabled = FalseC.Enabled = Falseigual.Enabled = FalseVisor.Text = ""End Sub
Private Sub ON_Click()uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Truesuma.Enabled = Trueresta.Enabled = Truemultiplicacion.Enabled = Truedivision.Enabled = TrueOFF.Enabled = TrueC.Enabled = Trueigual.Enabled = TrueVisor.Text = "0"End Sub
Private Sub resta_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "-"End Sub
Private Sub seis_Click()Visor.Text = Visor.Text + "6"End Sub
Private Sub siete_Click()Visor.Text = Visor.Text + "7"End Sub
Private Sub suma_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "+"End Sub
Private Sub tres_Click()Visor.Text = Visor.Text + "3"End Sub
Private Sub uno_Click()Visor.Text = Visor.Text + "1"
End Sub

Semana 23 (por Lau)

Primer teléfono móvil con Android

Ya tenemos en la calle el primer teléfono móvil con Android, se trata del T-Mobile G1 al que muchos bautizan como "Google G1", no sin motivo. Estamos ante un hardware creado por HTC, con el uso del sistema operativo para móviles auspiciado por Google y lanzado bajo el control de la operadora T-Mobile, que lo comercializará en Estados Unidos por el precio de 200 dólares en un contrato de dos años.
En cuanto al terminal en sí, poco que destacar. No es especialmente atractivo, pero hace una apuesta interesante por combinar la pantalla táctil junto al teclado completo, buscando aunar la productividad de la Blackberry con las últimas tendencias en interfaz de usuario del iPhone. En conectividad, sin sorpresas, HSDPA/UMTS, WiFi 802.11b/g y GPS. Como software destacar un navegador basado en Webkit y desarrollado de forma paralela a Chrome, la Android Market y el venir con una aplicación para comprar canciones a Amazon sin DRM. Para profundizar más en estos aspectos, Xataka Móvil hace un análisis a fondo, con críticas a su escasa memoria y a una cámara bastante floja.
Y es que lo más interesante de este primer teléfono móvil con Android se encuentra en la integración con los servicios de Google. De hecho, es aquí donde doy la razón a los que hablan de "Google G1": para activar el teléfono necesitas una cuenta de Google. Correo, calendario, agenda de contactos se sincronizan con los que ofrece la compañía del buscador, no hay aplicación de escritorio para hacerlo con ThunderBird o Outlook, ni tampoco compatibilidad con Microsoft Exchange. Permite, eso sí, utilizar mail de otro proveedor y mensajería instantánea más allá de Google Talk. Por supuesto la localización y mapas viene con Google Maps, mas la aplicación "Compass View", que permite acceder a Street View según caminamos, pudiendo ver fotos de las calles por donde debemos dirigirnos para llegar a nuestra localización.

Ver el artículo completo

Lo elegí porque es interesante que salgan nuevos modelos de celulares con nuevas aplicaciones.


Canon 5D y el mestizaje entre fotografía y vídeo

Tras ver el vídeo realizado por Vincen Laforet con la nueva Canon 5d Mark II me he quedado, como muchos otros, con la boca abierta. Se puede ver en alta definición en Smugmug, aunque no ofrecen versión para embeber, una lástima. Lo están comentando un montón de blogs de fotografía, como fotomaf o Enfocando, por ejemplo.
Este movimiento no hace sino abundar en el que ya hizo Nikon con la D90, llevando el vídeo a las cámaras reflex digitales. Es muy interesante el debate en la comunidad fotográfica, que ya se encendió con aquello del vídeo en Flickr. En lo puramente técnico la convergencia es sorprendente, aunque las posibilidades que abre tampoco son revolucionarias: ya hay cámaras de vídeo baratas y la alta definición también va bajando de precio. Donde se sitúa el debate es en la separación de dos artes - la fotografía y el vídeo - que, con la convergencia en las herramientas que manejan los fotógrafos profesionales, está en entredicho. Comprendo perfectamente a la vieja escuela y su zapatero a tus zapatos, pero no hay más que observar a las nuevas generaciones y como abrazan la posibilidad de grabar vídeo hasta en las cámaras profesionales, por lo que el mestizaje se antoja casi inevitable.

Ver el artículo completo

Lo elegí porque me parece bueno que ya haya cámaras de video de buena calidad baratas y que salgan nuevos modelos.


Pandora Recovery: software gratuito para recuperar archivos borrados

Una de las peores cosas que nos puede pasar al momento de utilizar una PC es que se nos borre accidentalmente algún archivo importante.
A quien no le ha pasado que por ponerse a hacerle “mantenimiento” a su computadora se le borró el trabajo final de la universidad, las fotos de las últimas vacaciones o el trabajo que le tenía que entregar al jefe al día siguiente.
Para cualquier usuario de PC esto puede convertirse en una pesadilla. Por suerte, para estos casos existen varios programas gratuitos (y también de pago) con los que podremos recuperar esos archivos importantes que borramos accidentalmente.
En adictosalared.com hemos hablado en varias ocasiones acerca de programas para recuperar archivos (undelete plus, recuva, etc.). Hoy les traemos otro para agregar a la lista.
Se trata de Pandora Recovery, un pequeño programa gratuito con el que podremos recuperar todo tipo de archivos que hayan sido borrados por accidente.
Pandora Recovery permite rescatar archivos desde varios tipos de unidades, locales, de red y/o portátiles, trabaja con particiones NTFS, NTFS5 y NTFS/EFS y puede ser instalado en sistemas operativos Windows Vista, Windows XP, Windows 2003 y Windows 2000.

Ver el artículo completo

Lo elegí porque me parece muy útil esta herramienta.

Semana 22 (por Lau)

Pidgin FaceBook Plugin: tus contactos de Facebook en Pidgin

Pidgin Facebook Plugin es una pequeña aplicación mediante la cual podremos tener a nuestros contactos de Facebook en Pidgin.
Para los que todavía no sepan que es Pidgin, les cuento que se trata de un programa de mensajería instantánea multiplataforma (Windows y Linux) y multiprotocolo (MSN, Yahoo, ICQ, Google Talk, AIM e IRC entre otros) con el cual podremos chatear con contactos de varias redes desde un mismo programa.
Pidgin Facebook Plugin, está disponible para su descarga en archivo .exe para Windows y en .deb para Linux. Su instalación es realmente muy sencilla, solo ejecutamos el archivo correspondiente, reiniciamos nuestro Pidgin y en la opción de agregar nuevas cuentas, ahora tendremos la posibilidad de agregar cuentas de Facebook.

Ver el artículo completo

Lo elegí porque yo uso Facebook y me parece que esto puede ser útil.

Escuchar música en línea con Deezer

Deezer es un buen sitio para escuchar música gratis y en línea. En él tendrás la opción de crear tu propio playlist (siempre y cuando te registres) y guardarlo para volver a escucharlo en cualquier momento, pero también puedes escuchar música independientemente si estás registrado o no, o si posees o no un playlist. También existen playlist hechos por otras personas listos para ser escuchados.

La música está repartida en categorías que en este caso son los géneros musicales (pop, reggae, rock, funk, etc). Lo bueno de este sitio es que además de brindarte el código de la canción para embeberlo en tu blog, hi5 o web; también te brinda información acerca del artista que estás escuchando, como por ejemplo: álbumes, link hacia su biografía, artistas similares, etc.

Ver el artículo completo

Lo elegí porque me parece buena esta página, adonde se puede escuchar música gratuitamente.

Yahoo Rolls Out New Template For SearchMonkey Results

Yahoo is transitioning to a new layout for its SearchMonkey results, which can be customized by outside developers as part of Yahoo’s Open Strategy. The new design features deep links, which are horizontally aligned under each result’s title and the image is now featured on the right-hand side. With the new layout, the SearchMonkey team (whose leader is departing), believes it can create higher clickthrough rates for app developers.

After a couple months in beta, the new templates are now generally available and ready for use.

Ver el artículo completo

Lo elegí porque me pareció interesante que se pueda cambiar la apariencia de esta página.

Semana 21 (por Lau)

Plastic Logic y la tinta electrónica en Esquire

Por un lado tenemos la presentación del lector de libros electrónicos de Plastic Logic presentado en la conferencia Demo. Como se puede observar en la imagen, la experiencia se va acercando a la de un periódico, a la gran experiencia de lectura que ofrece la tinta electrónica, Plastic Logic añade un grosor muy cercano al de una hoja de papel. Todavía no es flexible (ni siquiera enrollable como el Readius), pero la pantalla será táctil y más resistente a golpes.
La otra noticia viene de la mano de Esquire, que por fin ha mostrado su número con tinta electrónica en la portada. En esta ocasión se trata más de un movimiento de marketing que de uso real de la tecnología, simplemente usan la tinta electrónica para habilitar una especie de banner dinámico. Como comentamos sobre esta portada de Esquire, algo meramente experimental alejado de los usos reales para los que está destinada esta tecnología.
Aunque la tendencia sea a simular la experiencia de lectura actual, la mayoría de los comentarios de periodistas al respecto obvian los elementos fundamentales de la puerta que abren los aparatos de tinta electrónica: ruptura de la distinción entre medio offline y online, configuración de nuestro periódico a la carta a partir de toda la oferta tradicional más blogs, multimedia, interactiva y con un gran poder de decisión para el usuario. De hecho, que Esquire flirtee con un lector sólo para él y las limitaciones de Kindle ayudan a crear la ficción de que las tecnologías de control posibilitarán mantener un status quo similar al actual, cuando estamos en puertas de un cambio profundo de la experiencia de lectura de libros y medios.

Ver el artículo completo

Lo elegí porque me parece muy interesante este avance teconógico.

Viloader: convierte y descarga videos desde Youtube, Google, Tu.tv y muchos otros sitios

Estoy hablando de Viloader, una sencilla pero potente aplicación online gratuita con la que no solo podremos descargar videos de Youtube sino también de otros sitios como Google Video, tu.tv, DailyMotion, Metacafe, Vmix, Dalealplay y muchos otros.
Viloader cuenta con una herramienta para convertir los videos .flv que descargamos de estos sitios en otros formatos (AVI, DVD, 3gp, Real video, mov, etc.). Además podemos usar este conversor con cualquier video que tengamos alojado en nuestra PC ya que soporta varios formatos de entrada y de salida.
En la sección de ayuda, encontraremos las instrucciones de como descargar los videos según el sitio en donde estén alojado.
Sin lugar a dudas, Viloader es para mi el sitio de descargas de video más sencillo y con más funciones que vi hasta el momento.

Ver el artículo completo

Lo elegí porque me parece un buen programa para descargar videos.

Descargar Windows Live Messenger 9

Hace ya algunos días se liberó no-oficialmente la nueva versión de Windows Live Messenger 9 beta, la misma que entre sus principales características están el poder enviar tener agrupados nuestros contactos favoritos, funciones de Photo Sharing y la integración con Windows Live Groups.
Contactos favoritos: Agrupar a nuestros contactos en favoritos es una gran ventaja ya que así no tendremos que lidiar con la extensa lista de contactos con los que nunca hemos conversado;
Photo Sharing: seguro muchos de ustedes se aburrían con el hecho de que cuando querían enviar fotos a su contacto tenían que hacerlo de tres en tres y esperar a que se vayan transfiriendo para poder enviar otro grupo, pues esto se acabó, ahora podrán enviar todas las que quieran de un solo porrazo;
Windows Live Groups: ahora podremos crear desde el mismo MSN un Grupo de Windows Live y utilizar las funciones de Windows Live Groups pero de moento solo se pueden utilizar las funciones de Windows Live Groups relacionadas con Messenger, ya que el servicio web (groups.live.com) todavía no esta operativo. Por otra parte, llamó la atención ver una interface minimalista dejando solo los botones necesarios y suficientes para entablar una comunicación como pueden ver en la imagen superior.

Ver el artículo completo

Lo elegí porque yo uso mucho el Messenger y me parece bueno que cada tanto se renueven y mejoren su servicio.

Pantalla y control (por Lau)

Private Sub CATV_Click()
TVCATV.Caption = "CATV"
End Sub
Private Sub catvtv_Click()
If TVCATV.Caption = "TV" Then
TVCATV.Caption = "CATV"
Else
TVCATV.Caption = "TV"
End If
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()
If auxiliar.Caption < 120 Then

NUMEROCANAL.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub
Private Sub masbrillo_Click()
Pantalla.Top = Pantalla.Top + 100
End Sub
Private Sub mascanal_Click()
If TVCATV.Caption = "CATV" Then
If NUMEROCANAL.Caption < 120 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption + 1
Else
NUMEROCANAL.Caption = 0
End If
Else
If NUMEROCANAL.Caption < 13 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption + 1
Else
NUMEROCANAL.Caption = 0
End If
End If
End Sub
Private Sub masvolumen_Click()
Pantalla.Left = Pantalla.Left + 100
End Sub
Private Sub menosbrillo_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub
Private Sub menoscanal_Click()
If TVCATV.Caption = "CATV" Then
If NUMEROCANAL.Caption > 0 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption - 1
Else
NUMEROCANAL.Caption = 120
End If
Else
If NUMEROCANAL.Caption > 0 Then
NUMEROCANAL.Caption = NUMEROCANAL.Caption - 1
Else
NUMEROCANAL.Caption = 13
End If
End If
End Sub
Private Sub menosvolumen_Click()
Pantalla.Left = Pantalla.Left - 100
End 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 = vbBlack
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
TV.Enabled = False
CATV.Enabled = False
End Sub
Private Sub offon_Click()
If ONOFF.BackColor = vbRed Then
ONOFF.BackColor = vbBlack
auxiliar.Caption = ""
TVCATV.Caption = ""
NUMEROCANAL.Caption = ""
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
mascanal.Enabled = False
menoscanal.Enabled = False
masbrillo.Enabled = False
menosbrillo.Enabled = False
masvolumen.Enabled = False
menosvolumen.Enabled = False
catvtv.Enabled = False
ENTER.Enabled = False
Else
ONOFF.BackColor = vbRed
auxiliar.Caption = ""
TVCATV.Caption = "TV"
NUMEROCANAL.Caption = "0"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
mascanal.Enabled = True
menoscanal.Enabled = True
masbrillo.Enabled = True
menosbrillo.Enabled = True
masvolumen.Enabled = True
menosvolumen.Enabled = True
catvtv.Enabled = True
ENTER.Enabled = True
End If

End Sub
Private Sub ON_Click()
NUMEROCANAL.Caption = "0"
TVCATV.Caption = "TV"
ONOFF.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
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