Publicidad
Listado:
'Programa de ejemplo que activa la salida S1 si se activa la entrada E1
'mientras la entrada E2 esta desactivada.
'$INCLUDE: 'X.inc'
CLS
AbrirCom 2
DO
IF E1 THEN
PrenderS1
ELSE
ApagarS1
END IF
LOOP WHILE E2 = falso
CerrarCom 2
END
ejemplo de como hacer una comunicacion en bajo nivel
SUB ApagarS1
Print# Puerto,chr$(&h90);
END SUB
12
'borra pantalla
'establece comunicacion con Puerto Serie 2
'si E1 es verdadero prende S1
'si E1 es falso apaga S1
'el ciclo se repite mientras E2 sea falso
'Desconecta comunicacion
'Fin del programa
Publicidad
