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