Publicidad
Ejemplo de software en QBasic:
Este ejemplo se encuentra en el diskette que se entrega junto al equipo.
Se pueden conectar dos interfases a dos puertos y asignando la variable Puerto=1 o Puerto=2 las órdenes se transmiten
a cada interfase respectivamente.
Ej
'$INCLUDE: 'X.inc'
CLS
Puerto=2
AbrirCom Puerto
DO
Puerto=1
IF E1 THEN
PrenderS1
ELSE
ApagarS1
END IF
Puerto=2
PrenderS1
Esperar 1000
ApagarS1
Esperar 1000
LOOP WHILE E2 = falso
Puerto=1
CerrarCom Puerto
Puerto=2
CerrarCom Puerto
Para cargar el programa de ejemplo se tipea:
qb ejemplo1.bas /lx.qlb
'borra pantalla
'establece comunicacion con Puerto Serie 2
'si E1 es verdadero prende S1 de la interfase 1
'si E1 es falso apaga S1 de la interfase 1
'prende S1 de la interfase 2
'espera 1 segundo
'apaga S1 de la interfase 2
'espera 1 segundo
'el ciclo se repite mientras E2 sea falso de la interfase 2
'Desconecta comunicación con interfase 1
'Desconecta comunicación con interfase 2
11
Publicidad
