UFM-M12 rf modem ile çalışmak istiyorum.Ancak denediğim çok sayıda koda rağmen haberleşmeyi sağlayamadım.Aşağıda denediğim kodları veriyorum.Yardımcı olursanız memnun olurum.

Alıcı:
Device = 18F452
XTAL = 20
' Include "modedefs.bas"

Declare LCD_TYPE SAMSUNG
Declare LCD_DTPORT = PORTD
Declare LCD_RSPIN = PORTC.4
Declare LCD_ENPIN = PORTC.3
Declare LCD_RWPIN = PORTC.5
Declare LCD_CS1PIN = PORTB.6
Declare LCD_CS2PIN = PORTB.7
Declare GLCD_STROBE_DELAY 25
Declare INTERNAL_FONT On
Declare GLCD_CS_INVERT On

TRISC = %10000010
' Declare SERIAL_DATA 8 ' Set SERIN and SEROUT data bits to 8 (default)
Symbol rf_alici = PORTC.1 ' RS232 Data-Pin "T1_IN" (Pin12) on PortC.7
Symbol rf_verici = PORTC.2 ' RS232 Data-Pin "R1_OUT" (Pin11) on PortC.6

HSERIAL_BAUD = 9600 ' Seri iletişim hızı 9600 bPs
HSERIAL_RCSTA = %10010000 ' seriport açık ve alıma herzaman açık Hex olarak = 90
HSERIAL_TXSTA = %00100000 ' Veri yollama aktif.
HSERIAL_CLEAR = On ' bilgi alındığında Tampon belleği temizle

Dim preamble As $55
Dim preamble1 As $00
Dim preamble2 As $FF
Dim bilgi As Byte
Dim bilgi1 As Byte

SerOut rf_verici, 4, [$24,$43,$31] ' Kanal 1 seçildi
' HSerOut [$24,$43,$31] ' Kanal 1 seçildi
' SerOut rf_verici, 0, [Rep preamble\5, Rep preamble1\5, Rep preamble2\5]
DelayMS 200

anaDongu:
Print At 1,1,"veri al"
' SerIn rf_alici , 0, [Wait ("ABC"), bilgi]
' Print At 2,1, "bilgi= " , Dec bilgi ' Display the value received
SerIn rf_alici,4,30,CIK,[Wait("ABC"),bilgi1]
SerIn rf_alici,4,300,CIK,[Wait("ABC"),bilgi1]
SerIn rf_alici,4,300,CIK,[Wait("ABC"),bilgi1]
' SerIn [Wait ("ETE")bilgi,bilgi,bilgi]

' SerIn rf_alici, 2,[$24,$52,$46,"A","T","E",bilgi,$45,$4E,$44,$0D,$0A]
Print At 3,1,"bilgi1= " ,Dec bilgi1
DelayMS 500
Cls
' SerOut rf_verici, 2,[$24,$52,$46,"E","T","E",bilgi,bilgi,$45,$4E,$44,$0D,$0A]

GoTo anaDongu


CIK:
Print At 5,1,"ciktim"
DelayMS 100
Cls
GoTo anaDongu

Verici.

Device = 18F452
XTAL = 20

' Include "modedefs.bas"
HSERIAL_BAUD = 2400 ' Seri iletişim hızı 9600 bPs
HSERIAL_RCSTA = %10010000 ' seriport açık ve alıma herzaman açık Hex olarak = 90
HSERIAL_TXSTA = %00100000 ' Veri yollama aktif.
HSERIAL_CLEAR = On ' bilgi alındığında Tampon belleği temizle

' Declare SERIAL_DATA 8 ' Set SERIN and SEROUT data bits to 8 (default)
' Symbol rf_alici = PORTC.7 ' RS232 Data-Pin "T1_IN" (Pin12) on PortC.7
' Symbol rf_verici = PORTC.6 ' RS232 Data-Pin "R1_OUT" (Pin11) on PortC.6

Dim preamble As $55
Dim preamble1 As $00
Dim preamble2 As $FF
Dim bilgi As Byte
Dim I As Byte
TRISC = %10000000
bilgi = 10
' SerOut PORTC.6, 0, [$24,$43,$31]
HSerOut [$24,$43,$31] ' Kanal 1 seçildi
' HSerOut [Rep preamble\5, Rep preamble1\5, Rep preamble2\5]
DelayMS 200

anaDongu:
DelayMS 200
GoTo Send
DelayMS 200
bilgi = bilgi + 1
' GoTo Receive
' DelayMS 200
GoTo anaDongu

Send:
HSerOut [$24,$52,$46,"A","B","C",bilgi,$45,$4E,$44,$0D,$0A]
HSerOut [$24,$52,$46,"A","B","C",bilgi,$45,$4E,$44,$0D,$0A]
HSerOut [$24,$52,$46,"A","B","C",bilgi,$45,$4E,$44,$0D,$0A]
' HSerOut [Rep preamble\5, Rep preamble1\5, Rep preamble2\5]
' HSerOut ["E","T","E",bilgi,bilgi,bilgi]
' HSerOut ["E","T","E",bilgi,bilgi,bilgi]
' HSerOut ["E","T","E",bilgi,bilgi,bilgi]
DelayMS 100
Return

Receive:
' HSerIn [Wait("ETE"),bilgi,bilgi,bilgi]
DelayMS 500
Return