Ascensor final (por Galu)

Private Sub cinco_Click()


If contraseña.Text = "1234" Then
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"

nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1

End If
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1


End Sub

Private Sub llcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"

marcacinco.Caption = marcacinco.Caption + 1

End Sub


Private Sub llcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"

marcacuatro.Caption = marcacuatro.Caption + 1

End Sub

Private Sub lldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub llpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"

marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub llss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"

marcass.Caption = marcass.Caption + 1
End Sub

Private Sub lltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1

End Sub

Private Sub lluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub

Private Sub marcapiso_Click()

End Sub

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub

Private Sub stop_Click()

If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"

marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
auxiliar.Caption = "0"
cuentapisos.Caption = "0"
End Sub

Private Sub tres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1

End Sub

Ascensor 5 (por Galu)

Private Sub cinco_Click()


If contraseña.Text = "1234" Then
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"

nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1

End If
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub

Private Sub dos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1


End Sub

Private Sub llcinco_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 720) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"

marcacinco.Caption = marcacinco.Caption + 1

End Sub


Private Sub llcuatro_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 1560) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"

marcacuatro.Caption = marcacuatro.Caption + 1

End Sub

Private Sub lldos_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 3240) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub llpb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"

marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub llss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"

marcass.Caption = marcass.Caption + 1
End Sub

Private Sub lltres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1

End Sub

Private Sub lluno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4920) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub ss_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 5760) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub

Private Sub stop_Click()

If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"

marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
auxiliar.Caption = "0"
cuentapisos.Caption = "0"
End Sub

Private Sub tres_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 2400) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1
End Sub

Private Sub uno_Click()
auxiliar.Caption = Sqr(((ascensor.Top - 4080) / 840) ^ 2)
cuentapisos.Caption = Val(cuentapisos.Caption) + Val(auxiliar.Caption)
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1

End Sub

Ascensor 4 (por Galu)

Private Sub cinco_Click()


If contraseña.Text = "1234" Then
auxiliar.Caption = (ascensor.Top - 720) / 840
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"

nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1

End If
End Sub

Private Sub cuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840

ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub

Private Sub dos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"
marcados.Caption = marcados.Caption + 1


End Sub

Private Sub llcinco_Click()
auxiliar.Caption = (ascensor.Top - 720) / 840

ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"

marcacinco.Caption = marcacinco.Caption + 1

End Sub


Private Sub llcuatro_Click()
auxiliar.Caption = (ascensor.Top - 1560) / 840

ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"

marcacuatro.Caption = marcacuatro.Caption + 1

End Sub

Private Sub lldos_Click()
auxiliar.Caption = (ascensor.Top - 3240) / 840

ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub llpb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"

marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub llss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"

marcass.Caption = marcass.Caption + 1
End Sub

Private Sub lltres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840

ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1

End Sub

Private Sub lluno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub

Private Sub pb_Click()
auxiliar.Caption = (ascensor.Top - 4920) / 840

ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub ss_Click()
auxiliar.Caption = (ascensor.Top - 5760) / 840
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub

Private Sub stop_Click()

If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"

marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub

Private Sub tres_Click()
auxiliar.Caption = (ascensor.Top - 2400) / 840
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1
End Sub

Private Sub uno_Click()
auxiliar.Caption = (ascensor.Top - 4080) / 840

ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"
marcauno.Caption = marcauno.Caption + 1

End Sub

Semana 29 (por Galu)

Papeleras de seguridad con paneles informativos

En mi viaje a Japón pude comprobar de primera mano lo difícil que es encontrar una papelera por la calle. En Londres sucede algo similar, aunque cuando estuve allí no me fijé en ello. La excusa, en ambos casos, es la misma: la seguridad frente a ataques terroristas, que podrían utilizar las papeleras para poner bombas.
La compañía Media Metrica ha desarrollado unas papeleras especiales antibomba que podrían cambiar este panorama. Aunque no es eso por lo que aparecen en Xataka, sino porque irán equipadas con el sistema Renew.
Con un par de pantallas de gran tamaño en cada papelera, allí se puede mostrar información variada, desde noticias de actualidad, información sobre el transporte o, pensando que serán instaladas sobre todo en zonas financieras, cotizaciones de accio
31 de octubre de 2008
Para ver más

PoP, máquina de vending de contenidos

¿Alguna vez has querido comprar un DVD o un Blu-ray a las cuatro de la mañana? No, yo tampoco, pero Universal y Sony no quieren perder la oportunidad de hacer esa venta si, cualquier día, nos da por ahí. Para ello han desarrollado la PoP.
No es más que una máquina de vending aunque con algunas funciones avanzadas, en la cual se podrán adquirir DVDs, discos Blu-ray y juegos de Playstation 3, además de contenido digital que podremos almacenar en nuestros propios dispositivos conectándolos a la máquina.
31 de octubre de 2008
Para ver más

Protege tu iPhone con estas carcasas metálicas

Si quieres proteger a tu iPhone (es caro, mejor que lo cuides bien) aquí les dejo unas carcasas metálicas que quizás les interese. Pueden comprarlas a través de la página oficial de sus creadores, Incase, por sólo US$35.
31 de octubre de 2008
Para ver más

Semana 28 (por Galu)

Teclado con ventiladores

Muchas personas tienen problemas de transpiración en las manos y la verdad es que andar presionando teclas todo el día en la oficina, además de empeorarlo, es bastante molesto.
Pero siempre hay una solución para los problemas. Lo único que tendrás que hacer para solucionar este es comprar este teclado de Thanko con tres ventiladores en los lugares donde nuestras manos están todo el tiempo sobre el teclado.
Tiene conexión USB y si por casualidad piensas que no vale la pena comprarlo porque se está acercando el invierno, no te preocupes, porque también lanza aire caliente.
30 de Octubre de 2008
Para ver más

Robot que copia nuestras expresiones

Xatakeros, os presento a Jules. Jules, aquí los lectores de Xataka. Tras las formalidades, ya os puedo contar que lo que véis en el vídeo de arriba no es una persona sino un robot llamado Jules y que ha saltado a la fama por poder copiar gestos y caras de otras personas que están frente a él.
Jules es un desarrollo de David Hanson en colaboración con la Universidad de Bristol, en el Reino Unido. Es un robot humanoide cuyo rostro con piel es movido por 34 motores escondidos bajo ella. El robot de Hanson recibe la información de un software desarrollado por la Universidad de Bristol, que convierte los gestos de una persona en instrucciones para los motores. Lo hace en tiempo real a 25 movimientos por segundo.
El mayor inconveniente que tiene hasta ahora este tipo de robots que imitan el rostro y expresiones humanas es que al no ser perfecto del todo, alguna expresión nos puede parecer extraña e incluso de miedo a los humanos, pues no estamos acostumbrados a verla en nuestros semejantes.
30 de Octubre de 2008
Para ver más

Samsung SDI logra crear una pantalla OLED de 0,05mm de grosor y 4 pulgadas de tamaño

La filial de Samsung dedicada a la I+D de pantallas, Samsung SDI acaba de darle otra alegría a la tecnología para un futuro no muy lejano.
Samsung presenta en el FPD de Japón una nueva pantalla OLED, de solo 0,05mm de grosor y con un tamaño de 4 pulgadas. No hace falta decir que es semiflexible, no puedes doblarla del todo (como si fuese una hoja de papel) pero puede formar curvas sin problemas. Para que te hagas una idea, una hoja de papel normal tiene un grosor de 0.06mm.
Para demostrar que tiene el grosor de una hoja lo han puesto debajo de un torrente de aire, así se puede ver como bambolea. Esta pantalla alcanza una resolución de 480×272 píxeles, con un contraste de 1.000.000:1, un brillo de 200cd/m2 y con un muestreo del 100% en color NTSC.
30 de Octubre de 2008
Para ver más

Ascensor 3 (por Galu)

Private Sub cinco_Click()
If contraseña.Text = "1234" Then
ascensor.Top = 720
contraseña.Text = ""
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"

nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"
marcacinco.Caption = marcacinco.Caption + 1

End If
End Sub

Private Sub cuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"
marcacuatro.Caption = marcacuatro.Caption + 1
End Sub

Private Sub dos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub Form_Load()

End Sub

Private Sub llcinco_Click()
ascensor.Top = 720
ncinco.Caption = "5"
ncuatro.Caption = "5"
ntres.Caption = "5"
ndos.Caption = "5"
nuno.Caption = "5"
npb.Caption = "5"
nss.Caption = "5"
marcapiso.Caption = "5"

marcacinco.Caption = marcacinco.Caption + 1

End Sub


Private Sub llcuatro_Click()
ascensor.Top = 1560
ncinco.Caption = "4"
ncuatro.Caption = "4"
ntres.Caption = "4"
ndos.Caption = "4"
nuno.Caption = "4"
npb.Caption = "4"
nss.Caption = "4"
marcapiso.Caption = "4"

marcacuatro.Caption = marcacuatro.Caption + 1

End Sub

Private Sub lldos_Click()
ascensor.Top = 3240
ncinco.Caption = "2"
ncuatro.Caption = "2"
ntres.Caption = "2"
ndos.Caption = "2"
nuno.Caption = "2"
npb.Caption = "2"
nss.Caption = "2"
marcapiso.Caption = "2"

marcados.Caption = marcados.Caption + 1
End Sub

Private Sub llpb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"

marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub llss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"

marcass.Caption = marcass.Caption + 1
End Sub

Private Sub lltres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1

End Sub

Private Sub lluno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Private Sub luz_Click()
If ascensor.BorderColor = vbRed Then
ascensor.BorderColor = vbYellow
Else
ascensor.BorderColor = vbRed
End If
End Sub

Private Sub pb_Click()
ascensor.Top = 4920
ncinco.Caption = "PB"
ncuatro.Caption = "PB"
ntres.Caption = "PB"
ndos.Caption = "PB"
nuno.Caption = "PB"
npb.Caption = "PB"
nss.Caption = "PB"
marcapiso.Caption = "PB"
marcapb.Caption = marcapb.Caption + 1
End Sub

Private Sub ss_Click()
ascensor.Top = 5760
ncinco.Caption = "SS"
ncuatro.Caption = "SS"
ntres.Caption = "SS"
ndos.Caption = "SS"
nuno.Caption = "SS"
npb.Caption = "SS"
nss.Caption = "SS"
marcapiso.Caption = "SS"
marcass.Caption = marcass.Caption + 1
End Sub

Private Sub stop_Click()

If uno.Enabled = True Then
uno.Enabled = False
Else
uno.Enabled = True
End If
If dos.Enabled = True Then
dos.Enabled = False
Else
dos.Enabled = True
End If
If tres.Enabled = True Then
tres.Enabled = False
Else
tres.Enabled = True
End If
If cuatro.Enabled = True Then
cuatro.Enabled = False
Else
cuatro.Enabled = True
End If

If cinco.Enabled = True Then
cinco.Enabled = False
Else
cinco.Enabled = True
End If
If ss.Enabled = True Then
ss.Enabled = False
Else
ss.Enabled = True
End If
If pb.Enabled = True Then
pb.Enabled = False
Else
pb.Enabled = True
End If
If lluno.Enabled = True Then
lluno.Enabled = False
Else
lluno.Enabled = True
End If
If lldos.Enabled = True Then
lldos.Enabled = False
Else
lldos.Enabled = True
End If
If lltres.Enabled = True Then
lltres.Enabled = False
Else
lltres.Enabled = True
End If
If llcuatro.Enabled = True Then
llcuatro.Enabled = False
Else
llcuatro.Enabled = True
End If
If llcinco.Enabled = True Then
llcinco.Enabled = False
Else
llcinco.Enabled = True
End If
If llss.Enabled = True Then
llss.Enabled = False
Else
llss.Enabled = True
End If
If llpb.Enabled = True Then
llpb.Enabled = False
Else
llpb.Enabled = True
End If
If luz.Enabled = True Then
luz.Enabled = False
Else
luz.Enabled = True
End If
marcapiso.Caption = "0"

marcacinco.Caption = "0"
marcacuatro.Caption = "0"
marcatres.Caption = "0"
marcados.Caption = "0"
marcauno.Caption = "0"
marcapb.Caption = "0"
marcass.Caption = "0"
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
ncinco.Caption = "3"
ncuatro.Caption = "3"
ntres.Caption = "3"
ndos.Caption = "3"
nuno.Caption = "3"
npb.Caption = "3"
nss.Caption = "3"
marcapiso.Caption = "3"

marcatres.Caption = marcatres.Caption + 1
End Sub

Private Sub uno_Click()
ascensor.Top = 4080
ncinco.Caption = "1"
ncuatro.Caption = "1"
ntres.Caption = "1"
ndos.Caption = "1"
nuno.Caption = "1"
npb.Caption = "1"
nss.Caption = "1"
marcapiso.Caption = "1"

marcauno.Caption = marcauno.Caption + 1
End Sub

Semana 27 (por Galu)

Televisión en el Nokia N96

Una de las preguntas que más recibimos desde que salió al mercado el Nokia N96, tiene como protagonista a la televisión en el móvil. Y es que este teléfono de Nokia viene preparado para recibir la televisión digital terrestre, pero bajo el formato DVB-H, adaptación de la TDT que recibimos en nuestra televisión de casa.
El problema de la televisión en el Nokia N96 es que aunque el teléfono viene con sintonizador, en España todavía no disponemos de canales que emitan en ese formato, y por lo tanto no vamos a aprovechar esa funcionalidad que atrae la atención de muchos consumidores cuando miran las especificaciones del Nokia N96. Hay alguna prueba en determinadas zonas, pero la televisión digital en el móvil sin pagar a las operadoras vía DVb-H, en España, de momento no existe.
¿Cuándo podremos aprovechar esta tecnología DVB-H? Pues todo parece indicar que para el año 2010 ya se dispondrá de emisiones regulares y no solo de algún canal en prueba.
Publicado el día 17 de octubre.
Para ver más

Plantas robóticas que lanzarán aromatizantes y florecerán cuando te acerques

Investigadores de la Universidad Nacional de Chonnam desarrollaron una planta robótica que es parecida a las que actualmente conocemos como sintéticas. Son de bajo coste, no necesita ningún tipo de mantenimiento y en lugar de generar oxígeno como lo hacen las verdaderas, estas emiten un aromatizante para el ambiente.
Las plantas sintéticas tienen que ser mejoradas para levantar sus ventas y los investigadores crearon esta interesante forma para hacerlo.
Estas plantas están diseñadas para que cuando una persona se acerque a 40cm de distancia ‘mire’ hacia el visitante y ‘florezca’. También florecerá cuando se le hable. Además, imitará la fotosíntesis realizada por las plantas reales, ya que cuando reciban luz se abrirán y cuando no, se cerrarán.
Publicado el día 17 de octubre
Para ver más

Philips Flavors, televisores con marcos intercambiables

Philips Flavors es el último elemento de la estrategia de tecnología amiga y de sentidos que la compañía holandesa quiere colar en nuestros hogares. Llamar la atención hay que admitir que lo hacen y muy bien. Con líneas e ideas que nos recuerdan a sus Philips Ambilight, los nuevos televisores Philips Flavours son algo más, pues incluyen un sistema de cine en casa para acompañarlos.
Lo llamativo a nivel estético de los equipos Philips Flavours es el diseño y la posibilidad de intercambiar carcasas de forma sencilla (hasta 12 para elegir). Sin ninguna de ellas, el diseño es más minimalista que nunca. El mando a distancia acompaña la apariencia del resto del sistema de imagen. Llamar la atención, divertir. Es su misión. Esperemos que sin olvidar el interior, la calidad de imagen.
El colmo de la personalización y fijación en el diseño lo podemos comprobar en el hecho de que los menús podemos ajustarlos en apariencia con los colores y diseño de la carcasa que estemos en ese momento usando.
Publicado el día 16 de octubre
Para ver más

Ascensor 2 (por Galu)

Private Sub cuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
End Sub
Private Sub luz_Click()
ascensor.BackColor = vbYellow
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
End Sub
Private Sub stop_Click()
If uno.Enabled = False And dos.Enabled = False And tres.Enabled = False And cuatro.Enabled = False and
cinco.Enabled = False Then
uno.Enabled = True
End If


cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
cuentapisos.Caption
lluno.Enabled = False
lldos.Enabled = False
lltres.Enabled = False
llcuatro.Enabled = False
llcinco.Enabled = False
llss.Enabled = False
llpb.Enabled = False
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub

Semana 26 (por Galu)

Manos libres para motos

En el último Mobile World Congress estuvimos viendo algunos de los productos que Parrot iba a lanzar este año. Y es ahora cuando se presenta en España de manera oficial el Parrot SK-4000, un manos libres para motos.
Este accesorio nos permite no solo realizar y recibir llamadas mientras vamos en moto, sino también escuchar la radio o música de nuestro móvil, gracias al soporte del perfil A2DP de Bluetooth, todo ello con un control de volumen automático, que se ajusta dependiendo del ruido ambiente.
Publicado el día 10 de Octubre
Para ver más

Cargador solar para tu iPhone

Bueno, según mi largo razonamiento filosófico llegamos a la conclusión de que todas aquellas personas que posean un iPhone querrán este gadget. ¿Por qué? Porque te permitirá recargarlo sin gastar ni energía ni dinero ya que utiliza celdas solares para hacerlo.
Esta batería solar para tu iPhone tiene una batería con capacidad para 800mAh. Además te permitirá recargar tu móvil a través de tu puerto USB si llueve hace días y la energía solar no alcanza.
Lo mejor de todo es que lo puedes comprar por sólo US$22.
Publicado el día 10 de Octubre
Para ver más

Auriculares inalámbricos para tu iPod

Si hay algo que odio muchísimo son los cables de todos los auriculares que tengo y tuve y por ese motivo este me pareció realmente genial. El MHP-Uw2 de Onkyo es un auricular inalámbrico que opera en una frecuencia de 2.4GHz.
Lo único que tienes que hacer es conectar la base del gadget en tu iPod y comenzará a funcionar. Eso sí, para transportar mejor que lleves una mochila o una gran cartera porque lugar es lo único que tendrás que tener para transportarlo.
Este auricular será lanzado el 14 de noviembre en Japón y costará alrededor de US$197. Es cierto, son un poco caros, pero nada como la comodidad de olvidarse por completo de esos odiosos cables.
Publicado el día 10 de Octubre
Para ver más

Ascensor (por Galu)

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

Private Sub dos_Click()
ascensor.Top = 3240
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
End Sub

Private Sub uno_Click()
ascensor.Top = 4080
End Sub

Calculadora 3 (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
coma.Enabled = True
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
coma.Enabled = True
End Sub
Private Sub divpant_Click()
cuenta.Caption = 1 / cuenta.Caption
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
cuenta.Caption = cuenta.Caption * -1
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
coma.Enabled = True
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
coma.Enabled = True
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
If cuenta.Caption > -1 Then
cuenta.Caption = Sqr(Val(cuenta.Caption))
Else
cuenta.Caption = "error"
End If
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 25 (por Galu)

La TV más grande del mundo se pondrá a la venta el año que viene

Si la pantallas que se anuncian hoy ya te parecen lo suficientemente grandes para poner en tu casa, esta es prácticamente para invitar a tus amigos a ver un estreno cinematográfico.
Panasonic presentó esta “televisión del futuro” (como le dicen en Gizmodo) de 150 pulgadas y, aunque todavía no esté a la venta, explicaron que se espera que se comience a vender al público en cualquier momento del 2009.
¿El precio? Todavía no tenemos idea cuánto saldrá este plasma, pero seguro que el usuario convencional (como yo) no va a poder darse el lujo de tener una.
Publicado el día 3 de Octubre.
Para ver más


Reloj luminoso con pantalla LCD

Este pequeñito reloj creado por la empresa Aurora tiene una pantalla LCD (la cual te permitirá tener una visión perfecta a una considerable distancia) y además cambia de color cada mes que pasa.
Fue creado con goma transparente, lo que te permitirá apagar esa luz molesta de noche con un simple toque. Además, tiene una alarma que hará un juego de luces cada vez que te levantes a la mañana. Puedes comprarlo por US$26.
Publicado el día 3 de Octubre.
Para ver más

Pantallas ultrafinas de Sony en funcionamiento
Sony está apostando muy fuerte por el desarrollo de televisores ultrafinos, con unas dimensiones que hace sólo unos años eran totalmente impensables. En Xataka nos hemos hecho eco del Sony Bravia ZX1, un televisor de 40 pulgadas FullHD de sólo un centímetro de grosor, así como de las OLED de la propia Sony con unos míseros 0.3 milímetros de profundidad.
Estos días en la CEATEC, Sony ha mostrado el funcionamiento de ambos televisores, lo cual han plasmado desde CrunchGear en sendos vídeos. El de arriba, el impresionante funcionamiento del OLED de Sony, con total nitidez. Y a continuación, otro vídeo pero esta vez del funcionamiento del Sony Bravia ZX1 que quizá sea menos impactante pero que llama la atención igualmente
Publicado el día 3 de Octubre.
Para ver màs

Semana 24 (por Galu)

Numpad portátil de goma

Si hay algo que extraño muchísimo cada vez que estoy en mi laptop es el numpad. A muchas personas conocidas les pasa lo mismo y por eso, algunos de ellos se compraron numpads portátiles para no despegarse de su querida parte del teclado.
Este es un numpad flexible hecho de goma de silicona que tiene 33 teclas en total, superficie que se puede lavar, se conecta a través del puerto USB, mide 158×131x9mm y podrás comprarlo por sólo US$7.
Publicado el día 26 de Septiembre
Para ver más

Ropa con airbag

Elderly, una empresa de Tokio, creó ropa con airbag. Estas prendas pesan 1kg y en una décima de segundo se inflará protegiendo a cualquier de posibles golpes.
Esta ropa fue diseñada pensando en personas de la tercera edad y protegerá cabeza, trasero y huesos. Costará aproximadamente US$1400. Nada mal para que tu abuelo no se lastime cuando se tropiece.
Publicado el día 26 de Septiembre
Para ver más

Cubo de Rubik con espejos

Tuve una sola experiencia con el Cubo de Rubik. Tenía algo así como 12 años, mi madre me lo regaló, empecé a girarlo y jugar con los colores y, cuando quise resolverlo, terminé revoleándolo contra la pared.
Por eso mismo cuando llegué a este video entré en pánico (creo que me quedó una pequeña secuela psicológica). Si el cubo de colores ya de por sí era complicadísimo, no me imagino lo que será resolver este cubo de espejos.
Publicado el día 26 de Septiembre
Para ver más

Calculadora 2 (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
cuenta.Caption = ""
cuenta.Caption = Sqr(cuenta.Caption)
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Calculadora (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Semana 23 (por Galu)

Impresoras sin cables Kodak ESP 7 y ESP 9

De entrada estas impresoras todo en uno de Kodak gozan de la ventaja de no necesitar cables para comunicarse con el ordenador. No necesitaremos pues un Wireless USB Hub de Belkin para quitar el equipo de encima de la mesa y alejarlo todo lo posible. Luego hay mejoras en la forma en que trabaja con el papel.
Respecto a las impresoras en sí, el modelo ESP 7 tiene una pantalla de 3 pulgadas en la que podemos ver y editar los documentos que hemos introducido de la forma tradicional o por medio de la ranura de tarjetas de memoria o el puerto USB. Tiene WiFi y puerto Ethernet y también sistema de impresión a doble cara. Su precio es e 200 dólares.
El modelo más grande, la Kodak ESP 9, nos deja una pantalla de 10 pulgadas con un precio de 300 dólares, WiFi, función de fax y escáner automático con bandeja de entrada de documentos.
Publicado el día 23 de septiembre.
Para ver más

Nuevo reproductor de iRiver para profesionales

iRiver lanzó el nuevo P.Pie P20 que fue especialmente creado para profesionales. Las características son realmente interesantes. Tiene una pantalla AMOLED de 4.1 pulgadas con una resolución de 480×272, soporta una increíble cantidad de archivos (MPEG4, XviD, WMV9, MP3, WMA, WAV, OGG, APE, FLAC, JPEG, RAW, BMP, GIF, PNG), tiene sintonizador DMB integrando, radio FM, micrófonos y altavoces.
Vendrán en versiones de 80GB y 120GB y costarán 300 y 320 euros respectivamente.
Para ver más
Publicado el día 23 de septiembre.

Switch Mouse: ratón que reducirá las lesiones en la muñeca

La compañía Humanscale lanzó un mouse, llamado Switch, que, según explican sus creadores, reducirá las lesiones por la actividad repetitiva del uso de este gadget.
El mouse tiene una forma de V y se utiliza con un ángulo de 45 grados que minimiza la pronación de la muñeca. Además, tiene una forma de navegación que reduce al mínimo la actividad muscular y da cuatro diferentes opciones de scrolling. Además, permite ajustarlo a tu medida y un descanso para tu palma.
No se habló de la sensibilidad que tendrá el mouse y que tecnología utilizará (si óptica o láser) pero se supone que será óptico y tendrá 800 dpi. Finalmente tanto personas zurdas como diestras podrán utilizarlo sin ningún problema.
Para ver más
Publicado el día 23 de septiembre.

Semana 22 (por Galu)

Apple podría estar preparando calzado exclusivo para el Nike+iPod

Tras la buena idea de integrar el receptor para el sistema Nike+iPod en los nuevos iPod Touch, una patente desvelada estos días parece dejar en el aire un nuevo producto de Apple: unas zapatillas para correr.
Bueno, Apple ha patentado realmente un sistema para controlar mejor la carrera y entrenamiento del corredor, recoger más información e incluso aumentar la seguridad de los datos que recoge el sensor colocado en las zapatillas. Si pensamos mal, incluso podrían estar preparando unas zapatillas únicas con las que poder usar el sistema más avanzado de Nike+iPod.
En la actualidad, el sensor que se incorpora a las zapatillas para correr se encarga de recoger pocos datos: distancia y tiempo de ejecución de las actividades. El nuevo sensor recogería mucha más información para proporcionar datos más completos del entrenamiento. Estamos hablando incluso de temperatura corporal, niveles de hidratación o ritmo cardíaco.
Publicado el día 12 de septiembre
Para ver más

Gyration Air Music Remote, mando universal y ratón

Similar en concepción al Logitech MX Air, el Gyration Air Music Remote es un mando a distancia universal que nos permite controlar el cursor en pantalla apuntando con el mando, igual que hace el mando de la Wii.
Utiliza la tecnología MotionSense, pensada para controlar todos los aspectos de un HTPC equipado con Windows Media Center. En la pantalla LCD que incluye podremos gestionar la música que estemos escuchando tanto en Windows Media Player como en iTunes.
Publicado el día 11 de septiembre
Para ver más

Cyfi, altavoz Bluetooth diseñado para bicicletas

Otro accesorio para escuchar música mientras vas con tu bicicleta, pero es mejor, ya que no usa ningúna clase de cable. Se trata del altavoz Bluetooth de Cyfi con una forma un tanto extraña, pero que esta creada así para mejorar tanto la resistencia del aire como para que los altavoces se escuchen bien.
Tiene controles de reproducción en cada lateral y funciona con cualquier tipo de móvil o reproductor Bluetooth, mejor que soporte Bluetooth estéreo. También venden un adaptador exclusiva para iPhone o iPod basado en algún tipo de emisor Bluetooth para Apple que tienen varias marcas, “lo deben de fabricar en serie desde China y después le ponen la pegatina“.
Publicado el día 11 de septiembre
Para ver más

Semana 21 (por Galu)

Auriculares bluetooth de Sony para deportistas

Sony ha presentado hoy sus nuevos modelos de auriculares, que se centran ante todo en un diseño llamativo y que cree estilo. Lo de pasar desapercibido con los auriculares ya dejó de tener sentido cuando no se veían más que modelos blancos, fueran del iPod de Apple o no. Eso sí, han actuado en consonancia con el mercado y la conectividad bluetooth, función manos libres y mejor calidad de sonido son sus puntos mejorados.
El más destacado de los nuevos modelos es el Sony DR-BT160AS un auricular sacado de una película de ciencia ficción y que presenta como aspecto más destacado que podemos usarlo sin cables gracias a su conectividad bluetooth.
Publicado el día 8 de Septiembre
Para ver más

Plastic Logic presenta un lector de periódicos de tinta electrónica

Nominamos el ocho de septiembre como el día de la tinta electrónica. Tras el análisis del Papyre y el vídeo de la portada de Esquire, llega el turno del lector de tinta electrónica de Plastic Logic.
Si los lectores que hemos visto hasta ahora, como el citado Papyrus o el Kindle, están enfocados principalmente a la lectura de libros, el de Plastic Logic está pensado para leer el periódico, ofreciendo un tamaño mucho más adecuado para ello que sus competidores.
Publicado el día 8 de Septiembre
Para ver más

StellarWindow, el cielo en tu ordenador

No acabo de entender su funcionamiento exacto, pero el StellarWindow nos permitirá ver los cielos en nuestro ordenador. Se compone de un software que instalaremos en nuestro ordenador y de un accesorio que se conecta por USB y con el que es capaz de detectar hacia donde estamos apuntando.
Este accesorio dispone de una brújula y un acelerómetro, de forma que al conectarlo a nuestro ordenador nos indicará que es lo que se ve en el cielo en esa posición, ofreciendo información sobre las estrellas y los planetas de esa porción de cielo y mostrándolos en un entorno 3D.
publicado el dia 7 de septiembre
Para ver más

Visual Basic 2 (por Galu)

Private Sub d_Click()
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 Label1_Click()
End Sub
Private Sub enter_Click()
If auxiliar.Caption < 120 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub
Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top - 100
End Sub
Private Sub mascanal_Click()
If Tvcatv.Caption = "TV" Then
If nrocanal.Caption < 13 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
Else
If nrocanal.Caption < 120 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End If

End Sub
Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left - 100
End Sub
Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top + 100
End Sub
Private Sub menoscanal_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If Tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 13
End If
End If
End Sub
Private Sub menosvolumen_Click()
pantalla.Left = pantalla.Left + 100
End Sub
Private Sub nueve_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub
Private Sub ocho_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub
Private Sub off_Click()
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
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 = ""
catvtv.Enabled = False
Else
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
auxiliar.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
auxiliar.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 Galu)

Marco digital que mostrará tus fotografías almacenadas en la web

El nuevo marco digital de Picwing es un nuevo producto bastante interesante. Este modelo se conecta a Internet y puede mostrarte todas las fotografías que almacenas en la cuenta que tengas en Picwing. Tiene un OS basado en Linux, una pantalla LCD de 7 pulgadas y conexión WiFi.
Puedes comprarlo por US$249 y, a medida que se vayan vendiendo, el creador irá fabricando más.
Publicado el día 28 de Agosto.
Para ver más

Gadget que te avisa cuando tienes un nuevo e-mail

Este pequeño sobre se conecta a través de tu puerto USB y te avisa cuando tienes un nuevo e-mail. ¿Cómo? Simplemente prendiendo una luz interior que posee. Viene un azul, rojo, blanco o verde.
Estas son sus características:
No necesita batería
Soporta: Gmail, Yahoo!, Outlook, Outlook Express y POP3
Tiene un OS realmente simple
Conexión a través de puerto USB
Emitirá un sonido cuando recibas un mail
Compatible con Windows Vista/XP/2000
Publicado el día 28 de Agosto.
Para ver más

Udea Expert 300W: Este diccionario sí que vale la pena

Ayer te mostrábamos un diccionario digital de Udea que dejaba bastante que desear. Esta vez la misma empresa lanzó el Expert 300W mucho mejor que el Discovery. Según anuncia la empresa, este es el primero en el mundo en tener todas sus características en el mismo gadget.
Conectividad WiFi
Conectividad Bluetooth
Soporte T-DMB
Radio FM integrada
Corre el OS Windows CE 5.0 Professional, tiene una pantalla de 4.3 pulgadas WQVGA táctil, 2GB de memoria interna, un slot para tarjetas de memoria SD, Soporte de TV, altavoces stereo integrados y codecs que le permitirá soportar archivos en Flash, video y audio.
Finalmente tendrá diccionario en 82 diferentes lenguajes y costará alrededor de US$385.
Publicado el día 28 de Agosto.
Para ver más

Visual Basic 1 (por Galu)

Private Sub d_Click()

End Sub

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

End Sub

Private Sub enter_Click()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top - 100

End Sub

Private Sub mascanal_Click()
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" left =" pantalla.Left" top =" pantalla.Top"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
nrocanal.Caption = 120
End If

End Sub

Private Sub menosvolumen_Click()
pantalla.Left = pantalla.Left + 100
End Sub

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

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

Private Sub off_Click()
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
auxiliar.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

Mapa (por Galu)

Ver mapa más grande

Semana 19 (por Galu)

Panasonic crea una tablet PC para la industria médica

Hace algunos días Panasonic anunció oficialmente la última Toughbook, una tablet PC designada para la industria médica.
No posee nada realmente nuevo. Tiene un procesador Atom y una pantalla LCD táctil de 10.4 pulgadas y, gracias a este gadget, los médicos y enfermeras podrán tener toda la información del paciente a sólo algunos clics.
Si bien ya se está utilizando en algunos hospitales, la producción masiva comenzará a realizarse el próximo año.
Publicado el día 25 de Agosto
Para ver más

Un avión que es impulsado por energía solar marca récord de vuelo

El Zephyr-6 es el avión que marcó un nuevo récord mundial de permanencia de vuelo (82 horas y 37 minutos).
El avión, sin piloto, está impulsado por energía solar y fue creado en Gran Bretaña. Según informa la BBC, estas tecnología podría ser muy utilizada por militares para hacer reconocimiento de campo.
El récord se llevó a cabo en una base del ejército estadounidense en Arizona y, según explica Chris Kellher, miembro de QinetiQ, empresa que lo creó, estos aviones ofrecen más ventajas que los aviones tradicionales para algunas tareas militares.
La ventaja principal es la continuidad, que puedes estar allí todo el tiempo”, aseguró.
Finalmente, explicó que creen que el Zephyr está cerca de ser un sistema operativo y, si todo sale como lo esperan, funcionará dentro de dos años.
Publicado el día 26 de Agosto
Para ver más

El móvil de tus sueños

Este concepto fue creado por KDDI AU Design Project y es bastante interesante aunque probablemente nunca vaya a alcanzar a ser real, al menos a corto plazo y con las tecnologías conocidas.
La Box To Play* tiene las típicas funciones de un móvil pero está inclinado al mercado de las personas que les gusta la música. El teléfono puede pasar a tomar forma de un cubo con pantallas con ecualizadores a sus lados y, además, el usuario podrá mixear música en él.
Publicado el día 25 de Agosto
Para ver más

Mis vacaciones (por Galu)

El lunes 28:
Fui a la casa de mi bobe.







El martes 29:
Fui al shopping Alto Palermo con mi mama.





El miercoles 30:
Viajé a jujuy

El jueves 31:
Di un paseo por Jujuy.

Viernes 1:
Di un paseo por Jujuy

Sábado 2:
Fui a termas de reyes con mis primos (jujuy).

Domingo 3:
Volvi a Jujuy en auto con mis primos.

Lunes 4:
Volvi a Bs. As.

Martes 5:
Fui al Abasto con amigas.

Miercoles 6:

Fui al cumpleaños de una amiga.

Jueves 7:

Fui a la casa de Lula

Viernes 8:

Fui al cumpleaños de una amiga.

Semana 18 (por Galu)

Nokia 8800 Carbon Arte, de nuevo exclusividad

El Nokia 8800 Carbon Arte es el último teléfono que entra en la última lista de teléfonos de Nokia. Es de esos terminales que da gusto tocar, abrazar con los dedos cuidadosamente y sentir los materiales de los que está fabricado, muy distintos del clásico plástico. Fibra de carbono, titanio, cristal y aluminio son los escogidos para este teléfono exclusivo de Nokia.
Publicado el día 19 de agosto.
Para ver más

Nuevos Walkman Sony E430

Los reproductores Sony Walkman E430 llegan más compactos y con mayor protagonismo de la pantalla, que es ya de 2 pulgadas. La capacidad podemos escogerla desde los 2 a los 8 GB, y además del soporte de AAC, MP3, WMA y MP4 (H.264), la principal novedad nos llega en la forma en que podemos introducir música en los reproductores. Además de arrastrando y soltando, podemos sincronizar el MP3 con los programas iTunes de Apple y Windows Media Player.
Publicado el día 19 de agosto.
Para ver más


Convierte tu iPhone en una cámara espia

Pese a que es el accesorio más innecesario para un iPhone, no podemos negar que tiene su aquel el hacer un poco de paparazzi con este zoom de 6x para iPhone 3G. Parece que no, pero 6x es bastante zoom como para acercarte a algo bastante lejano y además, solo cuesta $19.
Publicado el día 19 de agosto.
Para ver más

Semana 17 (por Galu)

La PSP con pantalla táctil gracias a un modder
Los usuarios de la PSP están pidiendo a gritos que se le incorpore la pantalla táctil a la consola y, como la empresa no escucha las plegarias de los usuarios, no iba a tomar demasiado tiempo para que alguien sí lo hiciera.
En este video se puede ver la pantalla táctil en una PSP en funcionamiento.

Para mas info
12 de Agosto

La PS3 versión laptop

La gente de PS3HaX es un modder de PS3 que convirtió la PS3 que todos conocemos en una especie de Laptop PS3.
La verdad es que, más allá de la interesante idea y complicada realización, no le veo demasiada funcionalidad a esta PS3. Primero que no se podría disfrutar de la Alta Definición que tienen las pantallas y segundo que su increíble peso la convertiría en una consola realmente complicada de transportar.
Para mas info
12 de Agosto
Elegí estos artículos porque hay muchos chicos a nuestra edad que les gusta jugar con la PS y les interesan estas noticias.

Miniteclado para viajeros

Si odias completamente el teclado de tu notebook y quieres viajar y poder escribir cómodamente como si estuvieras delante de tu computadora de escritorio este pequeño teclado podría servirte.
Estas son sus características:
Se conecta a través del puerto USB
77 teclas
Pequeño y liviano (perfecto para transporte)
Soporta Windows 95/98/ME/NT/2000/XP
Medidas: 218×110x14mm
Peso: 220g