problem with sending data using RF module


Results 1 to 40 of 52

Threaded View

  1. #1
    Join Date
    Mar 2008
    Posts
    19

    Default problem with sending data using RF module

    Hello everyone,
    I have a problem with sending data using my RF module, I don't know what the problem is.I try to change the baud rate but nothing happens.Actually I want to send a character using my RF module.But before I accomplish that, I want to test my RF module whether it's function or not.So I use this simple program to test it but my LCD at the receiver board display nothing. I don't know how to troubleshoot the problem because I'm new to this thing.Please help me guys.
    Here is the code and the schematic of my hardware.

    Transmitter part

    CMCON = 7 'Alla I/O Digitala
    LEDPin VAR PORTB.4
    TransmitterPIN VAR PORTA.0
    INCLUDE "modedefs.bas"
    Counter VAR BYTE
    Synk VAR BYTE
    Synk = $55
    DEFINE CHAR_PACING 500
    Counter = 0

    Main:
    HIGH LEDPin
    PAUSE 100
    LOW LEDPin
    PAUSE 100

    SEROUT TransmitterPIN,T2400,[Synk,Synk,9,Counter]

    HIGH LEDPin
    PAUSE 100
    LOW LEDPin
    PAUSE 100

    Counter = Counter + 1
    PAUSE 600
    GOTO Main
    END


    Receiver part

    Define LOADER_USED 1

    ' Define LCD connections
    define OSC 20

    DEFINE LCD_DREG PORTC 'LCD data port
    DEFINE LCD_DBIT 0 'LCD data starting bit 0 or 4
    DEFINE LCD_RSREG PORTB 'LCD register select port
    DEFINE LCD_RSBIT 7 'LCD register select bit
    DEFINE LCD_EREG PORTB 'LCD enable port
    DEFINE LCD_EBIT 5 'LCD enable bit
    DEFINE LCD_RWREG PORTB 'LCD read/write port
    DEFINE LCD_RWBIT 6 'LCD read/write bit
    DEFINE LCD_BITS 8 'LCD bus size 4 or 8
    DEFINE LCD_LINES 2 'Number lines on LCD
    DEFINE LCD_COMMANDUS 2000 'Command delay time in us
    DEFINE LCD_DATAUS 50 'Data delay time in us

    TRISC = %00000000 'Set port B as output
    TRISB = %00000000 'Set port D as output
    low PORTB.6 'Set the R/W bit to low

    pause 1000 'wait until the LCD initializes

    INCLUDE "modedefs.bas"
    Counter VAR WORD
    ReciverPIN VAR PORTC.0
    ADCON1 = 7 ' Alla digitala
    PAUSE 500

    Main:
    SERIN ReciverPIN,T1200,[9],Counter
    GOSUB LCD
    GOTO Main

    LCD:
    LCDOUT $FE,1
    LCDOUT $FE,$80,#Counter
    PAUSE 500
    RETURN

    END
    Attached Images Attached Images   
    Last edited by rano_zen06; - 2nd April 2008 at 11:19.

Similar Threads

  1. Using Nokia LCD
    By BobP in forum mel PIC BASIC Pro
    Replies: 300
    Last Post: - 3rd May 2018, 04:47
  2. Read/Write Problem
    By Tobias in forum mel PIC BASIC Pro
    Replies: 1
    Last Post: - 10th February 2010, 01:51
  3. Big characters on HD44780 4x20
    By erpalma in forum mel PIC BASIC Pro
    Replies: 23
    Last Post: - 7th January 2007, 02:21
  4. LCD + bar graph
    By DynamoBen in forum mel PIC BASIC Pro
    Replies: 13
    Last Post: - 5th October 2005, 14:50
  5. Sinus calculating !
    By Don Mario in forum mel PIC BASIC Pro
    Replies: 29
    Last Post: - 28th November 2004, 23:56

Members who have read this thread : 0

You do not have permission to view the list of names.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts