Transmision fsk

Transmisor

Receptor

Código fuente para el PIC Transmisor

Programado en PIC BASIC PROTON

Device16F877A 'Microprocesador
Xtal= 4 'Cristal de 4MHZ
'VARIABLES PARA COLUMNAS Y FILASDEL TECLADO 4X3
DimCOL1 As PORTD.0
DimCOL2 As PORTD.1
DimCOL3 As PORTD.2
DimFIL1 As PORTD.4
DimFIL2 As PORTD.5
DimFIL3 As PORTD.6
DimFIL4 As PORTD.7
'VARIABLES PARA PROCESAR LOS DATOS INGRESADOSY ACTUAR EN CONSECUENCIA
DimTECLA As Byte 'TECLA PRESIONADA
DimLOOP As Byte 'CICLO
TECLA="@"
'----------------------------------------------------------------
'PROGRAMAPRINCIPAL
'----------------------------------------------------------------
PRINCIPAL:
GoSub TECLADO
IfTECLA"@" Then
IfTECLA="*" OrTECLA ="#" Then
TECLA="@"
DelayMS 10
Else

'Para tecla 0IfTECLA = 0 Then
ForLOOP = 0 To5'Envie 5 veces el dato.
'BaudRate8-bit no-parity
SerOutPORTC.6, 18030, ["0"]'600 18030
DelayMS 100
Next
EndIf

'Para tecla 1
IfTECLA = 1 Then
ForLOOP = 0To5
SerOutPORTC.6, 18030, ["1"]
DelayMS 100
Next
EndIf

TECLA="@"
DelayMS 10
EndIf
EndIf
GoToPRINCIPAL
'RECORRIDA DEL TECLADO PARA DETECTAR QUE TECLA FUE PRESIONADA
TECLADO:
High COL1IfFIL1=1 ThenTECLA=1
DelayMS 10
IfFIL2=1 ThenTECLA=4
DelayMS 20
IfFIL3=1 ThenTECLA=7
DelayMS 20
IfFIL4=1 ThenTECLA="*"
DelayMS 20
LowCOL1

High COL2
IfFIL1=1 ThenTECLA=2
DelayMS 20
IfFIL2=1ThenTECLA=5
DelayMS 20
IfFIL3=1 ThenTECLA=8
DelayMS 20
IfFIL4=1 ThenTECLA=0
LowCOL2
DelayMS 20

High COL3
IfFIL1=1 ThenTECLA=3
DelayMS 20
IfFIL2=1 ThenTECLA=6
DelayMS 20
IfFIL3=1ThenTECLA=9
DelayMS 20
IfFIL4=1 ThenTECLA="#"
LowCOL3
DelayMS 10

IfTECLA"@" Then
Return
Else
GoToTECLADO
EndIf

Código fuente para el PICReceptor

Device= 16F873A' MicroprocesadorXtal= 4 ' Crital 4MHZ
'LCD
Declare LCD_RSPinPORTB.2 ' Pin de RS LCD.
Declare LCD_ENPinPORTB.3 ' Pin de Enable LCD.
Declare LCD_DTPinPORTB.4 ' Pin de Datos LCD de B.4 a B.7
DimDato_SerAs Byte...