Ascensor final (por Iaru)

Private Sub L1_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4320) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
L1.Enabled = False
llamar1.Enabled = False
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End Sub

Private Sub L2_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3360) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
L2.Enabled = False
llamardos.Enabled = False
llamar1.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End Sub

Private Sub L3_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
L3.Enabled = False
llamartres.Enabled = False
llamar1.Enabled = True
llamardos.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True

End Sub

Private Sub L4_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1440) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
L4.Enabled = False
llamarcuatro.Enabled = False
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
auxiliar.Caption = Sqr(((ascensor.Top - 480) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
L5.Enabled = False
llamarcinco.Enabled = False
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End If
End Sub

Private Sub llamar1_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4320) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
llamar1.Enabled = False
L1.Enabled = False
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
auxiliar.Caption = Sqr(((ascensor.Top - 480) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
llamarcinco.Enabled = False
L5.Enabled = False
llamar1.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamardos.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End If
End Sub

Private Sub llamarcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1440) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
llamarcuatro.Enabled = False
L4.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamartres.Enabled = True
llamardos.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End Sub

Private Sub llamardos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3360) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
llamardos.Enabled = False
L2.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
End Sub


Private Sub llamarpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5280) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
cuentapisospb.Caption = Val(cuentapisospb.Caption) + 1
llamarpb.Enabled = False
LPB.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamardos.Enabled = True
llamarss.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True

End Sub

Private Sub llamarss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 6240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
cuentapisosss.Caption = Val(cuentapisosss.Caption) + 1
llamarss.Enabled = False
LSS.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamardos.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True

End Sub

Private Sub llamartres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
llamartres.Enabled = False
L3.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamarcuatro.Enabled = True
llamardos.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True

End Sub

Private Sub LPB_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5280) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
cuentapisospb.Caption = Val(cuentapisospb.Caption) + 1
LPB.Enabled = False
llamarpb.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamarcuatro.Enabled = True
llamardos.Enabled = True
llamarss.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
llamartres.Enabled = True
LSS.Enabled = True

End Sub

Private Sub LSS_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 6240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
cuentapisosss.Caption = Val(cuentapisosss.Caption) + 1
LSS.Enabled = False
llamarss.Enabled = False
llamarcinco.Enabled = True
llamar1.Enabled = True
llamarcuatro.Enabled = True
llamardos.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
llamartres.Enabled = True

End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False


Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Ascensor 4 (por Iaru)

Private Sub L1_Click()
auxiliar.Caption = (ascensor.Top - 4320) / 840
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub

Private Sub L2_Click()
auxiliar.Caption = (ascensor.Top - 3360) / 840
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub

Private Sub L3_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1
End Sub

Private Sub L4_Click()
auxiliar.Caption = (ascensor.Top - 1440) / 840
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1
End If
End Sub


Private Sub ll1_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 4320) / 840
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub ll2_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 3360) / 840
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub ll3_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub ll4_Click(Index As Integer)
auxiliar.Caption = (ascensor.Top - 1440) / 840
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"

End Sub

Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"

End If
End Sub

Private Sub llamar1_Click()
auxiliar.Caption = (ascensor.Top - 4680) / 840
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
cuentapisos1.Caption = Val(cuentapisos1.Caption) + 1
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
auxiliar.Caption = (ascensor.Top - 480) / 840
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
cuentapisos5.Caption = Val(cuentapisos5.Caption) + 1

End If
End Sub

Private Sub llamarcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
cuentapisos4.Caption = Val(cuentapisos4.Caption) + 1
auxiliar.Caption = (ascensor.Top - 1560) / 840
End Sub

Private Sub llamardos_Click()
auxiliar.Caption = (ascensor.Top - 3720) / 840
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
cuentapisos2.Caption = Val(cuentapisos2.Caption) + 1
End Sub


Private Sub llamarpb_Click()
auxiliar.Caption = (ascensor.Top - 5640) / 840
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"

End Sub

Private Sub llamarss_Click()
auxiliar.Caption = (ascensor.Top - 6480) / 840
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"

End Sub

Private Sub llamartres_Click()
auxiliar.Caption = (ascensor.Top - 2640) / 840
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
cuentapisos3.Caption = Val(cuentapisos3.Caption) + 1

End Sub

Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 5280) / 840
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 6240) / 840
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub LPB_Click()
auxiliar.Caption = (ascensor.Top - 5280) / 840
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
cuentapisospb.Caption = Val(cuentapisospb.Caption) + 1
End Sub

Private Sub LSS_Click()
auxiliar.Caption = (ascensor.Top - 6240) / 840
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
cuentapisosss.Caption = Val(cuentapisosss.Caption) + 1
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False


Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Ascensor 3 (por Iaru)

Private Sub L1_Click()
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub L2_Click()
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub L3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub L4_Click()
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub


Private Sub ll1_Click(Index As Integer)
ascensor.Top = 4320
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub



Private Sub ll2_Click(Index As Integer)
ascensor.Top = 3360
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub

Private Sub ll3_Click()
ascensor.Top = 2400
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub ll4_Click(Index As Integer)
ascensor.Top = 1440
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub ll5_Click(Index As Integer)
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamar1_Click()
ascensor.Top = 4680
pcinco.Caption = "1"
pcuatro.Caption = "1"
ptres.Caption = "1"
pdos.Caption = "1"
puno.Caption = "1"
pb.Caption = "1"
ss.Caption = "1"
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
pcinco.Caption = "5"
pcuatro.Caption = "5"
ptres.Caption = "5"
pdos.Caption = "5"
pb.Caption = "5"
ss.Caption = "5"
puno.Caption = "5"
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
pcinco.Caption = "4"
pcuatro.Caption = "4"
ptres.Caption = "4"
pdos.Caption = "4"
pb.Caption = "4"
ss.Caption = "4"
puno.Caption = "4"
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
pcinco.Caption = "2"
pcuatro.Caption = "2"
ptres.Caption = "2"
pdos.Caption = "2"
pb.Caption = "2"
ss.Caption = "2"
puno.Caption = "2"
End Sub


Private Sub llamarpb_Click()
ascensor.Top = 5640
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
pcinco.Caption = "3"
pcuatro.Caption = "3"
ptres.Caption = "3"
pdos.Caption = "3"
pb.Caption = "3"
ss.Caption = "3"
puno.Caption = "3"
End Sub

Private Sub llpb_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub llss_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub LPB_Click()
ascensor.Top = 5280
pcinco.Caption = "PB"
pcuatro.Caption = "PB"
ptres.Caption = "PB"
pdos.Caption = "PB"
pb.Caption = "PB"
ss.Caption = "PB"
puno.Caption = "PB"
End Sub

Private Sub LSS_Click()
ascensor.Top = 6240
pcinco.Caption = "SS"
pcuatro.Caption = "SS"
ptres.Caption = "SS"
pdos.Caption = "SS"
pb.Caption = "SS"
ss.Caption = "SS"
puno.Caption = "SS"
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
pcinco.Enabled = False
pcuatro.Enabled = False
ptres.Enabled = False
pdos.Enabled = False
pb.Enabled = False
ss.Enabled = False
puno.Enabled = False


Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
pcinco.Enabled = True
pcuatro.Enabled = True
ptres.Enabled = True
pdos.Enabled = True
pb.Enabled = True
ss.Enabled = True
puno.Enabled = True
End If
End Sub

Semana 29 (por Iaru)

ASUS presenta la torre de sobremesa plegable VENTO TA-F

03 / 11 / 2008

ASUS ha vuelto a sorprender con un producto mucho más útil de lo que pueda parecer, puesto que con este chasis plegable se puede ahorrar hasta un 30% en transporte y almacenamiento (siempre que esté plegada, claro). Los amantes del bricolaje les encantará descubrir que no son necesarias herramientas para su montaje y la cantidad de puertos y espacios con que viene el VENTO.Se venderá en dos colores: plateado (TA-FA21) o negro (TA-FA11), aunque por el momento no tenemos más detalles ni sobre el precio ni la fecha de lanzamiento.
Para ver más
Lo elegí porque me es muy práctico.

Las webcams con cristales Swarovski demuestran que si no brilla no sirve.

31 / 10 / 2008

No vamos a decir que aparatos sin cristales Swarovski no sirven para nada, sin embargo, estos parecen subir su valor (aunque sea netamente económico). Las webcams Laplace de Vicious and Divine se venden por alrededor de 50 euros. Incluyen resolución para fotos de 2 megapíxeles, video de 1,3 megapíxeles, flash y una articulación que permite montarlas en portátiles y monitores de panel plano. Como puedes ver en la fotografía superior, vienen en colores blanco y negro, y harán que seas el individuo más envidiado (¿odiado?) de la Campus Party. Claro que si compras una de estas, seguramente no te importará que la gente te odie.

Para ver más
Lo elegí porque me gusto el modelo

Tomy xiao digital camera has built in Zink printer, the spirit of Polaroids
Nov 6th 2008

Like just about everyone else, we miss the Polaroid film format; maybe it's just nostalgia, but we enjoyed having something we could hold on to (and shake) after taking a picture. Polaroids may be dead, but the basic concept lives on -- remember Zink, that company whose technology prints digital photos on the spot without ink? It's joined forces with toy-maker Tomy to make the xiao TIP-521, a digital camera with a printer built in. The xiao has a modest five megapixel resolution, so we might wait and see how Polaroid's own Zink camera turns out, but in either case we're stoked the tactile experience is back.

Para ver más

Lo elegí porque me gustaría tener una de estas cámaras y porque demuestra que todo vuelve ya que este tipo de cámaras ya se utilizaban años atras.

Semana 28 (por Iaru)

Virtuo Digital Palette Takes The Problems Out of Painting
24 de Octubre









One of my greatest passions in life is oil painting. I love everything about it—even the smell of turpentine (especially the smell of turpentine). However, for the novice the whole process can be quite daunting. It's messy and mixing the paints correctly requires skill. That is why designer Yana Klimava developed Virtuo—a digital painting system for beginners that overcomes these problems. The system consists of a monitor that acts as a digital canvas, a palette, a pencil, paintbrush, palette knife, airbrush and pastel stick.
Para ver más
Lo elegí porque me pareció muy original

El robot EI-E abre puertas y cajones (¿?)
23 / 10 / 2008
Este robot es capaz de abrir todo tipo de puertas y cajones, incluyendo la del microondas, y responde además a órdenes recibidas por voz (del tipo "empuja", "tira" y tal). En fin, pues eso. Si quieres ver el vídeo haz click en Leer un poco más abajo.
Para ver más
Lo elegí porue es muy interesante que el robot pueda recibir ordenes

Samsung muestra la primera foto del Cleo, su nuevo móvil femenino
24 / 10 / 2008

Samsung se guarda una nueva sorpresa. Una para las chicas, por lo que se ve. Su CLEO, filtrado en nombre hace dos meses gracias a un e-mail de la compañía Verizon, es todo un misterio con forma de polvera que parece haber sido diseñado para vivir dentro de un bolso. Nada sabemos aparte de su nombre, aunque por su configuración plegable podemos suponer que esconde un generoso teclado QWERTY con el que ametrallarnos a mensajes. Esta "nueva experiencia" de "alta comunicación" (sic) será lanzada en lo que queda de año, así que no te despegues de la pantalla; su anuncio oficial debería estar al caer.
Para ver más
Lo elegí porque me gustó el diseño

Ascensor 2 (por Iaru)

Private Sub L1_Click()
ascensor.Top = 4680
End Sub

Private Sub L2_Click()
ascensor.Top = 3720
End Sub

Private Sub L3_Click()
ascensor.Top = 2640
End Sub

Private Sub L4_Click()
ascensor.Top = 1560
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub



Private Sub llamar1_Click()
ascensor.Top = 4680
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
End Sub


Private Sub llamarpb_Click()
ascensor.Top = 5640
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
End Sub

Private Sub LPB_Click()
ascensor.Top = 5640
End Sub

Private Sub LSS_Click()
ascensor.Top = 6480
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
ll1.Enabled = False
ll2.Enabled = False
ll3.Enabled = False
ll4.Enabled = False
ll5.Enabled = False
llss.Enabled = False
llpb.Enabled = False
Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
ll1.Enabled = True
ll2.Enabled = True
ll3.Enabled = True
ll4.Enabled = True
ll5.Enabled = True
llss.Enabled = True
llpb.Enabled = True
End If

End Sub

Ascensor (por Iaru)

Private Sub llamar1_Click()
ascensor.Top = 4680
End Sub


Private Sub llamarcuatro_Click()
ascensor.Top = 1560
End Sub


Private Sub llamardos_Click()
ascensor.Top = 3720 End Sub


Private Sub llamartres_Click()
ascensor.Top = 2640
End Sub

Semana 27 (por Iaru)

R/C Fin-Fish Blimp Hypnotically Swims Through the Air
Oct 17 2008


Air Art from flip on Vimeo.

Like Festo's Air Ray and Airjelly contraptions, this Fin-Fish R/C blimp floats so gracefully through the air that it is liable to hypnotize you at your office desk until quittin' time. There isn't any information on device, but it appears to be an entry in the annual Airship Regatta held in Germany. And, and like the Air Ray, it is probably built with a helium-filled balloon and servo-driven fins.
Para ver más
Lo elegí porque me pareció un buen invento.

Chinese-made solar-powered car gets 150 kilometers on a 30-hour charge
Oct 17th 2008

It may not attract the same sort of glances as a Tesla, or a Volt, for that matter, but this solar-powered car built by China's Zhejiang 001 Group is pretty impressive in its own right, both for its price (just $5,560), and it's efficiency. That latter bit is a result of some rather un-integrated solar panels, which absorb 95% of the solar energy they take in and convert it to electricity at between 14 and 17% efficiency, which is actually pretty impressive as far as solar panels go. According to the company, that should let you travel about 150 kilometers on a 30-hour charge, though you'll only be able to go five kilometers on a one-hour charge. No word on a release outside of China, as you might have guessed, but the company has apparently already produced ten of 'em for sale inside the country, with more presumably on the way.
Para ver más
Lo elegí porque me pareció una buena idea para ahorrar.

Beijing Gets Tougher On Net Cafes With Mandatory Photos
Fri Oct 17 2008

All internet cafes in the main 14 city districts of Beijing have been mandated to install cameras to take pics of people as they enter the store, which are they uploaded to a city-wide database under watch of the Cultural Law Enforcement Taskforce. Shop owners have apparently said that their customers don't care, but apparently an online version of the People's Daily showed 72% respondents opposing it because it violated their rights.

Para ver más
Lo elegí porque me pareció muy interesante

Semana 26 (por Iaru)

AirPod is Like a Smart Car Full of Hot Air, and That's the Idea

Oct 12 2008

This post is almost half a Retromodo, in that compressed air cars have been peddled by companies like MDI for the last 20 years. But this compressed air-powered pod, the AirPod, is all new. The three-seater is powered by MDI's proprietary compressed air system, which uses electricity to force the air to power the engine's pistons. The car might appear in U.S. cities by 2010, and possibly India and Europe a bit sooner.
The range, as expected, is quite limited. The AirPod gets up to about 40 mph, and goes approximately 130 miles between charges.
Once the tank is depleted, refilling it is described as "extremely quick" if you happen to have a specialized compressed air filling station handy. Otherwise, you'll have to fill up using a traditional home air compressor.

Para ver más

Lo elegí porque es una buena idea y muestra como serán los autos del futuro

El WoW MMO Gaming Mouse hace que desperdiciar tu tiempo sea aún más divertido

10 / 10 / 2008

Como si pasar días enteros jugando World of Warcraft no fuera lo suficientemente anti productivo, SteelSeries hará las cosas aún más fáciles, cómodas y divertidas. El World of Warcraft MMO Gaming Mouse fue desarrollado en asociación con Ideazon (y con permiso de Blizzard). Ofrece 15 botones programables, ubicados alrededor del aparato, que pueden ser configurados desde el propio juego para que cada uno ejecute precisamente lo que necesitas. Permite grabar diferentes perfiles, y las luces LED en la parte posterior pueden ser configuradas en más de 16 millones de colores diferentes. Aunque sea cómodo y atractivo, no esperes que este periférico realice tu trabajo, porque no funciona con macros que obtengan oro mientras tú sólo miras a la pantalla. Saldrá a la venta el 13 de noviembre, al mismo tiempo que la actualización Lich King, por un precio "inferior a 100 dólares".

Para ver más

Lo elegí porque me gustó el modelo

GE builds an OLED printer, hopes to challenge light bulbs in 2010
Oct 11th 2008

Maybe the incandescent light bulb has been sitting in its socket-shaped throne for too many years -- GE thinks so, anyway. GE R&D guys have produced a machine that prints OLED materials newspaper-style onto 8-inch sheets of metal foil in hopes that the sheets -- which can be pinned to just about any surface -- will start the process of home lighting biz regime change in 2010. Picture, if you will, wallpaper or window blinds that provide soft, diffused lighting for the living room after dark -- no need for special fixtures, just a wall plug. OLED lighting isn't yet cost-efficient for the average consumer, but GE hopes that will change soon. In the meantime, expect to see these sheets in a trip-out Flaming Lips concert in the somewhat-near future.
Para ver más

Lo elegí porque es algo nuevo y original

Calculadora 4 (por Ariel P. y Iara)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub

Private Sub cinco_Click(Index As Integer)
barra.Caption = barra.Caption + "5"
End Sub

Private Sub coma_Click()
barra.Caption = barra.Caption + ","
coma.Enabled = False
End Sub

Private Sub Command8_Click()
barra.Caption = 1 / Val(barra.Caption)
End Sub

Private Sub cuatro_Click(Index As Integer)
barra.Caption = barra.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "*" Then
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "%" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption) * 100
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub masmanos_Click()
barra.Caption = barra.Caption * -1
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = menos.Caption
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""

End Sub

Private Sub porcentaje_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = "%"


End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub sqrt_Click()
barra.Caption = Sqr(barra.Caption)

End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub

Semana 25 (por Iaru)

Nissan's Nuvu: electric, cartoonish
Oct 2nd 2008

Nissan's Nuvu is making its debut this week at the Paris motor show, and while it isn't the all-electric vehicle that the company has promised for 2010, it's a step in the right direction. Resembling something from a Pixar movie, the Nuvu has that special mix of "vaguely futuristic" and "somewhat impractical" that we look for in a concept car: it's less than ten feet long, seats three (un)comfortably and the space behind the driver is claimed by what looks like an end table with a conduit extending to the ceiling. Many of the cabin materials are either recycled or made from organic materials and since the vehicle is electric, it should be whisper quiet -- offering maximum clarity for your Medeski, Martin and Wood CDs.

Para ver más

Lo elegí porque es un adelanto de como van a ser los autos del futuro

Microsoft set to launch Surface SDK this month
Oct 7th 2008

Microsoft's large multitouch device -- the Surface -- will be getting its very own SDK at Microsoft's Professional Developer Conference this month. The package, which the folks in Redmond have apparently been promising since April, will introduce developers to "vision-based object recognition" and something called ScatterView, and a session at the PDC will detail how the kit "aligns with the multitouch developer roadmap for Windows 7." All exciting stuff, but if we don't see a giant, multitouch version of FreeCell soon, we might just stop paying attention.

Para ver más

Lo elegí porque me gusto el diseño

Remock Lockey Opens Doors With Its Wireless Mojo

Tue Oct 7 2008

Wireless deadbolts have been on the market for a while now, but the new Remock Lockey seems like a decent solution for doors you want to secure inside a home. The remote controlled lock is placed on the inside of a room and can only be opened with a remote control "key." It runs on store bought batteries, but the system will automatically shut down when the power is low so you don't have to worry about getting locked out

Para ver más

Lo elegí porque me pareció una idea que ayudará a que haya más seguridad

Calculadora 3 (por Ariel y Iaru)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub



Private Sub cinco_Click(Index As Integer)
barra.Caption = barra.Caption + "5"
End Sub



Private Sub coma_Click()
barra.Caption = barra.Caption + ","
coma.Enabled = False
End Sub

Private Sub cuatro_Click(Index As Integer)
barra.Caption = barra.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub



Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "*" Then
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "%" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption) * 100
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub masmanos_Click()
barra.Caption = barra.Caption * -1
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = menos.Caption
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""

End Sub

Private Sub porcentaje_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = "%"


End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub sqrt_Click()
barra.Caption = Sqr(barra.Caption)

End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub

Semana 24 (por Iaru)

Televisores Philips Flavors con marcos intercambiables
29 / 09 / 2008













Si eres de ese tipo de personas que cambian constantemente de parecer, este nuevo televisor de Philips está hecho a tu medida. Y es que los nuevos TV con pantalla LCD, bautizados muy sabiamente como Flavors, vienen con marcos intercambiables con diferentes diseños para que cada mañana le pongas el que más coraje te de.

Cada televisor viene con dos marcos a elegir, que podrás colocar gracias a unas monturas magnéticas que facilitan su colocación. Además, si dos no son suficientes para ti, puedes adquirir unidades adicionales (hay hasta 12 diferentes para elegir)

Lo elegí porque es una muy buena idea cambia los marcos.
Para ver más


CEATEC: Hitachi muestra una TV LCD de 37 pulgadas y 15mm de grosor
30 / 09 / 2008
Nos encantan las televisiones delgadísimas, y esta pantalla LCD de Hitachi ciertamente nos permitirá dormir con una sonrisa en la cara. Fue presentada en la CEATEC, ofrece una resolución 1.920x1.080 en sus 37 pulgadas, pero lo especial son sus 15mm de grosor. No te alegres mucho en cualquier caso, dado que la fabricación en masa no empezará hasta el "2009 o después".

Lo elegí porque me gusta el diseño
Para ver más


Zpen
20/09/08

Lo de tomar apuntes con bolígrafo y papel sigue siendo bastante habitual, empieza a haber dispositivos que quizás hagan que te olvides de ellos. Así por ejemplo el Zpen es un conjunto formado por un bolígrafo y un sensor que grabará todos los movimientos que realices con él. Cuando llegues a casa podrás pasar la información a tu ordenador conectando el sensor por USB. Viene con un software que reconoce escritura por si quieres pasar tus garabatos a texto de ordenador.

Lo elegí porque me serviría de mucho y además esmuy original
Para ver más

Visual Basic (por Ari y Iaru)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub

Private Sub cinco_Click()
barra.Caption = barra.Caption + "5"
End Sub

Private Sub cuatro_Click()
barra.Caption = barra.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "*" Then
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
auxiliar.Caption = ""
End If
auxiliar2.Caption = ""
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = menos.Caption
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""

End Sub

Private Sub porcentaje_Click()
auxiliar2.Caption = barra.Caption
auxiliar2.Caption = Val(auxiliar2 * 100)


End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub

Semana 23 (por Iaru)

El ejército de EEUU quiere un casco de comunicaciones "telepático"

22 / 09 / 2008

El casco, cubierto de sensores por todas partes, servirá teóricamente para "ejercer control mental directo de sistemas militares únicamente con el pensamiento", enviando órdenes y mensajes concisos a los miembros de un pelotón. Según el doctor Elmar Schmoozer, el aparato será como "una radio sin micrófono", capturando las ondas cerebrales, interpretándolas con un software y enviándolas a los auriculares del resto de los soldados. Inicialmente los pensamientos serán recreados mediante una voz sintetizada, pero con el tiempo se espera utilizar el tono de cada hombre e incluso añadir efectos que reflejen la distancia y la dirección de la voz.

Para ver más

Japón también quiere su propio ascensor espacial
24 / 09 / 2008

Los científicos de la NASA ya pueden estar rezando para que el próximo presidente de Estados Unidos no les recorte el presupuesto, porque parece que Japón va en serio. La agencia espacial nipona ha anunciado que invertirá un billón de yenes (6.400 millones de euros/9.400 millones de dólares) en el desarrollo de un ascensor espacial capaz de transportar pasajeros y carga a una "altura" de 36.000 km utilizando cables fabricados con materiales compuestos. Precisamente ahí está el problema, y es que para hacer posible el sueño de Arthur C. Clarke los cables deberían ser 180 veces más fuertes que el acero y mucho más ligeros. Los técnicos japoneses apuestan para no variar por los casi milagrosos nanotubos de carbono, un material que aunque todavía ha de ser reforzado, posee unas características conductoras brillantes, hasta el punto de que los propios cables podrían servir para transmitir la electricidad necesaria por el ascensor; algo bastante útil, dado que el viaje hasta la última planta podría llevar días o incluso semanas, y de alguna forma tendrán que recargar los astronautas sus reproductores multimedia. De entrada, el mayor reto está en reforzar dichos nanotubos para que sean cuatro veces más resistentes.

Para ver más

Elegí estas dos noticias porque son ideas interesantes posibles de lograr.

Gyration Air Mouse, y alza tu ratón al aire
24 / 09 / 2008

Parece que Gyration sigue perfeccionando la técnica y ha presentado un nuevo modelo de ratón. Se trata del Air Mouse -el nombre no tiene mucha complicación, vamos- con tecnología MotionSense que te permite trabajar con el periférico tanto sobre una superficie como en el aire con una total precisión.Con un diseño ergonómico, el ratón láser, que utiliza la frecuencia inalámbrica de 2.4 GHz, puede ser usado por diestros y zurdos -todo un detalle- y pesa poco menos de 113 gramos. Aunque siempre puedes usarlo para vacilar delante de los amigos y quedar como el más molón del grupo, realmente el Air Mouse puede encontrar su cometido

perfecto para realizar, por ejemplo, presentaciones de diapositivas del tipo PowerPoint.

Para ver más

Lo elegí porque parece útil y cómodo.

Calculadora (por Iaru)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub

Private Sub cinco_Click()
barra.Caption = barra.Caption + "5"
End Sub

Private Sub cuatro_Click()
barra.Caption = barra.Caption + "4"
End Sub

Private Sub dividido_Click()

End Sub

Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
Else
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
Else
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub

Semana 22 (por Iaru)

Custom Toyota MR2 carputer presents the ultimate distraction for drivers
Sep 14th 2008

This insanely kitted out Toyota MR2 is being put up for sale by its owner somewhere in Germany -- he's a highly motivated seller, provided you have the prerequisite electronics and programming (especially Visual Basic) skills. The standard gauges and indicators in the car have been removed, replaced with touch screens and a console mounted iDrive knob, offering the pilot of this machine control over almost every aspect of its operation: climate control, GPS, fuel consumption, mirrors, radar/laser, wireless transfer of music from a home computer, lights, fog lights... and the all-important VCD playback. Also listed on the original posting is something called the "police button" which "virtually controls the police." This might have been something that Google mistranslated, but we prefer to think otherwise.
Para ver más
Lo elegí porque utiliza la programación de Visual Basic y nostros estamos aprendiendo a programar con el mosmo.

Pupitres multitáctiles para las escuelas del futuro (porque los cuadernos de ahora son taaan complicados)
18 / 09 / 2008













Investigadores de la Universidad de Durham, en el Reino Unido, están trabajando duro para asegurarse de que el sector educativo del país no se quede fuera de la locura multitáctil. El todavía sin bautizar "pupitre interactivo multitáctil" forma parte del framework SynergyNet, en entorno para aulas interactivas construido en torno al motor de videojuegos jMonkey. Todavía no se sabe cómo cambiará SynergyNet el mundo de la enseñanza, pero cuando llegue a las escuelas será de código abierto, facilitando cualquier clase de modificación para adaptarse a los requisitos particulares de cada centro. Mientras tanto, los colegios que sigan pensando en sustituir las pizarras y los cuadernos de toda la vida deberán seguir escarbando entre la marabunta de portátiles de bajo coste.

Para ver más
Lo elegí porque demuestra como avanza la tecnología que hasta las maneras de aprendizaje de los niños cambia.

Kaliho lanza el KU860, un UMPC convertible con GPS
16 / 09 / 2008















De momento sólo se puede adquirir en grandes cantidades, pero seguro que el fabricante no va a tener problemas en distribuirlo, dada las interesantes características que ofrece este UMPC. El KU860 es un laptop convertible con pantalla giratoria de 7 pulgadas WXGA táctil, procesador VIA C7-M, 1 GB de RAM, hasta 60 GB de disco duro, Webcam e incluso GPS. Por desgracia el precio aún es una incógnita, por lo que habrá que preguntar a Kaliho.
Para ver más
Lo elegí porque em gusta el modelo y el diseño.

Visual Basic 3 (por Iaru)

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

End Sub

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 Tvcatv.Caption = "TV" Then
If auxiliar.Caption < 13 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If
Else
If auxiliar.Caption < 129 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If

End If

End Sub



Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If NroCanal.Caption < 13 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
Else
If NroCanal.Caption < 129 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
End If
End Sub

Private Sub Mas1_Click()
Pantalla.Top = Pantalla.Top + 100
auxiliar.Top = auxiliar.Top + 100
Shape2.Top = Shape2.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
onoff.Top = onoff.Top + 100
NroCanal.Top = NroCanal.Top + 100

End Sub

Private Sub Mas2_Click()
Pantalla.Left = Pantalla.Left + 100
auxiliar.Left = auxiliar.Left + 100
Shape2.Left = Shape2.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
onoff.Left = onoff.Left + 100
NroCanal.Left = NroCanal.Left + 100
End Sub

Private Sub Menos_Click()
If NroCanal.Caption > 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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()
NroCanal.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
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
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
TV.Enabled = True
CATV.Enabled = True
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
NroCanal.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
TV.Enabled = True
CATV.Enabled = True
End Sub

Private Sub Seis_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub Siete_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub Tres_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
Tvcatv.Caption = "TV"
End Sub


Private Sub Uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Semana 21 (por Iaru)

Ballpoint Pen Doubles as an Emergency Cellphone Charger
5/09/08

Brando is known for quirky and offbeat gadgets, but they deliver their fair share of useful devices as well. Case in point, this ballpoint pen that can also be used as an emergency cellphone charger. According to the description, it averages a 100 minute charge time, 20 hour standby time and 2 hours of talk time on one AA battery.
Para ver más

Lo elegí porque es un elemento muy util para viajes.

Apple's Next-Gen Running Shoe Has Force Sensors, GPS Support

11/09/08

Apple wants to take Nike+ to a different new level to perform precise, real-time tracking of runners' performance and—shiver—offer location-based information and advertising. Their latest patent not only details how they will get rid of the current RFID sensor and add a series of force sensors instead—as well as GPS support—but also how they are contemplating other "authorized" shoes.

Para ver más

Lo elegí porque es una manera de demostrar como avanza la tecnología en el calzado

Altavoz CY-FI Bluetooth para bici: éste sí es el octavo pasajero
10 / 09 / 2008

Tenemos serias dudas de que Sigourney Weaver llegue a comprarse alguna vez este altavoz Bluetooth, y es que posiblemente le traiga recuerdos no muy gratos. Pero si no te traumatizó "Aliens, el octavo pasajero" te interesará saber que el altavoz CY-FI soporta la función de manos libres (mediante conexión Bluetooth, claro) y puede considerarse como "el primer altavoz deportivo Bluetooth del mundo", si es que este récord le sirve para algo.

Para ver más

Lo elegí porque es algo que em gustaria tener en mi bicicleta, es una idea muy util.

Visual Basic 2 (por Iaru)

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 Command1_Click()

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()
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
If Tvcatv.Caption = "TV" Then
auxiliar.Caption = "13" < 0
NroCanal.Caption = NroCanal.Caption
End If

End Sub



Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If NroCanal.Caption < 13 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
Else
If NroCanal.Caption < 129 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
End If
End Sub

Private Sub Mas1_Click()
Pantalla.Top = Pantalla.Top + 100
auxiliar.Top = auxiliar.Top + 100
Shape2.Top = Shape2.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
onoff.Top = onoff.Top + 100
NroCanal.Top = NroCanal.Top + 100

End Sub

Private Sub Mas2_Click()
Pantalla.Left = Pantalla.Left + 100
auxiliar.Left = auxiliar.Left + 100
Shape2.Left = Shape2.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
onoff.Left = onoff.Left + 100
NroCanal.Left = NroCanal.Left + 100
End Sub

Private Sub Menos_Click()
If NroCanal.Caption > 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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()
NroCanal.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
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
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
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
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
TV.Enabled = True
CATV.Enabled = True
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
NroCanal.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
TV.Enabled = True
CATV.Enabled = True
End Sub

Private Sub Seis_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub Siete_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub Tres_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
Tvcatv.Caption = "TV"
End Sub


Private Sub Uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Semana 20 (por Iaru)

French doctors use laser to destroy brain tumor in conscious patient
Aug 30th 2008 at 3:12PM












Neurosurgery with robotic assistance is getting pretty old hat nowadays, so it looks like scientists are trying to up the difficulty factor by keeping their patients awake -- a team of French doctors just completed the first successful removal of malignant brain tumor from a still-conscious patient, using a computerized laser and an MRI scanner to guide the probe. The fiber-optic laser was fed into the brain through a 3mm (.12 inch) hole in the patient's skull and guided via MRI to the tumor, where it fired for two minutes and completely destroyed the cancerous tissue. Once the tumor cells were dead, the cable was removed and the patient was allowed to return home -- all within a single day.

Para ver más
Lo elegí porque esto demuestra como la medicina avanza con la tecnología

Yamaha Trumpet...Cellphone?
Sat Aug 30 2008

Yamaha and KDDI put together a group of concept cellphones with musical themes, including a trumpet, guitar, DJ scratch pad, and drums.

Para ver más

Lo elegí porque el diseño esta bueno y se le dan dos usos, como instrumento y como celular, una muy buena idea de Yamaha.

Coca-Cola empieza a probar surtidores de refrescos con 100 sabores distintos
29 / 08 / 2008












Coca-Cola ha presentado una máquina capaz de llenarte el vaso con 100 sabores distintos (de vez en vez), y la cosa parece que va en serio. Las primeras unidades comenzaron a ser distribuidas este verano.

Para ver más
Lo elegí porque me impresionó como tan solo una maquina produce 100 sabores.

Visual Basic (por Iaru)

Captura de la pantalla y el control :















Private Sub CATV_Click()
Tvcatv.Caption = "CATV"
End Sub

Private Sub Cero_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub Cinco_Click()
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub Cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub Dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub Enter_Click()
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub Mas_Click()
If NroCanal.Caption < caption =" NroCanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
NroCanal.Caption = 129
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.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()
NroCanal.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
auxiliar.Caption = ""
End Sub

Private Sub On_Click()
NroCanal.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
TV.Enabled = True
CATV.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