'**************************************************************** '* Name : terminal.BAS * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2006 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 25/02/2006 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** '// remote2.c '// Basado en un programa original de Wichit Sirichote '// Circuito para experimentar con Easy-Server '// PIC16F84 conectado a Easy-Server via puerto serie '// Parametros de comunicacion: 9600 8n1 '// Puertos del microcontrolador '// RA0 LED1 activa a nivel bajo '// RA1 LED2 activa a nivel bajo '// RB0 K1 Rele, activa a nivel alto '// RB1 sw1 Interruptor 1, estado alto = abierto '// RB2 sw2 Igual que sw1 '// RB6 TxD Salida de datos puerto serie '// RB5 RxD Entrada de datos puerto serie 'Pero en Esta ocacion con Pic Basic Pro Include "modedefs.bas" 'VAriables Para Uso con el Serial 'Definimos nuetras variables LED1 var PORTA.0 LED2 VAR PORTA.1 K1 VAR PORTB.0 SW1 VAR PORTB.1 SW2 VAR PORTB.2 TX VAR PORTB.6 RX VAR PORTB.5 DATO VAR BYTE numero var byte 'Inicializamos Puertos TRISA=0 TRISB=%00100110 porta=0 portb=0 GOSUB MENU REPETIR: SERIN RX,6,DATO SELECT CASE DATO CASE "?" GOSUB Menu CASE "1" LED1=1 CASE "2" LED1=0 CASE "3" LED2=1 CASE "4" LED2=0 CASE "5" K1=1 CASE "6" K1=0 CASE "7" dato = SW1 +$30 SEROUT TX,N9600,["El Sensor 1 Vale: ",dato,10,13] CASE "8" dato = SW2 +$30 SEROUT TX,N9600,["El Sensor 2 Vale: ",dato,10,13] END SELECT GOTO REPETIR MENU: SEROUT tx,6,[" Controlando Pic Via Puerto Serial",10,13, _ " =========== === === ====== ======",10,13, _ " Press[1] ON LED 1, Press[2] OFF LED1",10,13, _ " Press[3] ON LED 2, Press[4] OFF LED2",10,13, _ " Press[5] ON KW , Press[6] OFF KW",10,13, _ " Press[7] Sensor 1",10,13, _ " Press[8] Sensor 2 ",10,13, _ " Press[?] Ayuda",10,13] RETURN END