Proyecto visual basic 6 juego de luces con música

Solo disponible en BuenasTareas
  • Páginas : 68 (16762 palabras )
  • Descarga(s) : 0
  • Publicado : 15 de mayo de 2011
Leer documento completo
Vista previa del texto
El código del formulario es el siguiente:

‘*******inicio form1*****************

Private CustomColor2 As OLE_COLOR
Private Sub apagarfocosButton_Click()
'Para quitar sonidos cargados previamente (si es que los hay).
'******If MediaPlayer1 > 0 Then 'Si existiera música cargada, con la siguiente línea se quita.
'******* MediaPlayer1.currentPlaylist.RemoveItem(AxWindowsMediaPlayer.currentMedia)
'*********** End If
'Para que no estén activados los botones stopmusicButton y playmusicButton a la vez, sino que solamente uno de los dos.
playmusicButton.Enabled = True
stopmusicButton.Enabled = False
'Se deshabilitan todos los PictureBox.
bulb1on.Enabled = False
bulb1off.Enabled = False
bulb2on.Enabled = False
bulb2off.Enabled = False
bulb3on.Enabled = False
bulb3off.Enabled =False
bulb4on.Enabled = False
bulb4off.Enabled = False
bulb5on.Enabled = False
bulb5off.Enabled = False
bulb6on.Enabled = False
bulb6off.Enabled = False
bulb7on.Enabled = False
bulb7off.Enabled = False
bulb8on.Enabled = False
bulb8off.Enabled = False
'Se deshabilita el Timer1 para detener el conteo binario (por si estuviera activado).
Timer1.Enabled = False
'Se ponen visibles todoslos PictureBox con foto de foco apagado y se ponen invisibles todos los PictureBox con foto de foco encendido (para reiniciar el sistema de luces o resetearlo). Se ponen todos los Label en "0".
bulb1off.Visible = True
bulb1on.Visible = False
Label1.Caption = "0"
bulb2off.Visible = True
bulb2on.Visible = False
Label2.Caption = "0"
bulb3off.Visible = True
bulb3on.Visible = FalseLabel3.Caption = "0"
bulb4off.Visible = True
bulb4on.Visible = False
Label4.Caption = "0"
bulb5off.Visible = True
bulb5on.Visible = False
Label5.Caption = "0"
bulb6off.Visible = True
bulb6on.Visible = False
Label6.Caption = "0"
bulb7off.Visible = True
bulb7on.Visible = False
Label7.Caption = "0"
bulb8off.Visible = True
bulb8on.Visible = False
Label8.Caption = "0"
'De aquí en adelante es laparte de programación para mandar valores al puerto paralelo.
binary378port = Label1.Caption + Label2.Caption + Label3.Caption + Label4.Caption + Label5.Caption + Label6.Caption + Label7.Caption + Label8.Caption
'Se convierte el valor binario contenido en la variable "binary378port" a decimal.
valordecimal = 0
For i = Len(binary378port) To 1 Step -1
valordecimal = valordecimal +Val(Mid(binary378port, i, 1)) * 2 ^ (8 - i) 'Toma el último dígito y lo multiplica por 2 a la cero, luego el penúltimo por 2 a la uno y así sucesivamente, pues se está realizando la conversión de binario a decimal.
Next
'Se convierte el valor decimal (contenido en la variable "valordecimal") al correspondiente hexadecimal en tipo Short.
'valorshort = CShort(valordecimal)
'Se manda el valor correspondiente alpuerto paralelo para que se enciendan y apaguen los focos correspondientes.
Out &H378, 1 'En el puerto 378 (valor hexadecimal) del puerto paralelo, se manda como salida el valor hexadecimal contenido en la variable "valorhexadecimal" en tipo Short.

End Sub

Private Sub bulb1off_Click()

bulb1on.Visible = True
bulb1off.Visible = False
Label1.Caption = "1"
binary378port = Label1.Caption +Label2.Caption + Label3.Caption + Label4.Caption + Label5.Caption + Label6.Caption + Label7.Caption + Label8.Caption
'Se convierte el valor binario contenido en la variable "binary378port" a decimal.
valordecimal = 0
For i = Len(binary378port) To 1 Step -1
valordecimal = valordecimal + Val(Mid(binary378port, i, 1)) * 2 ^ (8 - i) 'Toma el último dígito y lo multiplica por 2 a la cero, luego elpenúltimo por 2 a la uno y así sucesivamente, pues se está realizando la conversión de binario a decimal.
Next
'Se convierte el valor decimal (contenido en la variable "valordecimal") al correspondiente hexadecimal en tipo Short.
' valorshort = Len(valordecimal)
'Se manda el valor correspondiente al puerto paralelo para que se enciendan y apaguen los focos correspondientes.

'Out &H378, 1...
tracking img