sending a string of HEX via serial port.

freefuel · Joined: 27 Aug 2007 Posts: 55 Location: New Jersey, USA

I'm trying to send the HEX values of 02 00 00 00 07 out the serial port but I keep getting an error stating

Error : 242 Line : 18 Source variable does not match target variable [TEMP1 = 1 , 1 , 1 , 7]

why am I getting this error?

$crystal = 8000000
$baud = 38400
'tell the compiler which chip we use
$regfile = "m16def.dat"

'some variables we will use
Dim S As String * 5

S = String(2 , 1 , 1 , 1 , 7)

Dim Mybaud As Long

'when you pass the baud rate with a variable, make sure you dimesion it as a LONG

'Ucsr0b = 0 ' DISABLE HW UART

Mybaud = 38400

Do
Print "Hello World"
'first get some data
Serin S , 0 , D , 0 , Mybaud , 0 , 8 , 2
'now send it
Serout S , 0 , D , 1 , Mybaud , 0 , 8 , 2
' ^ 1 stop bit
' ^---- 8 data bits
' ^------ even parity (0=N, 1 = E, 2=O)
' ^-------------- baud rate
' ^-------------------- pin number
' ^----------------------- port so PORTA.0 and PORTA.1 are used
' ^--------------------------- for strings pass 0
' ^-------------------------------- variable
Wait 1
Loop
End

pratik · Joined: 13 Oct 2005 Posts: 55

hi,
read the help for "String" command

kimmi · Joined: 24 Feb 2006 Posts: 1922 Location: Denmark

Hi freefuel ,
What uart do you use software uart ?

Frankeman · Joined: 11 Aug 2004 Posts: 948 Location: the Netherlands

Hi,

freefuel · Joined: 27 Aug 2007 Posts: 55 Location: New Jersey, USA

this is a sample directly from the help file.

when I compile that it passes.

Dim S As String * 15

S = String(5 , 65)

Print S 'AAAAA

End

Frankeman · Joined: 11 Aug 2004 Posts: 948 Location: the Netherlands

Try to compile with the line:
S = String(2 , 1 , 1 , 1 , 7)

And then read the help about the string command.

freefuel · Joined: 27 Aug 2007 Posts: 55 Location: New Jersey, USA

I did and I get the error listed in my first post.

Evert :-) · Joined: 18 Feb 2005 Posts: 2156

Syntax
var = STRING(m ,n)

Var
The string that is assigned.

N
The ASCII-code that is assigned to the string.

M
The number of characters to assign.

freefuel · Joined: 27 Aug 2007 Posts: 55 Location: New Jersey, USA

Thank you Evert

after seeing your example I now see that string command can only send the same charter.

I tried looking for an array command but could not find one.

Is there a way to store are retrieve a series of different values?

pratik · Joined: 13 Oct 2005 Posts: 55

Hi,

try this

$crystal = 8000000
$baud = 38400
$regfile = "m16def.dat"

Const Cmaxchar = 160
Dim Tx(cmaxchar) As Byte
Dim I As Byte
Dim B As Byte

For I = 1 To 5

Read B
Tx(i) = B

Next I

Do

Print "Hello World"

For I = 1 To 5
Print Hex(tx(i))
Next I

Wait 1

Loop

Dta:
Data 02 00 00 00 07

by & MERRY CHRISTMAS TO YOU ALL

Pixelfrank · Joined: 10 Dec 2005 Posts: 15 Location: Oranienburg

Hello,
i have an problem too, when i try to get five Nulls (&H00) into a String.

1. Disp1 = "{000}{000}{000}{000}{000}{001}FF00{002}

2. Disp1 = String(5 , &H00) + Chr(&H01) + "FF00" + Chr(&H02)

3. Disp1 = Chr(&H00) + Chr(&H00) + Chr(&H00) + Chr(&H00) + Chr(&H00) + Chr(&H01) + "FF00" + Chr(&H02)

in example 1 there is nothing in the string (???)
both example 2 and 3 contains the SOH (&H01) + "FF00" + STX(&H02), but the Nulls are ignored.
i want use the string to initilize an external RS232 device.
when i use:

4. Print Chr(&H00) ; Chr(&H00) ; Chr(&H00) ; Chr(&H00) ; Chr(&H00) ; Chr(&H01) ; "FF00" ; Chr(&H02) ;

this works fine, but it is not so "readable"

Frank

DToolan · Posted: Mon Mar 31, 2008 4:46 pm Post subject:

Frank... a null character designates the end of a string so a normal print command will stop at the null character.

People are so hung up on using strings... *eyeroll*

Pixelfrank · Joined: 10 Dec 2005 Posts: 15 Location: Oranienburg

Beke · Joined: 14 Feb 2008 Posts: 45

Hi,
AFAIK, Chr(0) does not exist, it is the "null" character, i.e. nothing. To see the print commands behaviour with it, try the following code:

DToolan · Posted: Mon Mar 31, 2008 6:58 pm Post subject: