Hello everyone. It has been a long time away for me. This will be my first post in about 2 years! After moving house twice and putting all my stuff in storage, it is now being unpacked. Refitting the HA has made it to the top of the list and I have found my first new problem:
I have purchased an RS232 LCD display for simple status messages. It works fine with Hyperterminal (2400, 8, none,1 and flow control off). The problem is interfacing with HS. I can get the com port open and send the string but the display only shows the first charcter of each string. I have tried every variation on the theme that I have found in the message board but can't figure out what is going on.
The script I am using is below:
sub main()
Dim e
e=hs.OpenComPort(2,"2400,n,8,1",1,"","")
if e<> "" then
hs.writelog "Error opening COM2",e
else hs.writelog "COM2", "Opened"
end if
hs.SendToComPort 2, chr(13) 'blanks the screen
hs.waitsecs 2
hs.SendToComPort 2, "Testing"
hs.CloseComPort 2
end sub
Any suggestions?
The display is http://www.vellemanprojects.com/es/e...iew/?id=350997
Jon
I have purchased an RS232 LCD display for simple status messages. It works fine with Hyperterminal (2400, 8, none,1 and flow control off). The problem is interfacing with HS. I can get the com port open and send the string but the display only shows the first charcter of each string. I have tried every variation on the theme that I have found in the message board but can't figure out what is going on.
The script I am using is below:
sub main()
Dim e
e=hs.OpenComPort(2,"2400,n,8,1",1,"","")
if e<> "" then
hs.writelog "Error opening COM2",e
else hs.writelog "COM2", "Opened"
end if
hs.SendToComPort 2, chr(13) 'blanks the screen
hs.waitsecs 2
hs.SendToComPort 2, "Testing"
hs.CloseComPort 2
end sub
Any suggestions?
The display is http://www.vellemanprojects.com/es/e...iew/?id=350997
Jon
Comment