Juego de Luces Controlado por Computadora (página 3)

'Se ponen visibles todos los 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.Text = "0"

bulb2off.Visible = True

bulb2on.Visible = False

Label2.Text = "0"

bulb3off.Visible = True

bulb3on.Visible = False

Label3.Text = "0"

bulb4off.Visible = True

bulb4on.Visible = False

Label4.Text = "0"

bulb5off.Visible = True

bulb5on.Visible = False

Label5.Text = "0"

bulb6off.Visible = True

bulb6on.Visible = False

Label6.Text = "0"

bulb7off.Visible = True

bulb7on.Visible = False

Label7.Text = "0"

bulb8off.Visible = True

bulb8on.Visible = False

Label8.Text = "0"

'De aquí en adelante es la parte
de programación para mandar valores al
puerto
paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario
contenido en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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
encenderfocusButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
encenderfocusButton.Click

'Para quitar sonidos cargados
previamente (si es que los hay).

If
AxWindowsMediaPlayer.currentPlaylist.count > 0
Then 'Si
existiera música cargada, con
la siguiente línea se quita.

AxWindowsMediaPlayer.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 deshabilita el Timer1 para detener
el conteo binario (por si estuviera activado).

Timer1.Enabled = False

'Se ponen visibles todos los PictureBox
con foto de foco encendido y se ponen invisibles todos los
PictureBox con foto de foco apagado (para encender todas las
luces del sistema). Se ponen todos los Label en "1".

bulb1on.Visible = True

Label1.Text = "1"

bulb2on.Visible = True

Label2.Text = "1"

bulb3on.Visible = True

Label3.Text = "1"

bulb4on.Visible = True

Label4.Text = "1"

bulb5on.Visible = True

Label5.Text = "1"

bulb6on.Visible = True

Label6.Text = "1"

bulb7on.Visible = True

Label7.Text = "1"

bulb8on.Visible = True

Label8.Text = "1"

'De aquí en adelante es la parte
de programación para mandar valores al puerto
paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

acercadeForm.Show()

End Sub

Private Sub
stopmusicButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopmusicButton.Click

'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 todos los 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.Text = "0"

bulb2off.Visible = True

bulb2on.Visible = False

Label2.Text = "0"

bulb3off.Visible = True

bulb3on.Visible = False

Label3.Text = "0"

bulb4off.Visible = True

bulb4on.Visible = False

Label4.Text = "0"

bulb5off.Visible = True

bulb5on.Visible = False

Label5.Text = "0"

bulb6off.Visible = True

bulb6on.Visible = False

Label6.Text = "0"

bulb7off.Visible = True

bulb7on.Visible = False

Label7.Text = "0"

bulb8off.Visible = True

bulb8on.Visible = False

Label8.Text = "0"

'De aquí en adelante es la parte
de programación para mandar valores al puerto
paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

'Para detener la
música.

AxWindowsMediaPlayer.close()

'Para quitar música cargada
previamente (si es que hay)

If
AxWindowsMediaPlayer.currentPlaylist.count > 0
Then 'Si
existiera música cargada, con la siguiente línea se
quita.

AxWindowsMediaPlayer.currentPlaylist.removeItem(AxWindowsMediaPlayer.currentMedia)

End If

End Sub

Private Sub
playmusicButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playmusicButton.Click

'Para que no estén activados los
botones stopmusicButton y playmusicButton a la vez, sino que
solamente uno de los dos.

stopmusicButton.Enabled = True

playmusicButton.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 todos los 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.Text = "0"

bulb2off.Visible = True

bulb2on.Visible = False

Label2.Text = "0"

bulb3off.Visible = True

bulb3on.Visible = False

Label3.Text = "0"

bulb4off.Visible = True

bulb4on.Visible = False

Label4.Text = "0"

bulb5off.Visible = True

bulb5on.Visible = False

Label5.Text = "0"

bulb6off.Visible = True

bulb6on.Visible = False

Label6.Text = "0"

bulb7off.Visible = True

bulb7on.Visible = False

Label7.Text = "0"

bulb8off.Visible = True

bulb8on.Visible = False

Label8.Text = "0"

'Para detener la
música.

AxWindowsMediaPlayer.close()

'Para quitar sonidos cargados
previamente (si es que los hay).

If
AxWindowsMediaPlayer.currentPlaylist.count > 0
Then 'Si
existiera música cargada, con la siguiente línea se
quita.

AxWindowsMediaPlayer.currentPlaylist.removeItem(AxWindowsMediaPlayer.currentMedia)

End If

'Programación de los focos que se
van a encender y sonidos correspondientes a cargar.

If azulRadioButton.Checked
= True Then

'Para encender los focos
azules.

bulb1on.Visible = True

bulb1off.Visible = False

Label1.Text = "1"

bulb5on.Visible = True

bulb5off.Visible = False

Label5.Text = "1"

'Para apagar todos los focos que no sean
azules.

bulb2on.Visible = False

bulb2off.Visible = True

Label2.Text = "0"

bulb3on.Visible = False

bulb3off.Visible = True

Label3.Text = "0"

bulb4on.Visible = False

bulb4off.Visible = True

Label4.Text = "0"

bulb6on.Visible = False

bulb6off.Visible = True

Label6.Text = "0"

bulb7on.Visible = False

bulb7off.Visible = True

Label7.Text = "0"

bulb8on.Visible = False

bulb8off.Visible = True

Label8.Text = "0"

'Para cargar sonido
correspondiente.

Dim song =
AxWindowsMediaPlayer.newMedia("C:UsersJaime
MontoyaDesktopjuegodelucespuertoparalelomyresourcesfocosazulesencendidos.mp3") 'Recordar que al ejecutar el programa en otra
computadora,
ésta dirección ruta del archivo mp3 tiene
que ser actualizada a la ubicación del archivo en la nueva
computadora, pues de lo contrario se estará invocando una
dirección errónea.

AxWindowsMediaPlayer.currentPlaylist.appendItem(song)

'De aquí hacia abajo se programa
la
comunicación con el puerto paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

If rojoRadioButton.Checked
= True Then

'Para encender los focos
rojos.

bulb2on.Visible = True

bulb2off.Visible = False

Label2.Text = "1"

bulb6on.Visible = True

bulb6off.Visible = False

Label6.Text = "1"

'Para apagar todos los focos que no sean
rojos.

bulb1on.Visible = False

bulb1off.Visible = True

Label1.Text = "0"

bulb3on.Visible = False

bulb3off.Visible = True

Label3.Text = "0"

bulb4on.Visible = False

bulb4off.Visible = True

Label4.Text = "0"

bulb5on.Visible = False

bulb5off.Visible = True

Label5.Text = "0"

bulb7on.Visible = False

bulb7off.Visible = True

Label7.Text = "0"

bulb8on.Visible = False

bulb8off.Visible = True

Label8.Text = "0"

'Para cargar sonido
correspondiente.

Dim song =
AxWindowsMediaPlayer.newMedia("C:UsersJaime
MontoyaDesktopjuegodelucespuertoparalelomyresourcesfocosrojosencendidos.mp3")
'Recordar que al ejecutar el programa en
otra computadora, ésta dirección ruta del archivo
mp3 tiene que ser actualizada a la ubicación del archivo
en la nueva computadora, pues de lo contrario se estará
invocando una dirección errónea.

AxWindowsMediaPlayer.currentPlaylist.appendItem(song)

'De aquí hacia abajo se programa
la comunicación con el puerto
paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

If
amarilloRadioButton.Checked = True Then

'Para encender los focos
amarillos.

bulb3on.Visible = True

bulb3off.Visible = False

Label3.Text = "1"

bulb7on.Visible = True

bulb7off.Visible = False

Label7.Text = "1"

'Para apagar todos los focos que no sean
amarillos.

bulb1on.Visible = False

bulb1off.Visible = True

Label1.Text = "0"

bulb2on.Visible = False

bulb2off.Visible = True

Label2.Text = "0"

bulb4on.Visible = False

bulb4off.Visible = True

Label4.Text = "0"

bulb5on.Visible = False

bulb5off.Visible = True

Label5.Text = "0"

bulb6on.Visible = False

bulb6off.Visible = True

Label6.Text = "0"

bulb8on.Visible = False

bulb8off.Visible = True

Label8.Text = "0"

'Para cargar sonido
correspondiente.

Dim song =
AxWindowsMediaPlayer.newMedia("C:UsersJaime
MontoyaDesktopjuegodelucespuertoparalelomyresourcesfocosamarillosencendidos.mp3")
'Recordar que al ejecutar el programa en
otra computadora, ésta dirección ruta del archivo
mp3 tiene que ser actualizada a la ubicación del archivo
en la nueva computadora, pues de lo contrario se estará
invocando una dirección errónea.

AxWindowsMediaPlayer.currentPlaylist.appendItem(song)

'De aquí hacia abajo se programa
la comunicación con el puerto paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

If verdeRadioButton.Checked
= True Then

'Para encender los focos
verdes.

bulb4on.Visible = True

bulb4off.Visible = False

Label4.Text = "1"

bulb8on.Visible = True

bulb8off.Visible = False

Label8.Text = "1"

'Para apagar todos los focos que no sean
verdes.

bulb1on.Visible = False

bulb1off.Visible = True

Label1.Text = "0"

bulb2on.Visible = False

bulb2off.Visible = True

Label2.Text = "0"

bulb3on.Visible = False

bulb3off.Visible = True

Label3.Text = "0"

bulb5on.Visible = False

bulb5off.Visible = True

Label5.Text = "0"

bulb6on.Visible = False

bulb6off.Visible = True

Label6.Text = "0"

bulb7on.Visible = False

bulb7off.Visible = True

Label7.Text = "0"

'Para cargar sonido
correspondiente.

Dim song =
AxWindowsMediaPlayer.newMedia("C:UsersJaime
MontoyaDesktopjuegodelucespuertoparalelomyresourcesfocosverdesencendidos.mp3")
'Recordar que al ejecutar el programa en
otra computadora, ésta dirección ruta del archivo
mp3 tiene que ser actualizada a la ubicación del archivo
en la nueva computadora, pues de lo contrario se estará
invocando una dirección errónea.

AxWindowsMediaPlayer.currentPlaylist.appendItem(song)

'De aquí hacia abajo se programa
la comunicación con el puerto paralelo.

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ayudaForm.Show()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Código
para controlar el conteo binario con el foco 8.

If Label8.Text =
"0" Then 'Si el foco 8
está apagado.

bulb8on.Visible = True

bulb8off.Visible = False

Label8.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 8 está encendido.

bulb8off.Visible = True

bulb8on.Visible = False

Label8.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

'Código para controlar el conteo
binario con el foco 7.

contadorfoco7 = contadorfoco7 + 1

If contadorfoco7 = 2
Then

contadorfoco7 = 0 'Reinicia
el contadorfoco7.

If Label7.Text =
"0" Then 'Si el foco 7
está apagado.

bulb7on.Visible = True

bulb7off.Visible = False

Label7.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 7 está encendido.

bulb7off.Visible = True

bulb7on.Visible = False

Label7.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

'Código para controlar el conteo
binario con el foco 6.

contadorfoco6 = contadorfoco6 + 1

If contadorfoco6 = 4
Then

contadorfoco6 = 0 'Reinicia
el contadorfoco6.

If Label6.Text =
"0" Then 'Si el foco 6
está apagado.

bulb6on.Visible = True

bulb6off.Visible = False

Label6.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 6 está encendido.

bulb6off.Visible = True

bulb6on.Visible = False

Label6.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

'Código para controlar el conteo
binario con el foco 5.

contadorfoco5 = contadorfoco5 + 1

If contadorfoco5 = 8
Then

contadorfoco5 = 0 'Reinicia
el contadorfoco5.

If Label5.Text =
"0" Then 'Si el foco 5
está apagado.

bulb5on.Visible = True

bulb5off.Visible = False

Label5.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 5 está encendido.

bulb5off.Visible = True

bulb5on.Visible = False

Label5.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

'Código para controlar el conteo
binario con el foco 4.

contadorfoco4 = contadorfoco4 + 1

If contadorfoco4 =
16 Then

contadorfoco4 = 0 'Reinicia
el contadorfoco4.

If Label4.Text =
"0" Then 'Si el foco 4
está apagado.

bulb4on.Visible = True

bulb4off.Visible = False

Label4.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 4 está encendido.

bulb4off.Visible = True

bulb4on.Visible = False

Label4.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

'Código para controlar el conteo
binario con el foco 3.

contadorfoco3 = contadorfoco3 + 1

If contadorfoco3 =
32 Then

contadorfoco3 = 0 'Reinicia
el contadorfoco3.

If Label3.Text =
"0" Then 'Si el foco 3
está apagado.

bulb3on.Visible = True

bulb3off.Visible = False

Label3.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 3 está encendido.

bulb3off.Visible = True

bulb3on.Visible = False

Label3.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

'Código para controlar el conteo
binario con el foco 2.

contadorfoco2 = contadorfoco2 + 1

If contadorfoco2 =
64 Then

contadorfoco2 = 0 'Reinicia
el contadorfoco2.

If Label2.Text =
"0" Then 'Si el foco 2
está apagado.

bulb2on.Visible = True

bulb2off.Visible = False

Label2.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 2 está encendido.

bulb2off.Visible = True

bulb2on.Visible = False

Label2.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

'Código para controlar el conteo
binario con el foco 1.

contadorfoco1 = contadorfoco1 + 1

If contadorfoco1 =
128 Then

contadorfoco1 = 0 'Reinicia
el contadorfoco1.

If Label1.Text =
"0" Then 'Si el foco 1
está apagado.

bulb1on.Visible = True

bulb1off.Visible = False

Label1.Text = "1"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) 'En el puerto 378 (valor hexadecimal) del puerto
paralelo, se manda como salida el valor hexadecimal contenido en
la variable "valorhexadecimal" en tipo Short.

Else 'Si el
foco 1 está encendido.

bulb1off.Visible = True

bulb1on.Visible = False

Label1.Text = "0"

binary378port = Label1.Text + Label2.Text + Label3.Text
+ Label4.Text + Label5.Text + Label6.Text + Label7.Text +
Label8.Text

'Se convierte el valor binario contenido
en la variable "binary378port" a decimal.

valordecimal = 0

For i As Integer =
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 al
puerto paralelo para que se enciendan y apaguen los focos
correspondientes.

Out(&H378, valorshort) '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 If

End If

End Sub

End Class

DISEÑO Y ENSAMBLAJE
DEL CIRCUITO ELÉCTRICO

Hasta este
momento se ha dado a conocer toda la parte de software y
programación del Juego de Luces
Controlado por Computadora. Ahora viene lo que podría
llamarse "la parte de hardware" de este sistema,
pues consiste en armar el circuito y diseñarlo para que
sea conectado al puerto paralelo de la computadora
y que los focos respondan correctamente a las instrucciones que
se les dé a través de la computadora. Pero antes de
ello se presentará una breve introducción explicativa sobre el puerto
paralelo de la PC.

PUERTO PARALELO DE LA
COMPUTADORA

La imagen de los
conectores del puerto paralelo (DB 25) se muestra a
continuación:

El puerto paralelo contiene a su vez tres puertos, que
son los siguientes:

Puerto de datos (pines 2 al
9): es el PORT 888 (378 hexadecimal) y es de sólo
escritura. Por
este registro se
envían los datos al exterior de la PC. CUIDADO: ¡no
se deben enviar señales
eléctricas al ordenador por estos pines!

Puerto de estado (pines
15, 13, 12, 10 y 11): es el PORT 889 (379 hexadecimal) y es
de sólo lectura. Por
aquí se envían señales eléctricas al
ordenador. De este puerto sólo se utilizan los cinco bits
de más peso, que son el bit 7, 6, 5, 4 y 3 teniendo en
cuenta que el bit 7 funciona en modo invertido.

Puerto de control (pines 1,
14, 16 y 17): es el correspondiente al PORT 890, y es de
lectura/escritura, es decir, se podrán enviar o recibir
señales eléctricas, según las necesidades
que se tengan. De los 8 bits de este registro sólo se
utilizan los cuatro de menor peso, o sea el 0, 1, 2 y 3, con un
pequeño detalle: los bits 0, 1, y 3 están
invertidos.

En esta imagen se pueden ver los tres puertos (conocidos
como registros), sus
bits y los pines asignados a cada uno de ellos. La imagen
corresponde a un conector DB-25 (Hembra):

COMPONENTES
NECESARIOS

DIAGRAMA
CIRCUITAL

NOTA SOBRE LOS COMPONENTES NECESARIOS Y DIAGRAMA
CIRCUITAL: el circuito puede hacerse en una
protoboard en vez de utilizar placa para circuito impreso,
realizando las conexiones con alambre. Dependiendo del
país en el que se encuentre la persona,
podría no tener la posibilidad de trabajar con 220 Vac,
por lo cual deberán hacerse las modificaciones
correspondientes a la tabla de componentes necesarios y al
diagrama circuital. El funcionamiento del software y la parte de
programación de este sistema (presentada al inicio de este
documento) está garantizada; sin embargo, la parte de los
componentes y el ensamblaje eléctrico deberá ser
ajustado de acuerdo al país de residencia del
desarrollador de este proyecto
(realmente de acuerdo a las tensiones o voltajes y frecuencias de
corriente alterna
con la que se cuente en cada país, según lo que
proporcionen los proveedores de
energía
eléctrica). Será responsabilidad del electricista ajustar los valores y
tomar las medidas de precaución respectivas para el buen
funcionamiento de este sistema.

TENSIONES O VOLTAJES Y
FRECUENCIAS DE CORRIENTE ALTERNA UTILIZADAS POR DIFERENTES
PAÍSES

Como referencia para el desarrollo de
este circuito según el país en que se encuentre
el(los) encargado(os) del desarrollo de este circuito, se
presentan las tensiones o voltajes y frecuencias de corriente
alterna utilizadas por diferentes países:

CONCLUSIÓN

Desarrollar este proyecto tiene grandes beneficios, pues
además de la utilidad y las
múltiples aplicaciones prácticas que tiene este
sistema para uso residencial, sirve como base o fundamento para
la creación de nuevos proyectos
similares, donde el único límite es la
imaginación y creatividad,
pues existen muchas secuencias de luces que se pueden generar,
así como también se puede utilizar el puerto
paralelo para hacer muchos otros circuitos
similares o diferentes, utilizando como base el programa
presentado, el cual puede ser modificado o personalizado de
acuerdo a las preferencias o necesidades de cada
persona.

Antes de la llegada de las conexiones USB, las
impresoras se
conectaban a la computadora utilizando el puerto paralelo,
conocido también como DB25. Sin embargo, como se ha
demostrado, el puerto paralelo puede ser utilizado para mucho
más que únicamente impresoras. Es innumerable la
cantidad de circuitos y aplicaciones útiles que se pueden
desarrollar a través de los pines del puerto
paralelo.

Este esfuerzo, aunque requiere mucho tiempo y
dedicación, es de gran importancia de manera especial para
los estudiantes de ingeniería, pues además de requerir
poner en práctica habilidades de programación,
requiere también aplicar conocimientos de electrónica, por lo que constituye un
proyecto de gran valor para el aprendizaje, y
de gran beneficio por las muchas aplicaciones que se le puede
dar. Una de las aplicaciones más obvias sería en el
área de instalaciones
eléctricas residenciales, que cada foco se encuentren
en un lugar diferente de una casa, y que a través de la
computadora se puedan controlar todas las luces,
encendiéndolas y apagándolas según las
necesidades y de forma creativa, innovadora y completamente
original.

BIBLIOGRAFÍA

• Digitalperuana: Los Especialistas en Luces y Efectos
  Especiales para Discotecas. Juego de Luces Controlado por
  una Computadora. Extraído en enero, 2008, de
  

• The Code Project – Your Development Resource.
  Resources from Parallel Port using Inpout32.dll.
  Extraído en marzo, 2008, de http://www.codeproject.com/KB/vb/Inpout32_read.aspx

• Ero-Pic – Una Gran Colección de Tutoriales
  de Electrónica. Puerto Paralelo. Extraído
  el 10 de abril, 2008, de http://perso.wanadoo.es/luis_ju/puerto/port01.html

• ASÍ FUNCIONA. Tensiones o Voltajes y
  Frecuencias de Corriente Alterna Utilizadas por Diferentes
  Países. Extraído el 10 de abril, 2008,
  de
  http://www.asifunciona.com/tablas/voltaje_paises/voltaje_paises_2.htm

Autores

Jennifer Esmeralda Chacón Carranza

Marvin Eliezer Peña Figueroa

Jaime Oswaldo Montoya
Guzmán

http://www.jaimemontoya.com

Mario Javier Quintana Rodríguez

Santa Ana, 11 de abril de 2008

El Salvador

Universidad Católica de Occidente

Facultad de Ingeniería y Arquitectura

Asignatura: Microprocesadores
y Ensambladores

Catedrático: Ing. José Francisco Andaluz
Guzmán