Puerto Paralelo

PrivateDeclareSubPortOutLib"IO.DLL"(ByValPortAsShort,ByValDataAsByte)PrivateDeclareFunctionPortInLib"IO.DLL"(ByValPortAsShort)AsByteDimmover AsShort'varibale del contador de encender luces de derechaDimContador AsShortPrivateSubCommand1_Click(ByValeventSender AsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesCommand1.Click DimmafiaAsObject'prender led verdePortOut(&H378, 64)'encender el label verde y apagar los colores amarillo y rojoLabel1.Visible =TrueLabel2.Visible =FalseLabel3.Visible =False'detener el timer que controla uno despues del otroTimer1.Enabled =False'desacticar el timerl del semaforoTimer2.Enabled =False'ocultar el gif Gif89a1.Visible =FalseOnErrorGoToDioError 'Si la variable mafia es falso significa que no ha cargado el agente'lo cargamos y colocamos en verdadero la variable mafiaIfNotmafiaThenAgente1.Characters.Load("Merlin","Merlin.acs")'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objetomafia. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'mafia =TrueEndIf 'Extablecemos la ubicación del agenteAgente1.Characters("Merlin").Left = 570

Agente1.Characters("Merlin").Top = 550'Llamamos al agenteAgente1.Characters("Merlin").Show()'Colocamos el texto que deseamos que aparescaAgente1.Characters("Merlin").Speak("Gracias por empezar a utilizarme")ExitSubDioError:EndSubPrivateSubCommand2_Click(ByValeventSender AsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesCommand2.Click DimmafiaAsObject'Prender led amarilloPortOut(&H378, 32)'encender el label amarillo y apagar los colores verde y rojoLabel2.Visible =TrueLabel1.Visible =FalseLabel3.Visible =False'detener el timer que controla uno despues del otroTimer1.Enabled =False'desacticar el timerl del semaforoTimer2.Enabled =False'ocultar el gif Gif89a1.Visible =FalseOnErrorGoToDioError 'Si la variable mafia es falso significa que no ha cargado el agente'lo cargamos y colocamos en verdadero la variable mafiaIfNotmafiaThenAgente1.Characters.Load("Merlin","Merlin.acs")'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objetomafia. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'mafia =TrueEndIf 'Extablecemos la ubicación del agenteAgente1.Characters("Merlin").Left = 570Agente1.Characters("Merlin").Top = 550'Llamamos al agenteAgente1.Characters("Merlin").Show()'Colocamos el texto que deseamos que aparescaAgente1.Characters("Merlin").Speak("Ya era hora de que me uses")ExitSubDioError:EndSub

...