Announcement

**Bestgear** · November 13, 2009, 01:54 PM

Are you sure that the data ASC is trying to operate on is valid for the command?

Perhaps do a writelog of your variables to confirm the contents...

That is a typical cause....

D

**TechnoJunkie** · November 13, 2009, 06:29 PM

Hi David, and everyone else

Well I've been playing about with this for a while and I've take it right back to basics.

Code:

Comport=7   
sub main(Xmitter)
 hs.GetComPortData(comport)
 hs.writeLog "Raw data",Xmitter
 
 A1=asc(Mid(Xmitter,1,1)) 
 hs.writelog "Asc result","" &A1
 
end sub

It doesn't get any simpler...spit out the asc result of one character, and as you see from the log it still can't do it.

The results of the characters on either side of " ) " are fine.

13/11/2009 23:00:46 Raw data &
13/11/2009 23:00:46 Asc result 38

13/11/2009 23:01:10 Raw data '
13/11/2009 23:01:10 Asc result 39

13/11/2009 23:01:51 Raw data (
13/11/2009 23:01:51 Asc result 40

13/11/2009 23:02:04 Raw data
13/11/2009 23:02:04 Error Running script, script run or compile error in file: 315Script.txt5:Invalid procedure call or argument: 'asc' in line 11 More info: Invalid procedure call or argument: 'asc'

13/11/2009 23:02:33 Raw data *
13/11/2009 23:02:33 Asc result 42

13/11/2009 23:02:59 Raw data +
13/11/2009 23:02:59 Asc result 43

13/11/2009 23:03:30 Raw data ,
13/11/2009 23:03:30 Asc result 44

As I said in the previous post I can watch the data comming in at the coms port perfectly using a port sniffer.

I've tried a laptop injecting a single " ) " and a hand held data tester and both give me the same results.

Any ideas?

Anybody care to try and stick " ) " into their com port?

Andy

**jon00** · November 13, 2009, 06:46 PM

Are you sure you are not trying to process a space as that would cause an error.

Try something like:

If Mid(Xmitter,1,1) <> " " then A1=asc(Mid(Xmitter,1,1))

**TechnoJunkie** · November 14, 2009, 07:17 AM

Originally posted by jon00 View Post

Are you sure you are not trying to process a space as that would cause an error.

Try something like:

If Mid(Xmitter,1,1) <> " " then A1=asc(Mid(Xmitter,1,1))

Hi Jon

Processing a space actually gives the correct value of 32. I tried it with the line above and I still get exactly the same result for " ) " .

You can see the data it's getting fed with on the screen shot compaired to the log

Attached Files

**jon00** · November 14, 2009, 07:24 AM

That's weird.

You can get around the issue with something like:

If Mid(Xmitter,1,1) = ")" then
A1=41
else
A1=asc(Mid(Xmitter,1,1))
end if

**TechnoJunkie** · November 14, 2009, 09:53 AM

Originally posted by jon00 View Post

That's weird.

You can get around the issue with something like:

If Mid(Xmitter,1,1) = ")" then
A1=41
else
A1=asc(Mid(Xmitter,1,1))
end if

Hi Jon

Unfortunately that doesn't work either.

It must be because the data comming in is bad so HS never sees ")" for the statement to make it = 41, therefore it still tries to do the Asc on it.

I might stick another post on the forum asking if anyone would be kind enough to stick a ")" in through a com port and see what result they get.

It's a bit of a head scratcher.

Many thanks

Andy

**TechnoJunkie** · December 7, 2009, 08:09 AM

I just thought that I'd post a reply I got from Rick explaining why "Asc )" doesn't work.

This is because of the way that the data from a script is handled. When you opened the COM port, you told HomeSeer the name of the script that you want run when data arrives. Unfortunately, the way that data is passed to a script is by running the script with parameters enclosed with parenthesis, and so a parenthesis in the data will cause problems with this.

To fix this at our end, we will have to change how we make the COM port data available to scripts by exposing an object to the scripting interface so that we can run the script without having to pass the data as an argument. Thus, this will take a while to fix.

Announcement

Problems with &asc(")")

Problems with &asc(")")

Comment

Comment

Comment

Comment

Comment

Comment

Comment