Mudulacion Ask

ASK

CODIGO FUENTE PARA TX
Device 16F887
'Configuración optimizada para osc interno
@CONFIG_REQ
@__CONFIG _CONFIG1, DEBUG_OFF & LVP_OFF & FCMEN_ON & IESO_ON & BOR_ON &CPD_OFF & CP_OFF & MCLRE_OFF & PWRTE_ON & WDT_OFF & XT_OSC
@__CONFIG _CONFIG2, WRT_OFF & BOR40V
Xtal = 4
All_Digital=true
'VARIABLES PARA COLUMNAS Y FILAS DEL TECLADO
DimCOL1 As PORTB.0
Dim COL2 As PORTB.1
Dim COL3 As PORTB.2

Dim FIL1 As PORTB.4
Dim FIL2 As PORTB.5
Dim FIL3 As PORTB.6
Dim FIL4 As PORTB.7
'VARIABLES PARA PROCESAR LOS DATOS INGRESADOS Y ACTUAR ENCONSECUENCIA
Dim TECLA As Byte 'TECLA PRESIONADA
Dim LOOP As Byte 'CICLO

Dim SerString[10] As Byte 'Crear arreglo de 10-byte, para enviar ‘distintivo X

DelayMS 500'TIEMPO DE ESPERA
TECLA="@"
DelayMS 20
'PROGRAMA PRINCIPAL
PRINCIPAL:
GoSub TECLADO
SerString[0] = "0" 'Valor cualquiera
SerString[1] = 88 'CARACTER DISTITIVO, PARADISMINUIR RUIDO
SerString[2] = TECLA 'YA TENGO LA LETRA, LA AGREGO EN EL ARREGLO


If TECLA<>"@" Then
For LOOP=0 To 3
SerOut PORTC.6, 18030, [StrSerString\3] 'Envio carácter X más la ‘tecla presionada
Next
TECLA="@"
DelayMS 50
EndIf
GoTo PRINCIPAL
End
'RECORRIDA DEL TECLADO PARA DETECTAR QUE TECLA FUE PRESIONADA 3X4TECLADO:
High COL1
If FIL1=1 Then TECLA=1
DelayMS 20
If FIL2=1 Then TECLA=4
DelayMS 20
If FIL3=1 Then TECLA=7DelayMS 20
If FIL4=1 Then TECLA="*"
DelayMS 20
Low COL1

High COL2
If FIL1=1 Then TECLA=2
DelayMS 20
IfFIL2=1 Then TECLA=5
DelayMS 20
If FIL3=1 Then TECLA=8
DelayMS 20
If FIL4=1 Then TECLA=0
Low COL2
DelayMS 20

High...