Visual Basic (Por Sabri)

Private Sub boton1_Click()
acensor.Top = "3600"
End Sub
Private Sub boton2_Click()
acensor.Top = "2760"
End Sub
Private Sub boton3_Click()
acensor.Top = "1920"
End Sub
Private Sub boton4_Click()
acensor.Top = "1080"
End Sub
Private Sub boton5_Click()
acensor.Top = "240"
End Sub
Private Sub botonpb_Click()
acensor.Top = "4440"
End Sub
Private Sub botonss_Click()
acensor.Top = "5280"
End Sub
Private Sub cinco_Click()
acensor.Top = "240"
End Sub
Private Sub cuatro_Click()
acensor.Top = "1080"
End Sub
Private Sub dos_Click()
acensor.Top = "2760"
End Sub
Private Sub LUZ_Click(Index As Integer)
If acensor.BackColor = vbRed Then
acensor.BackColor = vbBlack
End If
End Sub
Private Sub PB_Click()
acensor.Top = "4440"
End Sub
Private Sub SS_Click()
acensor.Top = "5280"
End Sub
Private Sub stop_Click(Index As Integer)
If uno.Enabled = True
Thenuno.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
Thencinco.Enabled = False
Else
cinco.Enabled = True
End If
If PB.Enabled = True Then
PB.Enabled = False
Else
PB.Enabled = True
End If
If SS.Enabled = True Then
SS.Enabled = False
Else
SS.Enabled = True
End If
If boton1.Enabled = True Then
boton1.Enabled = False
Else
boton1.Enabled = True
End If
If boton2.Enabled = True Then
boton2.Enabled = False
Else
boton2.Enabled = True
End If
If boton3.Enabled = True Then
boton3.Enabled = False
Elseboton3.Enabled = True
End If
If boton4.Enabled = True Then
boton4.Enabled = False
Else
boton4.Enabled = True
End If
If boton5.Enabled = True Then
boton5.Enabled = False
Else
boton5.Enabled = True
End If
If botonpb.Enabled = True Then
botonpb.Enabled = False
Else
botonpb.Enabled = True
End If
If botonss.Enabled = True Then
botonss.Enabled = False
Else
botonss.Enabled = True
End If
If contraseña.Enabled = True Then
contraseña.Enabled = False
Else
contraseña.Enabled = True
End If
End Sub
Private Sub tres_Click()
acensor.Top = "1920"End Sub
Private Sub uno_Click()
acensor.Top = "3600"End Sub

Semana 24(Sabri)

Portátil HP Touchsmart TX2, con tecnología multi-touch

La nueva portátil de HP, la HP Touchsmart TX2, una notebook de 12.2 pulgadas con pantalla que incluye tecnología multitouch. Mediante esta pantalla podremos seleccionar, organizar y manipular a nuestro antojo archivos digitales, como fotos, música, video y contenido web con tan sólo tocar la pantalla de 1200×800 píxeles.

sWAP: un reloj-telefono perfecto para el espionaje

sWAP es primeramente un reloj, pero también como vemos en la fotografía, es a la vez un teléfono móvil análogo

Altavoces de Bob Esponja, sólo para fanáticos

El sistema incluye dos altavoces con la forma de los ojos de Bob Esponja y también un dock para conectar tu reproductor musical. Los dos altavoces con forma de ojo tienen una particularidad, cuando la música está en el aire, ellos giran constantemente (quizás para emular la locura y ridiculez de Bob esponja :D). Y por encima, nos encontramos con un dock para poder conectar nuestro reproductor musical preferido.

Calculadora Visual Basic (por Sabri)

Private Sub Borrar_Click()
Cuentas.Caption = ""
End Sub

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

Private Sub dividido_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""Auxiliar2.Caption = "/"
End Sub

Private Sub igual_Click()
If Auxiliar2.Caption = "+" Then
Cuentas.Caption = Val(Auxiliar.Caption) + Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "-" Then
Cuentas.Caption = Val(Auxiliar.Caption) - Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "/" Then
Cuentas.Caption = Val(Auxiliar.Caption) / Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "*" Then
Cuentas.Caption = Val(Auxiliar.Caption) * Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "%" Then
Cuentas.Caption = Val(Auxiliar.Caption) / Val(Cuentas.Caption) * 100
End If
End Sub

Private Sub Mas_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "+"
End Sub

Private Sub masmenos_Click()
Cuentas.Caption = Cuentas.Caption * -1
End Sub

Private Sub menos_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "-"
End Sub

Private Sub por_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "*"
End Sub

Private Sub porcentaje_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "%"
End Sub

Private Sub sqrt_Click()
If Val(Cuentas.Caption) < -1 ThenCuentas.Caption = Sqr(Cuentas.Caption)
Else
Cuentas.Caption = "Error"
End If
End Sub

Private Sub uno_Click()
Cuentas.Caption = Cuentas.Caption + "1"
End Sub
Private Sub dos_Click()
Cuentas.Caption = Cuentas.Caption + "2"
End Sub
Private Sub tres_Click()
Cuentas.Caption = Cuentas.Caption + "3"
End Sub
Private Sub cuatro_Click()
Cuentas.Caption = Cuentas.Caption + "4"
End Sub
Private Sub cinco_Click()
Cuentas.Caption = Cuentas.Caption + "5"
End Sub
Private Sub seis_Click()
Cuentas.Caption = Cuentas.Caption + "6"
End Sub
Private Sub siete_Click()
Cuentas.Caption = Cuentas.Caption + "7"
End Sub
Private Sub ocho_Click()
Cuentas.Caption = Cuentas.Caption + "8"
End Sub
Private Sub nueve_Click()
Cuentas.Caption = Cuentas.Caption + "9"
End Sub
Private Sub cero_Click()
Cuentas.Caption = Cuentas.Caption + "0"
End Sub