SEROUT,HSEROUT or DEBUG ? max 232 or no max232 ?

[Dennis]

I currently have my PC's serial port ready to send and receive to the PIC 18F4520....
I have a max232n connected and have connected the pic to the correct pins on the max232n.
I would like to receive the data in hyperterminal.
BUT would also like to experiment with HSEROUT and DEBUG etc

SO here are the questions.

Of the following choices SEROUT,HSEROUT or DEBUG which one do I choose
1.To communicate between two pics

2.From PC to PIC which one should I choose in the following instances
A.Without a max232n
B.With a max232n


3.From PIC to RF

4.From PIC to IR

For all the above when may I use the internal oscillator and when not ?

And lastly ....
Assuming the Port I would like to transmit/send the data out of is PORT C6
and the receiving port is PORT C 7,
would the line be something like

Loop:
SerOut PinNumber,T2400,DataOut
Pause 100 'Delay for Receive viewing
goto Loop

[mackrackit]

Of the following choices SEROUT,HSEROUT or DEBUG which one do I choose
1.To communicate between two pics

SEROUT,SEROUT2,HSEROUT

2.From PC to PIC which one should I choose in the following instances
A.Without a max232n
B.With a max232n

A.Without a max232n
SEROUT,SEROUT2,DEBUG
B.With a max232n
ANY

3.From PIC to RF

4.From PIC to IR

ANY

For all the above when may I use the internal oscillator and when not ?

Bauds 4800 and below most times

And lastly ....
Assuming the Port I would like to transmit/send the data out of is PORT C6
and the receiving port is PORT C 7,
would the line be something like

Loop:
SerOut PinNumber,T2400,DataOut
Pause 100 'Delay for Receive viewing
goto Loop

Looks OK

[Dennis]

Thanks a million DAVE

Now trying out SEROUT and it's working like a charm :-)

You answers have cleared up the confusion !

Once again THANK YOU

Keep well

kind regards

Dennis

[Dennis]

So far I have tested ..SEROUT,SEROUT2 and DEBUG

I just have an issue with somehow passing a variable around in my code it seems using SEROUT,SEROUT2 and DEBUG.

So far I can capture a keypress (thanks to mister e's matrix keypad routine and advice and tips from several others - thank you!)
The keypress from the keypad is stored in a variable called myvar.
I send myvar to the LCD using

lcdout dec myvar      'display keypress variable

and on the LCD the DECimal number lets say I press 1 on the keypad appears as ||1 and for the number 2 on keypad it appears as ||2 and so on.
If I change the code to convert myvar as BINary numbers like this

lcdout BIN myvar      'display keypress variable

then when I press the number 1 on the keypad I get ||1 on the LCD and then the keypad 2 shows as ||2 and so on.
NOW .....
If I use serout to send myvar to hyperterminal or MicroStudio serial port window like this

SerOut PORTC.6,T2400,["the key pressed is",myvar]

I just get "the key is pressed' followed by a windings kinda characters like smileys, blocks and so forth :-(

If I send a string with serout like this

SerOut PORTC.6,T2400,["the key pressed is"]

Then everytime I press a key I see "the key is pressed" appearing in hyperterminal.

Here is my code ....I would really appreciated if someone could point me towards finding a solution as ultimately I would like to TX the binary keypress to be RX for another PIC

'*************************************
'Keypress display on LCD and TX to wherever
'*************************************

'Ocsillator selections here
        OSCCON = $70            'Int CLK 8MHz
        OSCTUNE.6 = 1           'PLL 4x
        ADCON1= %00001111       '$0F = disable A/D converter
        cmcon   =   7 
        INTCON2.7 = 0     'switch pull-ups ON
'END of oscillator selections
  'timer/oscillator defines 
        DEFINE OSC 32            '4x 8MHz
'END of timer/oscillator defines

'Port IO directions and presets for port pins begin here
'TRISX = %76543210   << tris bit order numbering
'TRISA = %11111111       'All pins are outputs
'// Define port pins as inputs and outputs ...
        TRISA  = %00000000 'example only - TRISB = %00001111 ;Make B4-B7 outputs, B0-B3 inputs, 
        TRISB = %11111111  'for 4x4 keypad all input
        TRISC = %10000000
        TRISD = %00000000
        TRISE.0 = 0
        TRISE.1 = 0
        TRISE.2 = 0
'End of Port IO directions and presets for port pins begin here

                   
'variables begin here
        myvar var byte
        dataout var byte
'end of variables

'LCD defines begin here   
        DEFINE LCD_BITS 4 	'defines the number of data interface lines (4 or 8) 
        DEFINE LCD_DREG PORTD 	'defines the port where data lines are connected to
        DEFINE LCD_DBIT 4 	'defines the position of data lines for 4-bit interface (0 or 4)
        DEFINE LCD_RSREG PORTD 	'defines the port where RS line is connected to
        DEFINE LCD_RSBIT 2 	'defines the pin where RS line is connected to 
        DEFINE LCD_EREG PORTD 	'defines the port where E line is connected to 
        DEFINE LCD_EBIT 3 	'defines the pin where E line is connected 
        DEFINE LCD_RWREG 0 	'defines the port where R/W line is connected to (set to 0 if not used)
        DEFINE LCD_RWBIT 0 	'defines the pin where R/W line is connected to (set to 0 if not used)
        DEFINE LCD_COMMANDUS 2000 	'defines the delay after LCDOUT statement 
        DEFINE LCD_DATAUS 200 		'delay in micro seconds
'END of LCD DEFINES

'includes begin here
        INCLUDE "modedefs.bas"
        include "c:\pbp\samples\keypad.bas"
'end of includes

'Keypad code begins here
        DEFINE KEYPAD_ROW        4        ' 4 ROW keypad       
        DEFINE KEYPAD_ROW_PORT   PORTB    ' ROW port = PORTB
        DEFINE KEYPAD_ROW_BIT    0        ' ROW0 = PORTB.4
        DEFINE KEYPAD_COL        4        ' 4 COL keypad
        DEFINE KEYPAD_COL_PORT   PORTB    ' COL port = PORTB
        DEFINE KEYPAD_COL_BIT    4        ' COL0 = PORTB.0
        DEFINE KEYPAD_DEBOUNCEMS 200      ' debounce delay = 200 mSec
        DEFINE KEYPAD_AUTOREPEAT 1        ' use auto-repeat feature
'end keypad code

'Main code begins here       

        Pause 2000       ' Wait for LCD to startup
start:
        'read keypress variable 
        @ READKEYPAD _myvar 

        lcdout $fe, 1        'clear lcd screen
         
        lcdout BIN myvar      'display keypress variable
        SerOut PORTC.6,T2400,["the key pressed is",myvar] 'SerOut PinNumber2,T2400,DataRec
        pause 1000
        lcdout $fe,1          'clear lcd screen
goto start

'End of all code

Thank you

Kind regards
Dennis

[mackrackit]

Try
N2400

[Gusse]

Dennis,

Have you read this?
Communications Example : PC to PIC bi-directional dialogue

Thanks to Melanie! This helped me a lot when I did code, which communicated with PC.


BR,
-Gusse-

Edit 1: I have used baud rate up to 38400 very successful. It might work even higher data rate (haven't try so far).
Edit 2: Running on 16F876A with 10MHz crystal, haven't tested with PIC that has internal oscillator. 1k5 resistors between PC and PIC (TX & RX).

[Dennis]

Will definitely check it out and do the suggested tests :-)
Thank you

[Dennis]

Have tried N2400 ... no luck :-(
Correct me if I'm wrong but surely is well if the string arrives correctly ?

[Darrel Taylor]

DEFINE LCD_RWREG 0 'defines the port where R/W line is connected to (set to 0 if not used)
DEFINE LCD_RWBIT 0 'defines the pin where R/W line is connected to (set to 0 if not used)

I don't think it's a good idea to set those to 0.
It will end up overwriting bit0 at address 0 in RAM which is normally PBP's R0 system variable.

Try it without those lines.

hth,

[Dennis]

Darrel ....
10 points on spotting this issue ... dude can I borrow those 'fine-tooth comb code-eyes' ???

So I removed the lines...
and here are the results .....
1. LCD response is a million times faster.
2. Keypresses happen almost instantly now
3. The LCD was not responding to

lcdout $fe,1          'clear lcd screen

Now it responds like it should ...each keypress displays correctly, no funny wingdings like characters :-)
and ... the LCD display clears after every keypress :-)
YAY
The LCD and keypress system is working like it should WOOOHOOOOO !!

Thanks a million
:-)

Kind regards
Dennis

PS... I still want to know how you noticed that ?? Past experiences ?

Now all that remains is solving my SEROUT variable passing issue so I can see proper characters in hyperterminal :-)
I keep getting a little square in hyperterminal as the keypress occurs but on the LCD it appears correct :-(

the key pressed isthe key pressed isthe key pressed is

[mackrackit]

Have tried N2400 ... no luck :-(
Correct me if I'm wrong but surely is well if the string arrives correctly ?

Now all that remains is solving my serout variable passing issue so I can see proper characters in hyperterminal :-)

now I am confused....

[Dennis]

At least I'm not alone then :-)

I'm sure it has to do with passing the variable 'cos a 'string like this' appears just fine !

And if I LCDOUT myvar that works fine on the LCD

What doesn't work fine is when I SEROUT the variable myvar and try read it in hyperterminal

WEIRD or what ?

In fact with SEROUT using N2400 the output is worse and even the string of text is wingings :-)
See next post here for the output screenshot... this tells me that T2400 is correct !

[Dennis]

See the Received window

[Darrel Taylor]

WOOHOO!

dude can I borrow those 'fine-tooth comb code-eyes' ???

Well, I do have 4 eyes, so I guess you can have a couple of them.
Need a new pair of specs anyhow.

For the SEROUT prob...
Steve's keypad routine returns a result that represents the number of the key. For a 4x4 pad it's 1-16.

With a LOOKUP statement you can change them to match your keypad ...

LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar

hthm,

[Dennis]

Darrel


.'
?Is Steve mister e ??
Code-wise I tried , Bruce's code and Trent Jackson's code ....
Mister e's is what I'm using at the moment, it was the one that worked for me, but the other would probably work now that the LCD problem is cleared up ;-) ...

Where is the keypad code you are referring to ? I am willing to give it a bash :-)

Kind regards

Dennis

Oh and I sure did get my fair share of moving wires and resistors around to get the correct column and row assingments ;-)
Roll on virtual ports hey ?

[Darrel Taylor]

Yup, Steve is mister-e.

By changing from key numbers to ASCII with the Lookup, your serout should work better.
<br>

[Dennis]

Darrel :-)

So with 8 sets of eyes in total now ... should I add the LOOKUP prior to making the assembly key lookup like this ?

start:
        'read keypress variable 
        @ READKEYPAD _myvar 
        LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar
        'lcdout $fe, 1        'clear lcd screen
           'pause 2000
        lcdout dec myvar      'display keypress variable myvar
   
   'transmit section
        SerOut PORTC.6,T2400,["the key pressed is",myvar] 'SerOut PinNumber2,T2400,DataRec
        pause 1000
   'transmit section ends
        
    'receive section 
         'SerIn PORTC.7,T2400,DataRX       
         'LCDOUT datarx          'displays data received from serin datarx
    'receive section ends
        lcdout $fe,1          'clear lcd screen
        
goto start

Kind regards
Dennis


@ READKEYPAD _myvar

[Darrel Taylor]

Except for the DEC modifier, good to go.

start:
        'read keypress variable 
        @ READKEYPAD _myvar 
        LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar
        'lcdout $fe, 1        'clear lcd screen
           'pause 2000
        lcdout <strike>dec</strike> myvar      'display keypress variable myvar
   
   'transmit section
        SerOut PORTC.6,T2400,["the key pressed is",myvar] 'SerOut PinNumber2,T2400,DataRec
        pause 1000
   'transmit section ends
        
    'receive section 
         'SerIn PORTC.7,T2400,DataRX       
         'LCDOUT datarx          'displays data received from serin datarx
    'receive section ends
        lcdout $fe,1          'clear lcd screen
        
goto start

[Dennis]

OK got your message after I tried with the DEC modifier ;-) nothing worked !
So I removed it and .....
The LCD now shows the correct characters as per what I type in 123 etc and the ABCD keys as well as # and * ....YAY.....
but sadly now nothing appears in hyperterminal ....
Does SEROUT now need to be replaced by SEROUT2 ?
Will try it later and post results either way :-)
Need some sleep now ..
Thanks so much for your continued help :-) much appreciated !

Keep well

Kind regards
Dennis

OH .. by the way .. do you maybe know how I could capture a keyin of the number say 135 # so that it is actually stored as binary or decimal 135 ?

[Darrel Taylor]

but sadly now nothing appears in hyperterminal ....
Does SEROUT now need to be replaced by SEROUT2 ?

If you have PBP 2.60 then that will help. SEROUT has a buad rate problem.

OH .. by the way .. do you maybe know how I could capture a keyin of the number say 135 # so that it is actually stored as binary or decimal 135 ?

If you have 2.60, it's real easy with ARRAYREAD.
<br>

[Dennis]

Hi Darrel

Problem seems to be solved now.

And the solution was in the very problem itself ...passing the variable !!

I created a new variable called datatx
and then after the displaying myvar to LCD with LCDOUT,
all I did was let datatrx = myvar
then SEROUT myvar
And whammo it works :-) YAY ...!

Thanks so much for all your help !

Here's the code for reference and for anyone who might find it useful
It captures a keypress, diplays it on the LCD and send the captured keypress via SEROUT.

Kind regards
Dennis

'*************************************
'Keypress display on LCD and TX to wherever
'*************************************

'Ocsillator selections here
        OSCCON = $70            'Int CLK 8MHz
        OSCTUNE.6 = 1           'PLL 4x
        ADCON1= %00001111       '$0F = disable A/D converter
        cmcon   =   7 
        INTCON2.7 = 0     'switch pull-ups ON
'END of oscillator selections
  'timer/oscillator defines 
        DEFINE OSC 32            '4x 8MHz
'END of timer/oscillator defines

'Port IO directions and presets for port pins begin here
'TRISX = %76543210   << tris bit order numbering
'TRISA = %11111111       'All pins are outputs
'// Define port pins as inputs and outputs ...
        TRISA  = %00000000 'example only - TRISB = %00001111 ;Make B4-B7 outputs, B0-B3 inputs, 
        TRISB = %11111111  'for 4x4 keypad all input
        TRISC = %10000000
        TRISD = %00000000
        TRISE.0 = 0
        TRISE.1 = 0
        TRISE.2 = 0
'End of Port IO directions and presets for port pins begin here

                   
'variables begin here
        myvar var byte
        datatx var byte
        datarx var byte
'end of variables

'LCD defines begin here   
        DEFINE LCD_BITS 4 	'defines the number of data interface lines (4 or 8) 
        DEFINE LCD_DREG PORTD 	'defines the port where data lines are connected to
        DEFINE LCD_DBIT 4 	'defines the position of data lines for 4-bit interface (0 or 4)
        DEFINE LCD_RSREG PORTD 	'defines the port where RS line is connected to
        DEFINE LCD_RSBIT 2 	'defines the pin where RS line is connected to 
        DEFINE LCD_EREG PORTD 	'defines the port where E line is connected to 
        DEFINE LCD_EBIT 3 	'defines the pin where E line is connected 
        'DEFINE LCD_RWREG 0 	'defines the port where R/W line is connected to (set to 0 if not used)
        'DEFINE LCD_RWBIT 0 	'defines the pin where R/W line is connected to (set to 0 if not used)
        DEFINE LCD_COMMANDUS 2000 	'defines the delay after LCDOUT statement 
        DEFINE LCD_DATAUS 200 		'delay in micro seconds
'END of LCD DEFINES

'includes begin here
        INCLUDE "modedefs.bas"
        include "c:\pbp\samples\keypad.bas"
'end of includes

'Keypad code begins here
        DEFINE KEYPAD_ROW        4        ' 4 ROW keypad       
        DEFINE KEYPAD_ROW_PORT   PORTB    ' ROW port = PORTB
        DEFINE KEYPAD_ROW_BIT    0        ' ROW0 = PORTB.4
        DEFINE KEYPAD_COL        4        ' 4 COL keypad
        DEFINE KEYPAD_COL_PORT   PORTB    ' COL port = PORTB
        DEFINE KEYPAD_COL_BIT    4        ' COL0 = PORTB.0
        DEFINE KEYPAD_DEBOUNCEMS 200      ' debounce delay = 200 mSec
        DEFINE KEYPAD_AUTOREPEAT 1        ' use auto-repeat feature
'end keypad code

'Main code begins here       

        Pause 2000       ' Wait for LCD to startup
start:
        'read keypress variable 
        @ READKEYPAD _myvar 
        LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar
       
        'lcdout $fe, 1        'clear lcd screen
           'pause 2000
        lcdout myvar      'display keypress variable myvar
             
              datatx = myvar '<<<<here's the solution :-)
             lcdout datatx
   'transmit section
'THE PROBLEM LINE >>>        SerOut PORTC.6,T2400,["the key pressed is ",datatx] 
        SerOut PORTC.6,T2400,["the key pressed is ",datatx] 'SerOut PinNumber2,T2400,DataRec (FIXED!!
        pause 1000
   'transmit section ends
        
    'receive section 
         'SerIn PORTC.7,T2400,DataRX       
         'LCDOUT datarx          'displays data received from serin datarx
    'receive section ends
        lcdout $fe,1          'clear lcd screen
        
goto start

'End of all code

[Darrel Taylor]

I created a new variable called datatx
and then after the displaying myvar to LCD with LCDOUT,
all I did was let datatrx = myvar
then SEROUT myvar
And whammo it works :-) YAY ...!

Well, I'm glad it's working, but I don't think that's what fixed it.

All that did was copy a byte var to another byte var then displays the copied var. It's no different than displaying the original var in the first place.

And since it works, I assume that means you don't have PBP 2.60, so I won't need to show an ARRAYREAD example.
<br>

[Dennis]

Hi again Darrel

Would love to see an ARRAY read example if you have the time ..if not just point me to a place to read about or reference it :-)

Kind regards

Dennis

[Heckler]

Not sure what sort of ARRAYREAD example you are looking for... but here is one example.

I am simply reading in a NMEA string from a gps unit and then parsing the NMEA sentence using ARRAYREAD.

The underscore at the end of each line of the arrayread statement allows you to wrap the text so you do not have such a LONG sentence, yet it is still all one PBP statement.

serin2 gps,188,3000,tmout,[WAIT("$GPRMC,"),STR GPRMC\63\"$"]

arrayread gprmc,[DEC2 hh,DEC2 mm,dec2 ss,_
  wait(","),fix,wait(","),DEC2 latdeg,DEC2 latmin,wait("."),dec4 latminn,_
  wait(","),NS,wait(","),DEC3 londeg,DEC2 lonmin,wait("."),dec4 lonminn,_
  wait(","),EW,wait(","),dec knots,dec Knotss,dec course,_
  wait(","),DEC2 dy,DEC2 mt,DEC2 yr]

Dwight

[RobertDW]

Hi Dennis I'm brand new to the forum.
I see your question about the usage of max232 is my question as well, I have built an interface with a Wi-Fi chip and asked them if I needed the MAX232 chip to stabilise the signal quality using the picbasic "SEROUT" function and showed them an oscilloscope image of the signal produced and they were very busy and answered with "device connect to Wi-Fi is RS232 interface, the MAX232 chip is needed but not if UART".Did you find out if the process is RS232 or UART ?

[mackrackit]

You replied to a seven year old thread... It would be best to start a new thread.

When you start the new thread be sure to include the PIC you are using along with the WIFI module you are using. Without knowing this we would just be guessing about the best solution for you.

[ardhuru]

Hi,

Can I assume your wifi device is a variation of the ESP8266? If so, you would NOT require a MAX chip between the PIC and the Wifi module. Serout, Hserout should work, as also debug (the last in mode 0).

Only thing to remember is the Wifi module, depending on the version you have might not be 5 volt tolerant.

Regards,

Anand Dhuru

[RobertDW]

Hello ardhuru,
I took mackrackit's advice and moved my quiry to http://www.picbasic.co.uk/forum/showthread.php?t=22510
cheers